start tok64 d64-Q77R5l
5 POKE53281,0:PRINT"{clear}{yellow}{down*7}{space*6}{reverse on}{space*28}"
10 PRINT"{space*6}{reverse on}{space*6}cartridge cloner{space*6}"
15 PRINT"{space*6}{reverse on}{space*28}"
20 PRINT"{down*3}{space*7}this program makes a copy"SPC(19)"{down}of any cartridge"
23 POKE54296,15:POKE54277,0:POKE54278,247:POKE54276,17:POKE54273,40:POKE54272,0
25 FORt=1TO100:NEXT:POKE54276,16
30 FORi=0TO65:READa:POKE50000+i,a:NEXT
40 DATA0,11,8,1,0,158,50,48,54,49,0,0,0
50 DATA169,65,141,255,159,141,45,8,169,8,141,46,8,169,255,141,56,8,169,127,141
60 DATA57,8,238,45,8,208,3,238,46,8,173,208,7,238,56,8,208,3,238,57,8,141,208
70 DATA7,173,255,159,201,82,208,227,76
80 FORi=0TO85:READa:POKEi+49152,a:NEXT
90 DATA162,0,189,80,195,157,0,8,232,224,66,208,245
91 REM:ml to move 8k
100 DATA162,0,160,32,189,0,128,157,66,8,232,208,247,238,19,192,238,22,192,136
110 DATA208,238
115 REM set check & move pointers
120 DATA141,62,8,169,64,133,174,133,45,169,40,133,175,133,46
121 REM display message #2
125 DATA162,0,189,56,199,32,210,255,232,224,48,208,245,32,207,255
126 DATA162,0,189,44,201,32,210,255,232,224,116,208,245,32,207,255,32,207,255,0
130 FORi=0TO47:READa:POKE51000+i,a:NEXT
140 DATA19,17,17,17,17,17,17,17,17,17,17,29,29,29,29,29,82,69,77,79,86,69
150 DATA17,17,17,17,29,29,29,29,29,29,29,29,29,29,29,29,29,29
160 DATA82,69,77,79,86,69,68,32
170 FORi=0TO115:READa:POKEi+51500,a:NEXT
180 DATA147,17,17,17,32,32,32,32,32,32,67,65,82,84,82,73,68,71,69,32,72,65,83
190 DATA32,66,69,69,78,32,84,82,65,78,83,70,69,82,69,68,13
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
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
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
230 DATA65,80,69,19
240 POKE54296,15:POKE54277,0:POKE54278,247:POKE54276,17:POKE54273,40:POKE54272,0
250 FORt=1TO100:NEXT:POKE54276,16
280 POKE53281,0:PRINT"{clear}{down*8}{space*15}{reverse on}{light green}carefully{reverse off}"
290 PRINT"{down}{gray}{space*5}insert cartridge to be copied"
300 PRINT"{space*5}this display should not change"
310 PRINT"{down*2}{space*7}press {reverse on}return{reverse off} when inserted"
320 GETa$:POKE53280,PEEK(162):IFa$=""THEN320
330 SYS49152
stop tok64
(bastext 1.0)