Home » Personal collection » Acorn tapes » Commercial_Releases » box03_tape10a_acorn_cheat_it_again_joe_1.wav » Repton-C

Repton-C

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 » Acorn tapes » Commercial_Releases » box03_tape10a_acorn_cheat_it_again_joe_1.wav
Filename: Repton-C
Read OK:
File size: 075C bytes
Load address: 1900
Exec address: 1900
File contents
   10REM Repton cheat
   20REM Superior Colltn Vol 3 version
   30REM Electron tape version
   40MODE1:VDU19,3,6,0,0,0,23,230,0,&FF,0,&FF,0,0,0,0,17,1:PRINT'"Repton cheat":COLOUR2:PRINT"������������"':PROCmc1
   50PROCmc
   60PROCask("Infinite lives",inlives)
   70PROCask("Turn off timer",timeroff)
   80PROCask("Immortal to boulders",boff)
   90PROCask("Immortal to lizards",imml)
  100PROCask("View all maps",maps)
  110PROCpasswords
  120PRINT:PROCa("`OK@ - `Insert @Repton` tape and press            play ..."):VDU7,13,10,10,17,2
  130CALL&2A00:VDU28,0,27,20,23:*/REPTON1
  140END
  150DEFPROCask(A$,A%)
  160PROCa("`"+A$+STRING$(25-LENA$," ")+"@(Y/N)` : @"):A$=GET$:IF A$="Y" THEN PRINT;"Yes" ELSE PRINT;"No":?A%=&60
  170ENDPROC
  180DEFPROCa($&1600)
  190CALL&1700:ENDPROC
  200DEFPROCmc1
  210FORI%=0TO2 STEP2
  220P%=&1700
  230[OPTI%
  240LDY#0:.loop2
  250LDA&1600,Y
  260CMP#13:BEQend
  270CMP#ASC"@":BEQcolour1
  280CMP#ASC"`":BEQcolour2
  290JSR&FFEE
  300.backin
  310INY:CPY#0:BNEloop2
  320.end
  330RTS
  340.colour1 LDA#2:JMPchange
  350.colour2 LDA#3
  360.change TAX:LDA#17:JSR&FFEE
  370        TXA:JSR&FFEE
  380        JMPbackin
  390]
  400NEXT
  410ENDPROC
  420DEFPROCmc
  430FORI%=0TO2 STEP2
  440P%=&900
  450[OPTI%
  460PHA:TXA:PHA:TYA:PHA
  470LDA&2100:CMP#&09:BNEout
  480JSRinlives
  490JSRtimeroff
  500JSRboff
  510JSRimml
  520JSRmaps
  530LDA#&0D:LDX#4:JSR&FFF4
  540LDAbyte:STA&220:LDAbyte+1:STA&221
  550.out PLA:TAY:PLA:TAX:PLA
  560RTS
  570.byte NOP:NOP
  580.inlives LDA#&EA:STA&1EA6:STA&1EA7:STA&1EA8:RTS
  590.timeroff LDA#0:STA&13F6:RTS
  600.boff LDA#&EA:STA&1E42:STA&1E43:STA&1E44:RTS
  610.imml LDA#&EA:STA&208F:STA&2090:STA&2091:RTS
  620.maps LDA#&EA:STA&196D:STA&196E:RTS
  630]
  640P%=&2A00
  650[OPTI%
  660SEI
  670LDA&220:STAbyte:LDA&221:STAbyte+1
  680LDA#&00:STA&220:LDA#&09:STA&221
  690LDA#14:LDX#4:JSR&FFF4
  700CLI
  710RTS
  720]:NEXT
  730?&2100=0
  740ENDPROC
  750DEFPROCpasswords
  760COLOUR1:PRINT'"Passwords":COLOUR2:PRINT"���������"'
  770FORI%=0TO11 STEP2:READP$,Q$
  780COLOUR2:PRINT;CHR$(65+I%);") ";:COLOUR3:PRINT;P$;STRING$(16-LENP$," ");CHR$(66+I%);") ";:COLOUR2:PRINT;Q$
  790NEXT:ENDPROC
  800DATA Screen One,Chameleon,Terrapin,Sidewinder,Gecko,Python,Salamander,Iguana,Cuttlefish,Octopus,Giant Clam,The Kraken

