CPC Rulez https://cpcrulez.fr/forum/ |
|
Legend of Steel https://cpcrulez.fr/forum/viewtopic.php?f=10&t=6161 |
Page 1 sur 1 |
Auteur : | hERMOL [ 14 Nov 2018, 08:22 ] |
Sujet du message : | Legend of Steel |
Vies infinie: POKE &744E,&C9 |
Auteur : | Princesse Mariana [ 28 Oct 2019, 12:20 ] |
Sujet du message : | Re: Legend of Steel |
Code : 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 |
Page 1 sur 1 | Le fuseau horaire est UTC+1 heure |
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |