8-Bit Software Online Conversion

Repton 3 Cheat Program - Listing

10DEFFNS="REP3CHT" 20MODE7 30REM PRINT" Cheat y/n?":A$=GET$:IF A $="N" CHAIN"MENU" 40A%=0:X%=255:T%=USR&FFF4:T%=(T%DIV&1 00)AND7 50PRINT'" REPTON 3 CHEAT by C.J.Ric hardson" 70PRINT''" Infinite lives, see all ma ps, immortal" 80PRINT''" INSERT REPTON DISC Press a key" 90q%=GET:IF T%>2 PROCmaster 100MODE5 110FORI%=0TO2STEP2 120P%=&6300 130[:OPTI%:LDA#0:STA&606F 140LDA#inter MOD256:STA&220 150LDA#inter DIV256:STA&221 160LDA#14:LDX#4:JSR&FFF4 170RTS 180.inter:PHP:PHA:TXA:PHA:TXA:PHA:LDA& 606F:CMP#&8C:BNE out 190LDA#7:JSR&FFEE 200LDA#&63:STA&311C ½ LIVES. IF THIS DOESN'T WORK TRY &3119 INSTEAD OF &311C 210LDA#&D:STA&304A ½ SEE ALL MAPS. IF THIS DOESN'T WORK TRY &3052 INSTEAD OF & 304A 220LDA#&EA:STA&55A:STA&55B:STA&597:STA &598:STA&618:STA&619:STA&698:STA&699:STA &1EBA:STA&1EBB:STA&2830:STA&2831:STA&2A8 5:STA&2A86:STA&5C3E:STA&5C3F:STA&5C64:ST A&5C65 ½ IMMORTALITYY 230LDA#13:LDX#4:JSR&FFF4 240.out:PLA:TAY:PLA:TAX:PLA:PLP:RTS 250]:NEXT:CALL&6300 255*DIR D 260PAGE=&900:HIMEM=&C00:CHAIN"REPTON1" 270END 280DEFPROCmaster 290ENVELOPE1,1,0,0,0,0,0,0,126,-1,0,-1 ,126,0:ENVELOPE2,3,0,0,0,1,1,1,90,-20,-2 0,-2,90,0:ENVELOPE3,2,1,1,0,5,10,40,30,- 10,-10,-15,127,0:ENVELOPE4,131,0,0,0,25, 2,-2,110,0,-4,-8,110,80 300*K.0MODE7:VDU23;8202;0;0;0;0:PAGE=& 7900|MLO."MV"|MDEL.10,50|MDEL.210,250|M1 05?&311C=&63:?&304A=&D:?&1EBA=&EA:?&1EBB =&EA:?&2830=&EA:?&2831=&EA:?&2A85=&EA:?& 2A86=&EA:?&6500=&EA:?&6501=&EA|M*FX138 0 129|M 310*K.1 106OSCLI"SRWRITE 6500+2 815A 5 ":OSCLI"SRWRITE 6500+2 8197 5":OSCLI"SRW RITE 6500+2 8218 5":OSCLI"SRWRITE 6500+2 8298 5":OSCLI"SRWRITE 6500+2 892E 5":OS CLI"SRWRITE 6500+2 8954 5"|MRUN|M 320*FX138 0 128 330END