home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_2 / INPUT.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-03-04  |  517 b   |  28 lines
  1. '**************************************
  2. '
  3. ' C-Control/BASIC       INPUT.BAS
  4. '
  5. ' Aufgabe:
  6. '
  7. ' - Lesen des digitalen Eingangs 9
  8. ' - Senden des Ergebnisses an den PC
  9. '
  10. '**************************************
  11. ' --- Definitionen --------------------
  12.  
  13. define Eingang Port[9]
  14. define Zustand Byte
  15.  
  16. ' --- Programmoperationen -------------
  17.  
  18. #Loop
  19.   Zustand = Eingang    'Port lesen
  20.   print Zustand        'an PC senden
  21.   wait 25              '0,5 s warten
  22. goto Loop              'Endlosschleife
  23.  
  24.  
  25.  
  26.  
  27.  
  28.