��1
� �11,1)"MORNINGTON CRESCENT"
��28,0,31,39,3
P� IF FORCED TO USE A MONO TV/MONITOR USE THE REM'D OUT VDU IN THE LINE BELOW
#�19,1,1,0,0,0:� VDU19,1,6,0,0,0
�19,0,4,0,0,0
$
�129:�0:�
.�28,0,32,38,6
8�'"THE RULES ARE SIMPLE."
B/�'"Get to MORNINGTON CRESCENT by moving up"
L.�"to four stations  in the same direction"
V.�"as the previous move  OR  any direction"
`.�"on a new line from a junction stop.    "
j/�'"You are allowed one error per move.    "
t,�'"Illiterate tykes are treated gently."
~/�'"Station  names are as on the tube  map,"
�.�"except  those  spelled  differently  on"
�"�"the version you are using."'
�)�'"      BEWARE NORTH OF WEALDSTONE"'
��'"Easy or what?"'
�	�_INT
��
�I%=1
�Z%=4
�
WHO%=0
�!�"Should I play by myself ?";
�A$=�
��
D� A$="Y" � � "OK I will be YOU":Q%=2:WHO%=1:A$="N":� �ThE � Q%=1

$�"Do you want to start (Y/N) ?";

A$=�:�
;� A$="Y" � �(10)>5 � �"TUFF ... I'm going first":A$="N"
(� A$="Y" � �_YFM � �_FMOVE
2CDIR%=0
<CS%=MS%
F�
PG� CLINE%<>0 � �"Travelling ";D$(CDIR%);" the ";L$(CLINE%);" line:-"
Z?� WHO% � �"You move to "; � �"I move to "; � �"I MOVE TO ";
d
� S$(CS%)
n�
x� WHO% � �_CMOVE � �_YMOVE
�WHO%=WHO% � Q%
�I%=I%+1
�� CS%=13
��"Mornington Crescent "
�,� WHO% � � "YOU WIN !!!" � � "I WIN !!!"
��"Want another game ?"
�A$=�
�� A$="N"
��6
�2�0,10)"I don't blame you I'm so much better" 
��
�� �_MOVE(FH%)
�� A%,T%,TLINE%,TDIR%
S%=1
�_WIND(FH%)
A%=1
"� T%
,� (T% � &8000)<>0 � �DTF
6TRAVD%(A%)=T%
@A%=A%+1
J
� �TbF
Tc� A%=2 � �_REC(TRAVD%(1)):�_TRAVLE(TRAVD%(1) � 511,Z%,(TRAVD%(1) � 512) � 1,TRAVD%(1) � 1024):�
^�"Testing moves :-"
h� T%=1 � A%-1
r TDIR%=(TRAVD%(T%) � 512) � 1
|TLINE%=TRAVD%(T%) � 1024
�)� TLINE%=CLINE% � TDIR%<>CDIR% � �tnF
�6� �(13);D$(TDIR%);" the ";L$(TLINE%);" Line";�(8);
��_REC(TRAVD%(T%))
�0�_TRAVLE((TRAVD%(T%) � 511),Z%,TDIR%,TLINE%)
��
�� �(13);�(11);�(38)
�� �(38);�(13);�(11);
��
�
� �_YMOVE
�
TRY%=2
��"Where to now? "SM$
��_SFIND(SM$)
�S� TRY%<1 � �' "YOU LOSE by failing to make a valid move":CS%=13:WHO%=WHO% � 1:�
)� MS%=0 � �"Concentrate Bozo!":� �djF
K� MS%=?(W%+�($W%)) � ((I% � 2) � 1) � �'"BRILLIANT"':CS%=?(W%+�($W%)):�
�_VALID(MS%)
&� MS%=0 � TRY%=TRY%-1
0� TRY%<1 �d~F
:>� MS%=0 �'"THAT IS NOT A LEGAL MOVE! TRY ONCE MORE"':�djF
DCS%=MS% � 511
NCLINE%=MS% � 1024
XCDIR%=(MS% � 512) � 1
b� �(11);�(38);�(13);
l�
v � �_VALID(TS%)
��_MOVE(CS%)
�� A%
�	MS%=0
�� A%=1 � S%-1
�%� TS%=(S%(A%) � 511) � MS%=S%(A%)
��
�1� (CS%=38 � CS%=39 � CS%=40) � TS%=&D � MS%=0
��
�
� �_CMOVE
�� T%
��_MOVE(CS%)
�� A%=1 � S%-1
� � (S%(A%) � 511)=13 � MS%=13
�
%� MS%=13 � CS%<(14+Z%) � CS%=13:�
� S%>2 � T%=�(S%-1) � T%=1
 CS%=S%(T%) � 511
*CDIR%=(S%(T%) � 512) � 1
4CLINE%=S%(T%) � 1024
>�
H'� �_TRAVLE(TS%,DEPTH%,CDIR%,CLINE%)
R� MARK%,TEMPS%,T%
\
TEMPS%=S%
fMARK%=S%
pDEPTH%=DEPTH%-1
z� DEPTH%=0 � �
��_WIND(TS%)
�� T%
�� (T% � &8000) <> 0 � �tvH
�O� (((T% � 512) � 1)=CDIR%) � ((T% � 1024)=CLINE%) � �_REC(T%):MARK%=MARK%+1
�	�tNH
�� MARK%=TEMPS% � �
�5�_TRAVLE((S%(MARK%-1) � 511),DEPTH%,CDIR%,CLINE%)
�MARK%=MARK%-1
�	�tvH
�� �_YFM
��
�)�"OK where do you want to start ",SS$
��_SFIND(SS$)
	� MS%<>0
	
WHO%=1
	CLINE%=0
	$�
	.� �_SFIND(SS$)
	8� A%
	B	MS%=0
	L�
	V
MS%=MS%+1
	`� MS%=N% � S$(MS%)=SS$
	j� MS%<>N% � �
	t%�"Your station is not on my list"
	~#�"Is it one of the following? "
	�!� �(SS$)>4 � F%=4 � F%=�(SS$)
	��
	�P$=�SS$,F%)
	�B%=1
	�� A%=1 � N%
	�� �S$(A%),F%)<>P$ � �dbI
	�� �(B%);") ";S$(A%)
	�
