Código: Seleccionar todo
1 ' Phantomas 2.0 pokes
2 ' by Nich
3 '
10 MEMORY &9FFF
20 LOAD"ph20es.bin",&A000
30 a=&A096
40 POKE &A03B,&96:POKE &A03C,&A0
50 READ h$
60 IF h$="END" THEN CALL &A000
70 POKE a,VAL("&"+h$)
80 a=a+1:GOTO 50
90 ' Infinite lives
100 DATA af,32,80,02
110 ' Don't delete the line below!
120 DATA c3,40,00,END