8-Bit Software Online Conversion

Repton 1 Cheat - Listing

10DEFFNS="Rep1cht" 20MODE7 30VDU23;8202;0;0;0; 40PRINT'TAB(3)" REPTON 1 CHEAT by C.J .Richardson" 50PRINT''TAB(8)"    60PRINTTAB(8)"    80Maps%=FNg 90PRINT'" Infinite Lives Y/N?" 100Lives%=FNg 110PRINT'" Immortal to Boulders Y/N?" 120REM All except boulders falling fro m on top of another boulder to your left . But this will rarely cause a problem. 130Boulders%=FNg 140PRINT'" Immortal to Lizards Y/N?" 150Lizards%=FNg 160PRINT'" Timer off Y/N?" 170Timer%=FNg 180PRINT'" Insert Repton 1 disc and pr ess a key" 190*FX21 200REPEATUNTILGET 210FORI%=0TO2STEP2 220P%=&C00 230[:OPTI%:LDA#0:STA&2EC4 240LDA#inter MOD256:STA&220 250LDA#inter DIV256:STA&221 260LDA#14:LDX#4:JSR&FFF4 270RTS 280.inter:PHP:PHA:TXA:PHA:TXA:PHA:LDA& 2EC4:CMP#&85:BNEout:] 290IF Maps%:[:OPT I%:LDA#&F0:STA&1FFF: ]:REM MAPS 300IF Lives%:[:OPT I%:LDA#&EA:STA&2680 :STA&2681:STA&2682:]:REM LIVES 310IF Boulders%:[:OPT I%:LDA#&A6:STA&2 299:LDA#&E2:STA&229A:LDA#&FD:STA&229B:]: REM BOULDERS 320IF Lizards%:[:OPT I%:LDA#&EA:STA&23 CF:STA&23D0:STA&23D1:]:REM LIZARDS 330IF Timer%:[:OPT I%:LDA#0:STA&25F1:] :REM TIMER 340[:OPT I%:LDA#7:JSR&FFEE 350LDA#13:LDX#4:JSR&FFF4 360.out:PLA:TAY:PLA:TAX:PLA:PLP:RTS 370]:NEXT:CALL&C00 380*/REPTON 390END 400DEFFNg 410*FX21 420REPEAT 430A$=GET$ 440UNTILINSTR("YyNn",A$) 450IF INSTR("Yy",A$):=1 460=0