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