home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU11.ARC / ERRON (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  614 b   |  24 lines
  1. 10 REM: ERRON--FLASH MSD ERROR LED
  2. 15 GOSUB 200
  3. 20 N=4:D$=""
  4. 30 FOR A=1 TO N:READ B:D$=D$+CHR$(B):NEXT
  5. 90 DATA 32,54,192,96
  6. 95 REM:JSR CO36 (ERRON) RTS
  7. 100 OPEN 15,8,15
  8. 110 PRINT#15, "M-W"CHR$(0)CHR$(64)CHR$(N)D$
  9. 115 PRINT#15, "M-R"CHR$(0)CHR$(64)CHR$(N)
  10. 118 FOR B=1 TO N:GET#15, C$:PRINT ASC(C$+"0");:NEXT
  11. 120 PRINT#15,"M-E"CHR$(0)CHR$(64)
  12. 130 CLOSE15
  13. 140 END
  14. 150 REM:RUNS OK
  15. 200 PRINT"[147]THIS IS A DOS PROGRAMMING DEMONSTRATION"
  16. 210 PRINT"IT FLASHES THE ERROR LED ON THE DRIVE"
  17. 220 PRINT"FROM WHICH THE PROGRAM WAS LOADED"
  18. 225 PRINT"THE CODE IN LINE 90 MAY BE INCORPORATED"
  19. 228 PRINT"INTO DOS PROGRAMS TO TEST EXECUTION"
  20. 230 PRINT"PRESS RETURN TO CONTINUE[146]"
  21. 240 GETZ$:IF Z$=""THEN 240
  22. 250 PRINT"      RUNNING"
  23. 260 RETURN
  24.