home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / programme.bas / assembl / impulse.bas < prev    next >
Encoding:
BASIC Source File  |  1997-04-17  |  502 b   |  28 lines
  1. '**************************************
  2. '
  3. ' C-Control/BASIC       IMPULSE.BAS
  4. '
  5. ' Aufgabe:
  6. '
  7. ' - Erzeugen von schnellen Impulsen
  8. ' - Datenübergabe mit Bytevariablen
  9. '
  10. '**************************************
  11. ' --- Definitionen --------------------
  12.  
  13. define Bitmuster byte 'Bytevar $0A1
  14. define Anzahl byte    'Bytevar $0A2
  15.  
  16. ' --- Programmoperationen -------------
  17.  
  18. #loop
  19.   Bitmuster = 85
  20.   Anzahl = 255
  21.   sys &H0101
  22.   pause 1
  23. goto loop
  24. end
  25.  
  26. syscode "IMPULSE.OBJ"   'Code laden
  27.  
  28.