Home » Personal collection » Acorn tapes » Commercial_Releases » box03_tape12a_acorn_cheat_it_again_joe_3.wav » ReptonTh-T

ReptonTh-T

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_tape12a_acorn_cheat_it_again_joe_3.wav
Filename: ReptonTh-T
Read OK:
File size: 0AB4 bytes
Load address: 3000
Exec address: 3000
File contents
    1*|
   10REM Repton Thru Time cheat
   20REM Original 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 Thru Time cheat":COLOUR2:PRINT"����������������������"':PROCmc1
   50PROCmc
   60PROCask("Infinite lives",inlives)
   70PROCask("View all maps",maps)
   80PROCask("Immortal to boulders",imb)
   90PROCask("Immortal to spirits",imsp)
  100PROCask("Immortal to lizards",iml)
  110PROCask("Immortal to skulls/fungi",imsk)
  120PROCask("Stop timer",st)
  130A=INKEY(100):RESTORE 170:FORI%=1TO5:CLS:PRINT:COLOUR1:PRINT"Passwords and edit codes":COLOUR2:PRINT"������������������������"'
  140PRINT';SPC8;:COLOUR1:PRINT"Password    Edit code"'SPC8;:COLOUR2:PRINT"���������������������"'
  150FORY%=1TO8:READA$,B$:COLOUR3:PRINT;SPC9;A$;SPC6;B$:NEXTY%
  160PRINT';SPC5;:PROCa("`Press @<SPACE> `for next set"):REPEATUNTILGET=32:NEXTI%
  170DATA PREHIST,12345,HEATERS,16494,HILLOCK,29652,PILFERS,28265,MEDIATE,25655,COMPACT,9761,CARTOON,43981,TUBULAR,35862
  180DATA "EGYPT  ",8473,FAVOURS,5012,HAPPENS,48238,PERSONS,2247,CONQUER,31761,EVENING,19495,MASTERS,52592,PIMPLES,51035
  190DATA VICTORI,54066,MERCURY,57950,CLEAVER,62809,BINDERS,31463,CONFUSE,35584,JINGLES,10659,DOLPHIN,43567,MINSTER,23180
  200DATA "NOW    ",54524,OCTAGON,21370,CASTLES,48417,CHARLES,9698,GREATER,58449,BOOKLET,23963,FUNTIME,64332,SAVOURS,29294
  210DATA "FUTURE ",33776,ORACLES,1119,STAPLER,36126,DANCING,46223,FANCIER,48475,BANANAS,34409,EVEREST,54136,KINGDOM,53546
  220PRINT':PROCa("`OK@ - `Insert @Repton Thru Time` tape and        press play ..."):VDU7,13,10
  230P%=&880
  240[OPT0:LDA&3CA:AND#254:STA&3CA:RTS:]
  250?&220=&80:?&221=8
  260*FX14,4
  270VDU17,2:PRINT
  280VDU21:*FX138,0,128
  290END
  300DEFPROCask(A$,A%)
  310PROCa("`"+A$+STRING$(25-LENA$," ")+"@(Y/N)` : @"):A$=GET$:IF A$="Y" THEN PRINT;"Yes" ELSE PRINT;"No":?A%=&60
  320ENDPROC
  330DEFPROCa($&1600)
  340CALL&1700:ENDPROC
  350DEFPROCmc1
  360FORI%=0TO2 STEP2
  370P%=&1700
  380[OPTI%
  390LDY#0:.loop2
  400LDA&1600,Y
  410CMP#13:BEQend
  420CMP#ASC"@":BEQcolour1
  430CMP#ASC"`":BEQcolour2
  440JSR&FFEE
  450.backin
  460INY:CPY#0:BNEloop2
  470.end
  480RTS
  490.colour1 LDA#2:JMPchange
  500.colour2 LDA#3
  510.change TAX:LDA#17:JSR&FFEE
  520        TXA:JSR&FFEE
  530        JMPbackin
  540]
  550NEXT
  560ENDPROC
  570DEFPROCmc
  580FORI%=0 TO 2 STEP2
  590P%=&1100
  600[OPTI%
  610LDY#load DIV 256:LDX#load MOD 256
  620JSR&FFF7
  630LDA#&20:STA&5608
  640LDA#install MOD 256:STA&5609
  650LDA#install DIV 256:STA&560A
  660JMP&5600
  670.install
  680JSRinlives
  690JSRmaps
  700JSRimb
  710JSRiml
  720JSRimsp
  730JSRst
  740JSRimsk
  750JSR&57DC:RTS
  760.inlives
  770LDA#&A9:STA&5776:LDA#1:STA&5777:RTS
  780.maps
  790LDA#&20:STA&5717:RTS
  800.imb
  810LDA#&EA:STA&2E26:STA&2E27:RTS
  820.imsp
  830LDA#&A9:STA&59A:STA&61F:STA&689
  840LDA#&00:STA&59B:STA&620:STA&68A
  850RTS
  860.iml
  870LDA#&A9:STA&6A0:STA&55D
  880LDA#&00:STA&6A1:STA&55E
  890RTS
  900.st
  910LDA#0:STA&22FB:RTS
  920.imsk
  930LDA#&EA:STA&541B:STA&541C
  940RTS
  950.load EQUS"LOAD REPTON2"+CHR$13
  960]:NEXT
  970*K.0 LO."REPTON"|F|M590PA.=&1900:*FX138,0,129|MRUN|M
  980*K.1 LO."REPTON1"|M140CALL&1100|MRUN|M
  990ENDPROC
*|

� Repton Thru Time cheat
� Original version
� Electron tape version
(r�1:�19,3,6,0,0,0,23,230,0,&FF,0,&FF,0,0,0,0,17,1:�'"Repton Thru Time cheat":�2:�"����������������������"':�mc1
2�mc
<"�ask("Infinite lives",inlives)
F�ask("View all maps",maps)
P$�ask("Immortal to boulders",imb)
Z$�ask("Immortal to spirits",imsp)
d#�ask("Immortal to lizards",iml)
n)�ask("Immortal to skulls/fungi",imsk)
x�ask("Stop timer",st)
�^A=�(100):� �tj@:�I%=1�5:�:�:�1:�"Passwords and edit codes":�2:�"������������������������"'
�G�';�8;:�1:�"Password    Edit code"'�8;:�2:�"���������������������"'
�'�Y%=1�8:�A$,B$:�3:�;�9;A$;�6;B$:�Y%
�9�';�5;:�a("`Press @<SPACE> `for next set"):���=32:�I%
�t� PREHIST,12345,HEATERS,16494,HILLOCK,29652,PILFERS,28265,MEDIATE,25655,COMPACT,9761,CARTOON,43981,TUBULAR,35862
�t� "EGYPT  ",8473,FAVOURS,5012,HAPPENS,48238,PERSONS,2247,CONQUER,31761,EVENING,19495,MASTERS,52592,PIMPLES,51035
�u� VICTORI,54066,MERCURY,57950,CLEAVER,62809,BINDERS,31463,CONFUSE,35584,JINGLES,10659,DOLPHIN,43567,MINSTER,23180
�v� "NOW    ",54524,OCTAGON,21370,CASTLES,48417,CHARLES,9698,GREATER,58449,BOOKLET,23963,FUNTIME,64332,SAVOURS,29294
�v� "FUTURE ",33776,ORACLES,1119,STAPLER,36126,DANCING,46223,FANCIER,48475,BANANAS,34409,EVEREST,54136,KINGDOM,53546
�V�':�a("`OK@ - `Insert @Repton Thru Time` tape and        press play ..."):�7,13,10
�P%=&880
�%[OPT0:LDA&3CA:�#254:STA&3CA:RTS:]
�?&220=&80:?&221=8
*FX14,4
�17,2:�
�21:*FX138,0,128
"�
,��ask(A$,A%)
6R�a("`"+A$+�25-�A$," ")+"@(Y/N)` : @"):A$=�:� A$="Y" � �;"Yes" � �;"No":?A%=&60
@�
J��a($&1600)
T�&1700:�
^	��mc1
h�I%=0�2 �2
rP%=&1700
|
[OPTI%
�LDY#0:.loop2
�LDA&1600,Y
�CMP#13:BEQend
�CMP#�"@":BEQcolour1
�CMP#�"`":BEQcolour2
�JSR&FFEE
�.backin
�INY:CPY#0:BNEloop2
�.end
�RTS
�.colour1 LDA#2:JMPchange
�.colour2 LDA#3
�.change TAX:LDA#17:JSR&FFEE
        TXA:JSR&FFEE
        JMPbackin
]
&�
0�
:��mc
D�I%=0 � 2 �2
NP%=&1100
X
[OPTI%
b!LDY#load � 256:LDX#load � 256
lJSR&FFF7
vLDA#&20:STA&5608
�LDA#install � 256:STA&5609
�LDA#install � 256:STA&560A
�JMP&5600
�.install
�JSRinlives
�JSRmaps
�
JSRimb
�
JSRiml
�JSRimsp
�	JSRst
�JSRimsk
�JSR&57DC:RTS
�.inlives
'LDA#&A9:STA&5776:LDA#1:STA&5777:RTS
	.maps
LDA#&20:STA&5717:RTS
 .imb
*!LDA#&EA:STA&2E26:STA&2E27:RTS
4	.imsp
>#LDA#&A9:STA&59A:STA&61F:STA&689
H#LDA#&00:STA&59B:STA&620:STA&68A
RRTS
\.iml
fLDA#&A9:STA&6A0:STA&55D
pLDA#&00:STA&6A1:STA&55E
zRTS
�.st
�LDA#0:STA&22FB:RTS
�	.imsk
�LDA#&EA:STA&541B:STA&541C
�RTS
� .load EQUS"LOAD REPTON2"+�13
�]:�
�8*K.0 LO."REPTON"|F|M590PA.=&1900:*FX138,0,129|MRUN|M
�**K.1 LO."REPTON1"|M140CALL&1100|MRUN|M
��
�
00000000  0d 00 01 07 2a 7c 15 0d  00 0a 1c f4 20 52 65 70  |....*|...... Rep|
00000010  74 6f 6e 20 54 68 72 75  20 54 69 6d 65 20 63 68  |ton Thru Time ch|
00000020  65 61 74 0d 00 14 16 f4  20 4f 72 69 67 69 6e 61  |eat..... Origina|
00000030  6c 20 76 65 72 73 69 6f  6e 0d 00 1e 1b f4 20 45  |l version..... E|
00000040  6c 65 63 74 72 6f 6e 20  74 61 70 65 20 76 65 72  |lectron tape ver|
00000050  73 69 6f 6e 0d 00 28 72  eb 31 3a ef 31 39 2c 33  |sion..(r.1:.19,3|
00000060  2c 36 2c 30 2c 30 2c 30  2c 32 33 2c 32 33 30 2c  |,6,0,0,0,23,230,|
00000070  30 2c 26 46 46 2c 30 2c  26 46 46 2c 30 2c 30 2c  |0,&FF,0,&FF,0,0,|
00000080  30 2c 30 2c 31 37 2c 31  3a f1 27 22 52 65 70 74  |0,0,17,1:.'"Rept|
00000090  6f 6e 20 54 68 72 75 20  54 69 6d 65 20 63 68 65  |on Thru Time che|
000000a0  61 74 22 3a fb 32 3a f1  22 86 86 86 86 86 86 86  |at":.2:.".......|
000000b0  86 86 86 86 86 86 86 86  86 86 86 86 86 86 86 22  |..............."|
000000c0  27 3a f2 6d 63 31 0d 00  32 07 f2 6d 63 0d 00 3c  |':.mc1..2..mc..<|
000000d0  22 f2 61 73 6b 28 22 49  6e 66 69 6e 69 74 65 20  |".ask("Infinite |
000000e0  6c 69 76 65 73 22 2c 69  6e 6c 69 76 65 73 29 0d  |lives",inlives).|
000000f0  00 46 1e f2 61 73 6b 28  22 56 69 65 77 20 61 6c  |.F..ask("View al|
00000100  6c 20 6d 61 70 73 22 2c  6d 61 70 73 29 0d 00 50  |l maps",maps)..P|
00000110  24 f2 61 73 6b 28 22 49  6d 6d 6f 72 74 61 6c 20  |$.ask("Immortal |
00000120  74 6f 20 62 6f 75 6c 64  65 72 73 22 2c 69 6d 62  |to boulders",imb|
00000130  29 0d 00 5a 24 f2 61 73  6b 28 22 49 6d 6d 6f 72  |)..Z$.ask("Immor|
00000140  74 61 6c 20 74 6f 20 73  70 69 72 69 74 73 22 2c  |tal to spirits",|
00000150  69 6d 73 70 29 0d 00 64  23 f2 61 73 6b 28 22 49  |imsp)..d#.ask("I|
00000160  6d 6d 6f 72 74 61 6c 20  74 6f 20 6c 69 7a 61 72  |mmortal to lizar|
00000170  64 73 22 2c 69 6d 6c 29  0d 00 6e 29 f2 61 73 6b  |ds",iml)..n).ask|
00000180  28 22 49 6d 6d 6f 72 74  61 6c 20 74 6f 20 73 6b  |("Immortal to sk|
00000190  75 6c 6c 73 2f 66 75 6e  67 69 22 2c 69 6d 73 6b  |ulls/fungi",imsk|
000001a0  29 0d 00 78 19 f2 61 73  6b 28 22 53 74 6f 70 20  |)..x..ask("Stop |
000001b0  74 69 6d 65 72 22 2c 73  74 29 0d 00 82 5e 41 3d  |timer",st)...^A=|
000001c0  a6 28 31 30 30 29 3a f7  20 8d 74 6a 40 3a e3 49  |.(100):. .tj@:.I|
000001d0  25 3d 31 b8 35 3a db 3a  f1 3a fb 31 3a f1 22 50  |%=1.5:.:.:.1:."P|
000001e0  61 73 73 77 6f 72 64 73  20 61 6e 64 20 65 64 69  |asswords and edi|
000001f0  74 20 63 6f 64 65 73 22  3a fb 32 3a f1 22 86 86  |t codes":.2:."..|
00000200  86 86 86 86 86 86 86 86  86 86 86 86 86 86 86 86  |................|
00000210  86 86 86 86 86 86 22 27  0d 00 8c 47 f1 27 3b 89  |......"'...G.';.|
00000220  38 3b 3a fb 31 3a f1 22  50 61 73 73 77 6f 72 64  |8;:.1:."Password|
00000230  20 20 20 20 45 64 69 74  20 63 6f 64 65 22 27 89  |    Edit code"'.|
00000240  38 3b 3a fb 32 3a f1 22  86 86 86 86 86 86 86 86  |8;:.2:."........|
00000250  86 86 86 86 86 86 86 86  86 86 86 86 86 22 27 0d  |............."'.|
00000260  00 96 27 e3 59 25 3d 31  b8 38 3a f3 41 24 2c 42  |..'.Y%=1.8:.A$,B|
00000270  24 3a fb 33 3a f1 3b 89  39 3b 41 24 3b 89 36 3b  |$:.3:.;.9;A$;.6;|
00000280  42 24 3a ed 59 25 0d 00  a0 39 f1 27 3b 89 35 3b  |B$:.Y%...9.';.5;|
00000290  3a f2 61 28 22 60 50 72  65 73 73 20 40 3c 53 50  |:.a("`Press @<SP|
000002a0  41 43 45 3e 20 60 66 6f  72 20 6e 65 78 74 20 73  |ACE> `for next s|
000002b0  65 74 22 29 3a f5 fd a5  3d 33 32 3a ed 49 25 0d  |et"):...=32:.I%.|
000002c0  00 aa 74 dc 20 50 52 45  48 49 53 54 2c 31 32 33  |..t. PREHIST,123|
000002d0  34 35 2c 48 45 41 54 45  52 53 2c 31 36 34 39 34  |45,HEATERS,16494|
000002e0  2c 48 49 4c 4c 4f 43 4b  2c 32 39 36 35 32 2c 50  |,HILLOCK,29652,P|
000002f0  49 4c 46 45 52 53 2c 32  38 32 36 35 2c 4d 45 44  |ILFERS,28265,MED|
00000300  49 41 54 45 2c 32 35 36  35 35 2c 43 4f 4d 50 41  |IATE,25655,COMPA|
00000310  43 54 2c 39 37 36 31 2c  43 41 52 54 4f 4f 4e 2c  |CT,9761,CARTOON,|
00000320  34 33 39 38 31 2c 54 55  42 55 4c 41 52 2c 33 35  |43981,TUBULAR,35|
00000330  38 36 32 0d 00 b4 74 dc  20 22 45 47 59 50 54 20  |862...t. "EGYPT |
00000340  20 22 2c 38 34 37 33 2c  46 41 56 4f 55 52 53 2c  | ",8473,FAVOURS,|
00000350  35 30 31 32 2c 48 41 50  50 45 4e 53 2c 34 38 32  |5012,HAPPENS,482|
00000360  33 38 2c 50 45 52 53 4f  4e 53 2c 32 32 34 37 2c  |38,PERSONS,2247,|
00000370  43 4f 4e 51 55 45 52 2c  33 31 37 36 31 2c 45 56  |CONQUER,31761,EV|
00000380  45 4e 49 4e 47 2c 31 39  34 39 35 2c 4d 41 53 54  |ENING,19495,MAST|
00000390  45 52 53 2c 35 32 35 39  32 2c 50 49 4d 50 4c 45  |ERS,52592,PIMPLE|
000003a0  53 2c 35 31 30 33 35 0d  00 be 75 dc 20 56 49 43  |S,51035...u. VIC|
000003b0  54 4f 52 49 2c 35 34 30  36 36 2c 4d 45 52 43 55  |TORI,54066,MERCU|
000003c0  52 59 2c 35 37 39 35 30  2c 43 4c 45 41 56 45 52  |RY,57950,CLEAVER|
000003d0  2c 36 32 38 30 39 2c 42  49 4e 44 45 52 53 2c 33  |,62809,BINDERS,3|
000003e0  31 34 36 33 2c 43 4f 4e  46 55 53 45 2c 33 35 35  |1463,CONFUSE,355|
000003f0  38 34 2c 4a 49 4e 47 4c  45 53 2c 31 30 36 35 39  |84,JINGLES,10659|
00000400  2c 44 4f 4c 50 48 49 4e  2c 34 33 35 36 37 2c 4d  |,DOLPHIN,43567,M|
00000410  49 4e 53 54 45 52 2c 32  33 31 38 30 0d 00 c8 76  |INSTER,23180...v|
00000420  dc 20 22 4e 4f 57 20 20  20 20 22 2c 35 34 35 32  |. "NOW    ",5452|
00000430  34 2c 4f 43 54 41 47 4f  4e 2c 32 31 33 37 30 2c  |4,OCTAGON,21370,|
00000440  43 41 53 54 4c 45 53 2c  34 38 34 31 37 2c 43 48  |CASTLES,48417,CH|
00000450  41 52 4c 45 53 2c 39 36  39 38 2c 47 52 45 41 54  |ARLES,9698,GREAT|
00000460  45 52 2c 35 38 34 34 39  2c 42 4f 4f 4b 4c 45 54  |ER,58449,BOOKLET|
00000470  2c 32 33 39 36 33 2c 46  55 4e 54 49 4d 45 2c 36  |,23963,FUNTIME,6|
00000480  34 33 33 32 2c 53 41 56  4f 55 52 53 2c 32 39 32  |4332,SAVOURS,292|
00000490  39 34 0d 00 d2 76 dc 20  22 46 55 54 55 52 45 20  |94...v. "FUTURE |
000004a0  22 2c 33 33 37 37 36 2c  4f 52 41 43 4c 45 53 2c  |",33776,ORACLES,|
000004b0  31 31 31 39 2c 53 54 41  50 4c 45 52 2c 33 36 31  |1119,STAPLER,361|
000004c0  32 36 2c 44 41 4e 43 49  4e 47 2c 34 36 32 32 33  |26,DANCING,46223|
000004d0  2c 46 41 4e 43 49 45 52  2c 34 38 34 37 35 2c 42  |,FANCIER,48475,B|
000004e0  41 4e 41 4e 41 53 2c 33  34 34 30 39 2c 45 56 45  |ANANAS,34409,EVE|
000004f0  52 45 53 54 2c 35 34 31  33 36 2c 4b 49 4e 47 44  |REST,54136,KINGD|
00000500  4f 4d 2c 35 33 35 34 36  0d 00 dc 56 f1 27 3a f2  |OM,53546...V.':.|
00000510  61 28 22 60 4f 4b 40 20  2d 20 60 49 6e 73 65 72  |a("`OK@ - `Inser|
00000520  74 20 40 52 65 70 74 6f  6e 20 54 68 72 75 20 54  |t @Repton Thru T|
00000530  69 6d 65 60 20 74 61 70  65 20 61 6e 64 20 20 20  |ime` tape and   |
00000540  20 20 20 20 20 70 72 65  73 73 20 70 6c 61 79 20  |     press play |
00000550  2e 2e 2e 22 29 3a ef 37  2c 31 33 2c 31 30 0d 00  |..."):.7,13,10..|
00000560  e6 0b 50 25 3d 26 38 38  30 0d 00 f0 25 5b 4f 50  |..P%=&880...%[OP|
00000570  54 30 3a 4c 44 41 26 33  43 41 3a 80 23 32 35 34  |T0:LDA&3CA:.#254|
00000580  3a 53 54 41 26 33 43 41  3a 52 54 53 3a 5d 0d 00  |:STA&3CA:RTS:]..|
00000590  fa 15 3f 26 32 32 30 3d  26 38 30 3a 3f 26 32 32  |..?&220=&80:?&22|
000005a0  31 3d 38 0d 01 04 0b 2a  46 58 31 34 2c 34 0d 01  |1=8....*FX14,4..|
000005b0  0e 0b ef 31 37 2c 32 3a  f1 0d 01 18 14 ef 32 31  |...17,2:......21|
000005c0  3a 2a 46 58 31 33 38 2c  30 2c 31 32 38 0d 01 22  |:*FX138,0,128.."|
000005d0  05 e0 0d 01 2c 10 dd f2  61 73 6b 28 41 24 2c 41  |....,...ask(A$,A|
000005e0  25 29 0d 01 36 52 f2 61  28 22 60 22 2b 41 24 2b  |%)..6R.a("`"+A$+|
000005f0  c4 32 35 2d a9 41 24 2c  22 20 22 29 2b 22 40 28  |.25-.A$," ")+"@(|
00000600  59 2f 4e 29 60 20 3a 20  40 22 29 3a 41 24 3d be  |Y/N)` : @"):A$=.|
00000610  3a e7 20 41 24 3d 22 59  22 20 8c 20 f1 3b 22 59  |:. A$="Y" . .;"Y|
00000620  65 73 22 20 8b 20 f1 3b  22 4e 6f 22 3a 3f 41 25  |es" . .;"No":?A%|
00000630  3d 26 36 30 0d 01 40 05  e1 0d 01 4a 0f dd f2 61  |=&60..@....J...a|
00000640  28 24 26 31 36 30 30 29  0d 01 54 0c d6 26 31 37  |($&1600)..T..&17|
00000650  30 30 3a e1 0d 01 5e 09  dd f2 6d 63 31 0d 01 68  |00:...^...mc1..h|
00000660  0e e3 49 25 3d 30 b8 32  20 88 32 0d 01 72 0c 50  |..I%=0.2 .2..r.P|
00000670  25 3d 26 31 37 30 30 0d  01 7c 0a 5b 4f 50 54 49  |%=&1700..|.[OPTI|
00000680  25 0d 01 86 10 4c 44 59  23 30 3a 2e 6c 6f 6f 70  |%....LDY#0:.loop|
00000690  32 0d 01 90 0e 4c 44 41  26 31 36 30 30 2c 59 0d  |2....LDA&1600,Y.|
000006a0  01 9a 11 43 4d 50 23 31  33 3a 42 45 51 65 6e 64  |...CMP#13:BEQend|
000006b0  0d 01 a4 17 43 4d 50 23  97 22 40 22 3a 42 45 51  |....CMP#."@":BEQ|
000006c0  63 6f 6c 6f 75 72 31 0d  01 ae 17 43 4d 50 23 97  |colour1....CMP#.|
000006d0  22 60 22 3a 42 45 51 63  6f 6c 6f 75 72 32 0d 01  |"`":BEQcolour2..|
000006e0  b8 0c 4a 53 52 26 46 46  45 45 0d 01 c2 0b 2e 62  |..JSR&FFEE.....b|
000006f0  61 63 6b 69 6e 0d 01 cc  16 49 4e 59 3a 43 50 59  |ackin....INY:CPY|
00000700  23 30 3a 42 4e 45 6c 6f  6f 70 32 0d 01 d6 08 2e  |#0:BNEloop2.....|
00000710  65 6e 64 0d 01 e0 07 52  54 53 0d 01 ea 1c 2e 63  |end....RTS.....c|
00000720  6f 6c 6f 75 72 31 20 4c  44 41 23 32 3a 4a 4d 50  |olour1 LDA#2:JMP|
00000730  63 68 61 6e 67 65 0d 01  f4 12 2e 63 6f 6c 6f 75  |change.....colou|
00000740  72 32 20 4c 44 41 23 33  0d 01 fe 1f 2e 63 68 61  |r2 LDA#3.....cha|
00000750  6e 67 65 20 54 41 58 3a  4c 44 41 23 31 37 3a 4a  |nge TAX:LDA#17:J|
00000760  53 52 26 46 46 45 45 0d  02 08 18 20 20 20 20 20  |SR&FFEE....     |
00000770  20 20 20 54 58 41 3a 4a  53 52 26 46 46 45 45 0d  |   TXA:JSR&FFEE.|
00000780  02 12 15 20 20 20 20 20  20 20 20 4a 4d 50 62 61  |...        JMPba|
00000790  63 6b 69 6e 0d 02 1c 05  5d 0d 02 26 05 ed 0d 02  |ckin....]..&....|
000007a0  30 05 e1 0d 02 3a 08 dd  f2 6d 63 0d 02 44 10 e3  |0....:...mc..D..|
000007b0  49 25 3d 30 20 b8 20 32  20 88 32 0d 02 4e 0c 50  |I%=0 . 2 .2..N.P|
000007c0  25 3d 26 31 31 30 30 0d  02 58 0a 5b 4f 50 54 49  |%=&1100..X.[OPTI|
000007d0  25 0d 02 62 21 4c 44 59  23 6c 6f 61 64 20 81 20  |%..b!LDY#load . |
000007e0  32 35 36 3a 4c 44 58 23  6c 6f 61 64 20 83 20 32  |256:LDX#load . 2|
000007f0  35 36 0d 02 6c 0c 4a 53  52 26 46 46 46 37 0d 02  |56..l.JSR&FFF7..|
00000800  76 14 4c 44 41 23 26 32  30 3a 53 54 41 26 35 36  |v.LDA#&20:STA&56|
00000810  30 38 0d 02 80 1e 4c 44  41 23 69 6e 73 74 61 6c  |08....LDA#instal|
00000820  6c 20 83 20 32 35 36 3a  53 54 41 26 35 36 30 39  |l . 256:STA&5609|
00000830  0d 02 8a 1e 4c 44 41 23  69 6e 73 74 61 6c 6c 20  |....LDA#install |
00000840  81 20 32 35 36 3a 53 54  41 26 35 36 30 41 0d 02  |. 256:STA&560A..|
00000850  94 0c 4a 4d 50 26 35 36  30 30 0d 02 9e 0c 2e 69  |..JMP&5600.....i|
00000860  6e 73 74 61 6c 6c 0d 02  a8 0e 4a 53 52 69 6e 6c  |nstall....JSRinl|
00000870  69 76 65 73 0d 02 b2 0b  4a 53 52 6d 61 70 73 0d  |ives....JSRmaps.|
00000880  02 bc 0a 4a 53 52 69 6d  62 0d 02 c6 0a 4a 53 52  |...JSRimb....JSR|
00000890  69 6d 6c 0d 02 d0 0b 4a  53 52 69 6d 73 70 0d 02  |iml....JSRimsp..|
000008a0  da 09 4a 53 52 73 74 0d  02 e4 0b 4a 53 52 69 6d  |..JSRst....JSRim|
000008b0  73 6b 0d 02 ee 10 4a 53  52 26 35 37 44 43 3a 52  |sk....JSR&57DC:R|
000008c0  54 53 0d 02 f8 0c 2e 69  6e 6c 69 76 65 73 0d 03  |TS.....inlives..|
000008d0  02 27 4c 44 41 23 26 41  39 3a 53 54 41 26 35 37  |.'LDA#&A9:STA&57|
000008e0  37 36 3a 4c 44 41 23 31  3a 53 54 41 26 35 37 37  |76:LDA#1:STA&577|
000008f0  37 3a 52 54 53 0d 03 0c  09 2e 6d 61 70 73 0d 03  |7:RTS.....maps..|
00000900  16 18 4c 44 41 23 26 32  30 3a 53 54 41 26 35 37  |..LDA#&20:STA&57|
00000910  31 37 3a 52 54 53 0d 03  20 08 2e 69 6d 62 0d 03  |17:RTS.. ..imb..|
00000920  2a 21 4c 44 41 23 26 45  41 3a 53 54 41 26 32 45  |*!LDA#&EA:STA&2E|
00000930  32 36 3a 53 54 41 26 32  45 32 37 3a 52 54 53 0d  |26:STA&2E27:RTS.|
00000940  03 34 09 2e 69 6d 73 70  0d 03 3e 23 4c 44 41 23  |.4..imsp..>#LDA#|
00000950  26 41 39 3a 53 54 41 26  35 39 41 3a 53 54 41 26  |&A9:STA&59A:STA&|
00000960  36 31 46 3a 53 54 41 26  36 38 39 0d 03 48 23 4c  |61F:STA&689..H#L|
00000970  44 41 23 26 30 30 3a 53  54 41 26 35 39 42 3a 53  |DA#&00:STA&59B:S|
00000980  54 41 26 36 32 30 3a 53  54 41 26 36 38 41 0d 03  |TA&620:STA&68A..|
00000990  52 07 52 54 53 0d 03 5c  08 2e 69 6d 6c 0d 03 66  |R.RTS..\..iml..f|
000009a0  1b 4c 44 41 23 26 41 39  3a 53 54 41 26 36 41 30  |.LDA#&A9:STA&6A0|
000009b0  3a 53 54 41 26 35 35 44  0d 03 70 1b 4c 44 41 23  |:STA&55D..p.LDA#|
000009c0  26 30 30 3a 53 54 41 26  36 41 31 3a 53 54 41 26  |&00:STA&6A1:STA&|
000009d0  35 35 45 0d 03 7a 07 52  54 53 0d 03 84 07 2e 73  |55E..z.RTS.....s|
000009e0  74 0d 03 8e 16 4c 44 41  23 30 3a 53 54 41 26 32  |t....LDA#0:STA&2|
000009f0  32 46 42 3a 52 54 53 0d  03 98 09 2e 69 6d 73 6b  |2FB:RTS.....imsk|
00000a00  0d 03 a2 1d 4c 44 41 23  26 45 41 3a 53 54 41 26  |....LDA#&EA:STA&|
00000a10  35 34 31 42 3a 53 54 41  26 35 34 31 43 0d 03 ac  |541B:STA&541C...|
00000a20  07 52 54 53 0d 03 b6 20  2e 6c 6f 61 64 20 45 51  |.RTS... .load EQ|
00000a30  55 53 22 4c 4f 41 44 20  52 45 50 54 4f 4e 32 22  |US"LOAD REPTON2"|
00000a40  2b bd 31 33 0d 03 c0 07  5d 3a ed 0d 03 ca 38 2a  |+.13....]:....8*|
00000a50  4b 2e 30 20 4c 4f 2e 22  52 45 50 54 4f 4e 22 7c  |K.0 LO."REPTON"||
00000a60  46 7c 4d 35 39 30 50 41  2e 3d 26 31 39 30 30 3a  |F|M590PA.=&1900:|
00000a70  2a 46 58 31 33 38 2c 30  2c 31 32 39 7c 4d 52 55  |*FX138,0,129|MRU|
00000a80  4e 7c 4d 0d 03 d4 2a 2a  4b 2e 31 20 4c 4f 2e 22  |N|M...**K.1 LO."|
00000a90  52 45 50 54 4f 4e 31 22  7c 4d 31 34 30 43 41 4c  |REPTON1"|M140CAL|
00000aa0  4c 26 31 31 30 30 7c 4d  52 55 4e 7c 4d 0d 03 de  |L&1100|MRUN|M...|
00000ab0  05 e1 0d ff                                       |....|
00000ab4
ReptonTh-T.m0
ReptonTh-T.m1
ReptonTh-T.m2
ReptonTh-T.m4
ReptonTh-T.m5