S%(B%)=A%
	�B%=B%+1
	��
	�F%=F%-1
	�� F%=0 � B%<>1
 � �(B%);") ";"NONE OF THESE"

�
�"WHICH NUMBER ",MS%

� MS%<=B%
("� MS%=B% � MS%=0 � MS%=S%(MS%)
2�
<� �_INT
F
� �trG
P
N%=277
ZW%=3200
d+� S$(N%),S%(60),L$(15),TRAVD%(10),D$(1)
n� A%=1 � N%-1
x� S$(A%)
��
�
� �DhK
�� A%=1 � 15
�� L$(A%)
��
�� D$(0),D$(1)
��
�� �_WIND(SN%)
�� T%
�
� �tlH
�SN%=SN% � &8000
��
�� T%
� T%=SN%
�
� �_REC(T%)
"
S%(S%)=T%
,S%=S%+1
6�
@
� �_FMOVE
JMS%=�(N%-1)
TCLINE%=0
^�
h�� Northern,District,Piccadilly,Metropolitan,Central,Central,Circle,Bakerloo,Victoria,Jubilee,Waterloo & City,Escalator Link,Highbury Branch,East London,Piccadilly
r
� UP,DOWN
�

00000000  0d 03 e8 06 eb 31 0d 03  f2 20 f1 8a 31 31 2c 31  |.....1... ..11,1|
00000010  29 22 4d 4f 52 4e 49 4e  47 54 4f 4e 20 43 52 45  |)"MORNINGTON CRE|
00000020  53 43 45 4e 54 22 0d 03  fc 11 ef 32 38 2c 30 2c  |SCENT".....28,0,|
00000030  33 31 2c 33 39 2c 33 0d  04 06 50 f4 20 49 46 20  |31,39,3...P. IF |
00000040  46 4f 52 43 45 44 20 54  4f 20 55 53 45 20 41 20  |FORCED TO USE A |
00000050  4d 4f 4e 4f 20 54 56 2f  4d 4f 4e 49 54 4f 52 20  |MONO TV/MONITOR |
00000060  55 53 45 20 54 48 45 20  52 45 4d 27 44 20 4f 55  |USE THE REM'D OU|
00000070  54 20 56 44 55 20 49 4e  20 54 48 45 20 4c 49 4e  |T VDU IN THE LIN|
00000080  45 20 42 45 4c 4f 57 0d  04 10 23 ef 31 39 2c 31  |E BELOW...#.19,1|
00000090  2c 31 2c 30 2c 30 2c 30  3a f4 20 56 44 55 31 39  |,1,0,0,0:. VDU19|
000000a0  2c 31 2c 36 2c 30 2c 30  2c 30 0d 04 1a 11 ef 31  |,1,6,0,0,0.....1|
000000b0  39 2c 30 2c 34 2c 30 2c  30 2c 30 0d 04 24 0d fb  |9,0,4,0,0,0..$..|
000000c0  31 32 39 3a fb 30 3a db  0d 04 2e 11 ef 32 38 2c  |129:.0:......28,|
000000d0  30 2c 33 32 2c 33 38 2c  36 0d 04 38 1d f1 27 22  |0,32,38,6..8..'"|
000000e0  54 48 45 20 52 55 4c 45  53 20 41 52 45 20 53 49  |THE RULES ARE SI|
000000f0  4d 50 4c 45 2e 22 0d 04  42 2f f1 27 22 47 65 74  |MPLE."..B/.'"Get|
00000100  20 74 6f 20 4d 4f 52 4e  49 4e 47 54 4f 4e 20 43  | to MORNINGTON C|
00000110  52 45 53 43 45 4e 54 20  62 79 20 6d 6f 76 69 6e  |RESCENT by movin|
00000120  67 20 75 70 22 0d 04 4c  2e f1 22 74 6f 20 66 6f  |g up"..L.."to fo|
00000130  75 72 20 73 74 61 74 69  6f 6e 73 20 20 69 6e 20  |ur stations  in |
00000140  74 68 65 20 73 61 6d 65  20 64 69 72 65 63 74 69  |the same directi|
00000150  6f 6e 22 0d 04 56 2e f1  22 61 73 20 74 68 65 20  |on"..V.."as the |
00000160  70 72 65 76 69 6f 75 73  20 6d 6f 76 65 20 20 4f  |previous move  O|
00000170  52 20 20 61 6e 79 20 64  69 72 65 63 74 69 6f 6e  |R  any direction|
00000180  22 0d 04 60 2e f1 22 6f  6e 20 61 20 6e 65 77 20  |"..`.."on a new |
00000190  6c 69 6e 65 20 66 72 6f  6d 20 61 20 6a 75 6e 63  |line from a junc|
000001a0  74 69 6f 6e 20 73 74 6f  70 2e 20 20 20 20 22 0d  |tion stop.    ".|
000001b0  04 6a 2f f1 27 22 59 6f  75 20 61 72 65 20 61 6c  |.j/.'"You are al|
000001c0  6c 6f 77 65 64 20 6f 6e  65 20 65 72 72 6f 72 20  |lowed one error |
000001d0  70 65 72 20 6d 6f 76 65  2e 20 20 20 20 22 0d 04  |per move.    "..|
000001e0  74 2c f1 27 22 49 6c 6c  69 74 65 72 61 74 65 20  |t,.'"Illiterate |
000001f0  74 79 6b 65 73 20 61 72  65 20 74 72 65 61 74 65  |tykes are treate|
00000200  64 20 67 65 6e 74 6c 79  2e 22 0d 04 7e 2f f1 27  |d gently."..~/.'|
00000210  22 53 74 61 74 69 6f 6e  20 20 6e 61 6d 65 73 20  |"Station  names |
00000220  61 72 65 20 61 73 20 6f  6e 20 74 68 65 20 74 75  |are as on the tu|
00000230  62 65 20 20 6d 61 70 2c  22 0d 04 88 2e f1 22 65  |be  map,"....."e|
00000240  78 63 65 70 74 20 20 74  68 6f 73 65 20 20 73 70  |xcept  those  sp|
00000250  65 6c 6c 65 64 20 20 64  69 66 66 65 72 65 6e 74  |elled  different|
00000260  6c 79 20 20 6f 6e 22 0d  04 92 22 f1 22 74 68 65  |ly  on"..."."the|
00000270  20 76 65 72 73 69 6f 6e  20 79 6f 75 20 61 72 65  | version you are|
00000280  20 75 73 69 6e 67 2e 22  27 0d 04 9c 29 f1 27 22  | using."'...).'"|
00000290  20 20 20 20 20 20 42 45  57 41 52 45 20 4e 4f 52  |      BEWARE NOR|
000002a0  54 48 20 4f 46 20 57 45  41 4c 44 53 54 4f 4e 45  |TH OF WEALDSTONE|
000002b0  22 27 0d 04 a6 16 f1 27  22 45 61 73 79 20 6f 72  |"'.....'"Easy or|
000002c0  20 77 68 61 74 3f 22 27  0d 04 b0 09 f2 5f 49 4e  | what?"'....._IN|
000002d0  54 0d 04 ba 05 f5 0d 04  c4 08 49 25 3d 31 0d 04  |T.........I%=1..|
000002e0  ce 08 5a 25 3d 34 0d 04  d8 0a 57 48 4f 25 3d 30  |..Z%=4....WHO%=0|
000002f0  0d 04 e2 21 f1 22 53 68  6f 75 6c 64 20 49 20 70  |...!."Should I p|
00000300  6c 61 79 20 62 79 20 6d  79 73 65 6c 66 20 3f 22  |lay by myself ?"|
00000310  3b 0d 04 ec 08 41 24 3d  be 0d 04 f6 05 f1 0d 05  |;....A$=........|
00000320  00 44 e7 20 41 24 3d 22  59 22 20 8c 20 f1 20 22  |.D. A$="Y" . . "|
00000330  4f 4b 20 49 20 77 69 6c  6c 20 62 65 20 59 4f 55  |OK I will be YOU|
00000340  22 3a 51 25 3d 32 3a 57  48 4f 25 3d 31 3a 41 24  |":Q%=2:WHO%=1:A$|
00000350  3d 22 4e 22 3a e5 20 8d  54 68 45 20 8b 20 51 25  |="N":. .ThE . Q%|
00000360  3d 31 0d 05 0a 24 f1 22  44 6f 20 79 6f 75 20 77  |=1...$."Do you w|
00000370  61 6e 74 20 74 6f 20 73  74 61 72 74 20 28 59 2f  |ant to start (Y/|
00000380  4e 29 20 3f 22 3b 0d 05  14 0a 41 24 3d be 3a f1  |N) ?";....A$=.:.|
00000390  0d 05 1e 3b e7 20 41 24  3d 22 59 22 20 80 20 b3  |...;. A$="Y" . .|
000003a0  28 31 30 29 3e 35 20 8c  20 f1 22 54 55 46 46 20  |(10)>5 . ."TUFF |
000003b0  2e 2e 2e 20 49 27 6d 20  67 6f 69 6e 67 20 66 69  |... I'm going fi|
000003c0  72 73 74 22 3a 41 24 3d  22 4e 22 0d 05 28 1e e7  |rst":A$="N"..(..|
000003d0  20 41 24 3d 22 59 22 20  8c 20 f2 5f 59 46 4d 20  | A$="Y" . ._YFM |
000003e0  8b 20 f2 5f 46 4d 4f 56  45 0d 05 32 0b 43 44 49  |. ._FMOVE..2.CDI|
000003f0  52 25 3d 30 0d 05 3c 0b  43 53 25 3d 4d 53 25 0d  |R%=0..<.CS%=MS%.|
00000400  05 46 05 f5 0d 05 50 47  e7 20 43 4c 49 4e 45 25  |.F....PG. CLINE%|
00000410  3c 3e 30 20 8c 20 f1 22  54 72 61 76 65 6c 6c 69  |<>0 . ."Travelli|
00000420  6e 67 20 22 3b 44 24 28  43 44 49 52 25 29 3b 22  |ng ";D$(CDIR%);"|
00000430  20 74 68 65 20 22 3b 4c  24 28 43 4c 49 4e 45 25  | the ";L$(CLINE%|
00000440  29 3b 22 20 6c 69 6e 65  3a 2d 22 0d 05 5a 3f e7  |);" line:-"..Z?.|
00000450  20 57 48 4f 25 20 8c 20  f1 22 59 6f 75 20 6d 6f  | WHO% . ."You mo|
00000460  76 65 20 74 6f 20 22 3b  20 8b 20 f1 22 49 20 6d  |ve to "; . ."I m|
00000470  6f 76 65 20 74 6f 20 22  3b 20 8b 20 f1 22 49 20  |ove to "; . ."I |
00000480  4d 4f 56 45 20 54 4f 20  22 3b 0d 05 64 0d f1 20  |MOVE TO ";..d.. |
00000490  53 24 28 43 53 25 29 0d  05 6e 05 f1 0d 05 78 1e  |S$(CS%)..n....x.|
000004a0  e7 20 57 48 4f 25 20 8c  20 f2 5f 43 4d 4f 56 45  |. WHO% . ._CMOVE|
000004b0  20 8b 20 f2 5f 59 4d 4f  56 45 0d 05 82 12 57 48  | . ._YMOVE....WH|
000004c0  4f 25 3d 57 48 4f 25 20  82 20 51 25 0d 05 8c 0b  |O%=WHO% . Q%....|
000004d0  49 25 3d 49 25 2b 31 0d  05 96 0c fd 20 43 53 25  |I%=I%+1..... CS%|
000004e0  3d 31 33 0d 05 a0 1b f1  22 4d 6f 72 6e 69 6e 67  |=13....."Morning|
000004f0  74 6f 6e 20 43 72 65 73  63 65 6e 74 20 22 0d 05  |ton Crescent "..|
00000500  aa 2c e7 20 57 48 4f 25  20 8c 20 f1 20 22 59 4f  |.,. WHO% . . "YO|
00000510  55 20 57 49 4e 20 21 21  21 22 20 8b 20 f1 20 22  |U WIN !!!" . . "|
00000520  49 20 57 49 4e 20 21 21  21 22 0d 05 b4 1a f1 22  |I WIN !!!"....."|
00000530  57 61 6e 74 20 61 6e 6f  74 68 65 72 20 67 61 6d  |Want another gam|
00000540  65 20 3f 22 0d 05 be 08  41 24 3d be 0d 05 c8 0c  |e ?"....A$=.....|
00000550  fd 20 41 24 3d 22 4e 22  0d 05 d2 06 eb 36 0d 05  |. A$="N".....6..|
00000560  dc 32 f1 8a 30 2c 31 30  29 22 49 20 64 6f 6e 27  |.2..0,10)"I don'|
00000570  74 20 62 6c 61 6d 65 20  79 6f 75 20 49 27 6d 20  |t blame you I'm |
00000580  73 6f 20 6d 75 63 68 20  62 65 74 74 65 72 22 20  |so much better" |
00000590  0d 05 e6 05 e0 0d 05 f0  11 dd 20 f2 5f 4d 4f 56  |.......... ._MOV|
000005a0  45 28 46 48 25 29 0d 05  fa 18 ea 20 41 25 2c 54  |E(FH%)..... A%,T|
000005b0  25 2c 54 4c 49 4e 45 25  2c 54 44 49 52 25 0d 06  |%,TLINE%,TDIR%..|
000005c0  04 08 53 25 3d 31 0d 06  0e 0f f2 5f 57 49 4e 44  |..S%=1....._WIND|
000005d0  28 46 48 25 29 0d 06 18  08 41 25 3d 31 0d 06 22  |(FH%)....A%=1.."|
000005e0  08 f3 20 54 25 0d 06 2c  1c e7 20 28 54 25 20 80  |.. T%..,.. (T% .|
000005f0  20 26 38 30 30 30 29 3c  3e 30 20 8c 20 8d 44 54  | &8000)<>0 . .DT|
00000600  46 0d 06 36 11 54 52 41  56 44 25 28 41 25 29 3d  |F..6.TRAVD%(A%)=|
00000610  54 25 0d 06 40 0b 41 25  3d 41 25 2b 31 0d 06 4a  |T%..@.A%=A%+1..J|
00000620  0a e5 20 8d 54 62 46 0d  06 54 63 e7 20 41 25 3d  |.. .TbF..Tc. A%=|
00000630  32 20 8c 20 f2 5f 52 45  43 28 54 52 41 56 44 25  |2 . ._REC(TRAVD%|
00000640  28 31 29 29 3a f2 5f 54  52 41 56 4c 45 28 54 52  |(1)):._TRAVLE(TR|
00000650  41 56 44 25 28 31 29 20  80 20 35 31 31 2c 5a 25  |AVD%(1) . 511,Z%|
00000660  2c 28 54 52 41 56 44 25  28 31 29 20 81 20 35 31  |,(TRAVD%(1) . 51|
00000670  32 29 20 80 20 31 2c 54  52 41 56 44 25 28 31 29  |2) . 1,TRAVD%(1)|
00000680  20 81 20 31 30 32 34 29  3a e1 0d 06 5e 17 f1 22  | . 1024):...^.."|
00000690  54 65 73 74 69 6e 67 20  6d 6f 76 65 73 20 3a 2d  |Testing moves :-|
000006a0  22 0d 06 68 11 e3 20 54  25 3d 31 20 b8 20 41 25  |"..h.. T%=1 . A%|
000006b0  2d 31 0d 06 72 20 54 44  49 52 25 3d 28 54 52 41  |-1..r TDIR%=(TRA|
000006c0  56 44 25 28 54 25 29 20  81 20 35 31 32 29 20 80  |VD%(T%) . 512) .|
000006d0  20 31 0d 06 7c 1c 54 4c  49 4e 45 25 3d 54 52 41  | 1..|.TLINE%=TRA|
000006e0  56 44 25 28 54 25 29 20  81 20 31 30 32 34 0d 06  |VD%(T%) . 1024..|
000006f0  86 29 e7 20 54 4c 49 4e  45 25 3d 43 4c 49 4e 45  |.). TLINE%=CLINE|
00000700  25 20 80 20 54 44 49 52  25 3c 3e 43 44 49 52 25  |% . TDIR%<>CDIR%|
00000710  20 8c 20 8d 74 6e 46 0d  06 90 36 f1 20 bd 28 31  | . .tnF...6. .(1|
00000720  33 29 3b 44 24 28 54 44  49 52 25 29 3b 22 20 74  |3);D$(TDIR%);" t|
00000730  68 65 20 22 3b 4c 24 28  54 4c 49 4e 45 25 29 3b  |he ";L$(TLINE%);|
00000740  22 20 4c 69 6e 65 22 3b  89 28 38 29 3b 0d 06 9a  |" Line";.(8);...|
00000750  15 f2 5f 52 45 43 28 54  52 41 56 44 25 28 54 25  |.._REC(TRAVD%(T%|
00000760  29 29 0d 06 a4 30 f2 5f  54 52 41 56 4c 45 28 28  |))...0._TRAVLE((|
00000770  54 52 41 56 44 25 28 54  25 29 20 80 20 35 31 31  |TRAVD%(T%) . 511|
00000780  29 2c 5a 25 2c 54 44 49  52 25 2c 54 4c 49 4e 45  |),Z%,TDIR%,TLINE|
00000790  25 29 0d 06 ae 05 ed 0d  06 b8 17 f1 20 bd 28 31  |%).......... .(1|
000007a0  33 29 3b bd 28 31 31 29  3b 89 28 33 38 29 0d 06  |3);.(11);.(38)..|
000007b0  c2 18 f1 20 89 28 33 38  29 3b bd 28 31 33 29 3b  |... .(38);.(13);|
000007c0  bd 28 31 31 29 3b 0d 06  cc 05 e1 0d 06 d6 0d dd  |.(11);..........|
000007d0  20 f2 5f 59 4d 4f 56 45  0d 06 e0 0a 54 52 59 25  | ._YMOVE....TRY%|
000007e0  3d 32 0d 06 ea 18 e8 22  57 68 65 72 65 20 74 6f  |=2....."Where to|
000007f0  20 6e 6f 77 3f 20 22 53  4d 24 0d 06 f4 10 f2 5f  | now? "SM$....._|
00000800  53 46 49 4e 44 28 53 4d  24 29 0d 06 fe 53 e7 20  |SFIND(SM$)...S. |
00000810  54 52 59 25 3c 31 20 8c  20 f1 27 20 22 59 4f 55  |TRY%<1 . .' "YOU|
00000820  20 4c 4f 53 45 20 62 79  20 66 61 69 6c 69 6e 67  | LOSE by failing|
00000830  20 74 6f 20 6d 61 6b 65  20 61 20 76 61 6c 69 64  | to make a valid|
00000840  20 6d 6f 76 65 22 3a 43  53 25 3d 31 33 3a 57 48  | move":CS%=13:WH|
00000850  4f 25 3d 57 48 4f 25 20  82 20 31 3a e1 0d 07 08  |O%=WHO% . 1:....|
00000860  29 e7 20 4d 53 25 3d 30  20 8c 20 f1 22 43 6f 6e  |). MS%=0 . ."Con|
00000870  63 65 6e 74 72 61 74 65  20 42 6f 7a 6f 21 22 3a  |centrate Bozo!":|
00000880  e5 20 8d 64 6a 46 0d 07  12 4b e7 20 4d 53 25 3d  |. .djF...K. MS%=|
00000890  3f 28 57 25 2b a9 28 24  57 25 29 29 20 80 20 28  |?(W%+.($W%)) . (|
000008a0  28 49 25 20 81 20 32 29  20 80 20 31 29 20 8c 20  |(I% . 2) . 1) . |
000008b0  f1 27 22 42 52 49 4c 4c  49 41 4e 54 22 27 3a 43  |.'"BRILLIANT"':C|
000008c0  53 25 3d 3f 28 57 25 2b  a9 28 24 57 25 29 29 3a  |S%=?(W%+.($W%)):|
000008d0  e1 0d 07 1c 10 f2 5f 56  41 4c 49 44 28 4d 53 25  |......_VALID(MS%|
000008e0  29 0d 07 26 19 e7 20 4d  53 25 3d 30 20 8c 20 54  |)..&.. MS%=0 . T|
000008f0  52 59 25 3d 54 52 59 25  2d 31 0d 07 30 12 e7 20  |RY%=TRY%-1..0.. |
00000900  54 52 59 25 3c 31 20 e5  8d 64 7e 46 0d 07 3a 3e  |TRY%<1 ..d~F..:>|
00000910  e7 20 4d 53 25 3d 30 20  f1 27 22 54 48 41 54 20  |. MS%=0 .'"THAT |
00000920  49 53 20 4e 4f 54 20 41  20 4c 45 47 41 4c 20 4d  |IS NOT A LEGAL M|
00000930  4f 56 45 21 20 54 52 59  20 4f 4e 43 45 20 4d 4f  |OVE! TRY ONCE MO|
00000940  52 45 22 27 3a e5 8d 64  6a 46 0d 07 44 11 43 53  |RE"':..djF..D.CS|
00000950  25 3d 4d 53 25 20 80 20  35 31 31 0d 07 4e 15 43  |%=MS% . 511..N.C|
00000960  4c 49 4e 45 25 3d 4d 53  25 20 81 20 31 30 32 34  |LINE%=MS% . 1024|
00000970  0d 07 58 19 43 44 49 52  25 3d 28 4d 53 25 20 81  |..X.CDIR%=(MS% .|
00000980  20 35 31 32 29 20 80 20  31 0d 07 62 18 f1 20 bd  | 512) . 1..b.. .|
00000990  28 31 31 29 3b 89 28 33  38 29 3b bd 28 31 33 29  |(11);.(38);.(13)|
000009a0  3b 0d 07 6c 05 e1 0d 07  76 13 20 dd 20 f2 5f 56  |;..l....v. . ._V|
000009b0  41 4c 49 44 28 54 53 25  29 0d 07 80 0f f2 5f 4d  |ALID(TS%)....._M|
000009c0  4f 56 45 28 43 53 25 29  0d 07 8a 08 ea 20 41 25  |OVE(CS%)..... A%|
000009d0  0d 07 94 09 4d 53 25 3d  30 0d 07 9e 11 e3 20 41  |....MS%=0..... A|
000009e0  25 3d 31 20 b8 20 53 25  2d 31 0d 07 a8 25 e7 20  |%=1 . S%-1...%. |
000009f0  54 53 25 3d 28 53 25 28  41 25 29 20 80 20 35 31  |TS%=(S%(A%) . 51|
00000a00  31 29 20 8c 20 4d 53 25  3d 53 25 28 41 25 29 0d  |1) . MS%=S%(A%).|
00000a10  07 b2 05 ed 0d 07 bc 31  e7 20 28 43 53 25 3d 33  |.......1. (CS%=3|
00000a20  38 20 84 20 43 53 25 3d  33 39 20 84 20 43 53 25  |8 . CS%=39 . CS%|
00000a30  3d 34 30 29 20 80 20 54  53 25 3d 26 44 20 8c 20  |=40) . TS%=&D . |
00000a40  4d 53 25 3d 30 0d 07 c6  05 e1 0d 07 d0 0d dd 20  |MS%=0.......... |
00000a50  f2 5f 43 4d 4f 56 45 0d  07 da 08 ea 20 54 25 0d  |._CMOVE..... T%.|
00000a60  07 e4 0f f2 5f 4d 4f 56  45 28 43 53 25 29 0d 07  |...._MOVE(CS%)..|
00000a70  ee 11 e3 20 41 25 3d 31  20 b8 20 53 25 2d 31 0d  |... A%=1 . S%-1.|
00000a80  07 f8 20 e7 20 28 53 25  28 41 25 29 20 80 20 35  |.. . (S%(A%) . 5|
00000a90  31 31 29 3d 31 33 20 8c  20 4d 53 25 3d 31 33 0d  |11)=13 . MS%=13.|
00000aa0  08 02 05 ed 0d 08 0c 25  e7 20 4d 53 25 3d 31 33  |.......%. MS%=13|
00000ab0  20 80 20 43 53 25 3c 28  31 34 2b 5a 25 29 20 8c  | . CS%<(14+Z%) .|
00000ac0  20 43 53 25 3d 31 33 3a  e1 0d 08 16 1e e7 20 53  | CS%=13:...... S|
00000ad0  25 3e 32 20 8c 20 54 25  3d b3 28 53 25 2d 31 29  |%>2 . T%=.(S%-1)|
00000ae0  20 8b 20 54 25 3d 31 0d  08 20 14 43 53 25 3d 53  | . T%=1.. .CS%=S|
00000af0  25 28 54 25 29 20 80 20  35 31 31 0d 08 2a 1c 43  |%(T%) . 511..*.C|
00000b00  44 49 52 25 3d 28 53 25  28 54 25 29 20 81 20 35  |DIR%=(S%(T%) . 5|
00000b10  31 32 29 20 80 20 31 0d  08 34 18 43 4c 49 4e 45  |12) . 1..4.CLINE|
00000b20  25 3d 53 25 28 54 25 29  20 81 20 31 30 32 34 0d  |%=S%(T%) . 1024.|
00000b30  08 3e 05 e1 0d 08 48 27  dd 20 f2 5f 54 52 41 56  |.>....H'. ._TRAV|
00000b40  4c 45 28 54 53 25 2c 44  45 50 54 48 25 2c 43 44  |LE(TS%,DEPTH%,CD|
00000b50  49 52 25 2c 43 4c 49 4e  45 25 29 0d 08 52 15 ea  |IR%,CLINE%)..R..|
00000b60  20 4d 41 52 4b 25 2c 54  45 4d 50 53 25 2c 54 25  | MARK%,TEMPS%,T%|
00000b70  0d 08 5c 0d 54 45 4d 50  53 25 3d 53 25 0d 08 66  |..\.TEMPS%=S%..f|
00000b80  0c 4d 41 52 4b 25 3d 53  25 0d 08 70 13 44 45 50  |.MARK%=S%..p.DEP|
00000b90  54 48 25 3d 44 45 50 54  48 25 2d 31 0d 08 7a 12  |TH%=DEPTH%-1..z.|
00000ba0  e7 20 44 45 50 54 48 25  3d 30 20 8c 20 e1 0d 08  |. DEPTH%=0 . ...|
00000bb0  84 0f f2 5f 57 49 4e 44  28 54 53 25 29 0d 08 8e  |..._WIND(TS%)...|
00000bc0  08 f3 20 54 25 0d 08 98  1e e7 20 28 54 25 20 80  |.. T%..... (T% .|
00000bd0  20 26 38 30 30 30 29 20  3c 3e 20 30 20 8c 20 8d  | &8000) <> 0 . .|
00000be0  74 76 48 0d 08 a2 4f e7  20 28 28 28 54 25 20 81  |tvH...O. (((T% .|
00000bf0  20 35 31 32 29 20 80 20  31 29 3d 43 44 49 52 25  | 512) . 1)=CDIR%|
00000c00  29 20 80 20 28 28 54 25  20 81 20 31 30 32 34 29  |) . ((T% . 1024)|
00000c10  3d 43 4c 49 4e 45 25 29  20 8c 20 f2 5f 52 45 43  |=CLINE%) . ._REC|
00000c20  28 54 25 29 3a 4d 41 52  4b 25 3d 4d 41 52 4b 25  |(T%):MARK%=MARK%|
00000c30  2b 31 0d 08 ac 09 e5 8d  74 4e 48 0d 08 b6 16 e7  |+1......tNH.....|
00000c40  20 4d 41 52 4b 25 3d 54  45 4d 50 53 25 20 8c 20  | MARK%=TEMPS% . |
00000c50  e1 0d 08 c0 35 f2 5f 54  52 41 56 4c 45 28 28 53  |....5._TRAVLE((S|
00000c60  25 28 4d 41 52 4b 25 2d  31 29 20 80 20 35 31 31  |%(MARK%-1) . 511|
00000c70  29 2c 44 45 50 54 48 25  2c 43 44 49 52 25 2c 43  |),DEPTH%,CDIR%,C|
00000c80  4c 49 4e 45 25 29 0d 08  ca 11 4d 41 52 4b 25 3d  |LINE%)....MARK%=|
00000c90  4d 41 52 4b 25 2d 31 0d  08 d4 09 e5 8d 74 76 48  |MARK%-1......tvH|
00000ca0  0d 08 de 0b dd 20 f2 5f  59 46 4d 0d 08 e8 05 f5  |..... ._YFM.....|
00000cb0  0d 08 f2 29 e8 22 4f 4b  20 77 68 65 72 65 20 64  |...)."OK where d|
00000cc0  6f 20 79 6f 75 20 77 61  6e 74 20 74 6f 20 73 74  |o you want to st|
00000cd0  61 72 74 20 22 2c 53 53  24 0d 08 fc 10 f2 5f 53  |art ",SS$....._S|
00000ce0  46 49 4e 44 28 53 53 24  29 0d 09 06 0c fd 20 4d  |FIND(SS$)..... M|
00000cf0  53 25 3c 3e 30 0d 09 10  0a 57 48 4f 25 3d 31 0d  |S%<>0....WHO%=1.|
00000d00  09 1a 0c 43 4c 49 4e 45  25 3d 30 0d 09 24 05 e1  |...CLINE%=0..$..|
00000d10  0d 09 2e 12 dd 20 f2 5f  53 46 49 4e 44 28 53 53  |..... ._SFIND(SS|
00000d20  24 29 0d 09 38 08 ea 20  41 25 0d 09 42 09 4d 53  |$)..8.. A%..B.MS|
00000d30  25 3d 30 0d 09 4c 05 f5  0d 09 56 0d 4d 53 25 3d  |%=0..L....V.MS%=|
00000d40  4d 53 25 2b 31 0d 09 60  1a fd 20 4d 53 25 3d 4e  |MS%+1..`.. MS%=N|
00000d50  25 20 84 20 53 24 28 4d  53 25 29 3d 53 53 24 0d  |% . S$(MS%)=SS$.|
00000d60  09 6a 11 e7 20 4d 53 25  3c 3e 4e 25 20 8c 20 e1  |.j.. MS%<>N% . .|
00000d70  0d 09 74 25 f1 22 59 6f  75 72 20 73 74 61 74 69  |..t%."Your stati|
00000d80  6f 6e 20 69 73 20 6e 6f  74 20 6f 6e 20 6d 79 20  |on is not on my |
00000d90  6c 69 73 74 22 0d 09 7e  23 f1 22 49 73 20 69 74  |list"..~#."Is it|
00000da0  20 6f 6e 65 20 6f 66 20  74 68 65 20 66 6f 6c 6c  | one of the foll|
00000db0  6f 77 69 6e 67 3f 20 22  0d 09 88 21 e7 20 a9 28  |owing? "...!. .(|
00000dc0  53 53 24 29 3e 34 20 8c  20 46 25 3d 34 20 8b 20  |SS$)>4 . F%=4 . |
00000dd0  46 25 3d a9 28 53 53 24  29 0d 09 92 05 f5 0d 09  |F%=.(SS$).......|
00000de0  9c 0f 50 24 3d c0 53 53  24 2c 46 25 29 0d 09 a6  |..P$=.SS$,F%)...|
00000df0  08 42 25 3d 31 0d 09 b0  0f e3 20 41 25 3d 31 20  |.B%=1..... A%=1 |
00000e00  b8 20 4e 25 0d 09 ba 1c  e7 20 c0 53 24 28 41 25  |. N%..... .S$(A%|
00000e10  29 2c 46 25 29 3c 3e 50  24 20 8c 20 8d 64 62 49  |),F%)<>P$ . .dbI|
00000e20  0d 09 c4 17 f1 20 c3 28  42 25 29 3b 22 29 20 22  |..... .(B%);") "|
00000e30  3b 53 24 28 41 25 29 0d  09 ce 0d 53 25 28 42 25  |;S$(A%)....S%(B%|
00000e40  29 3d 41 25 0d 09 d8 0b  42 25 3d 42 25 2b 31 0d  |)=A%....B%=B%+1.|
00000e50  09 e2 05 ed 0d 09 ec 0b  46 25 3d 46 25 2d 31 0d  |........F%=F%-1.|
00000e60  09 f6 12 fd 20 46 25 3d  30 20 84 20 42 25 3c 3e  |.... F%=0 . B%<>|
00000e70  31 0d 0a 00 20 f1 20 c3  28 42 25 29 3b 22 29 20  |1... . .(B%);") |
00000e80  22 3b 22 4e 4f 4e 45 20  4f 46 20 54 48 45 53 45  |";"NONE OF THESE|
00000e90  22 0d 0a 0a 05 f5 0d 0a  14 18 e8 22 57 48 49 43  |".........."WHIC|
00000ea0  48 20 4e 55 4d 42 45 52  20 22 2c 4d 53 25 0d 0a  |H NUMBER ",MS%..|
00000eb0  1e 0d fd 20 4d 53 25 3c  3d 42 25 0d 0a 28 22 e7  |... MS%<=B%..(".|
00000ec0  20 4d 53 25 3d 42 25 20  8c 20 4d 53 25 3d 30 20  | MS%=B% . MS%=0 |
00000ed0  8b 20 4d 53 25 3d 53 25  28 4d 53 25 29 0d 0a 32  |. MS%=S%(MS%)..2|
00000ee0  05 e1 0d 0a 3c 0b dd 20  f2 5f 49 4e 54 0d 0a 46  |....<.. ._INT..F|
00000ef0  0a f7 20 8d 74 72 47 0d  0a 50 0a 4e 25 3d 32 37  |.. .trG..P.N%=27|
00000f00  37 0d 0a 5a 0b 57 25 3d  33 32 30 30 0d 0a 64 2b  |7..Z.W%=3200..d+|
00000f10  de 20 53 24 28 4e 25 29  2c 53 25 28 36 30 29 2c  |. S$(N%),S%(60),|
00000f20  4c 24 28 31 35 29 2c 54  52 41 56 44 25 28 31 30  |L$(15),TRAVD%(10|
00000f30  29 2c 44 24 28 31 29 0d  0a 6e 11 e3 20 41 25 3d  |),D$(1)..n.. A%=|
00000f40  31 20 b8 20 4e 25 2d 31  0d 0a 78 0c f3 20 53 24  |1 . N%-1..x.. S$|
00000f50  28 41 25 29 0d 0a 82 05  ed 0d 0a 8c 0a f7 20 8d  |(A%).......... .|
00000f60  44 68 4b 0d 0a 96 0f e3  20 41 25 3d 31 20 b8 20  |DhK..... A%=1 . |
00000f70  31 35 0d 0a a0 0c f3 20  4c 24 28 41 25 29 0d 0a  |15..... L$(A%)..|
00000f80  aa 05 ed 0d 0a b4 11 f3  20 44 24 28 30 29 2c 44  |........ D$(0),D|
00000f90  24 28 31 29 0d 0a be 05  e1 0d 0a c8 11 dd 20 f2  |$(1).......... .|
00000fa0  5f 57 49 4e 44 28 53 4e  25 29 0d 0a d2 08 ea 20  |_WIND(SN%)..... |
00000fb0  54 25 0d 0a dc 0a f7 20  8d 74 6c 48 0d 0a e6 13  |T%..... .tlH....|
00000fc0  53 4e 25 3d 53 4e 25 20  84 20 26 38 30 30 30 0d  |SN%=SN% . &8000.|
00000fd0  0a f0 05 f5 0d 0a fa 08  f3 20 54 25 0d 0b 04 0c  |......... T%....|
00000fe0  fd 20 54 25 3d 53 4e 25  0d 0b 0e 05 e1 0d 0b 18  |. T%=SN%........|
00000ff0  0f dd 20 f2 5f 52 45 43  28 54 25 29 0d 0b 22 0d  |.. ._REC(T%)..".|
00001000  53 25 28 53 25 29 3d 54  25 0d 0b 2c 0b 53 25 3d  |S%(S%)=T%..,.S%=|
00001010  53 25 2b 31 0d 0b 36 05  e1 0d 0b 40 0d dd 20 f2  |S%+1..6....@.. .|
00001020  5f 46 4d 4f 56 45 0d 0b  4a 0f 4d 53 25 3d b3 28  |_FMOVE..J.MS%=.(|
00001030  4e 25 2d 31 29 0d 0b 54  0c 43 4c 49 4e 45 25 3d  |N%-1)..T.CLINE%=|
00001040  30 0d 0b 5e 05 e1 0d 0b  68 a6 dc 20 4e 6f 72 74  |0..^....h.. Nort|
00001050  68 65 72 6e 2c 44 69 73  74 72 69 63 74 2c 50 69  |hern,District,Pi|
00001060  63 63 61 64 69 6c 6c 79  2c 4d 65 74 72 6f 70 6f  |ccadilly,Metropo|
00001070  6c 69 74 61 6e 2c 43 65  6e 74 72 61 6c 2c 43 65  |litan,Central,Ce|
00001080  6e 74 72 61 6c 2c 43 69  72 63 6c 65 2c 42 61 6b  |ntral,Circle,Bak|
00001090  65 72 6c 6f 6f 2c 56 69  63 74 6f 72 69 61 2c 4a  |erloo,Victoria,J|
000010a0  75 62 69 6c 65 65 2c 57  61 74 65 72 6c 6f 6f 20  |ubilee,Waterloo |
000010b0  26 20 43 69 74 79 2c 45  73 63 61 6c 61 74 6f 72  |& City,Escalator|
000010c0  20 4c 69 6e 6b 2c 48 69  67 68 62 75 72 79 20 42  | Link,Highbury B|
000010d0  72 61 6e 63 68 2c 45 61  73 74 20 4c 6f 6e 64 6f  |ranch,East Londo|
000010e0  6e 2c 50 69 63 63 61 64  69 6c 6c 79 0d 0b 72 0d  |n,Piccadilly..r.|
000010f0  dc 20 55 50 2c 44 4f 57  4e 0d ff                 |. UP,DOWN..|
000010fb