home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_2 / RAMPEN.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-06-03  |  566 b   |  34 lines
  1. '**************************************
  2. '
  3. ' C-Control/BASIC       RAMPEN.BAS
  4. '
  5. ' Aufgabe:
  6. '
  7. ' - Zweifach-Rampengenerator
  8. ' - Gegenphasige Ausgabe, DA1 und DA2
  9. '
  10. '**************************************
  11. ' --- Definitionen --------------------
  12.  
  13. define AusgangA DA[1]
  14. define AusgangB DA[2]
  15. define N byte
  16.  
  17. ' --- Programmoperationen -------------
  18.  
  19. #Loop
  20.   AusgangA = 0
  21.   AusgangB = 255
  22.   pause 200
  23.   for N = 1 to 255
  24.     AusgangA = AusgangA + 1
  25.     AusgangB = AusgangB - 1
  26.     pause 1
  27.   next
  28. goto Loop              'Endlosschleife
  29. end
  30.  
  31.  
  32.  
  33.  
  34.