home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / emulator / thea64package / 64prgs / saveroms (.txt) < prev   
Commodore BASIC  |  1995-02-27  |  1KB  |  44 lines
  1. 10 REM ********************************
  2. 12 REM * SAVEROMS                     *
  3. 14 REM * SAVE C64 ROMS FOR USE IN A64 *
  4. 16 REM * WRITTEN BY CLIFF DUGAN       *
  5. 18 REM ********************************
  6. 20 :
  7. 50 A=780:X=781:Y=782:P=783
  8. 99 :
  9. 100 POKE53280,0:POKE53281,0
  10. 102 PRINT"[147]";
  11. 104 PRINT"[176][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][195][195][174]";
  12. 105 PRINT"[194]              SAVE ROMS               [194]";
  13. 106 PRINT"[194]     SAVE C64 ROMS FOR USE IN A64     [194]";
  14. 107 PRINT"[173][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][195][195][189]";
  15. 110 PRINTSPC(8)"INSERT DISK INTO DRIVE 8"
  16. 111 PRINTSPC(8)"PRESS ANY KEY WHEN READY"
  17. 115 GETA$:IFA$=""THEN115
  18. 118 FORI=5TO7:POKEX,I:SYS59903:NEXT
  19. 120 POKEX,6:POKEY,0:POKEP,0:SYS65520
  20. 200 REM SAVE BASIC.ROM
  21. 210 PRINT"[158]SAVING BASIC.ROM"
  22. 220 SYS57812"@0:BASIC.ROM",8,1
  23. 230 POKE193,0:POKE194,160
  24. 240 POKE174,0:POKE175,192
  25. 250 SYS62957
  26. 260 IFST=0THEN280
  27. 270 PRINT"ERROR: SAVE FAILED":END
  28. 280 PRINT"BASIC.ROM SAVED OK"
  29. 300 REM SAVE KERNAL.ROM
  30. 310 PRINT"[158]SAVING KERNAL.ROM"
  31. 320 SYS57812"@0:KERNAL.ROM",8,1
  32. 330 POKE193,0:POKE194,224
  33. 340 POKE174,255:POKE175,255
  34. 350 SYS62957
  35. 360 IFST=0THEN380
  36. 370 PRINT"ERROR: SAVE FAILED":END
  37. 380 PRINT"KERNAL.ROM SAVED OK"
  38. 400 PRINT""
  39. 410 PRINTSPC(6)"C64 ROMS SAVED SUCCESSFULLY"
  40. 420 PRINTSPC(3)"NOW COPY BASIC.ROM AND KERNAL.ROM"
  41. 430 PRINTSPC(12)"TO YOUR A64 DISK"
  42. 440 PRINTSPC(5)"AND USE STRIPLOADADDR ON THEM."
  43. 999 END
  44.