Home » Personal collection » Commodore disks » disk08a2_repton3.d64 » cheat
cheat
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Personal collection » Commodore disks » disk08a2_repton3.d64 |
Filename: | cheat |
Read OK: | ✔ |
File size: | 03FB bytes |
Load address: | 0801 |
Exec address: | 0000 |
File contents
10 REM REPTON 3 CHEAT 15 REM ACTION REPLAY REQUIRED 20 X=49157 30 READ Y:IFY=-1THEN50 40 POKEX,Y:X=X+1:GOTO30 50 PRINT"<clr>REPTON 3 CHEAT":PRINT 60 PRINT"INFY LIVES (Y/N) ";:X=49264:GOSUB500 70 PRINT"IMMORTAL (Y/N) ";:X=49265:GOSUB500 80 PRINT"CLOCK SPEED: 0=INFY TIME" 90 PRINTSPC(13);"3=NORMAL" 100 PRINTSPC(13);"6=TWICE NORMAL (0-9)" 110 PRINTSPC(13);"9=3 X NORMAL" 120 PRINT"<cursor up><cursor up>";TAB(37); 130 GET A$:IF A$="" THEN 130 140 X=ASC(A$):IFX<48ORX>57THEN130 150 PRINTA$;"<cursor down><cursor down>":POKE49266,X-48 160 PRINT"VIEW ALL MAPS (Y/N) ";:X=49267:GOSUB500 170 PRINT"O.K. DATA LOADED" 180 GOTO 180 500 GETA$:IFA$=""THEN500 510 IF A$="Y" THEN PRINT"YES":POKEX,1:RETURN 520 IF A$="N" THEN PRINT"NO":POKEX,0:RETURN 530 GOTO500 1000 DATA 173,112,2,240,5,169,173,141 1010 DATA 57,66,173,113,2,240,60 1020 DATA 169,234,141,58,76,141,59 1030 DATA 76,141,60,76,141,10,77 1040 DATA 141,11,77,141,12,77,141 1050 DATA 220,77,141,221,77,141,222 1060 DATA 77,141,128,79,141,129,79 1070 DATA 141,130,79,169,96,141,89 1080 DATA 64,141,101,64,169,2,141 1090 DATA 90,64,141,102,64,173,114 1100 DATA 2,141,22,68,173,115,2 1110 DATA 240,8,169,234,141,173,72 1120 DATA 141,174,72,76,0,64,165 1130 DATA 104,208,7,169,1,133,105 1140 DATA 76,9,66,96,234,0,0,-1
� REPTON 3 CHEAT 3 � ACTION REPLAY REQUIRED ? X�49157 P � Y:�Y��1�50 c( �X,Y:X�X�1:�30 |2 �"�REPTON 3 CHEAT":� �<