10 POKE56,30:POKE55,0:REM POINTERS TO NORMAL TOP OF MEMORY ON VIC
20 PRINT"[147]PLACE AT TOP MEMORY,":PRINT"OR IN CASSETTE BUFFER"
30 INPUT"(T[146]/C[146])";A$:IFA$<>"T"ANDA$<>"C"THEN30
40 IF A$="C" THEN SA=828:GOTO70
50 T=PEEK(55)+PEEK(56)*256:T=T-104:POKE56,INT(T/256):POKE55,T-INT(T/256)*256:SA=T
60 POKE52,INT(T/256):POKE51,T-INT(T/256)*256
70 FORI=SATOSA+103:READA:X=X+A:POKEI,A:NEXT
80 SB=SA+29:POKESA+7,INT(SB/256):POKESA+2,SB-INT(SB/256)*256
90 SC=SA+88:POKESA+23,INT(SC/256):POKESA+18,SC-INT(SC/256)*256
100 IF X<>11575 THEN PRINT"ERROR IN DATA STATEMENTS.":END
110 IN=10:POKESA+46,IN:REM INCREMENT CHANGE
120 PRINT"[147]SYS"STR$(SA)" TO RUN[146]":NEW
130 DATA 120,169,89,141,2,3,169
140 DATA 3,141,3,3,169,0,133
150 DATA 20,133,21,169,148,141,20
160 DATA 3,169,3,141,21,3,88
170 DATA 96,173,21,3,201,234,208
180 DATA 6,32,138,255,76,131,196
190 DATA 165,20,24,105,10,133,99
200 DATA 165,21,105,0,133,98,162
210 DATA 144,56,32,73,220,32,221
220 DATA 221,162,0,189,1,1,240
230 DATA 6,157,119,2,232,208,245
240 DATA 169,32,157,119,2,232,134
250 DATA 198,76,131,196,32,225,255
260 DATA 208,8,32,138,255,169,13
270 DATA 32,210,255,76,191,234