1 ' Jarlac pokes
2 ' by Nich
3 '
10 MODE 1:CALL &BC02
20 INPUT"Infinite lives (Y/N)? ",i$
30 i$=UPPER$(i$)
40 IF INSTR("YN",i$)=0 THEN 20
50 INPUT"Number of hearts to collect (1-13)? ",h
60 IF h<1 OR h>13 THEN 50
70 MODE 0:MEMORY &3FFF
80 LOAD"jarlac",&4000
90 a=&BF00
100 READ h$
110 IF h$=»END» THEN 140
120 POKE a,VAL("&"+h$)
130 a=a+1:GOTO 100
140 IF i$="Y" THEN POKE &BF1F,&21
150 POKE &BF24,h
160 CALL &BF00
170 DATA 21,00,40,11,40,00,01,6d
180 DATA 03,ed,b0,21,1e,bf,11,00
190 DATA 04,d5,01,12,00,ed,b0,e1
200 DATA 22,45,03,c3,d4,02,3e,fd
210 DATA 32,54,25,3e,0d,32,b4,67
220 DATA 3e,da,32,b5,67,c3,57,7a
230 DATA END