home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU11.ARC / AUTO-ERROR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.6 KB  |  43 lines
  1. 1 REM AUTOMATIC ERROR MESSAGE
  2. 2 REM FOR C-64 + DISKDRIVE 1541/MSD
  3. 20 PRINTCHR$(147)
  4. 30 PRINT SPC(81)"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  5. 40 PRINT" [194] AUTOMATIC DISKDRIVE ERROR-MESSAGES [194]"
  6. 50 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  7. 60 PRINTSPC(88)"WRITTEN BY GEORG KRAMER"
  8. 70 PRINTSPC(93)"(C) JUNE 1985":PRINT
  9. 80 FORI=1TO40:PRINT"-";:NEXT
  10. 90 PRINT
  11. 100 PRINTSPC(94)"<<  KEY  >>"
  12. 110 POKE198,0
  13. 120 GETA$:IFA$=""THEN120
  14. 130 :
  15. 140 PRINTCHR$(147):PRINT:PRINT
  16. 150 INPUT"  STARTADDRESS: [146] 49152[157][157][157][157][157][157][157]";S
  17. 160 FORI=0TO247:READA
  18. 170 POKES+I,A:NEXT
  19. 185 REM
  20. 190 POKES+7,(S+13)/256
  21. 200 POKES+2,(S+13)-PEEK(S+7)*256
  22. 202 POKES+154,(S+218)/256
  23. 204 POKES+153,(S+218)-PEEK(S+154)*256
  24. 210 SYS(S)
  25. 220 PRINTCHR$(147):PRINTSPC(8)"   PROGRAM ACTIVATED     "
  26. 230 PRINTSPC(8)" START:   SYS"S"[157]      "
  27. 240 PRINTSPC(8)" END  : RUN-STOP/RESTORE "
  28. 250 END
  29. 1000 REM ML-PART
  30. 32000 DATA120,169,13,141,20,3,169,128,141,21,3,88,96,230,182,240,3,76,49,234
  31. 32001 DATA165,144,201,66,240,8,165,144,201,128,240,2,208,239,169,255,166,186
  32. 32002 DATA160,15,32,186,255,169,0,32,189,255,32,192,255,162,255,32,198,255,32
  33. 32003 DATA207,255,201,48,208,7,32,47,243,88,76,49,234,72,165,211,141,168,2,165
  34. 32004 DATA214,141,178,2,162,0,189,0,4,157,132,3,232,224,120,208,245,162,0,169
  35. 32005 DATA32,157,0,4,232,224,120,208,246,32,102,229,169,207,240,252,169,1,133
  36. 32006 DATA204,173,134,2,133,189,169,1,141,134,2,169,1,133,199,104,32,210,255
  37. 32007 DATA32,207,255,32,210,255,165,144,201,64,208,244,32,47,243,162,0,189,218
  38. 32008 DATA128,32,210,255,232,224,30,208,245,32,135,234,165,203,201,64,240,247
  39. 32009 DATA165,189,141,134,2,162,0,162,0,189,132,3,157,0,4,232,224,120,208,245
  40. 32010 DATA165,189,157,0,216,232,224,120,208,246,173,168,2,133,211,173,178,2,133
  41. 32011 DATA214,32,16,229,76,49,234,18,32,60,60,32,80,76,69,65,83,69,32,80,82,69
  42. 32012 DATA83,83,32,65,32,75,69,89,32,33,32,62,62,32,146,0
  43.