10 DEFFNS="REP3CHT" 20 MODE7 30 REM PRINT"†Cheat y/n?":A$=GET$:IF A$="N" CHAIN"MENU" 40 A%=0:X%=255:T%=USR&FFF4:T%=(T%DIV&100)AND7 50 PRINT'"ƒ REPTON 3 CHEAT by C.J.Richardson" 70 PRINT''"†Infinite lives, see all maps, immortal" 80 PRINT''"†INSERT REPTON DISC ˆPress a key" 90 q%=GET:IF T%>2 PROCmaster 100 MODE5 110 FORI%=0TO2STEP2 120 P%=&6300 130 [:OPTI%:LDA#0:STA&606F 140 LDA#inter MOD256:STA&220 150 LDA#inter DIV256:STA&221 160 LDA#14:LDX#4:JSR&FFF4 170 RTS 180 .inter:PHP:PHA:TXA:PHA:TXA:PHA:LDA&606F:CMP#&8C:BNE out 190 LDA#7:JSR&FFEE 200 LDA#&63:STA&311C \ LIVES. IF THIS DOESN'T WORK TRY &3119 INSTEAD OF &311C 210 LDA#&D:STA&304A \ SEE ALL MAPS. IF THIS DOESN'T WORK TRY &3052 INSTEAD OF &304A 220 LDA#&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&2A85:STA&2A86:STA&5C3E:STA&5C3F:STA&5C64:STA&5C65 \ IMMORTALITYY 230 LDA#13:LDX#4:JSR&FFF4 240 .out:PLA:TAY:PLA:TAX:PLA:PLP:RTS 250 ]:NEXT:CALL&6300 255 *DIR D 260 PAGE=&900:HIMEM=&C00:CHAIN"REPTON1" 270 END 280 DEFPROCmaster 290 ENVELOPE1,1,0,0,0,0,0,0,126,-1,0,-1,126,0:ENVELOPE2,3,0,0,0,1,1,1,90,-20,-20,-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|M105?&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"SRWRITE 6500+2 8218 5":OSCLI"SRWRITE 6500+2 8298 5":OSCLI"SRWRITE 6500+2 892E 5":OSCLI"SRWRITE 6500+2 8954 5"|MRUN|M 320 *FX138 0 128 330 END