�5
�23;8202;0;0;0;
�19,3,2;0;
(�28,0,31,19,26
2*LOAD FONTS 0C00
<
�legal
F*LOAD SCREEN 5800
P&�1,1,0,0,0,0,0,0,126,-1,0,-1,126,0
Z'�2,3,0,0,0,1,1,1,90,-20,-20,-2,90,0
d+�3,2,1,1,0,5,10,40,30,-10,-10,-15,127,0
n+�4,131,0,0,0,25,2,-2,110,0,-4,-8,110,80
x
*FX4,2
�*FX16,2
��=0
��:��>200
��28,0,31,19,25,12
��28,0,31,19,26
�!�repton("PLEASE SELECT:",3,1)
��repton("(1) THE GAME",3,3)
�!�repton("(2) THE EDITOR",3,4)
�	*FX15
��
�*FX20,1
�S=�
��S<49 � S>50 �error

�S-49<2


�chose

�

"��error

,�7:�

6��(-129)

@�

J��chose

T�

^�S=50 �edits � �games

h�

r��edits

|$�repton("EDITOR LOADING...",2,3)

��

��

��=&1900:�"EDITOR"

��

���games

�"�repton("GAME LOADING...",3,3)

��

��

��=&1900:�"REPTON1"

��

���repton(A$,X,Y)

��2

��X,Y);

�J%=1��A$
T$=�A$,J%,1)
T%=�(T$)
&�T%<65 � T%>90:�T%:�:�
0
�T%+63
:�:�
D��legal
N�A%=128�159:�23,A%
X�X%=0�7
b�?(X%+&C00+((A%-128)*8))
l�:�
v�
���9��:��8����� ����� ������� �c�L��L��7�8�;�8�'��9��:��7`PAGE=&1900
OLD
ONERRORRUN
*FX200,2
RUN
BASIC