� Repton cheat
#� Superior Colltn Vol 3 version
� Electron tape version
(^�1:�19,3,6,0,0,0,23,230,0,&FF,0,&FF,0,0,0,0,17,1:�'"Repton cheat":�2:�"������������"':�mc1
2�mc
<"�ask("Infinite lives",inlives)
F#�ask("Turn off timer",timeroff)
P%�ask("Immortal to boulders",boff)
Z$�ask("Immortal to lizards",imml)
d�ask("View all maps",maps)
n�passwords
xW�:�a("`OK@ - `Insert @Repton` tape and press            play ..."):�7,13,10,10,17,2
�#�&2A00:�28,0,27,20,23:*/REPTON1
��
���ask(A$,A%)
�R�a("`"+A$+�25-�A$," ")+"@(Y/N)` : @"):A$=�:� A$="Y" � �;"Yes" � �;"No":?A%=&60
��
���a($&1600)
��&1700:�
�	��mc1
��I%=0�2 �2
�P%=&1700
�
[OPTI%
�LDY#0:.loop2
�LDA&1600,Y
CMP#13:BEQend
CMP#�"@":BEQcolour1
CMP#�"`":BEQcolour2
"JSR&FFEE
,.backin
6INY:CPY#0:BNEloop2
@.end
JRTS
T.colour1 LDA#2:JMPchange
^.colour2 LDA#3
h.change TAX:LDA#17:JSR&FFEE
r        TXA:JSR&FFEE
|        JMPbackin
�]
��
��
���mc
��I%=0�2 �2
�P%=&900
�
[OPTI%
�PHA:TXA:PHA:TYA:PHA
�LDA&2100:CMP#&09:BNEout
�JSRinlives
�JSRtimeroff
�JSRboff
�JSRimml
JSRmaps
LDA#&0D:LDX#4:JSR&FFF4
%LDAbyte:STA&220:LDAbyte+1:STA&221
&.out PLA:TAY:PLA:TAX:PLA
0RTS
:.byte NOP:NOP
D3.inlives LDA#&EA:STA&1EA6:STA&1EA7:STA&1EA8:RTS
N .timeroff LDA#0:STA&13F6:RTS
X0.boff LDA#&EA:STA&1E42:STA&1E43:STA&1E44:RTS
b0.imml LDA#&EA:STA&208F:STA&2090:STA&2091:RTS
l'.maps LDA#&EA:STA&196D:STA&196E:RTS
v]
�P%=&2A00
�
[OPTI%
�SEI
�%LDA&220:STAbyte:LDA&221:STAbyte+1
�#LDA#&00:STA&220:LDA#&09:STA&221
�LDA#14:LDX#4:JSR&FFF4
�CLI
�RTS
�]:�
�?&2100=0
��
���passwords
�%�1:�'"Passwords":�2:�"���������"'
�I%=0�11 �2:�P$,Q$
C�2:�;�(65+I%);") ";:�3:�;P$;�16-�P$," ");�(66+I%);") ";:�2:�;Q$
�:�
 v� Screen One,Chameleon,Terrapin,Sidewinder,Gecko,Python,Salamander,Iguana,Cuttlefish,Octopus,Giant Clam,The Kraken
