1 ' Operation Alexandra pokes
2 ' by Nich
3 '
10 MODE 0
20 OPENOUT"d":MEMORY &964:CLOSEOUT
30 LOAD"disc.bin"
40 a=&BF00
50 POKE &1363,0:POKE &1364,&BF
60 READ h$
70 IF h$="END" THEN CALL &965
80 POKE a,VAL("&"+h$)
90 a=a+1:GOTO 60
100 DATA 3e,c9,32,9a,ba,cd,79,ba
110 ' Infinite health
120 DATA 3e,21,32,60,14
130 ' Don't delete the line below!
140 DATA c3,40,00,END