1 ' Cheman pokes
2 ' by Nich
3 '
10 MODE 1:BORDER 0
20 FOR i%=0 TO 15:READ a%:INK i%,a%:NEXT i%
30 DATA 0,26,7,4,17,1,11,23,12,25,15,6,3,16,13,0
40 INPUT"Infinite lives (Y/N)? ",i$
50 i$=UPPER$(i$)
60 IF INSTR("YN",i$)=0 THEN 50
70 INPUT"Start on level (1-2)? ",n
80 IF n<1 OR n>2 THEN 70
90 MODE 0
100 OPENOUT"d":MEMORY &3FF:CLOSEOUT
110 LOAD"LOADING.BIN"
120 LOAD"ARKOS.BIN"
130 LOAD"GAME.BIN"
140 IF i$="Y" THEN POKE &55D0,0
150 FOR a=48 TO 54
160 READ h$:POKE a,VAL("&"+h$):NEXT
170 POKE &64B4,&F7:POKE 49,n-1
180 CLS:CALL &400
190 DATA 3e,00,32,ff,65,7d,c9