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