home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / ROM-READER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.9 KB  |  41 lines
  1. 5 POKE53281,0:PRINT"ô₧                                  "
  2. 10 PRINT"            CARTRIDGE CLONER      "
  3. 15 PRINT"                                  "
  4. 20 PRINT"       THIS PROGRAM MAKES A COPY"SPC(19)"OF ANY CARTRIDGE"
  5. 23 POKE54296,15:POKE54277,0:POKE54278,247:POKE54276,17:POKE54273,40:POKE54272,0
  6. 25 FORT=1TO100:NEXT:POKE54276,16
  7. 30 FORI=0TO65:READA:POKE50000+I,A:NEXT
  8. 40 DATA0,11,8,1,0,158,50,48,54,49,0,0,0
  9. 50 DATA169,65,141,255,159,141,45,8,169,8,141,46,8,169,255,141,56,8,169,127,141
  10. 60 DATA57,8,238,45,8,208,3,238,46,8,173,208,7,238,56,8,208,3,238,57,8,141,208
  11. 70 DATA7,173,255,159,201,82,208,227,76
  12. 80 FORI=0TO85:READA:POKEI+49152,A:NEXT
  13. 90 DATA162,0,189,80,195,157,0,8,232,224,66,208,245
  14. 91 REM:ML TO MOVE 8K
  15. 100 DATA162,0,160,32,189,0,128,157,66,8,232,208,247,238,19,192,238,22,192,136
  16. 110 DATA208,238
  17. 115 REM SET CHECK & MOVE POINTERS
  18. 120 DATA141,62,8,169,64,133,174,133,45,169,40,133,175,133,46
  19. 121 REM DISPLAY MESSAGE #2
  20. 125 DATA162,0,189,56,199,32,210,255,232,224,48,208,245,32,207,255
  21. 126 DATA162,0,189,44,201,32,210,255,232,224,116,208,245,32,207,255,32,207,255,0
  22. 130 FORI=0TO47:READA:POKE51000+I,A:NEXT
  23. 140 DATA19,17,17,17,17,17,17,17,17,17,17,29,29,29,29,29,82,69,77,79,86,69
  24. 150 DATA17,17,17,17,29,29,29,29,29,29,29,29,29,29,29,29    
  25. 160 DATA82,69,77,79,86,69,68,32
  26. 170 FORI=0TO115:READA:POKEI+51500,A:NEXT
  27. 180 DATA147,17,17,17,32,32,32,32,32,32,67,65,82,84,82,73,68,71,69,32,72,65,83
  28. 190 DATA32,66,69,69,78,32,84,82,65,78,83,70,69,82,69,68,13
  29. 200 DATA17,17,17,32,32,32,32,80,82,69,83,83,32,82,69,84,85,82,78,32,18,40,83,67
  30. 210 DATA82,69,69,78,32,87,73,76,76,32,67,76,69,65,82,41,13,32,32,32,32,32,17,83
  31. 220 DATA65,86,69,32,80,82,79,71,82,65,77,32,84,79,32,68,73,83,75,32,79,82,32,84
  32. 230 DATA65,80,69,19
  33. 240 POKE54296,15:POKE54277,0:POKE54278,247:POKE54276,17:POKE54273,40:POKE54272,0
  34. 250 FOR    
  35. 280 POKE53281,0:PRINT"ô               ÖCAREFULLYÆ"
  36. 290 PRINT"ÿ     INSERT CARTRIDGE TO BE COPIED"
  37. 300 PRINT"     THIS DISPLAY SHOULD NOT CHANGE"
  38. 310 PRINT"       PRESS RETURNÆ WHEN INSERTED"
  39. 320 GETA$:POKE53280,PEEK(162):IFA$=""THEN320
  40. 330 SYS49152
  41.