� Repton 3 Series
$� Password / Edit code displayer
� Electron Tape version
(G�1:�23;8202;0;0;0;19,3,6,0,0,0,23,230,0,&FF,0,&FF,0,0,0,0,17,1:�mc1
2�title:�mc
<.�I%=1�4:�A$:�a("`"+�I%+") @.... `"+A$):�:�
FR� Repton 3, Around the World in 40 Screens,The Life of Repton,Repton Thru Time
P � PRELUDE,TOCCATA,FINALE,END
Z-� AMERICA,ARCTIC,ORIENT,OCEANS,AFRICA,END
d$� BABY,SCHOOL,TEENS,WORK,OAP,END
n*� PREHIST,EGYPT,VICTORI,NOW,FUTURE,END
x0�2:�'"Select required game from above menu."
��B$(10):A=�get(4)
�4�:� �DF@:�I%=1�A:�A$:�:�1:�'A$';:�2:�;ĩA$,"�")'
�� A=1 ��DP@
�� A=2 ��DZ@
�� A=3 ��Dd@
�� A=4 ��Dn@
�7end=�:I%=1:�:�A$:B$(I%)=A$:� A$="END" � end=�:�dR@
�(�a("`"+�I%+") @.... `"+A$):�:I%=I%+1
�U�end:�:�a("`Insert @game tape `and select file from   `above menu."):A=�get(I%-1)
�A�4:�"OK - Forward to ";B$(A);" and press"'"     play ...":�''
�-$&900="L."+B$(A)+" 31E0":Y%=9:X%=0:�&FFF7
�*�'"O.K - Do you want a printout (Y/N)"
�,B$=�:� B$="Y" � �;"Yes":p=� � �;"No":p=�

�:� p � �2

�'"  Filename : ";B$(A)'

9�"   Screen    Password     Edit Code"'"   ";�32,"-")

"=A%=0:X%=&3F:�X%?&31E0=X%?&31E0 � A%:A%=A%+1:X%=X%-1:�X%<0

,&�I%=0�7:J%=I%*2:A$=$(&31E0+(I%*8))

6%�;�5;I%+1;".";�6;A$;�15-�A$," ");

@*?&74=J%?&3230:?&75=J%?&3231:�&1100:�:�

J5�3:�6,23);"Press <SPACEBAR> to restart":���=32:�

T:

^��mc

h�I%=0�2 �2

rP%=&1100

|
[OPTI%

�	LDX#0

�.loop1 LDY#&10:LDA#0

�.loop2 ASL&74:ROL&75:ROL A

�CMP#10:BCCmiss

�SBC#10:INC&74

�.miss DEY:BNEloop2

�PHA:INX:LDA&74:�A&75

�BNEloop1

�$.remove PLA:CLC:ADC#&30:JSR&FFEE

�DEX:BNEremove:RTS

�]:�

��

���title
5�:�1:�'"Repton 3 Series":�2:�"���������������"':�
ݤget(max)
A=�:A=A-48
&� A<1 � A>max � �7:�T\B
0=A
:��a($&1600)
D�&1700:�
N	��mc1
X�I%=0�2 �2
bP%=&1700
l
[OPTI%
vLDY#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
]
�
 �
�

00000000  0d 00 0a 15 f4 20 52 65  70 74 6f 6e 20 33 20 53  |..... Repton 3 S|
00000010  65 72 69 65 73 0d 00 14  24 f4 20 50 61 73 73 77  |eries...$. Passw|
00000020  6f 72 64 20 2f 20 45 64  69 74 20 63 6f 64 65 20  |ord / Edit code |
00000030  64 69 73 70 6c 61 79 65  72 0d 00 1e 1b f4 20 45  |displayer..... E|
00000040  6c 65 63 74 72 6f 6e 20  54 61 70 65 20 76 65 72  |lectron Tape ver|
00000050  73 69 6f 6e 0d 00 28 47  eb 31 3a ef 32 33 3b 38  |sion..(G.1:.23;8|
00000060  32 30 32 3b 30 3b 30 3b  30 3b 31 39 2c 33 2c 36  |202;0;0;0;19,3,6|
00000070  2c 30 2c 30 2c 30 2c 32  33 2c 32 33 30 2c 30 2c  |,0,0,0,23,230,0,|
00000080  26 46 46 2c 30 2c 26 46  46 2c 30 2c 30 2c 30 2c  |&FF,0,&FF,0,0,0,|
00000090  30 2c 31 37 2c 31 3a f2  6d 63 31 0d 00 32 0e f2  |0,17,1:.mc1..2..|
000000a0  74 69 74 6c 65 3a f2 6d  63 0d 00 3c 2e e3 49 25  |title:.mc..<..I%|
000000b0  3d 31 b8 34 3a f3 41 24  3a f2 61 28 22 60 22 2b  |=1.4:.A$:.a("`"+|
000000c0  c3 49 25 2b 22 29 20 40  2e 2e 2e 2e 20 60 22 2b  |.I%+") @.... `"+|
000000d0  41 24 29 3a f1 3a ed 0d  00 46 52 dc 20 52 65 70  |A$):.:...FR. Rep|
000000e0  74 6f 6e 20 33 2c 20 41  72 6f 75 6e 64 20 74 68  |ton 3, Around th|
000000f0  65 20 57 6f 72 6c 64 20  69 6e 20 34 30 20 53 63  |e World in 40 Sc|
00000100  72 65 65 6e 73 2c 54 68  65 20 4c 69 66 65 20 6f  |reens,The Life o|
00000110  66 20 52 65 70 74 6f 6e  2c 52 65 70 74 6f 6e 20  |f Repton,Repton |
00000120  54 68 72 75 20 54 69 6d  65 0d 00 50 20 dc 20 50  |Thru Time..P . P|
00000130  52 45 4c 55 44 45 2c 54  4f 43 43 41 54 41 2c 46  |RELUDE,TOCCATA,F|
00000140  49 4e 41 4c 45 2c 45 4e  44 0d 00 5a 2d dc 20 41  |INALE,END..Z-. A|
00000150  4d 45 52 49 43 41 2c 41  52 43 54 49 43 2c 4f 52  |MERICA,ARCTIC,OR|
00000160  49 45 4e 54 2c 4f 43 45  41 4e 53 2c 41 46 52 49  |IENT,OCEANS,AFRI|
00000170  43 41 2c 45 4e 44 0d 00  64 24 dc 20 42 41 42 59  |CA,END..d$. BABY|
00000180  2c 53 43 48 4f 4f 4c 2c  54 45 45 4e 53 2c 57 4f  |,SCHOOL,TEENS,WO|
00000190  52 4b 2c 4f 41 50 2c 45  4e 44 0d 00 6e 2a dc 20  |RK,OAP,END..n*. |
000001a0  50 52 45 48 49 53 54 2c  45 47 59 50 54 2c 56 49  |PREHIST,EGYPT,VI|
000001b0  43 54 4f 52 49 2c 4e 4f  57 2c 46 55 54 55 52 45  |CTORI,NOW,FUTURE|
000001c0  2c 45 4e 44 0d 00 78 30  fb 32 3a f1 27 22 53 65  |,END..x0.2:.'"Se|
000001d0  6c 65 63 74 20 72 65 71  75 69 72 65 64 20 67 61  |lect required ga|
000001e0  6d 65 20 66 72 6f 6d 20  61 62 6f 76 65 20 6d 65  |me from above me|
000001f0  6e 75 2e 22 0d 00 82 15  de 42 24 28 31 30 29 3a  |nu.".....B$(10):|
00000200  41 3d a4 67 65 74 28 34  29 0d 00 8c 34 db 3a f7  |A=.get(4)...4.:.|
00000210  20 8d 44 46 40 3a e3 49  25 3d 31 b8 41 3a f3 41  | .DF@:.I%=1.A:.A|
00000220  24 3a ed 3a fb 31 3a f1  27 41 24 27 3b 3a fb 32  |$:.:.1:.'A$';:.2|
00000230  3a f1 3b c4 a9 41 24 2c  22 86 22 29 27 0d 00 96  |:.;..A$,".")'...|
00000240  0f e7 20 41 3d 31 20 f7  8d 44 50 40 0d 00 a0 0f  |.. A=1 ..DP@....|
00000250  e7 20 41 3d 32 20 f7 8d  44 5a 40 0d 00 aa 0f e7  |. A=2 ..DZ@.....|
00000260  20 41 3d 33 20 f7 8d 44  64 40 0d 00 b4 0f e7 20  | A=3 ..Dd@..... |
00000270  41 3d 34 20 f7 8d 44 6e  40 0d 00 be 37 65 6e 64  |A=4 ..Dn@...7end|
00000280  3d a3 3a 49 25 3d 31 3a  f5 3a f3 41 24 3a 42 24  |=.:I%=1:.:.A$:B$|
00000290  28 49 25 29 3d 41 24 3a  e7 20 41 24 3d 22 45 4e  |(I%)=A$:. A$="EN|
000002a0  44 22 20 8c 20 65 6e 64  3d b9 3a e5 8d 64 52 40  |D" . end=.:..dR@|
000002b0  0d 00 c8 28 f2 61 28 22  60 22 2b c3 49 25 2b 22  |...(.a("`"+.I%+"|
000002c0  29 20 40 2e 2e 2e 2e 20  60 22 2b 41 24 29 3a f1  |) @.... `"+A$):.|
000002d0  3a 49 25 3d 49 25 2b 31  0d 00 d2 55 fd 65 6e 64  |:I%=I%+1...U.end|
000002e0  3a f1 3a f2 61 28 22 60  49 6e 73 65 72 74 20 40  |:.:.a("`Insert @|
000002f0  67 61 6d 65 20 74 61 70  65 20 60 61 6e 64 20 73  |game tape `and s|
00000300  65 6c 65 63 74 20 66 69  6c 65 20 66 72 6f 6d 20  |elect file from |
00000310  20 20 60 61 62 6f 76 65  20 6d 65 6e 75 2e 22 29  |  `above menu.")|
00000320  3a 41 3d a4 67 65 74 28  49 25 2d 31 29 0d 00 dc  |:A=.get(I%-1)...|
00000330  41 eb 34 3a f1 22 4f 4b  20 2d 20 46 6f 72 77 61  |A.4:."OK - Forwa|
00000340  72 64 20 74 6f 20 22 3b  42 24 28 41 29 3b 22 20  |rd to ";B$(A);" |
00000350  61 6e 64 20 70 72 65 73  73 22 27 22 20 20 20 20  |and press"'"    |
00000360  20 70 6c 61 79 20 2e 2e  2e 22 3a f1 27 27 0d 00  | play ...":.''..|
00000370  e6 2d 24 26 39 30 30 3d  22 4c 2e 22 2b 42 24 28  |.-$&900="L."+B$(|
00000380  41 29 2b 22 20 33 31 45  30 22 3a 59 25 3d 39 3a  |A)+" 31E0":Y%=9:|
00000390  58 25 3d 30 3a d6 26 46  46 46 37 0d 00 f0 2a f1  |X%=0:.&FFF7...*.|
000003a0  27 22 4f 2e 4b 20 2d 20  44 6f 20 79 6f 75 20 77  |'"O.K - Do you w|
000003b0  61 6e 74 20 61 20 70 72  69 6e 74 6f 75 74 20 28  |ant a printout (|
000003c0  59 2f 4e 29 22 0d 00 fa  2c 42 24 3d be 3a e7 20  |Y/N)"...,B$=.:. |
000003d0  42 24 3d 22 59 22 20 8c  20 f1 3b 22 59 65 73 22  |B$="Y" . .;"Yes"|
000003e0  3a 70 3d b9 20 8b 20 f1  3b 22 4e 6f 22 3a 70 3d  |:p=. . .;"No":p=|
000003f0  a3 0d 01 04 0e db 3a e7  20 70 20 8c 20 ef 32 0d  |......:. p . .2.|
00000400  01 0e 1c f1 27 22 20 20  46 69 6c 65 6e 61 6d 65  |....'"  Filename|
00000410  20 3a 20 22 3b 42 24 28  41 29 27 0d 01 18 39 f1  | : ";B$(A)'...9.|
00000420  22 20 20 20 53 63 72 65  65 6e 20 20 20 20 50 61  |"   Screen    Pa|
00000430  73 73 77 6f 72 64 20 20  20 20 20 45 64 69 74 20  |ssword     Edit |
00000440  43 6f 64 65 22 27 22 20  20 20 22 3b c4 33 32 2c  |Code"'"   ";.32,|
00000450  22 2d 22 29 0d 01 22 3d  41 25 3d 30 3a 58 25 3d  |"-").."=A%=0:X%=|
00000460  26 33 46 3a f5 58 25 3f  26 33 31 45 30 3d 58 25  |&3F:.X%?&31E0=X%|
00000470  3f 26 33 31 45 30 20 82  20 41 25 3a 41 25 3d 41  |?&31E0 . A%:A%=A|
00000480  25 2b 31 3a 58 25 3d 58  25 2d 31 3a fd 58 25 3c  |%+1:X%=X%-1:.X%<|
00000490  30 0d 01 2c 26 e3 49 25  3d 30 b8 37 3a 4a 25 3d  |0..,&.I%=0.7:J%=|
000004a0  49 25 2a 32 3a 41 24 3d  24 28 26 33 31 45 30 2b  |I%*2:A$=$(&31E0+|
000004b0  28 49 25 2a 38 29 29 0d  01 36 25 f1 3b 89 35 3b  |(I%*8))..6%.;.5;|
000004c0  49 25 2b 31 3b 22 2e 22  3b 89 36 3b 41 24 3b c4  |I%+1;".";.6;A$;.|
000004d0  31 35 2d a9 41 24 2c 22  20 22 29 3b 0d 01 40 2a  |15-.A$," ");..@*|
000004e0  3f 26 37 34 3d 4a 25 3f  26 33 32 33 30 3a 3f 26  |?&74=J%?&3230:?&|
000004f0  37 35 3d 4a 25 3f 26 33  32 33 31 3a d6 26 31 31  |75=J%?&3231:.&11|
00000500  30 30 3a f1 3a ed 0d 01  4a 35 ef 33 3a f1 8a 36  |00:.:...J5.3:..6|
00000510  2c 32 33 29 3b 22 50 72  65 73 73 20 3c 53 50 41  |,23);"Press <SPA|
00000520  43 45 42 41 52 3e 20 74  6f 20 72 65 73 74 61 72  |CEBAR> to restar|
00000530  74 22 3a f5 fd a5 3d 33  32 3a f9 0d 01 54 05 3a  |t":...=32:...T.:|
00000540  0d 01 5e 08 dd f2 6d 63  0d 01 68 0e e3 49 25 3d  |..^...mc..h..I%=|
00000550  30 b8 32 20 88 32 0d 01  72 0c 50 25 3d 26 31 31  |0.2 .2..r.P%=&11|
00000560  30 30 0d 01 7c 0a 5b 4f  50 54 49 25 0d 01 86 09  |00..|.[OPTI%....|
00000570  4c 44 58 23 30 0d 01 90  18 2e 6c 6f 6f 70 31 20  |LDX#0.....loop1 |
00000580  4c 44 59 23 26 31 30 3a  4c 44 41 23 30 0d 01 9a  |LDY#&10:LDA#0...|
00000590  1e 2e 6c 6f 6f 70 32 20  41 53 4c 26 37 34 3a 52  |..loop2 ASL&74:R|
000005a0  4f 4c 26 37 35 3a 52 4f  4c 20 41 0d 01 a4 12 43  |OL&75:ROL A....C|
000005b0  4d 50 23 31 30 3a 42 43  43 6d 69 73 73 0d 01 ae  |MP#10:BCCmiss...|
000005c0  11 53 42 43 23 31 30 3a  49 4e 43 26 37 34 0d 01  |.SBC#10:INC&74..|
000005d0  b8 16 2e 6d 69 73 73 20  44 45 59 3a 42 4e 45 6c  |...miss DEY:BNEl|
000005e0  6f 6f 70 32 0d 01 c2 18  50 48 41 3a 49 4e 58 3a  |oop2....PHA:INX:|
000005f0  4c 44 41 26 37 34 3a 84  41 26 37 35 0d 01 cc 0c  |LDA&74:.A&75....|
00000600  42 4e 45 6c 6f 6f 70 31  0d 01 d6 24 2e 72 65 6d  |BNEloop1...$.rem|
00000610  6f 76 65 20 50 4c 41 3a  43 4c 43 3a 41 44 43 23  |ove PLA:CLC:ADC#|
00000620  26 33 30 3a 4a 53 52 26  46 46 45 45 0d 01 e0 15  |&30:JSR&FFEE....|
00000630  44 45 58 3a 42 4e 45 72  65 6d 6f 76 65 3a 52 54  |DEX:BNEremove:RT|
00000640  53 0d 01 ea 07 5d 3a ed  0d 01 f4 05 e1 0d 01 fe  |S....]:.........|
00000650  0b dd f2 74 69 74 6c 65  0d 02 08 35 db 3a fb 31  |...title...5.:.1|
00000660  3a f1 27 22 52 65 70 74  6f 6e 20 33 20 53 65 72  |:.'"Repton 3 Ser|
00000670  69 65 73 22 3a fb 32 3a  f1 22 86 86 86 86 86 86  |ies":.2:."......|
00000680  86 86 86 86 86 86 86 86  86 22 27 3a e1 0d 02 12  |........."':....|
00000690  0e dd a4 67 65 74 28 6d  61 78 29 0d 02 1c 0e 41  |...get(max)....A|
000006a0  3d a5 3a 41 3d 41 2d 34  38 0d 02 26 1c e7 20 41  |=.:A=A-48..&.. A|
000006b0  3c 31 20 84 20 41 3e 6d  61 78 20 8c 20 ef 37 3a  |<1 . A>max . .7:|
000006c0  e5 8d 54 5c 42 0d 02 30  06 3d 41 0d 02 3a 0f dd  |..T\B..0.=A..:..|
000006d0  f2 61 28 24 26 31 36 30  30 29 0d 02 44 0c d6 26  |.a($&1600)..D..&|
000006e0  31 37 30 30 3a e1 0d 02  4e 09 dd f2 6d 63 31 0d  |1700:...N...mc1.|
000006f0  02 58 0e e3 49 25 3d 30  b8 32 20 88 32 0d 02 62  |.X..I%=0.2 .2..b|
00000700  0c 50 25 3d 26 31 37 30  30 0d 02 6c 0a 5b 4f 50  |.P%=&1700..l.[OP|
00000710  54 49 25 0d 02 76 10 4c  44 59 23 30 3a 2e 6c 6f  |TI%..v.LDY#0:.lo|
00000720  6f 70 32 0d 02 80 0e 4c  44 41 26 31 36 30 30 2c  |op2....LDA&1600,|
00000730  59 0d 02 8a 11 43 4d 50  23 31 33 3a 42 45 51 65  |Y....CMP#13:BEQe|
00000740  6e 64 0d 02 94 17 43 4d  50 23 97 22 40 22 3a 42  |nd....CMP#."@":B|
00000750  45 51 63 6f 6c 6f 75 72  31 0d 02 9e 17 43 4d 50  |EQcolour1....CMP|
00000760  23 97 22 60 22 3a 42 45  51 63 6f 6c 6f 75 72 32  |#."`":BEQcolour2|
00000770  0d 02 a8 0c 4a 53 52 26  46 46 45 45 0d 02 b2 0b  |....JSR&FFEE....|
00000780  2e 62 61 63 6b 69 6e 0d  02 bc 16 49 4e 59 3a 43  |.backin....INY:C|
00000790  50 59 23 30 3a 42 4e 45  6c 6f 6f 70 32 0d 02 c6  |PY#0:BNEloop2...|
000007a0  08 2e 65 6e 64 0d 02 d0  07 52 54 53 0d 02 da 1c  |..end....RTS....|
000007b0  2e 63 6f 6c 6f 75 72 31  20 4c 44 41 23 32 3a 4a  |.colour1 LDA#2:J|
000007c0  4d 50 63 68 61 6e 67 65  0d 02 e4 12 2e 63 6f 6c  |MPchange.....col|
000007d0  6f 75 72 32 20 4c 44 41  23 33 0d 02 ee 1f 2e 63  |our2 LDA#3.....c|
000007e0  68 61 6e 67 65 20 54 41  58 3a 4c 44 41 23 31 37  |hange TAX:LDA#17|
000007f0  3a 4a 53 52 26 46 46 45  45 0d 02 f8 18 20 20 20  |:JSR&FFEE....   |
00000800  20 20 20 20 20 54 58 41  3a 4a 53 52 26 46 46 45  |     TXA:JSR&FFE|
00000810  45 0d 03 02 15 20 20 20  20 20 20 20 20 4a 4d 50  |E....        JMP|
00000820  62 61 63 6b 69 6e 0d 03  0c 05 5d 0d 03 16 05 ed  |backin....].....|
00000830  0d 03 20 05 e1 0d ff                              |.. ....|
00000837