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":� �<