�
00000000  0d 00 0a 12 f4 20 52 65  70 74 6f 6e 20 63 68 65  |..... Repton che|
00000010  61 74 0d 00 14 23 f4 20  53 75 70 65 72 69 6f 72  |at...#. Superior|
00000020  20 43 6f 6c 6c 74 6e 20  56 6f 6c 20 33 20 76 65  | Colltn Vol 3 ve|
00000030  72 73 69 6f 6e 0d 00 1e  1b f4 20 45 6c 65 63 74  |rsion..... Elect|
00000040  72 6f 6e 20 74 61 70 65  20 76 65 72 73 69 6f 6e  |ron tape version|
00000050  0d 00 28 5e eb 31 3a ef  31 39 2c 33 2c 36 2c 30  |..(^.1:.19,3,6,0|
00000060  2c 30 2c 30 2c 32 33 2c  32 33 30 2c 30 2c 26 46  |,0,0,23,230,0,&F|
00000070  46 2c 30 2c 26 46 46 2c  30 2c 30 2c 30 2c 30 2c  |F,0,&FF,0,0,0,0,|
00000080  31 37 2c 31 3a f1 27 22  52 65 70 74 6f 6e 20 63  |17,1:.'"Repton c|
00000090  68 65 61 74 22 3a fb 32  3a f1 22 86 86 86 86 86  |heat":.2:.".....|
000000a0  86 86 86 86 86 86 86 22  27 3a f2 6d 63 31 0d 00  |......."':.mc1..|
000000b0  32 07 f2 6d 63 0d 00 3c  22 f2 61 73 6b 28 22 49  |2..mc..<".ask("I|
000000c0  6e 66 69 6e 69 74 65 20  6c 69 76 65 73 22 2c 69  |nfinite lives",i|
000000d0  6e 6c 69 76 65 73 29 0d  00 46 23 f2 61 73 6b 28  |nlives)..F#.ask(|
000000e0  22 54 75 72 6e 20 6f 66  66 20 74 69 6d 65 72 22  |"Turn off timer"|
000000f0  2c 74 69 6d 65 72 6f 66  66 29 0d 00 50 25 f2 61  |,timeroff)..P%.a|
00000100  73 6b 28 22 49 6d 6d 6f  72 74 61 6c 20 74 6f 20  |sk("Immortal to |
00000110  62 6f 75 6c 64 65 72 73  22 2c 62 6f 66 66 29 0d  |boulders",boff).|
00000120  00 5a 24 f2 61 73 6b 28  22 49 6d 6d 6f 72 74 61  |.Z$.ask("Immorta|
00000130  6c 20 74 6f 20 6c 69 7a  61 72 64 73 22 2c 69 6d  |l to lizards",im|
00000140  6d 6c 29 0d 00 64 1e f2  61 73 6b 28 22 56 69 65  |ml)..d..ask("Vie|
00000150  77 20 61 6c 6c 20 6d 61  70 73 22 2c 6d 61 70 73  |w all maps",maps|
00000160  29 0d 00 6e 0e f2 70 61  73 73 77 6f 72 64 73 0d  |)..n..passwords.|
00000170  00 78 57 f1 3a f2 61 28  22 60 4f 4b 40 20 2d 20  |.xW.:.a("`OK@ - |
00000180  60 49 6e 73 65 72 74 20  40 52 65 70 74 6f 6e 60  |`Insert @Repton`|
00000190  20 74 61 70 65 20 61 6e  64 20 70 72 65 73 73 20  | tape and press |
000001a0  20 20 20 20 20 20 20 20  20 20 20 70 6c 61 79 20  |           play |
000001b0  2e 2e 2e 22 29 3a ef 37  2c 31 33 2c 31 30 2c 31  |..."):.7,13,10,1|
000001c0  30 2c 31 37 2c 32 0d 00  82 23 d6 26 32 41 30 30  |0,17,2...#.&2A00|
000001d0  3a ef 32 38 2c 30 2c 32  37 2c 32 30 2c 32 33 3a  |:.28,0,27,20,23:|
000001e0  2a 2f 52 45 50 54 4f 4e  31 0d 00 8c 05 e0 0d 00  |*/REPTON1.......|
000001f0  96 10 dd f2 61 73 6b 28  41 24 2c 41 25 29 0d 00  |....ask(A$,A%)..|
00000200  a0 52 f2 61 28 22 60 22  2b 41 24 2b c4 32 35 2d  |.R.a("`"+A$+.25-|
00000210  a9 41 24 2c 22 20 22 29  2b 22 40 28 59 2f 4e 29  |.A$," ")+"@(Y/N)|
00000220  60 20 3a 20 40 22 29 3a  41 24 3d be 3a e7 20 41  |` : @"):A$=.:. A|
00000230  24 3d 22 59 22 20 8c 20  f1 3b 22 59 65 73 22 20  |$="Y" . .;"Yes" |
00000240  8b 20 f1 3b 22 4e 6f 22  3a 3f 41 25 3d 26 36 30  |. .;"No":?A%=&60|
00000250  0d 00 aa 05 e1 0d 00 b4  0f dd f2 61 28 24 26 31  |...........a($&1|
00000260  36 30 30 29 0d 00 be 0c  d6 26 31 37 30 30 3a e1  |600).....&1700:.|
00000270  0d 00 c8 09 dd f2 6d 63  31 0d 00 d2 0e e3 49 25  |......mc1.....I%|
00000280  3d 30 b8 32 20 88 32 0d  00 dc 0c 50 25 3d 26 31  |=0.2 .2....P%=&1|
00000290  37 30 30 0d 00 e6 0a 5b  4f 50 54 49 25 0d 00 f0  |700....[OPTI%...|
000002a0  10 4c 44 59 23 30 3a 2e  6c 6f 6f 70 32 0d 00 fa  |.LDY#0:.loop2...|
000002b0  0e 4c 44 41 26 31 36 30  30 2c 59 0d 01 04 11 43  |.LDA&1600,Y....C|
000002c0  4d 50 23 31 33 3a 42 45  51 65 6e 64 0d 01 0e 17  |MP#13:BEQend....|
000002d0  43 4d 50 23 97 22 40 22  3a 42 45 51 63 6f 6c 6f  |CMP#."@":BEQcolo|
000002e0  75 72 31 0d 01 18 17 43  4d 50 23 97 22 60 22 3a  |ur1....CMP#."`":|
000002f0  42 45 51 63 6f 6c 6f 75  72 32 0d 01 22 0c 4a 53  |BEQcolour2..".JS|
00000300  52 26 46 46 45 45 0d 01  2c 0b 2e 62 61 63 6b 69  |R&FFEE..,..backi|
00000310  6e 0d 01 36 16 49 4e 59  3a 43 50 59 23 30 3a 42  |n..6.INY:CPY#0:B|
00000320  4e 45 6c 6f 6f 70 32 0d  01 40 08 2e 65 6e 64 0d  |NEloop2..@..end.|
00000330  01 4a 07 52 54 53 0d 01  54 1c 2e 63 6f 6c 6f 75  |.J.RTS..T..colou|
00000340  72 31 20 4c 44 41 23 32  3a 4a 4d 50 63 68 61 6e  |r1 LDA#2:JMPchan|
00000350  67 65 0d 01 5e 12 2e 63  6f 6c 6f 75 72 32 20 4c  |ge..^..colour2 L|
00000360  44 41 23 33 0d 01 68 1f  2e 63 68 61 6e 67 65 20  |DA#3..h..change |
00000370  54 41 58 3a 4c 44 41 23  31 37 3a 4a 53 52 26 46  |TAX:LDA#17:JSR&F|
00000380  46 45 45 0d 01 72 18 20  20 20 20 20 20 20 20 54  |FEE..r.        T|
00000390  58 41 3a 4a 53 52 26 46  46 45 45 0d 01 7c 15 20  |XA:JSR&FFEE..|. |
000003a0  20 20 20 20 20 20 20 4a  4d 50 62 61 63 6b 69 6e  |       JMPbackin|
000003b0  0d 01 86 05 5d 0d 01 90  05 ed 0d 01 9a 05 e1 0d  |....]...........|
000003c0  01 a4 08 dd f2 6d 63 0d  01 ae 0e e3 49 25 3d 30  |.....mc.....I%=0|
000003d0  b8 32 20 88 32 0d 01 b8  0b 50 25 3d 26 39 30 30  |.2 .2....P%=&900|
000003e0  0d 01 c2 0a 5b 4f 50 54  49 25 0d 01 cc 17 50 48  |....[OPTI%....PH|
000003f0  41 3a 54 58 41 3a 50 48  41 3a 54 59 41 3a 50 48  |A:TXA:PHA:TYA:PH|
00000400  41 0d 01 d6 1b 4c 44 41  26 32 31 30 30 3a 43 4d  |A....LDA&2100:CM|
00000410  50 23 26 30 39 3a 42 4e  45 6f 75 74 0d 01 e0 0e  |P#&09:BNEout....|
00000420  4a 53 52 69 6e 6c 69 76  65 73 0d 01 ea 0f 4a 53  |JSRinlives....JS|
00000430  52 74 69 6d 65 72 6f 66  66 0d 01 f4 0b 4a 53 52  |Rtimeroff....JSR|
00000440  62 6f 66 66 0d 01 fe 0b  4a 53 52 69 6d 6d 6c 0d  |boff....JSRimml.|
00000450  02 08 0b 4a 53 52 6d 61  70 73 0d 02 12 1a 4c 44  |...JSRmaps....LD|
00000460  41 23 26 30 44 3a 4c 44  58 23 34 3a 4a 53 52 26  |A#&0D:LDX#4:JSR&|
00000470  46 46 46 34 0d 02 1c 25  4c 44 41 62 79 74 65 3a  |FFF4...%LDAbyte:|
00000480  53 54 41 26 32 32 30 3a  4c 44 41 62 79 74 65 2b  |STA&220:LDAbyte+|
00000490  31 3a 53 54 41 26 32 32  31 0d 02 26 1c 2e 6f 75  |1:STA&221..&..ou|
000004a0  74 20 50 4c 41 3a 54 41  59 3a 50 4c 41 3a 54 41  |t PLA:TAY:PLA:TA|
000004b0  58 3a 50 4c 41 0d 02 30  07 52 54 53 0d 02 3a 11  |X:PLA..0.RTS..:.|
000004c0  2e 62 79 74 65 20 4e 4f  50 3a 4e 4f 50 0d 02 44  |.byte NOP:NOP..D|
000004d0  33 2e 69 6e 6c 69 76 65  73 20 4c 44 41 23 26 45  |3.inlives LDA#&E|
000004e0  41 3a 53 54 41 26 31 45  41 36 3a 53 54 41 26 31  |A:STA&1EA6:STA&1|
000004f0  45 41 37 3a 53 54 41 26  31 45 41 38 3a 52 54 53  |EA7:STA&1EA8:RTS|
00000500  0d 02 4e 20 2e 74 69 6d  65 72 6f 66 66 20 4c 44  |..N .timeroff LD|
00000510  41 23 30 3a 53 54 41 26  31 33 46 36 3a 52 54 53  |A#0:STA&13F6:RTS|
00000520  0d 02 58 30 2e 62 6f 66  66 20 4c 44 41 23 26 45  |..X0.boff LDA#&E|
00000530  41 3a 53 54 41 26 31 45  34 32 3a 53 54 41 26 31  |A:STA&1E42:STA&1|
00000540  45 34 33 3a 53 54 41 26  31 45 34 34 3a 52 54 53  |E43:STA&1E44:RTS|
00000550  0d 02 62 30 2e 69 6d 6d  6c 20 4c 44 41 23 26 45  |..b0.imml LDA#&E|
00000560  41 3a 53 54 41 26 32 30  38 46 3a 53 54 41 26 32  |A:STA&208F:STA&2|
00000570  30 39 30 3a 53 54 41 26  32 30 39 31 3a 52 54 53  |090:STA&2091:RTS|
00000580  0d 02 6c 27 2e 6d 61 70  73 20 4c 44 41 23 26 45  |..l'.maps LDA#&E|
00000590  41 3a 53 54 41 26 31 39  36 44 3a 53 54 41 26 31  |A:STA&196D:STA&1|
000005a0  39 36 45 3a 52 54 53 0d  02 76 05 5d 0d 02 80 0c  |96E:RTS..v.]....|
000005b0  50 25 3d 26 32 41 30 30  0d 02 8a 0a 5b 4f 50 54  |P%=&2A00....[OPT|
000005c0  49 25 0d 02 94 07 53 45  49 0d 02 9e 25 4c 44 41  |I%....SEI...%LDA|
000005d0  26 32 32 30 3a 53 54 41  62 79 74 65 3a 4c 44 41  |&220:STAbyte:LDA|
000005e0  26 32 32 31 3a 53 54 41  62 79 74 65 2b 31 0d 02  |&221:STAbyte+1..|
000005f0  a8 23 4c 44 41 23 26 30  30 3a 53 54 41 26 32 32  |.#LDA#&00:STA&22|
00000600  30 3a 4c 44 41 23 26 30  39 3a 53 54 41 26 32 32  |0:LDA#&09:STA&22|
00000610  31 0d 02 b2 19 4c 44 41  23 31 34 3a 4c 44 58 23  |1....LDA#14:LDX#|
00000620  34 3a 4a 53 52 26 46 46  46 34 0d 02 bc 07 43 4c  |4:JSR&FFF4....CL|
00000630  49 0d 02 c6 07 52 54 53  0d 02 d0 07 5d 3a ed 0d  |I....RTS....]:..|
00000640  02 da 0c 3f 26 32 31 30  30 3d 30 0d 02 e4 05 e1  |...?&2100=0.....|
00000650  0d 02 ee 0f dd f2 70 61  73 73 77 6f 72 64 73 0d  |......passwords.|
00000660  02 f8 25 fb 31 3a f1 27  22 50 61 73 73 77 6f 72  |..%.1:.'"Passwor|
00000670  64 73 22 3a fb 32 3a f1  22 86 86 86 86 86 86 86  |ds":.2:.".......|
00000680  86 86 22 27 0d 03 02 16  e3 49 25 3d 30 b8 31 31  |.."'.....I%=0.11|
00000690  20 88 32 3a f3 50 24 2c  51 24 0d 03 0c 43 fb 32  | .2:.P$,Q$...C.2|
000006a0  3a f1 3b bd 28 36 35 2b  49 25 29 3b 22 29 20 22  |:.;.(65+I%);") "|
000006b0  3b 3a fb 33 3a f1 3b 50  24 3b c4 31 36 2d a9 50  |;:.3:.;P$;.16-.P|
000006c0  24 2c 22 20 22 29 3b bd  28 36 36 2b 49 25 29 3b  |$," ");.(66+I%);|
000006d0  22 29 20 22 3b 3a fb 32  3a f1 3b 51 24 0d 03 16  |") ";:.2:.;Q$...|
000006e0  07 ed 3a e1 0d 03 20 76  dc 20 53 63 72 65 65 6e  |..:... v. Screen|
000006f0  20 4f 6e 65 2c 43 68 61  6d 65 6c 65 6f 6e 2c 54  | One,Chameleon,T|
00000700  65 72 72 61 70 69 6e 2c  53 69 64 65 77 69 6e 64  |errapin,Sidewind|
00000710  65 72 2c 47 65 63 6b 6f  2c 50 79 74 68 6f 6e 2c  |er,Gecko,Python,|
00000720  53 61 6c 61 6d 61 6e 64  65 72 2c 49 67 75 61 6e  |Salamander,Iguan|
00000730  61 2c 43 75 74 74 6c 65  66 69 73 68 2c 4f 63 74  |a,Cuttlefish,Oct|
00000740  6f 70 75 73 2c 47 69 61  6e 74 20 43 6c 61 6d 2c  |opus,Giant Clam,|
00000750  54 68 65 20 4b 72 61 6b  65 6e 0d ff              |The Kraken..|
0000075c
Repton-C.m0
Repton-C.m1
Repton-C.m2
Repton-C.m4
Repton-C.m5