[Amstrad CPC]
Loader
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
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
Code & GFX: José Luis Castaño González (na_th_an)
GFX: Ángel Lo Pérez (anjuel)
Music & SFX: David Sánchez aka Davidian
Cover Art: José Ignacio Ramos (Kendroock)
Testeo/Test: Zemman, Ángel Lo Pérez (anjuel), Octopusjig
Spectrum, Amstrad, powered by MK3_OM by the Mojon Twins, Cprslib by Artaburu, Phaser Engine by Shiru, Arkos by Targham
NES powered by MTE MK1_NES / AGNES v1.0