home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_2 / OUTPUT3.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-03-07  |  712 b   |  42 lines
  1. '**************************************
  2. '
  3. ' C-Control/BASIC       OUTPUT3.BAS
  4. '
  5. ' Aufgabe:
  6. '
  7. ' - Ausgabe von Bitmustern
  8. ' - Lichtorgel-Simulation
  9. '
  10. '**************************************
  11. ' --- Definitionen --------------------
  12.  
  13. define Ausgaenge byteport[1]
  14.  
  15. ' --- Programmoperationen -------------
  16.  
  17. #Loop
  18.   Ausgaenge = &B11111111
  19.   pause 5
  20.   Ausgaenge = &B01111110
  21.   pause 7
  22.   Ausgaenge = &B00110000
  23.   pause 10
  24.   Ausgaenge = &B00000000
  25.   pause 14
  26.   Ausgaenge = &B10000000
  27.   pause 5
  28.   Ausgaenge = &B00100000
  29.   pause 5
  30.   Ausgaenge = &B00000100
  31.   pause 5
  32.   Ausgaenge = &B00000001
  33.   pause 5
  34.   Ausgaenge = &B00000000
  35.   pause 20
  36. goto Loop              'Endlosschleife
  37. end
  38.  
  39.  
  40.  
  41.  
  42.