00000000  0d 00 0a 06 eb 35 0d 00  14 13 ef 32 33 3b 38 32  |.....5.....23;82|
00000010  30 32 3b 30 3b 30 3b 30  3b 0d 00 1e 0e ef 31 39  |02;0;0;0;.....19|
00000020  2c 33 2c 32 3b 30 3b 0d  00 28 12 ef 32 38 2c 30  |,3,2;0;..(..28,0|
00000030  2c 33 31 2c 31 39 2c 32  36 0d 00 32 14 2a 4c 4f  |,31,19,26..2.*LO|
00000040  41 44 20 46 4f 4e 54 53  20 30 43 30 30 0d 00 3c  |AD FONTS 0C00..<|
00000050  0a f2 6c 65 67 61 6c 0d  00 46 15 2a 4c 4f 41 44  |..legal..F.*LOAD|
00000060  20 53 43 52 45 45 4e 20  35 38 30 30 0d 00 50 26  | SCREEN 5800..P&|
00000070  e2 31 2c 31 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |.1,1,0,0,0,0,0,0|
00000080  2c 31 32 36 2c 2d 31 2c  30 2c 2d 31 2c 31 32 36  |,126,-1,0,-1,126|
00000090  2c 30 0d 00 5a 27 e2 32  2c 33 2c 30 2c 30 2c 30  |,0..Z'.2,3,0,0,0|
000000a0  2c 31 2c 31 2c 31 2c 39  30 2c 2d 32 30 2c 2d 32  |,1,1,1,90,-20,-2|
000000b0  30 2c 2d 32 2c 39 30 2c  30 0d 00 64 2b e2 33 2c  |0,-2,90,0..d+.3,|
000000c0  32 2c 31 2c 31 2c 30 2c  35 2c 31 30 2c 34 30 2c  |2,1,1,0,5,10,40,|
000000d0  33 30 2c 2d 31 30 2c 2d  31 30 2c 2d 31 35 2c 31  |30,-10,-10,-15,1|
000000e0  32 37 2c 30 0d 00 6e 2b  e2 34 2c 31 33 31 2c 30  |27,0..n+.4,131,0|
000000f0  2c 30 2c 30 2c 32 35 2c  32 2c 2d 32 2c 31 31 30  |,0,0,25,2,-2,110|
00000100  2c 30 2c 2d 34 2c 2d 38  2c 31 31 30 2c 38 30 0d  |,0,-4,-8,110,80.|
00000110  00 78 0a 2a 46 58 34 2c  32 0d 00 82 0b 2a 46 58  |.x.*FX4,2....*FX|
00000120  31 36 2c 32 0d 00 8c 07  d1 3d 30 0d 00 96 0c f5  |16,2.....=0.....|
00000130  3a fd 91 3e 32 30 30 0d  00 a0 15 ef 32 38 2c 30  |:..>200.....28,0|
00000140  2c 33 31 2c 31 39 2c 32  35 2c 31 32 0d 00 aa 12  |,31,19,25,12....|
00000150  ef 32 38 2c 30 2c 33 31  2c 31 39 2c 32 36 0d 00  |.28,0,31,19,26..|
00000160  b4 21 f2 72 65 70 74 6f  6e 28 22 50 4c 45 41 53  |.!.repton("PLEAS|
00000170  45 20 53 45 4c 45 43 54  3a 22 2c 33 2c 31 29 0d  |E SELECT:",3,1).|
00000180  00 be 1f f2 72 65 70 74  6f 6e 28 22 28 31 29 20  |....repton("(1) |
00000190  54 48 45 20 47 41 4d 45  22 2c 33 2c 33 29 0d 00  |THE GAME",3,3)..|
000001a0  c8 21 f2 72 65 70 74 6f  6e 28 22 28 32 29 20 54  |.!.repton("(2) T|
000001b0  48 45 20 45 44 49 54 4f  52 22 2c 33 2c 34 29 0d  |HE EDITOR",3,4).|
000001c0  00 d2 09 2a 46 58 31 35  0d 00 dc 05 f5 0d 00 e6  |...*FX15........|
000001d0  0b 2a 46 58 32 30 2c 31  0d 00 f0 07 53 3d a5 0d  |.*FX20,1....S=..|
000001e0  00 fa 17 e7 53 3c 34 39  20 84 20 53 3e 35 30 20  |....S<49 . S>50 |
000001f0  f2 65 72 72 6f 72 0d 01  04 0b fd 53 2d 34 39 3c  |.error.....S-49<|
00000200  32 0d 01 0e 0a f2 63 68  6f 73 65 0d 01 18 05 e0  |2.....chose.....|
00000210  0d 01 22 0b dd f2 65 72  72 6f 72 0d 01 2c 08 ef  |.."...error..,..|
00000220  37 3a f5 0d 01 36 0c fd  a6 28 2d 31 32 39 29 0d  |7:...6...(-129).|
00000230  01 40 05 e1 0d 01 4a 0b  dd f2 63 68 6f 73 65 0d  |.@....J...chose.|
00000240  01 54 05 db 0d 01 5e 19  e7 53 3d 35 30 20 f2 65  |.T....^..S=50 .e|
00000250  64 69 74 73 20 8b 20 f2  67 61 6d 65 73 0d 01 68  |dits . .games..h|
00000260  05 e1 0d 01 72 0b dd f2  65 64 69 74 73 0d 01 7c  |....r...edits..||
00000270  24 f2 72 65 70 74 6f 6e  28 22 45 44 49 54 4f 52  |$.repton("EDITOR|
00000280  20 4c 4f 41 44 49 4e 47  2e 2e 2e 22 2c 32 2c 33  | LOADING...",2,3|
00000290  29 0d 01 86 05 f1 0d 01  90 05 f1 0d 01 9a 15 d0  |)...............|
000002a0  3d 26 31 39 30 30 3a d7  22 45 44 49 54 4f 52 22  |=&1900:."EDITOR"|
000002b0  0d 01 a4 05 e1 0d 01 ae  0b dd f2 67 61 6d 65 73  |...........games|
000002c0  0d 01 b8 22 f2 72 65 70  74 6f 6e 28 22 47 41 4d  |...".repton("GAM|
000002d0  45 20 4c 4f 41 44 49 4e  47 2e 2e 2e 22 2c 33 2c  |E LOADING...",3,|
000002e0  33 29 0d 01 c2 05 f1 0d  01 cc 05 f1 0d 01 d6 16  |3)..............|
000002f0  d0 3d 26 31 39 30 30 3a  d7 22 52 45 50 54 4f 4e  |.=&1900:."REPTON|
00000300  31 22 0d 01 e0 05 e1 0d  01 ea 14 dd f2 72 65 70  |1"...........rep|
00000310  74 6f 6e 28 41 24 2c 58  2c 59 29 0d 01 f4 06 fb  |ton(A$,X,Y).....|
00000320  32 0d 01 fe 0b f1 8a 58  2c 59 29 3b 0d 02 08 0d  |2......X,Y);....|
00000330  e3 4a 25 3d 31 b8 a9 41  24 0d 02 12 10 54 24 3d  |.J%=1..A$....T$=|
00000340  c1 41 24 2c 4a 25 2c 31  29 0d 02 1c 0c 54 25 3d  |.A$,J%,1)....T%=|
00000350  97 28 54 24 29 0d 02 26  1a e7 54 25 3c 36 35 20  |.(T$)..&..T%<65 |
00000360  84 20 54 25 3e 39 30 3a  ef 54 25 3a ed 3a e1 0d  |. T%>90:.T%:.:..|
00000370  02 30 0a ef 54 25 2b 36  33 0d 02 3a 07 ed 3a e1  |.0..T%+63..:..:.|
00000380  0d 02 44 0b dd f2 6c 65  67 61 6c 0d 02 4e 16 e3  |..D...legal..N..|
00000390  41 25 3d 31 32 38 b8 31  35 39 3a ef 32 33 2c 41  |A%=128.159:.23,A|
000003a0  25 0d 02 58 0b e3 58 25  3d 30 b8 37 0d 02 62 1c  |%..X..X%=0.7..b.|
000003b0  ef 3f 28 58 25 2b 26 43  30 30 2b 28 28 41 25 2d  |.?(X%+&C00+((A%-|
000003c0  31 32 38 29 2a 38 29 29  0d 02 6c 07 ed 3a ed 0d  |128)*8))..l..:..|
000003d0  02 76 05 e1 0d ff ad 10  02 8d 39 1d ad 11 02 8d  |.v........9.....|
000003e0  3a 1d a9 00 8d 38 1d a9  16 8d 10 02 a9 1d 8d 11  |:....8..........|
000003f0  02 a9 15 20 ee ff a9 81  a2 00 a0 ff 20 f4 ff e0  |... ........ ...|
00000400  00 f0 10 a9 b4 a2 19 a0  00 20 f4 ff a2 63 a0 1d  |......... ...c..|
00000410  4c f7 ff 4c 00 80 8e 37  1d ae 38 1d bd 3b 1d ee  |L..L...7..8..;..|
00000420  38 1d e0 27 d0 0c ae 39  1d 8e 10 02 ae 3a 1d 8e  |8..'...9.....:..|
00000430  11 02 ae 37 1d 18 60 00  00 00 00 50 41 47 45 3d  |...7..`....PAGE=|
00000440  26 31 39 30 30 0d 4f 4c  44 0d 4f 4e 45 52 52 4f  |&1900.OLD.ONERRO|
00000450  52 52 55 4e 0d 2a 46 58  32 30 30 2c 32 0d 52 55  |RRUN.*FX200,2.RU|
00000460  4e 06 0d 42 41 53 49 43  0d                       |N..BASIC.|
00000469