home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_2 / OUTPUT.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-04-16  |  542 b   |  29 lines
  1. '**************************************
  2. '
  3. ' C-Control/BASIC       OUTPUT.BAS
  4. '
  5. ' Aufgabe:
  6. '
  7. ' - Schalten des digitalen Ausgangs 1
  8. ' - Blinker: ein Impuls pro Sekunde
  9. '
  10. '**************************************
  11. ' --- Definitionen --------------------
  12.  
  13. define Ausgang port[1]
  14.  
  15. ' --- Programmoperationen -------------
  16.  
  17. #Loop
  18.   Ausgang = 1          'Einschalten
  19.   pause 25             '0,5 s warten
  20.   Ausgang = 0          'Ausschalten
  21.   pause 25             '0,5 s warten
  22. goto Loop              'Endlosschleife
  23. end
  24.  
  25.  
  26.  
  27.  
  28.  
  29.