� 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,TEENAGE,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 26 dc 20 42 41 42 59  |CA,END..d&. BABY|
00000180  2c 53 43 48 4f 4f 4c 2c  54 45 45 4e 41 47 45 2c  |,SCHOOL,TEENAGE,|
00000190  57 4f 52 4b 2c 4f 41 50  2c 45 4e 44 0d 00 6e 2a  |WORK,OAP,END..n*|
000001a0  dc 20 50 52 45 48 49 53  54 2c 45 47 59 50 54 2c  |. PREHIST,EGYPT,|
000001b0  56 49 43 54 4f 52 49 2c  4e 4f 57 2c 46 55 54 55  |VICTORI,NOW,FUTU|
000001c0  52 45 2c 45 4e 44 0d 00  78 30 fb 32 3a f1 27 22  |RE,END..x0.2:.'"|
000001d0  53 65 6c 65 63 74 20 72  65 71 75 69 72 65 64 20  |Select required |
000001e0  67 61 6d 65 20 66 72 6f  6d 20 61 62 6f 76 65 20  |game from above |
000001f0  6d 65 6e 75 2e 22 0d 00  82 15 de 42 24 28 31 30  |menu.".....B$(10|
00000200  29 3a 41 3d a4 67 65 74  28 34 29 0d 00 8c 34 db  |):A=.get(4)...4.|
00000210  3a f7 20 8d 44 46 40 3a  e3 49 25 3d 31 b8 41 3a  |:. .DF@:.I%=1.A:|
00000220  f3 41 24 3a ed 3a fb 31  3a f1 27 41 24 27 3b 3a  |.A$:.:.1:.'A$';:|
00000230  fb 32 3a f1 3b c4 a9 41  24 2c 22 86 22 29 27 0d  |.2:.;..A$,".")'.|
00000240  00 96 0f e7 20 41 3d 31  20 f7 8d 44 50 40 0d 00  |.... A=1 ..DP@..|
00000250  a0 0f e7 20 41 3d 32 20  f7 8d 44 5a 40 0d 00 aa  |... A=2 ..DZ@...|
00000260  0f e7 20 41 3d 33 20 f7  8d 44 64 40 0d 00 b4 0f  |.. A=3 ..Dd@....|
00000270  e7 20 41 3d 34 20 f7 8d  44 6e 40 0d 00 be 37 65  |. A=4 ..Dn@...7e|
00000280  6e 64 3d a3 3a 49 25 3d  31 3a f5 3a f3 41 24 3a  |nd=.:I%=1:.:.A$:|
00000290  42 24 28 49 25 29 3d 41  24 3a e7 20 41 24 3d 22  |B$(I%)=A$:. A$="|
000002a0  45 4e 44 22 20 8c 20 65  6e 64 3d b9 3a e5 8d 64  |END" . end=.:..d|
000002b0  52 40 0d 00 c8 28 f2 61  28 22 60 22 2b c3 49 25  |R@...(.a("`"+.I%|
000002c0  2b 22 29 20 40 2e 2e 2e  2e 20 60 22 2b 41 24 29  |+") @.... `"+A$)|
000002d0  3a f1 3a 49 25 3d 49 25  2b 31 0d 00 d2 55 fd 65  |:.:I%=I%+1...U.e|
000002e0  6e 64 3a f1 3a f2 61 28  22 60 49 6e 73 65 72 74  |nd:.:.a("`Insert|
000002f0  20 40 67 61 6d 65 20 74  61 70 65 20 60 61 6e 64  | @game tape `and|
00000300  20 73 65 6c 65 63 74 20  66 69 6c 65 20 66 72 6f  | select file fro|
00000310  6d 20 20 20 60 61 62 6f  76 65 20 6d 65 6e 75 2e  |m   `above menu.|
00000320  22 29 3a 41 3d a4 67 65  74 28 49 25 2d 31 29 0d  |"):A=.get(I%-1).|
00000330  00 dc 41 eb 34 3a f1 22  4f 4b 20 2d 20 46 6f 72  |..A.4:."OK - For|
00000340  77 61 72 64 20 74 6f 20  22 3b 42 24 28 41 29 3b  |ward to ";B$(A);|
00000350  22 20 61 6e 64 20 70 72  65 73 73 22 27 22 20 20  |" and press"'"  |
00000360  20 20 20 70 6c 61 79 20  2e 2e 2e 22 3a f1 27 27  |   play ...":.''|
00000370  0d 00 e6 2d 24 26 39 30  30 3d 22 4c 2e 22 2b 42  |...-$&900="L."+B|
00000380  24 28 41 29 2b 22 20 33  31 45 30 22 3a 59 25 3d  |$(A)+" 31E0":Y%=|
00000390  39 3a 58 25 3d 30 3a d6  26 46 46 46 37 0d 00 f0  |9:X%=0:.&FFF7...|
000003a0  2a f1 27 22 4f 2e 4b 20  2d 20 44 6f 20 79 6f 75  |*.'"O.K - Do you|
000003b0  20 77 61 6e 74 20 61 20  70 72 69 6e 74 6f 75 74  | want a printout|
000003c0  20 28 59 2f 4e 29 22 0d  00 fa 2c 42 24 3d be 3a  | (Y/N)"...,B$=.:|
000003d0  e7 20 42 24 3d 22 59 22  20 8c 20 f1 3b 22 59 65  |. B$="Y" . .;"Ye|
000003e0  73 22 3a 70 3d b9 20 8b  20 f1 3b 22 4e 6f 22 3a  |s":p=. . .;"No":|
000003f0  70 3d a3 0d 01 04 0e db  3a e7 20 70 20 8c 20 ef  |p=......:. p . .|
00000400  32 0d 01 0e 1c f1 27 22  20 20 46 69 6c 65 6e 61  |2.....'"  Filena|
00000410  6d 65 20 3a 20 22 3b 42  24 28 41 29 27 0d 01 18  |me : ";B$(A)'...|
00000420  39 f1 22 20 20 20 53 63  72 65 65 6e 20 20 20 20  |9."   Screen    |
00000430  50 61 73 73 77 6f 72 64  20 20 20 20 20 45 64 69  |Password     Edi|
00000440  74 20 43 6f 64 65 22 27  22 20 20 20 22 3b c4 33  |t Code"'"   ";.3|
00000450  32 2c 22 2d 22 29 0d 01  22 3d 41 25 3d 30 3a 58  |2,"-").."=A%=0:X|
00000460  25 3d 26 33 46 3a f5 58  25 3f 26 33 31 45 30 3d  |%=&3F:.X%?&31E0=|
00000470  58 25 3f 26 33 31 45 30  20 82 20 41 25 3a 41 25  |X%?&31E0 . A%:A%|
00000480  3d 41 25 2b 31 3a 58 25  3d 58 25 2d 31 3a fd 58  |=A%+1:X%=X%-1:.X|
00000490  25 3c 30 0d 01 2c 26 e3  49 25 3d 30 b8 37 3a 4a  |%<0..,&.I%=0.7:J|
000004a0  25 3d 49 25 2a 32 3a 41  24 3d 24 28 26 33 31 45  |%=I%*2:A$=$(&31E|
000004b0  30 2b 28 49 25 2a 38 29  29 0d 01 36 25 f1 3b 89  |0+(I%*8))..6%.;.|
000004c0  35 3b 49 25 2b 31 3b 22  2e 22 3b 89 36 3b 41 24  |5;I%+1;".";.6;A$|
000004d0  3b c4 31 35 2d a9 41 24  2c 22 20 22 29 3b 0d 01  |;.15-.A$," ");..|
000004e0  40 2a 3f 26 37 34 3d 4a  25 3f 26 33 32 33 30 3a  |@*?&74=J%?&3230:|
000004f0  3f 26 37 35 3d 4a 25 3f  26 33 32 33 31 3a d6 26  |?&75=J%?&3231:.&|
00000500  31 31 30 30 3a f1 3a ed  0d 01 4a 35 ef 33 3a f1  |1100:.:...J5.3:.|
00000510  8a 36 2c 32 33 29 3b 22  50 72 65 73 73 20 3c 53  |.6,23);"Press <S|
00000520  50 41 43 45 42 41 52 3e  20 74 6f 20 72 65 73 74  |PACEBAR> to rest|
00000530  61 72 74 22 3a f5 fd a5  3d 33 32 3a f9 0d 01 54  |art":...=32:...T|
00000540  05 3a 0d 01 5e 08 dd f2  6d 63 0d 01 68 0e e3 49  |.:..^...mc..h..I|
00000550  25 3d 30 b8 32 20 88 32  0d 01 72 0c 50 25 3d 26  |%=0.2 .2..r.P%=&|
00000560  31 31 30 30 0d 01 7c 0a  5b 4f 50 54 49 25 0d 01  |1100..|.[OPTI%..|
00000570  86 09 4c 44 58 23 30 0d  01 90 18 2e 6c 6f 6f 70  |..LDX#0.....loop|
00000580  31 20 4c 44 59 23 26 31  30 3a 4c 44 41 23 30 0d  |1 LDY#&10:LDA#0.|
00000590  01 9a 1e 2e 6c 6f 6f 70  32 20 41 53 4c 26 37 34  |....loop2 ASL&74|
000005a0  3a 52 4f 4c 26 37 35 3a  52 4f 4c 20 41 0d 01 a4  |:ROL&75:ROL A...|
000005b0  12 43 4d 50 23 31 30 3a  42 43 43 6d 69 73 73 0d  |.CMP#10:BCCmiss.|
000005c0  01 ae 11 53 42 43 23 31  30 3a 49 4e 43 26 37 34  |...SBC#10:INC&74|
000005d0  0d 01 b8 16 2e 6d 69 73  73 20 44 45 59 3a 42 4e  |.....miss DEY:BN|
000005e0  45 6c 6f 6f 70 32 0d 01  c2 18 50 48 41 3a 49 4e  |Eloop2....PHA:IN|
000005f0  58 3a 4c 44 41 26 37 34  3a 84 41 26 37 35 0d 01  |X:LDA&74:.A&75..|
00000600  cc 0c 42 4e 45 6c 6f 6f  70 31 0d 01 d6 24 2e 72  |..BNEloop1...$.r|
00000610  65 6d 6f 76 65 20 50 4c  41 3a 43 4c 43 3a 41 44  |emove PLA:CLC:AD|
00000620  43 23 26 33 30 3a 4a 53  52 26 46 46 45 45 0d 01  |C#&30:JSR&FFEE..|
00000630  e0 15 44 45 58 3a 42 4e  45 72 65 6d 6f 76 65 3a  |..DEX:BNEremove:|
00000640  52 54 53 0d 01 ea 07 5d  3a ed 0d 01 f4 05 e1 0d  |RTS....]:.......|
00000650  01 fe 0b dd f2 74 69 74  6c 65 0d 02 08 35 db 3a  |.....title...5.:|
00000660  fb 31 3a f1 27 22 52 65  70 74 6f 6e 20 33 20 53  |.1:.'"Repton 3 S|
00000670  65 72 69 65 73 22 3a fb  32 3a f1 22 86 86 86 86  |eries":.2:."....|
00000680  86 86 86 86 86 86 86 86  86 86 86 22 27 3a e1 0d  |..........."':..|
00000690  02 12 0e dd a4 67 65 74  28 6d 61 78 29 0d 02 1c  |.....get(max)...|
000006a0  0e 41 3d a5 3a 41 3d 41  2d 34 38 0d 02 26 1c e7  |.A=.:A=A-48..&..|
000006b0  20 41 3c 31 20 84 20 41  3e 6d 61 78 20 8c 20 ef  | A<1 . A>max . .|
000006c0  37 3a e5 8d 54 5c 42 0d  02 30 06 3d 41 0d 02 3a  |7:..T\B..0.=A..:|
000006d0  0f dd f2 61 28 24 26 31  36 30 30 29 0d 02 44 0c  |...a($&1600)..D.|
000006e0  d6 26 31 37 30 30 3a e1  0d 02 4e 09 dd f2 6d 63  |.&1700:...N...mc|
000006f0  31 0d 02 58 0e e3 49 25  3d 30 b8 32 20 88 32 0d  |1..X..I%=0.2 .2.|
00000700  02 62 0c 50 25 3d 26 31  37 30 30 0d 02 6c 0a 5b  |.b.P%=&1700..l.[|
00000710  4f 50 54 49 25 0d 02 76  10 4c 44 59 23 30 3a 2e  |OPTI%..v.LDY#0:.|
00000720  6c 6f 6f 70 32 0d 02 80  0e 4c 44 41 26 31 36 30  |loop2....LDA&160|
00000730  30 2c 59 0d 02 8a 11 43  4d 50 23 31 33 3a 42 45  |0,Y....CMP#13:BE|
00000740  51 65 6e 64 0d 02 94 17  43 4d 50 23 97 22 40 22  |Qend....CMP#."@"|
00000750  3a 42 45 51 63 6f 6c 6f  75 72 31 0d 02 9e 17 43  |:BEQcolour1....C|
00000760  4d 50 23 97 22 60 22 3a  42 45 51 63 6f 6c 6f 75  |MP#."`":BEQcolou|
00000770  72 32 0d 02 a8 0c 4a 53  52 26 46 46 45 45 0d 02  |r2....JSR&FFEE..|
00000780  b2 0b 2e 62 61 63 6b 69  6e 0d 02 bc 16 49 4e 59  |...backin....INY|
00000790  3a 43 50 59 23 30 3a 42  4e 45 6c 6f 6f 70 32 0d  |:CPY#0:BNEloop2.|
000007a0  02 c6 08 2e 65 6e 64 0d  02 d0 07 52 54 53 0d 02  |....end....RTS..|
000007b0  da 1c 2e 63 6f 6c 6f 75  72 31 20 4c 44 41 23 32  |...colour1 LDA#2|
000007c0  3a 4a 4d 50 63 68 61 6e  67 65 0d 02 e4 12 2e 63  |:JMPchange.....c|
000007d0  6f 6c 6f 75 72 32 20 4c  44 41 23 33 0d 02 ee 1f  |olour2 LDA#3....|
000007e0  2e 63 68 61 6e 67 65 20  54 41 58 3a 4c 44 41 23  |.change TAX:LDA#|
000007f0  31 37 3a 4a 53 52 26 46  46 45 45 0d 02 f8 18 20  |17:JSR&FFEE.... |
00000800  20 20 20 20 20 20 20 54  58 41 3a 4a 53 52 26 46  |       TXA:JSR&F|
00000810  46 45 45 0d 03 02 15 20  20 20 20 20 20 20 20 4a  |FEE....        J|
00000820  4d 50 62 61 63 6b 69 6e  0d 03 0c 05 5d 0d 03 16  |MPbackin....]...|
00000830  05 ed 0d 03 20 05 e1 0d  ff                       |.... ....|
00000839