10 REM ********************************
12 REM * SAVEROMS                     *
14 REM * SAVE C64 ROMS FOR USE IN A64 *
16 REM * WRITTEN BY CLIFF DUGAN       *
18 REM ********************************
20 :
50 A=780:X=781:Y=782:P=783
99 :
100 POKE53280,0:POKE53281,0
102 PRINT"[147]";
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]";
105 PRINT"[194]              SAVE ROMS               [194]";
106 PRINT"[194]     SAVE C64 ROMS FOR USE IN A64     [194]";
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]";
110 PRINTSPC(8)"INSERT DISK INTO DRIVE 8"
111 PRINTSPC(8)"PRESS ANY KEY WHEN READY"
115 GETA$:IFA$=""THEN115
118 FORI=5TO7:POKEX,I:SYS59903:NEXT
120 POKEX,6:POKEY,0:POKEP,0:SYS65520
200 REM SAVE BASIC.ROM
210 PRINT"[158]SAVING BASIC.ROM"
220 SYS57812"@0:BASIC.ROM",8,1
230 POKE193,0:POKE194,160
240 POKE174,0:POKE175,192
250 SYS62957
260 IFST=0THEN280
270 PRINT"ERROR: SAVE FAILED":END
280 PRINT"BASIC.ROM SAVED OK"
300 REM SAVE KERNAL.ROM
310 PRINT"[158]SAVING KERNAL.ROM"
320 SYS57812"@0:KERNAL.ROM",8,1
330 POKE193,0:POKE194,224
340 POKE174,255:POKE175,255
350 SYS62957
360 IFST=0THEN380
370 PRINT"ERROR: SAVE FAILED":END
380 PRINT"KERNAL.ROM SAVED OK"
400 PRINT""
410 PRINTSPC(6)"C64 ROMS SAVED SUCCESSFULLY"
420 PRINTSPC(3)"NOW COPY BASIC.ROM AND KERNAL.ROM"
430 PRINTSPC(12)"TO YOUR A64 DISK"
440 PRINTSPC(5)"AND USE STRIPLOADADDR ON THEM."
999 END