1 ' Legend of Steel pokes
2 ' by Nich
3 '
10 MODE 1:CALL &BC02
20 INPUT"Infinite energy (Y/N)? ",e$
30 e$=UPPER$(e$)
40 IF INSTR("YN",e$)=0 THEN 20
50 INPUT"Infinite keys (Y/N)? ",k$
60 k$=UPPER$(k$)
70 IF INSTR("YN",k$)=0 THEN 50
80 MODE 0:BORDER 0:FOR i=0 TO 15
90 READ c:INK i,c:NEXT
100 LOAD"legend.scr",&C000
110 MEMORY &15FF
120 LOAD"legend.bin",&1600
130 MODE 0:INK 15,0
140 a=&BF00
150 READ h$
160 IF h$="END" THEN 190
170 POKE a,VAL("&"+h$)
180 a=a+1:GOTO 150
190 IF e$="Y" THEN POKE &BF0C,&C9
200 IF k$="Y" THEN POKE &BF11,&C9
210 CALL &BF00
220 DATA 0,1,7,3,4,6,9,11
230 DATA 12,13,15,16,18,24,25,26
240 DATA 21,00,16,11,00,01,01,a6
250 DATA 7e,ed,b0,3e,dd,32,4a,74
260 DATA 3e,3d,32,d0,73,c3,94,6a
270 DATA END