!RailPro/!RunImage

Home » Archimedes archive » Acorn User » AU 1998-02 A.adf » RailPro » !RailPro/!RunImage

!RailPro/!RunImage

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 » Archimedes archive » Acorn User » AU 1998-02 A.adf » RailPro
Filename:	!RailPro/!RunImage
Read OK:	✔
File size:	979D bytes
Load address:	0000
Exec address:	0000

x��x ��x0��R�C�Q��� ����1� 1����"0��0�� 0��0��1�@����1��C��L�� B�0��@��$����ؖ��&Basic -quit @00009000,000126D8MakeApp2$CLIBasic -quit "
O�B% 256:C$="MakeApp2$CLI":ș35,C$,B%,256:ș16�,,T%:ș72,B%,T%:ș36,C$,"",-1

(� !RunImage of !RailPro, version 1.2
� Created 6-12-1997
� by Jos Keijzers,
(� Dordrecht, Netherlands
2� ======================
<�28
F��:�:�:�:�
P�
Z�A_:�B_:�C_:�t:�D_(50)
d
�E_%=0�F_
nȗ�
xȗ�600,400
��
��G_
��H_%
��I_%>0�
�T�:�''"Would you like to play again with the same or another map now? Y/N":�5:�63
��:c$=�:��"YyNn",c$)>0
�*�c$="Y"�c$="y" H_%=0:�26:�128:�128:�:�
��
��H_%
�ș262383,-1
��
���G_
�
�J_
ȗX%,Y%,Z%
"!�-82�E_%=0 E_%=1:�=K_%(0):�t
,�-58�L_%<20 L_%=L_%+10:�C_
6 �-42�L_%>=10 L_%=L_%-10:�C_
@ �-122��-2�M_%<50 M_%=M_%+25
J �-122�M_%<80 M_%=M_%+25:�C_
T �-26��-2�M_%>=50 M_%=M_%-25
^ �-26�M_%>=25 M_%=M_%-25:�C_
h&�Z%=4 A%=X%�40:B%=Y%�40:�Y%<800�N_
r%�Z%=1 A%=X%�40:B%=Y%�40:�B%<20�O_
|�Z%=2�P_
��-38�Q_
��E_%=0 c%=�(12)
��E_%=1�
�%�Z%=1 A%=X%�40:B%=Y%�40:�B%<20�R_
��a%>0�S_:�T_
��a%<K_%(5)�U_
��-34�V_
��-36�W_
��-56�X_
��-51�Y_
�*�-99 Z_%=0:�a_(b_%,c_%,d_%):�Z_%=0�C_
��
�
�H_%��-17
	H_%=1
*A%=�-K_%(0):�e_(A%):f_%=(A%/6000):A%=�
�-17�I_%=0�g_
&%�h_:i_%(5)=j_%(6,2):�i_%(1)>10�k_
0�l_:�m_
:�
N
��A_:�
X�n_%&50000,o_% 1024,p_% 24
bn_%!0=&50000
ln_%!8=16
vș&2E,9+256,n_%
�)ș&2E,10+256,n_%,"<Obey$Dir>.Sprites"
���T%(25,35),q_$(120,40),Q%(120,40,1),R%(140,5),r_%(8,9),s_%(30,4),t_$(3),D$(20),K_%(11),u_%(12),v_%(20,9),f%(8,3),w_$(20,1),i_%(6),x_%(25,1),x_$(25),y_%(12),z_$(10),z_%(10),__%(4,5),j_%(14,2),`_%(5)
��M_%=0:L_%=0:m%=0:a%=0:t_$(1)="IC":t_$(2)="LP":t_$(3)="GD":H_%=0:A`%=0:B`%=0:C`%=0:Z_%=1:E_%=0:I_%=0:V_%=1:D`%=0:E`%=0:F`%=0:G`%=0:H`=1:I`%=0
�D$(0)="------":J`%=100
��K_%(0)=5040000:K_%(1)=100:K_%(2)=120:K_%(3)=140:K_%(4)=24:K_%(5)=3000:K_%(6)=12000:K_%(7)=18000:K_%(8)=42000:K_%(9)=54000:K_%(10)=120000
�#�v=0�25:�K`=0�35:T%(v,K`)=0:�:�
�3�v=0�120:�K`=0�40:Q%(v,K`,0)=0:Q%(v,K`,1)=0:�:�
�#�v=0�30:�K`=0�4:s_%(v,K`)=0:�:�
��v=0�6:i_%(v)=0:�
�+�v=0�25:x_%(v,0)=0:x_%(v,1)=0:x_$(v)=""
�"�v=0�8:�K`=0�9:r_%(v,K`)=0:�:�
�!�X=1�20:�Y=1�9:v_%(X,Y)=0:�:�
�!�X=1�14:�Y=0�2:j_%(X,Y)=0:�:�
�X=0�5:`_%(X)=0:�
 �:�X=1�8:�Y=1�3:�f%(X,Y):�:�
�X=1�12:�y_%(X):�
 &�Y=0�40:�X=0�120:q_$(X,Y)="00":�:�
*L`$="<Obey$Dir>.RDATA"
4A%=�L`$
>$�X=0�140:�Y=1�5:�#A%,R%(X,Y):�:�
H�#A%
R�
\��M`
f�N`
pB%=�N`$
z
�#B%,z,O`
��X=1�12:�#B%,u_%(X):�
��X=1�20:�#B%,D$(X):�
�#�X=1�8:�Y=1�9:�#B%,r_%(X,Y):�:�
�$�X=1�20:�Y=1�9:�#B%,v_%(X,Y):�:�
�$�X=1�30:�#B%,s_%(X,3),s_%(X,4):�
�&�Y=0�40:�X=0�120:�#B%,q_$(X,Y):�:�
��#B%
��=K_%(0):P`%=100:�177
��Q`
��
�;� -1,0,2,1,0,1,0,1,4,0,-1,3,-1,1,6,1,-1,5,1,1,8,-1,-1,7
�L� 6000,12000,18000,24000,30000,48000,24000,30000,42000,48000,60000,90000
�
#��N_:�(A%+M_%)>120�(B%+L_%)>40�
/�Q%(A%+M_%,B%+L_%,1)<>0�R`(A%+M_%,B%+L_%):�
$�S`(A%+M_%,B%+L_%):�C$="1c"�T`:�
$�a$="0"�U`:�
.�a$="1"�V`:�
8�a$="6"�a$="7"�a$="8"�W`:�
B�a$="4"�a$="5"�X`:�
L�a$="2"�a$="3"�Y`:�
V�
j��S`(V%,W%):a$="":b$=""
t�V%>120�W%>40�
~%C$=q_$(V%,W%):a$=�C$,1):b$=�C$,1)
��
���W`:c$=b$
��b$="2" c$="0"
�!�b$="0" c$="2"��b$="1" c$="2"
��b$="5" c$="3"
�!�b$="3" c$="5"��b$="4" c$="5"
�
b$=c$:�Z`
��
���O_:c$=""
��S`(A%+M_%,B%+L_%):c$=b$
�(a$="6"�a$="7"�a$="8")�

�b$="0"�b$="2" c$="1"
�b$="2" c$="1"
�b$="3"�b$="5" c$="4"
(�b$="5" c$="4"
2
b$=c$:�Z`
<�
F�
Z��Z`
d"C$=a$+b$:q_$(A%+M_%,B%+L_%)=C$
nL%=A%*40-4:H%=B%*40-4:S$=C$
x!ș&2E,34+256,n_%,S$,L%,H%,&08
��D_(25)
��
���X`
�!�a$="4" c$="5"��a$="5" c$="4"
�
a$=c$:�Z`
��
���Y`:�"012345cde",b$)=0�
��b$="0" c$="1"
��b$="1" c$="2"
��b$="2" c$="0"
��b$="3" c$="4"
�b$="4" c$="5"
�b$="5" c$="3"
�b$="c" c$="d"
"�b$="d" c$="e"
,�b$="e" c$="c"
6
b$=c$:�Z`
@�
T2��C_:�I`%>0�28,18,56,58,I`%:�4:�216:�:�26:�177
^�a`:�Z_%>0�216:�
h-l%=M_%:h%=L_%:b`%=M_%+32:�b`%>100 b`%=120
rc`%=L_%+20:�c`%>40 c`%=40
|a�Y=h%�c`%:�X=l%�b`%:L%=(X-M_%)*40-4:H%=(Y-L_%)*40-4:S$=q_$(X,Y):d`$=S$:�S$,1)<>"9"�S$<>"00"�
�ș&2E,34+256,n_%,S$,L%,H%,8
��
�V�S$,1)="9" S$="00":ș&2E,34+256,n_%,S$,L%,H%,8:�5:�0,63:�L%+16,H%+30:��d`$,1);:�4
�
�:�:Z_%=1
��a%>0�e`:�H_%=0�f`
��D_(20)
��
���g`(h`%,i`%,j`%)
�SC$=q_$(T%(m%,h`%),T%(m%,i`%)):L%=(T%(m%,h`%)-M_%)*40-4:H%=(T%(m%,i`%)-L_%)*40-4
�ș&2E,34+256,n_%,C$,L%,H%,8
�CQ%(T%(m%,h`%),T%(m%,i`%),0)=j`%:Q%(T%(m%,h`%),T%(m%,i`%),1)=j`%
�x_%(m%,0)=0:x_%(m%,1)=0
�
��k`:l`$=""
&�a$="6"�a$="7"�
0T%(m%,33)=1
:0�"03",b$)>0�T%(m%,6)=1:�m`:T%(m%,6)=0:�i_:�
D!�"03",b$)>0 T%(m%,6)=0:�i_:�
N^�"14",b$)>0:T%(m%,6)=4:�n`("14","03"):q_$(T%(m%,10)+o`%,T%(m%,11)+p`%)=C$:�q`:T%(m%,17)=1
X^�"25",b$)>0:T%(m%,6)=1:�n`("25","03"):q_$(T%(m%,10)+o`%,T%(m%,11)+p`%)=C$:�q`:T%(m%,33)=0
b.�r`(T%(m%,10)+o`%,T%(m%,11)+p`%,C$):l`$=a$
l�"012345",b$)>0�s`:�
v�
��a$="8"�
��"89ab",b$)>0�t`:�
�,�"67",b$)>0��"5678",�(T%(m%,8)))>0�t`:�
��"012345",b$)>0�
�T%(m%,33)=1
�,�"03",b$)>0�T%(m%,6)>2 T%(m%,6)=0:�i_:�
�&�"03",b$)>0�T%(m%,6)>0 T%(m%,6)=4
��"14",b$)>0 T%(m%,6)=3
�'�"25",b$)>0 T%(m%,6)=1:T%(m%,33)=0
�X�T%(m%,29)<>0�S`(T%(m%,29),T%(m%,30)):�n`("0314","0325"):�r`(T%(m%,29),T%(m%,30),C$)
�3T%(m%,29)=T%(m%,10)+o`%:T%(m%,30)=T%(m%,11)+p`%
�K�S`(T%(m%,29),T%(m%,30)):�n`("0325","0314"):�r`(T%(m%,29),T%(m%,30),C$)
��
�
�
 ��n`(u`$,v`$)
*4�u`$,b$)>0:w`%=�u`$,b$):c$=�v`$,w`%,1):C$=a$+c$
4�
H��s`:�T%(m%,27)<>0�
R�S`(T%(m%,27),T%(m%,28))
\A�a$="7"�T%(m%,17)=2�n`("03","14"):�r`(T%(m%,27),T%(m%,28),C$)
fA�a$="7"�T%(m%,17)<2�n`("03","25"):�r`(T%(m%,27),T%(m%,28),C$)
p�T%(m%,17)=2 T%(m%,17)=0
z�T%(m%,17)=1 T%(m%,17)=2
��
��T%(m%,31)<>0�
��S`(T%(m%,31),T%(m%,32))
�F�a$="8":�T%(m%,31)>0�n`("0314","0325"):�r`(T%(m%,31),T%(m%,32),C$)
��
�L�l`$="7" T%(m%,31)=T%(m%,29):T%(m%,32)=T%(m%,30):T%(m%,29)=0:T%(m%,30)=0
�$�l`$="6" T%(m%,31)=0:T%(m%,32)=0
�(�T%(m%,27)=0�T%(m%,17)=1 T%(m%,17)=2
�3T%(m%,27)=T%(m%,10)+o`%:T%(m%,28)=T%(m%,11)+p`%
��
���r`(x`%,y`%,z`$):�x`%<4�
�q_$(x`%,y`%)=z`$
	DL%=(x`%-M_%)*40-4:H%=(y`%-L_%)*40-4:ș&2E,34+256,n_%,z`$,L%,H%,8
	�
	$��m`:�"03",b$)>0�
	.1j_%(12,1)=j_%(12,1)+1:j_%(12,2)=j_%(12,2)+200
	8T%(m%,25)=T%(m%,25)+2500
	B�("Splay_telef")
	L��_`:�'" The driver of train ";t_$(T%(m%,2));"-"T%(m%,1);" is angry!"''" He had to use the emergency brakes to stop"'" at a red signal. He has to reset the system"'" before he cans continue."'" The previous (sub)signal was green!";
	V�``
	`�
	j�
	~��J_
	�
�e_(�)
	��4:�65,0);" ";Aa$;" ";:�5
	��
	���U_:Ba%=0:d%=0:b%=0:Ca$=""
	��a%>=K_%(4)�
	��A`%>�:�
	�&�V_%=1:Da%=�(1000):�Da%�444=0�Ea:�
	�6�D`%>0:�`_%(0)=0:Da%=�(1000):�Da%�(360/D`%)=2�Fa:�
	�
�Ga:�a>0�
	�Ha%=�(u_%(1)):�Ha%=0�
	��<r_%(Ha%,0)�
$�Q%(r_%(Ha%,1),r_%(Ha%,2),1)<>0�

!L$=q_$(r_%(Ha%,1),r_%(Ha%,2))
7�L$="0c"�L$="0e":�Q%(r_%(Ha%,1)+2,r_%(Ha%,2),1)<>0�
7�L$="0b"�L$="0d":�Q%(r_%(Ha%,1)-2,r_%(Ha%,2),1)<>0�
(c%=�(20):Ba%=1
2�c%<12 Ba%=2
<�c%<3 Ba%=3
F��(r_%(Ha%,6)),�(Ba%))=0�
P.�u_%(10)=1 Ia%=�(u_%(1)+u_%(11)):�Ia%=Ha%�
Z9�u_%(10)=0 Ia%=�(u_%(11))+u_%(1):�Ia%=u_%(1)Ia%=Ia%+1
d%b%=a%+1:T%(b%,2)=Ba%:T%(b%,7)=Ha%
nT%(b%,3)=Ia%:c%=33
x��(v_%(Ia%,5)),�(Ba%))=0�
��Ia%>u_%(1)�
�Ja%=v_%(Ia%,7)-v_%(Ia%,6)+1
��Ja%=1 c%=v_%(Ia%,7)��Ka
�"��(s_%(c%,3)),�(T%(b%,7)))=0�
�Z�s_%(c%,1)<>0 d%=((�+(K_%(Ba%)*u_%(Ha%+1))-(K_%(5)*2)-6000)�6000)*6000:�d%<=s_%(c%,2)�
�"s_%(c%,1)=b%:s_%(c%,2)=�+99000
��
�?T%(b%,5)=c%:T%(b%,6)=1:c%=T%(b%,7):T%(b%,8)=r_%(T%(b%,7),5)
�BT%(b%,10)=r_%(c%,1):T%(b%,11)=r_%(c%,2):P`%=P`%+1:T%(b%,1)=P`%
��T%(b%,8)=1�
�T%(b%,10)=T%(b%,10)-1
�WT%(b%,12)=T%(b%,10)+2:T%(b%,13)=T%(b%,11):T%(b%,14)=T%(b%,10)+1:T%(b%,15)=T%(b%,11)
��Q%(r_%(Ha%,1)-1,r_%(Ha%,2),0)=10:Q%(r_%(Ha%,1),r_%(Ha%,2),0)=10:Q%(r_%(Ha%,1)+1,r_%(Ha%,2),0)=23:Q%(r_%(Ha%,1),r_%(Ha%,2),1)=P`%:Q%(r_%(Ha%,1)+1,r_%(Ha%,2),1)=P`%:Q%(r_%(Ha%,1)-1,r_%(Ha%,2),1)=P`%
T%(b%,16)=1:T%(b%,19)=1
�
�T%(b%,8)=2�
"T%(b%,10)=T%(b%,10)+1
,WT%(b%,12)=T%(b%,10)-2:T%(b%,13)=T%(b%,11):T%(b%,14)=T%(b%,10)-1:T%(b%,15)=T%(b%,11)
6�Q%(r_%(Ha%,1)-1,r_%(Ha%,2),0)=10:Q%(r_%(Ha%,1),r_%(Ha%,2),0)=10:Q%(r_%(Ha%,1)+1,r_%(Ha%,2),0)=23:Q%(r_%(Ha%,1)-1,r_%(Ha%,2),1)=P`%:Q%(r_%(Ha%,1),r_%(Ha%,2),1)=P`%:Q%(r_%(Ha%,1)+1,r_%(Ha%,2),1)=P`%
@T%(b%,16)=2:T%(b%,19)=2
J�
Taa%=a%+1:�La(Q%(T%(a%,10),T%(a%,11),0),Q%(T%(a%,12),T%(a%,13),0),Q%(T%(a%,14),T%(a%,15),0),a%)
^=T%(a%,9)=�:T%(a%,4)=�+(K_%(Ba%)*u_%(Ha%+1))+(25*K_%(Ba%))
h#T%(a%,25)=�+(K_%(Ba%)*T%(a%,6))
rMMa%=y_%(r_%(Ha%,4))-y_%(r_%(Ha%,3)):r_%(Ha%,0)=�+(�(Ma%)+y_%(r_%(Ha%,3)))
|-A`%=�+3000:i_%(1)=P`%-100:j_%(0,1)=i_%(1)
�Gj_%(T%(a%,2),1)=j_%(T%(a%,2),1)+1:j_%(T%(a%,2),2)=j_%(T%(a%,2),2)+0
�^�Na:�'"Approaching: Train  ";t_$(T%(a%,2));"-";T%(a%,1)''"       From: ";�Oa(D$(T%(a%,7)))
�<�T%(a%,3)<=u_%(1)Ca$="  Departure: "�Ca$="    Arrival: "
�^�e_(T%(a%,4)):�'Ca$;Pa$;:�v_%(T%(a%,3),8)=0�T%(a%,2)<3�T%(a%,5)<32�" on Track ";T%(a%,5)��
�B�'"Destination: ";�Oa(D$(T%(a%,3)));" (";�D$(T%(a%,3)),3);")";
�!�("SPLAY_BELL"):�``:�5:�D_(5)
��
���Ka
�c%=�(Ja%):�c%=0 c%=1
�c%=c%+v_%(Ia%,6)-1
��
���Qa
j%=�(Ja%):�j%=0 j%=1
j%=j%+v_%(T%(m%,3),6)-1
�
0��La(Ra,Sa,Ta,v%)
:�T%(v%,2)=2 g$="p"
D�T%(v%,2)=3 g$="g"
N�T%(v%,2)=1 g$="i"
X*Ra$=g$+�(Ra):Sa$=g$+�(Sa):Ta$=g$+�(Ta)
b/L%=(T%(v%,10)-M_%)*40:H%=(T%(v%,11)-L_%)*40
l ș&2E,34+256,n_%,Ra$,L%,H%,8
v/L%=(T%(v%,14)-M_%)*40:H%=(T%(v%,15)-L_%)*40
� ș&2E,34+256,n_%,Ta$,L%,H%,8
�/L%=(T%(v%,12)-M_%)*40:H%=(T%(v%,13)-L_%)*40
� ș&2E,34+256,n_%,Sa$,L%,H%,8
��
���R`(Ua%,Va%)
�J�m%=1�a%:�(T%(m%,10)=Ua%�T%(m%,11)=Va%)�(T%(m%,12)=Ua%�T%(m%,13)=Va%)�
��Na
�L�'"  Train: ";t_$(T%(m%,2));"-";T%(m%,1);'"Destiny: ";�Oa(D$(T%(m%,3)))'
��e_(T%(m%,4))
�8�T%(m%,3)<u_%(1)+1 Wa$="Departure: "�Wa$="Arrival: "
��T%(m%,3)>0�Wa$;Pa$;
�H�T%(m%,3)>u_%(1)�T%(m%,2)<3�v_%(T%(m%,3),8)=0�'"On Track ";T%(m%,5);

F�T%(m%,3)=0�''"Revenue till now: # ";T%(m%,21)-�((�-T%(m%,4))/100)

<�T%(m%,3)>0�''"Revenue till now: # ";T%(m%,21)-T%(m%,24)

�

 �5:�D_(10):�``

*�

4�

H��e_(K%):K%=K%/100

R1Xa%=K%�3600:Ya%=(K%�3600)�60:Za%=(K%�3600)�60

\�Ya%<10 Z_$=":0"�Z_$=":"

f�Za%<10 aa$=":0"�aa$=":"

p$Aa$=�(Xa%)+Z_$+�(Ya%)+aa$+�(Za%)

zPa$=�(Xa%)+Z_$+�(Ya%)

��

���e`

��m%=1�a%

�Wba%=T%(m%,10):ca%=T%(m%,11):da%=T%(m%,12):ea%=T%(m%,13):fa%=T%(m%,14):ga%=T%(m%,15)

�5�La(Q%(ba%,ca%,0),Q%(da%,ea%,0),Q%(fa%,ga%,0),m%)

��

��

���S_

��m%=1�a%

�@ha$="":ia$="":ja$="":r%=0:o`%=0:p`%=0:ka%=0:la%=0:s%=0:ma%=0

��T%(m%,1)<>0�
�(T%(m%,25)<(�+42000))�T%(m%,8)=9�g`(12,13,0):�g`(14,15,0):T%(m%,8)=10:�_`:�'''" Track at derailment partly restored..":�``
�T%(m%,25)<��
"�T%(m%,5)=0�T%(m%,3)<>0�na:�oa
$pa%=T%(m%,8):qa%=T%(m%,16)
.�T%(m%,8)<>10�
8T%(m%,22)=0:C`%=0
B@ha$=q_$(T%(m%,10),T%(m%,11)):r%=�("&"+ha$):�ra(r%,pa%):r%=u%
L*�"2a2b3a3b06",ha$)>0�sa(r%,pa%):r%=u%
V�ha$<>"00"�
`E�"11-064454647656b6c7574",ha$)>0 T%(m%,4)=T%(m%,4)+K_%(T%(m%,2))
j�pa%=R%(r%,1)ka%=R%(r%,5)
t�pa%=R%(r%,4)ka%=R%(r%,5)
~Cja$=q_$(T%(m%,14),T%(m%,15)):ta%=�("&"+ja$):�ra(ta%,qa%):ta%=u%
�,�"2a2b3a3b06",ja$)>0�sa(ta%,qa%):ta%=u%
��qa%=R%(ta%,1)ma%=R%(ta%,3)
��qa%=R%(ta%,4)ma%=R%(ta%,2)
�o`%=f%(pa%,1):p`%=f%(pa%,2)
�Zia$=q_$(T%(m%,10)+o`%,T%(m%,11)+p`%):s%=�("&"+ia$):�ra(s%,pa%):s%=u%:�s%>140�s%<1�ua:�
�*�"2a2b3a3b06",ia$)>0�sa(s%,pa%):s%=u%
�g�ha$,1)="6"��"1d1e1f1c",ia$)>0:�S`(T%(m%,29),T%(m%,30)):�n`("14","25"):�r`(T%(m%,29),T%(m%,30),C$)
�(�ha$,1)="6" T%(m%,29)=0:T%(m%,30)=0
��s%<16�va:�H_%�
��C`%<>1�
��T%(m%,22)=0�
�a$=�ia$,1):b$=�ia$,1)
,�"678",a$)>0�wa:�T%(m%,22)=0�k`:�xa:�ya

�T%(m%,22)=0�
�T%(m%,6)<>0�
0F`%=0:T%(m%,19)=T%(m%,16):T%(m%,16)=T%(m%,8)
(�s%=7�T%(m%,6)<4�za
2�T%(m%,33)=0�_a
<�s%>31�s%<96�`a
F�F`%=0�
PD�Q%(T%(m%,10)+o`%,T%(m%,11)+p`%,0)<>0��"2a2b3a3b06",ia$)=0 I_%=1
ZAb%=f%(pa%,3)
d#�R%(s%,4)=Ab% T%(m%,8)=R%(s%,1)
n#�R%(s%,1)=Ab% T%(m%,8)=R%(s%,4)
x�
��g`(12,13,0)
�8T%(m%,12)=T%(m%,14):T%(m%,13)=T%(m%,15):�g`(14,15,0)
�[T%(m%,14)=T%(m%,10):T%(m%,15)=T%(m%,11):T%(m%,10)=T%(m%,10)+o`%:T%(m%,11)=T%(m%,11)+p`%
��F`%=0�
�"�T%(m%,8)=R%(s%,1)la%=R%(s%,2)
�"�T%(m%,8)=R%(s%,4)la%=R%(s%,3)
� �(s%>=&10�s%<&1d)T%(m%,20)=0
��
�DQ%(T%(m%,10),T%(m%,11),0)=la%:Q%(T%(m%,10),T%(m%,11),1)=T%(m%,1)
�DQ%(T%(m%,12),T%(m%,13),0)=ma%:Q%(T%(m%,12),T%(m%,13),1)=T%(m%,1)
�DQ%(T%(m%,14),T%(m%,15),0)=ka%:Q%(T%(m%,14),T%(m%,15),1)=T%(m%,1)
�Ba%=T%(m%,2)+1:�I_%=1�I_:�
� �T%(m%,6)=1 H`=K_%(T%(m%,2))
.�T%(m%,6)=2 H`=K_%(T%(m%,2))+(30/T%(m%,2))
.�T%(m%,6)=3 H`=K_%(T%(m%,2))+(60/T%(m%,2))
.�T%(m%,6)=4 H`=K_%(T%(m%,2))+(90/T%(m%,2))
"T%(m%,25)=�+H`
,:�(ia$="1d"�ia$="1e")�T%(m%,2)<3 T%(m%,6)=3:T%(m%,33)=1
6.�(ia$="1f"�ia$="1c")T%(m%,6)=3:T%(m%,33)=1
@/�F`%=5 T%(m%,25)=T%(m%,25)+60000:T%(m%,8)=9
JY�La(Q%(T%(m%,10),T%(m%,11),0),Q%(T%(m%,12),T%(m%,13),0),Q%(T%(m%,14),T%(m%,15),0),m%)
TY�(r%=&10�(r%>&1b�r%<&20)�(r%>&3f�r%<&44))�(s%=&10�(s%>&1b�s%<&20)�(s%>&3f�s%<&44))�oa
^�
h�
r�
|�
��
��ha$="00"�Bb
��
�W�T%(m%,8)=10�Cb:�_`:�'''" Derailed train removed."'" Track is available again.":�``
��
��
��:B`%=0
��
�2��ua:�t:�Q%(T%(m%,10)+o`%,T%(m%,11)+p`%,0)=10�
�*�Q%(T%(m%,12)+o`%,T%(m%,13)+p`%,0)=10�
��t:�''"Something goes wrong..!!  with train  ";T%(m%,1);""'"Recalculating data":B`%=B`%+1:�B`%>=10�Cb:�"Train taken out of service":�5:�D_(15):B`%=0
��
��R_
Db%=A%+M_%:Eb%=B%+L_%:Fb%=0
&�Db%>120�Eb%>40�
0�Q%(Db%,Eb%,1)<>0�
:J�m%=1�a%:�(T%(m%,10)=Db%�T%(m%,11)=Eb%)�(T%(m%,12)=Db%�T%(m%,13)=Eb%)�
D�F`%>0��-1�Cb:�
N.ha$=q_$(T%(m%,10),T%(m%,11)):r%=�("&"+ha$)
X.ia$=q_$(T%(m%,12),T%(m%,13)):s%=�("&"+ia$)
b�T%(m%,8)<9�
l!�Gb:�0,1);" Train ";T%(m%,1)
v�T%(m%,6)=0�
��'" Direction changed.":�``
��Hb
�T%(m%,6)=3
�9T%(m%,25)=T%(m%,25)+100:Fb%=1:T%(m%,27)=0:T%(m%,28)=0
�S�T%(m%,3)>0 T%(m%,21)=T%(m%,21)-60:j_%(10,1)=j_%(10,1)+1:j_%(10,2)=j_%(10,2)+60
��
�^�Fb%=0�T%(m%,6)<>0�Gb:�'''" Driver can only be reached"'" when stopped at a signal..";:�``
��
�c�T%(m%,8)>8�Gb:�'''" Driver is unreachable as he is in "'" hospital after the derailment..":�``
��D_(20)
��
��
��
�5
 �A%=0�M_%>=25 M_%=M_%-25:�C_
 �B%=0�L_%>=10 L_%=L_%-10:�C_
  �A%=31�M_%<80 M_%=M_%+25:�C_
*!�B%>=19�L_%<20 L_%=L_%+10:�C_
4�
H��va:C`%=0:�s%>5�s%<11�
R�s%>0�s%<5�
\T%(m%,6)=0:�xa
f�
p�s%=5�T%(m%,3)=0�
z7�T%(m%,9)=0 j_%(11,2)=j_%(11,2)+�((�-T%(m%,4))/100)
��
��s%=5�T%(m%,3)>0�
�C�T%(m%,10)+o`%<>v_%(T%(m%,3),1)�T%(m%,11)+p`%<>v_%(T%(m%,3),2)�
���Gb:�'" You sent train ";t_$(T%(m%,2));"-";T%(m%,1);" to the wrong destiny."'" Others will have to redirect the train "'" and charge you # 300.":�``
�IT%(m%,21)=T%(m%,21)-300:j_%(10,1)=j_%(10,1)+1:j_%(10,2)=j_%(10,2)+300
��
��
�
�s%=5�
�G�S`(T%(m%,31),T%(m%,32)):�n`("14","25"):�r`(T%(m%,31),T%(m%,32),C$)
�K�S`(T%(m%,27),T%(m%,28)):�n`("03","25"):�r`(T%(m%,27),T%(m%,28),C$):�Ib
�h�28,16,59,63,58:�4:�:�"Train ";t_$(T%(m%,2));"-";T%(m%,1);"  for: ";�Oa(D$(T%(m%,3)));" left area.";
�4�``:�5:�Cb:i_%(6)=i_%(6)+1:C`%=1:j_%(0,2)=i_%(6)
��
�s%>10�s%<15�
�Jb:I_%=1:�("Splay_apla")
v�t:�"  YOU SENT A TRAIN ON A WRONG TRACK!!!!!"''"  RIGHT OUTSIDE YOUR SECTION A MAJOR ACCIDENT WILL TAKE PLACE!"''
$0�"      Y O U  A R E  F I R E D  !  !  !  !"
.TT%(m%,21)=T%(m%,21)-5000:i_%(3)=3:j_%(10,1)=j_%(10,1)+1:j_%(10,2)=j_%(10,2)+5000
8i_%(5)=i_%(5)-5000
B�D_(800):H_%=1
L�
V�
j��Kb
t	�Gb:�
~*�" Train: ";t_$(T%(m%,2));"-";T%(m%,1)
��e_(T%(m%,4))
�\�'" Scheduled : ";Pa$;:�v_%(T%(m%,3),8)=0�T%(m%,5)>0�T%(m%,5)<32�" on Track ";T%(m%,5)��
�Lb%=�:�e_(Lb%)
��" Arrived at: ";Pa$;'
��
�+��Mb:T%(m%,20)=1:Nb%=0:Ob%=0:Pb%=K_%(8)
�@�T%(m%,4)>�j_%(T%(m%,2),2)=j_%(T%(m%,2),2)+((T%(m%,4)-�)/50)
��T%(m%,2)=2 Pb%=K_%(9)
��s%>0�s%<5�
��Hb
�(Qb%=K_%(7):Rb%=K_%(8):Sb%=�(Rb%-Qb%)
�

T%(m%,7)=T%(m%,3):�
M�:c%=�(u_%(1)):���(r_%(c%,9)),�(T%(m%,2)))>0���(s_%(T%(m%,5),4)),�(c%))>0
$T%(m%,9)=�:�ha$="1e" c%=u_%(1)+1
(T%(m%,3)=c%
2�s%>&5F�
<N�v_%(c%,1)<T%(m%,10)�T%(m%,8)=1:Qb%=K_%(6):Rb%=K_%(6):Sb%=�(Rb%+Rb%):Nb%=1
Fd�Nb%=0:�v_%(c%,1)<T%(m%,10)�T%(m%,8)=2:�Hb:T%(m%,8)=1:Qb%=K_%(7):Rb%=K_%(8):Sb%=�(Rb%-Qb%):Nb%=1
PU�Nb%=0:�v_%(c%,1)>T%(m%,10)�T%(m%,8)=2:Qb%=K_%(6):Rb%=K_%(6):Sb%=�(Rb%+Rb%):Nb%=1
Z^�Nb%=0:�v_%(c%,1)>T%(m%,10)�T%(m%,8)=1:�Hb:T%(m%,8)=2:Qb%=K_%(7):Rb%=K_%(8):Sb%=�(Rb%-Qb%)
d�
n^�ha$="1e" T%(m%,4)=((T%(m%,9)+60000)�6000)*6000:T%(m%,25)=T%(m%,4):T%(m%,5)=0:T%(m%,6)=3:�
x4�T%(m%,2)=2:Qb%=K_%(7):Rb%=K_%(9):Sb%=�(Rb%-Qb%)
�&�Ob%=1�T%(m%,2)<3�D`%<4�J`%<��Tb:�
��Ob%=5 Pb%=90000
��Ob%=7 Pb%=150000
�5�T%(m%,2)=3:Qb%=K_%(8):Rb%=K_%(10):Sb%=�(Rb%-Qb%)
�:��(s_%(T%(m%,5),4)),"9")>0�Ob%<5:Qb%=7500:Sb%=�(6000)
�+T%(m%,4)=((T%(m%,9)+Sb%+Qb%)�6000)*6000
�$T%(m%,25)=T%(m%,4):�Ub:�Ob%>0�Vb
�
�Ob%=0
�$s_%(T%(m%,5),2)=T%(m%,25)+K_%(5)
�%�T%(m%,6)=3 T%(m%,6)=2�T%(m%,6)=3
��
���Vb
+Qb%=K_%(7):Rb%=Pb%:Sb%=�(Rb%-Qb%):Nb%=0
�
"��Wb
,�e_(T%(m%,4))
6F�" Next destination: ";�Oa(D$(T%(m%,3)));" (";�D$(T%(m%,3)),3);")"
@%�" Departure time  : ";Pa$:�``:�5
J�
^��xa:Xb%=0:c%=T%(m%,3)
h�T%(m%,6)<>0�
r_�(s%<5�s%>0)�(r%>32�r%<29)�Hb:T%(m%,6)=3:T%(m%,25)=T%(m%,25)+1000:T%(m%,22)=4:T%(m%,33)=1:�
|��(s%<5�s%>0)�(T%(m%,10)<v_%(c%,1)�T%(m%,10)>v_%(c%,3)�T%(m%,11)<v_%(c%,2)�T%(m%,11)>v_%(c%,4))�Hb:T%(m%,6)=3:T%(m%,25)=T%(m%,25)+500:T%(m%,22)=4:�
�$�ha$<>"1e"�ha$<>"1d"�ha$<>"1f":�
��c%=0�ha$="1d"�
�m�T%(m%,10)>v_%(T%(m%,3),1)�T%(m%,10)<v_%(T%(m%,3),3)�T%(m%,11)>v_%(T%(m%,3),2)�T%(m%,11)<v_%(T%(m%,3),4)�
��T%(m%,2)=3�ha$="1f" Xb%=1
��T%(m%,2)<3�ha$<>"1f" Xb%=1
��Xb%=1�
��Kb:�Mb
�^�Wb:�q`:�ha$<>"1e" j_%(T%(m%,2),2)=j_%(T%(m%,2),2)+100:�T%(m%,3)>0 T%(m%,21)=T%(m%,21)+100
�b�(T%(m%,2)=1�T%(m%,2)=3)�ha$<>"1e" T%(m%,21)=T%(m%,21)+100:j_%(T%(m%,2),2)=j_%(T%(m%,2),2)+100
�-�oa:T%(m%,22)=4:T%(m%,6)=3:�5:T%(m%,20)=1
��
��
�c%=T%(m%,3)
%�ha$="1d"�T%(m%,2)<3�T%(m%,22)=0�
2�v_%(c%,1)<T%(m%,10)�T%(m%,8)=2:�Hb:T%(m%,6)=3
2�v_%(c%,1)>T%(m%,10)�T%(m%,8)=1:�Hb:T%(m%,6)=3
&P�T%(m%,20)=1 T%(m%,21)=T%(m%,21)-50:j_%(9,2)=j_%(9,2)+50:j_%(9,1)=j_%(9,1)+1
0��T%(m%,20)=0 T%(m%,18)=(�(50)*4):T%(m%,21)=T%(m%,21)+T%(m%,18):T%(m%,20)=1:�q`:T%(m%,4)=T%(m%,4)+4000:j_%(T%(m%,2),2)=j_%(T%(m%,2),2)+T%(m%,18)
:)�T%(m%,1)=`_%(4)�v_%(c%,8)=1 `_%(4)=0
D1T%(m%,25)=T%(m%,25)+K_%(5):T%(m%,22)=4:�oa:�5
N�
X�
l��wa:E`%=0
v�T%(m%,2)=2�T%(m%,3)>0�
�1�T%(m%,2)=2�ha$="1d"��"1425",b$)�T%(m%,20)=0�
�AT%(m%,20)=1:T%(m%,18)=(�(40)*5):T%(m%,21)=T%(m%,21)+T%(m%,18)
�H�q`:T%(m%,4)=T%(m%,4)+3600:j_%(T%(m%,2),2)=j_%(T%(m%,2),2)+T%(m%,18)
�.T%(m%,25)=T%(m%,25)+K_%(5):T%(m%,22)=4:�oa
��
��
�p�T%(m%,2)<3�T%(m%,3)=0�(ha$="1c"�ja$="1c"�q_$(T%(m%,12),T%(m%,13))="1c")��"03",b$)�T%(m%,20)=0�T%(m%,9)<100�
�$�`_%(5)<=100 E`%=`_%(5):`_%(5)=0
�)�`_%(5)>100 `_%(5)=`_%(5)-100:E`%=100
�R�E`%>0 j_%(11,2)=j_%(11,2)+�((�-T%(m%,4))/200):�T%(m%,9)=0 j_%(4,1)=j_%(4,1)+1
�^T%(m%,9)=T%(m%,9)+E`%:T%(m%,25)=�+3000:T%(m%,21)=T%(m%,21)+E`%*15:j_%(4,2)=j_%(4,2)+E`%*15
�]�_`:�'"Train LP-";T%(m%,1);" is loading ";E`%;" passengers"''"from an excursion party."''
�)�" Passengers still to move: ";`_%(5)
�`_%(5)=0:`_%(3)=�+4500
�``
�
 �
4$��t:�28,1,8,78,0:�177:�63:�4:�:�
>%��Na:�28,1,8,32,0:�227:�63:�4:�:�
H&��Gb:�28,33,8,78,1:�217:�63:�4:�:�
R&��_`:�28,33,8,78,1:�197:�63:�4:�:�
\#��``:�28,1,8,78,0:�177:�63:�4:�
f��a`:�24,0;0;1278;800;:�
z��X_
�	Yb%=�
���t:�''"  P A U S E  !!!"''" Station-Clock stopped until you are ready to continue..."''" Press - C - to continue..   Press  M  for Management-info..";:�5
��Zb
��:ab$=�:��"CcMm",ab$)
��ab$="M"�ab$="m"�l_
��=Yb%:�t:Z_%=1:�C_
��
���I_
�0�Q%(T%(m%,10)+o`%,T%(m%,11)+p`%,1)=T%(m%,1)�
�6Q%(T%(m%,10),T%(m%,11),0)=35:H_%=1:�La(35,0,36,m%)
��Jb:�("Splay_apla")
���t:�"  A MAJOR TRAINCRASH TOOK PLACE!!!!!"''"  Many people died or got seriously wounded!"''"  You'll never know the exact numbers, for..."''
1�(20);" Y O U  A R E  F I R E D  !  !  !  !"
8i_%(5)=i_%(5)-5000:i_%(3)=3:j_%(10,2)=j_%(10,2)+5000
H_%=1:�D_(1000)
$�
8��Bb:�T%(m%,1)<>0�
B4�t:�''"Train ";T%(m%,1);" has gone utterly mad."
L]�"It will be removed and the management will"'" deny that such a train ever existed....."
V�Cb:�5:�:�
j��`a
td%=f%(T%(m%,8),3)
~0�d%<>R%(s%,1)�d%<>R%(s%,4)�s%>63�T%(m%,6)>3�
�9�a$="4" S$="5"+b$:q_$(T%(m%,10)+o`%,T%(m%,11)+p`%)=S$
�9�a$="5" S$="4"+b$:q_$(T%(m%,10)+o`%,T%(m%,11)+p`%)=S$
�s%=�("&"+S$)
�YL%=(T%(m%,10)+o`%-M_%)*40-4:H%=(T%(m%,11)+p`%-L_%)*40-4:ș&2E,34+256,n_%,S$,L%,H%,&08
��
��
��d%<>R%(s%,1)�d%<>R%(s%,4)�
�la%=36:�t:�("Splay_apla")
��''" Train ";t_$(T%(m%,2));"-";T%(m%,1);" crashed at a wrongly directed point!!!"''"Damage is enormous and the line(s) on that spot will be"'"unavailable for 10 minutes, as workmen have to clear the track."'"This costs your company # 2000.";
�6F`%=5:T%(m%,21)=T%(m%,21)-2000:�Ib:i_%(2)=i_%(2)+1
�.j_%(7,1)=j_%(7,1)+1:j_%(7,2)=j_%(7,2)+2000
��:�5:�D_(10)
�
��_a
/T%(m%,6)=1:bb$=�q_$(T%(m%,12),T%(m%,13)),1)
(*�a$="5"��ha$,1)="5"�bb$="5":T%(m%,6)=2
2-�(a$="3"�a$="2")��"12ce",b$)>0:T%(m%,6)=2
<�
P��Cb
Z^�g`(10,11,0):�g`(12,13,0):�g`(14,15,0):�T%(m%,3)>u_%(1)s_%(T%(m%,5),1)=0:s_%(T%(m%,5),2)=0
d,�T%(m%,3)=0 D`%=D`%-1:G`%=0:�D`%<0 D`%=0
n�z%=m%�a%:�O`%=1�35
xT%(z%,O`%)=T%(z%+1,O`%)
�M�:x_%(z%,0)=x_%(z%+1,0):x_%(z%,1)=x_%(z%+1,1):x_$(z%)=x_$(z%+1):�:a%=a%-1
��
���Y_
�cb%=0:db$="-"
��t=1�a%
�M�(T%(t,3)<(u_%(1)+1)��<T%(t,4))�(T%(t,3)<(u_%(1)+2)��<T%(t,4)�T%(t,5)=0)�
�cb%=cb%+1:db$=�(T%(t,5))
�2�v_%(T%(t,3),8)=1�T%(t,2)=3�T%(t,5)>31 db$="-"
��T%(t,5)=0 db$="-"
�0eb$=t_$(T%(t,2))+"-"+�(T%(t,1)):�e_(T%(t,4))
�Uw_$(cb%,0)=�(T%(t,4)):w_$(cb%,1)=eb$+"  "+Pa$+"    "+db$+"     "+�Oa(D$(T%(t,3)))
��
�
�cb%>1�
�t=1�cb%:�fb=cb%�t+1�-1
"K�w_$(fb,0)<�w_$(fb-1,0)Ȕw_$(fb,0),w_$(fb-1,0):Ȕw_$(fb,1),w_$(fb-1,1)
,�:�
6�
@&I`%=56-cb%-3:�28,18,56,58,I`%:�4:�
J%�12,0);"DEPARTURES":gb$=�41,"-")
T?�0,1);"Train:";�8);"Time:";�15);"Track:";�23);"Dest.:"'gb$
^�t=1�cb%:�w_$(t,1):�
h�``
r�
���Hb
��r%,s%,t%,ha$,ia$,ja$
�Eha$=q_$(T%(m%,10),T%(m%,11)):r%=�("&"+ha$):�ra(r%,T%(m%,8)):r%=u%
�/�"2a2b3a3b06",ha$)>0�sa(r%,T%(m%,8)):r%=u%
�Fia$=q_$(T%(m%,12),T%(m%,13)):s%=�("&"+ia$):�ra(s%,T%(m%,19)):s%=u%
�0�"2a2b3a3b06",ia$)>0�sa(s%,T%(m%,19)):s%=u%
�Fja$=q_$(T%(m%,14),T%(m%,15)):t%=�("&"+ja$):�ra(t%,T%(m%,16)):t%=u%
�0�"2a2b3a3b06",ja$)>0�sa(t%,T%(m%,16)):t%=u%
�9�T%(m%,8)=R%(r%,1)T%(m%,8)=R%(r%,4)�T%(m%,8)=R%(r%,1)
�<�T%(m%,16)=R%(t%,1)T%(m%,16)=R%(t%,4)�T%(m%,16)=R%(t%,1)
�<�T%(m%,19)=R%(s%,1)T%(m%,19)=R%(s%,4)�T%(m%,19)=R%(s%,1)
�DȔT%(m%,10),T%(m%,12):ȔT%(m%,11),T%(m%,13):ȔT%(m%,8),T%(m%,19)
��
��W_
"�u_%(10)=1 u_%(10)=0�u_%(10)=1
&�t
0g�u_%(10)=1�''"Main Station is now a Through station"''"Not all trains will get a new destiny here."
:`�u_%(10)=0�''"Main Station is now a Terminal station."''"All trains get a new destiny here."
D�5:�D_(20)
N�
b��U`
ly�b$="7"�t:�''"This is a track in maintenance. Switch the signals"'"to the lowest speed to prevent a derailment.":�5:�
v!�b$="b"�b$="c"�b$="d"�b$="e"�
��e%=1�u_%(1)
���r_%(e%,1)=A%+M_%�r_%(e%,2)=B%+L_%�t:�''"This is the entrypoint for the trains from ";�Oa(D$(e%)):�'"The interval is ";r_%(e%,3);"  (see Table with 'I')":�hb:�5
��
��
��b$="5"�
��e%=1�u_%(1)
�f�r_%(e%,7)=A%+M_%�r_%(e%,8)=B%+L_%�t:�''"This is the exitpoint for the trains to ";�Oa(D$(e%));:�5
��
��
ڀ�(b$)>=1��(b$)<=4�t:�''"This tells the train to stop. When permitted to go,"''"it will run into the opposite direction.":�5
��
���F_
��t:�'"First you may examine your area and check points and signals."''"When you're ready to start, press  S  "''"Time will be reset and your work in this control-room starts."
�
 ��N`
*!�ib("<Obey$Dir>.LogFile")=0�
4C=�"<Obey$Dir>.LogFile"
>+�#C:�("SETTYPE <Obey$Dir>.LogFile FFF")
H�
RC�''"Which of the present Stationmaps would you like to play?"''
\�("INFO <Obey$Dir>.Maps.*")
f
jb$=""
p�'':�:�:�""jb$:�jb$<>""
z*kb$="<Obey$Dir>.Maps."+jb$:��ib(kb$)=1
�
N`$=kb$:�
��
�"��V`:lb%=0:h%=A%+M_%:v%=B%+L_%
��b$="d"�b$="e"�b$="f"�
��c%=u_%(1)�(u_%(1)+u_%(11))
�9�h%>v_%(c%,1)�h%<v_%(c%,3)�v%>v_%(c%,2)�v%<v_%(c%,4)�
�O�b$="f"�t:�''"This is a siding track for GoodsTrains at ";�Oa(D$(c%)):lb%=1
�<�b$="d"�t:�''"This is the station of ";�Oa(D$(c%)):lb%=1
�K�b$="e"�t:�''"This is a siding for IC's and LP's at ";�Oa(D$(c%)):lb%=1
��:�
�8�lb%=0�t:�''"This is a suburban platform or siding."
��5
�
�
$��P_:�t
. �"----Keyboard-options----";
81�0,2);"S - Start game ";�33,2);"P - Pauze ";
B,�0,3);"D - Departure-table";�33,3);" ";
L �0,4);"I - Interval-table";
VF�0,5);"T - Toggle between Terminal-";�9,6);"and Through-station";
`4�33,6);"<space> - Return to Main Station area";
jA�0,7);"Q - Quit";�33,7);"<cursor-keys> - move through area";
t�D_(10)
~�5:�
���i_:�T%(m%,3)=0�
��((��6000)*6000)<T%(m%,4)�
�&�T%(m%,3)>u_%(1)��"1d1e1f",ha$)>0�
�-�T%(m%,23)=0 T%(m%,23)=�:�("Splay_telef")
��
���q`:�T%(m%,23)=0�
�.mb%=(�-T%(m%,23))/100:�mb%>10�T%(m%,26)=0�
�3i_%(4)=i_%(4)+1:T%(m%,26)=1:j_%(9,1)=j_%(9,1)+1
�j_%(9,2)=j_%(9,2)+(mb%*3)
�T%(m%,24)=T%(m%,24)+(mb%*3)
�

'T%(m%,23)=0:x_%(m%,0)=0:x_%(m%,1)=0
�
(
��Ib:nb=0
2�s%=5�T%(m%,2)=1 nb=200
<&�s%=5�T%(m%,2)=2�T%(m%,3)>0 nb=200
F�s%=5�T%(m%,2)=3 nb=300
Pq`=nb+T%(m%,21)
ZBIb=q`-T%(m%,24):�T%(m%,3)>0 j_%(T%(m%,2),2)=j_%(T%(m%,2),2)+nb
di_%(5)=i_%(5)+Ib
n�
���k_
�C%=�"<Obey$Dir>.LogFile"
� A$=�$:�#C%=�#C%:E$="       "
�-B$=A$+":  You played: "+jb$+"  for: "+Aa$
�$�i_%(3)=3 B$=B$+"  (Crashed!!!)"
�YC$="Trains received: "+�(i_%(1))+"   Derailments: "+�(i_%(2))+"   Delays: "+�(i_%(4))
�GF$="Trains sent out: "+�(i_%(6))+"   Total revenue: # "+�(j_%(6,2))
�#�#C%,B$:�#C%,C$:�#C%,F$:�#C%,E$
��#C%
��
���ya
��T%(m%,6)=0�ob
�
��ob
�x_%(m%,0)=0�oa
"�
,��oa
6)�T%(m%,3)<>0�e_(T%(m%,4)):Sb$=�Pa$,2)
@�T%(m%,3)=0 Sb$="00"
J1�T%(m%,3)<=u_%(1)x_$(m%)=Sb$+�D$(T%(m%,3)),3)
T�T%(m%,3)>u_%(1)�
^-�T%(m%,5)<10 x_$(m%)=Sb$+"P-"+�(T%(m%,5))
h+�T%(m%,5)>9 x_$(m%)=Sb$+"P"+�(T%(m%,5))
r,�T%(m%,2)=3 x_$(m%)=Sb$+�D$(T%(m%,3)),3)
|>�T%(m%,2)<3�v_%(T%(m%,3),8)=1 x_$(m%)=Sb$+�D$(T%(m%,3)),3)
�7�T%(m%,2)<3�T%(m%,5)=0 x_$(m%)=Sb$+�D$(T%(m%,3)),3)
��
�pb$=�(T%(m%,8))
�G�"1584",pb$)>0 x_%(m%,0)=T%(m%,10)*40+20:x_%(m%,1)=T%(m%,11)*40+34
�G�"2367",pb$)>0 x_%(m%,0)=T%(m%,12)*40+20:x_%(m%,1)=T%(m%,13)*40+34
�$�23,254,&FFFF;&FFFF;&FFFF;&FFFF;
�qb=M_%*40:rb=L_%*40
�(�>(T%(m%,4)+3000)�T%(m%,3)<>0�3��48
��T%(m%,3)=0�48
�,�5:�x_%(m%,0)-qb,x_%(m%,1)-rb:��5,�254);
�/�31:�5:�x_%(m%,0)-qb,x_%(m%,1)-rb:�x_$(m%);
��
 ݤOa(A$)
 sb%=�(A$)-3
 
=�A$,sb%)
 0��f`
 :�m%=1�a%
 D�x_%(m%,0)>0�
 N!�>T%(m%,4)�T%(m%,3)<>0�3��48
 X�T%(m%,3)=0�48
 bqb=M_%*40:rb=L_%*40
 l,�5:�x_%(m%,0)-qb,x_%(m%,1)-rb:��5,�254);
 v/�31:�5:�x_%(m%,0)-qb,x_%(m%,1)-rb:�x_$(m%);
 ��
 ��
 ��
 ���Ub:tb=0:ub=0
 �:vb=T%(m%,1):wb=T%(m%,2):xb=T%(m%,3):yb=(T%(m%,4)�6000)
 ��zb=1�a%
 ��T%(zb,1)<>vb�
 �ub=(T%(zb,4)�6000)
 �6�T%(zb,3)=xb�(ub=yb�ub=yb-1�ub=yb+1)Ob%=Ob%+1:tb=1
 ��
 ��
 �
�wb=1�
!�zb=1�a%
!ub=(T%(zb,4)�6000)
!?�T%(zb,1)<>vb�T%(zb,2)>1�T%(zb,3)=xb�ub=yb-1 Ob%=Ob%+1:tb=1
! �
!*�
!4
�wb>1�
!>�zb=1�a%
!Hub=(T%(zb,4)�6000)
!RH�T%(zb,1)<>vb�T%(zb,2)=1�T%(zb,3)=xb�(ub=yb+1�ub=yb+2)Ob%=Ob%+1:tb=1
!\�
!f�
!p�tb=0 Ob%=0
!z�
!���Jb:_b=0:`b=0
!��T%(m%,10)<M_%�
!�$�:M_%=M_%-25:�M_%<T%(m%,10):_b=1
!��
!��T%(m%,11)<L_%�
!�$�:L_%=L_%-10:�L_%<T%(m%,11):`b=1
!��
!��_b=0�T%(m%,10)>M_%+30�
!�'�:M_%=M_%+25:�M_%+30>T%(m%,10):_b=1
!��
!��`b=0�T%(m%,11)>L_%+20�
!�'�:L_%=L_%+10:�L_%+20>T%(m%,11):`b=1
"�
"�_b=1�`b=1 Z_%=1:�C_
"�
".��Q_
"87�t:�'"Table of intervals between trains at entry:";
"B'�5,3)"1 : 1-4mins     4 : 4-8mins"
"L(�5,4)"2 : 2-5mins     5 : 5-10mins"
"V(�5,5)"3 : 3-7mins     6 : 8-15mins"
"`��0,6)"To change: Click select on Entrypoint, whilst holding down"'"           the key with the number (1-6) on the keyboard"
"j�5
"t�
"�
��hb:Ac=0
"�&�-49 r_%(e%,3)=1:r_%(e%,4)=7:Ac=1
"�&�-50 r_%(e%,3)=2:r_%(e%,4)=8:Ac=1
"�&�-18 r_%(e%,3)=3:r_%(e%,4)=9:Ac=1
"�'�-19 r_%(e%,3)=4:r_%(e%,4)=10:Ac=1
"�'�-20 r_%(e%,3)=5:r_%(e%,4)=11:Ac=1
"�'�-53 r_%(e%,3)=6:r_%(e%,4)=12:Ac=1
"�+�Ac=1�'"Interval changed to ";r_%(e%,3)
"��D_(20)
"��
"���na:Bc%=9000
#)Ja%=v_%(T%(m%,3),7)-v_%(T%(m%,3),6)+1
#
�
#!�Ja%=1 j%=v_%(T%(m%,3),7)��Qa
#C�s_%(j%,1)<>0 d%=((�+Bc%)�6000)*6000:�d%<=s_%(j%,2)Bc%=Bc%+6000
#(�d%>s_%(j%,2)�s_%(j%,1)=0
#2'�s_%(j%,1)=0 d%=((�+Bc%)�6000)*6000
#<"s_%(j%,1)=m%:s_%(j%,2)=�+90000
#FT%(m%,5)=j%:T%(m%,4)=d%
#P�
#d��ra(q%,Cc%)
#n�q%=&20�q%=&09�q%=&86�
#x�Cc%=1�Cc%=2 q%=&10
#��Cc%=5�Cc%=6 q%=&12
#��
#��q%=&08�
#��Cc%=8�Cc%=7 q%=&13
#��Cc%=5�Cc%=6 q%=&12
#��
#��q%=&30�q%=&0a�q%=&87�
#��Cc%=1�Cc%=2 q%=&10
#��Cc%=8�Cc%=7 q%=&13
#��
#��q%=&23�
#��Cc%=8�Cc%=7 q%=&13
#��Cc%=4�Cc%=3 q%=&11
$�
$�q%=&33�
$�Cc%=4�Cc%=3 q%=&11
$"�Cc%=5�Cc%=6 q%=&12
$,�
$6	u%=q%
$@�
$T��D_(Dc)
$^D_%=�+Dc:�:��>D_%
$h�
$|��sa(q%,Cc%)
$��q%=&2a�
$��Cc%=1�Cc%=2 q%=&10
$��Cc%=5�Cc%=6 q%=&2a
$��
$��q%=&2b�
$��Cc%=1�Cc%=2 q%=&2b
$��Cc%=5�Cc%=6 q%=&12
$��
$��q%=&3a�
$��Cc%=1�Cc%=2 q%=&10
$��Cc%=8�Cc%=7 q%=&3a
$��
$��q%=&3b�
%�Cc%=1�Cc%=2 q%=&3b
%�Cc%=8�Cc%=7 q%=&13
%�
%&�q%=&06�
%0�Cc%=1�Cc%=2 q%=&2b
%:�Cc%=4�Cc%=3 q%=&11
%D�
%N	u%=q%
%X�
%l��g_:�t
%vL�''"  Would you like to Save the situation and re-control it later? Y/N"
%��:c$=�:��"YyNn",c$)>0
%��c$="N"�c$="n"�
%�/�''"  What is the name for the file? : "Ec$
%��Ec$=""�
%�Fc$="<Obey$Dir>.Saved."+Ec$
%�3�'"  Now saving......approx. 75k of data."'''''
%�
C=�Fc$
%��#C,a%,A%,K_%(8),P`%
%�#�x=1�a%:�y=1�35:�#C,T%(x,y):�:�
%�%�x=0�120:�y=0�40:�#C,q_$(x,y):�:�
%�0�x=0�120:�y=0�40:�#C,Q%(x,y,0),Q%(x,y,1):�:�
%�"�x=0�8:�y=0�9:�#C,r_%(x,y):�:�
%�#�x=0�30:�y=0�4:�#C,s_%(x,y):�:�
&#�x=0�20:�y=0�9:�#C,v_%(x,y):�:�
&�x=0�12:�#C,u_%(x):�
&�x=0�20:�#C,D$(x):�
& �x=0�6:�#C,i_%(x):�
&**�x=0�a%:�#C,x_%(x,0),x_%(x,1),x_$(x):�
&4"�x=0�4:�y=0�5:�#C,__%(x,y):�:�
&>#�x=0�14:�#C,j_%(x,1),j_%(x,2):�
&H�x=0�5:�#C,`_%(x):�
&R�#C
&\�
&f�
&z��B_
&�"�''"!RailPro - version 1.2"'''
&�m�'"Do you wish to:"''"(1) - Start a new station/control"'"(2) - Load a saved situation"''"Your choice..."
&��:c$=�:��"12",c$)>0
&��c$="1"�M`:�
&�
�'''''" "
&� �("INFO <Obey$Dir>.Saved.*")
&�1�''"What is the name of the saved file?  "jb$
&��jb$=""�:�M`:�
&�kb$="<Obey$Dir>.Saved."+jb$
&�&�ib(kb$)=0�"File not found":�M`:�
&��''"Loading....."
&�
C=�kb$
&��#C,a%,A%,K_%(8),P`%
'#�x=1�a%:�y=1�35:�#C,T%(x,y):�:�
'%�x=0�120:�y=0�40:�#C,q_$(x,y):�:�
'0�x=0�120:�y=0�40:�#C,Q%(x,y,0),Q%(x,y,1):�:�
'$"�x=0�8:�y=0�9:�#C,r_%(x,y):�:�
'.#�x=0�30:�y=0�4:�#C,s_%(x,y):�:�
'8#�x=0�20:�y=0�9:�#C,v_%(x,y):�:�
'B�x=0�12:�#C,u_%(x):�
'L�x=0�20:�#C,D$(x):�
'V�x=0�6:�#C,i_%(x):�
'`*�x=0�a%:�#C,x_%(x,0),x_%(x,1),x_$(x):�
'j"�x=0�4:�y=0�5:�#C,__%(x,y):�:�
't#�x=0�14:�#C,j_%(x,1),j_%(x,2):�
'~�x=0�5:�#C,`_%(x):�
'��#C
'�E_%=1:�=A%:�
'��Q`
'��x=1�a%
'�#�T%(x,1)<>0�T%(x,3)=0 D`%=D`%+1
'��
'��
'���Zb:�a`:�
'�5!p_%=1:p_%!4=1:p_%!8=4:p_%!12=4:S$=q_$(1,1):Gc=10
'�ș264000,n_%,S$,-1,-1,o_%,2
(�v=0�120:�w=0�40
(
Hc=v*Gc+30:Ic=w*Gc+200
(S$=q_$(v,w):d`$=S$
(�S$,1)<>"9"�S$<>"00"�
(($ș&2E,308,n_%,S$,Hc,Ic,0,p_%,o_%
(2�
(F�:�
(P�m%=1�a%
(ZWba%=T%(m%,10):ca%=T%(m%,11):da%=T%(m%,12):ea%=T%(m%,13):fa%=T%(m%,14):ga%=T%(m%,15)
(dNRa$="i"+�(Q%(ba%,ca%,0)):Sa$="i"+�(Q%(da%,ea%,0)):Ta$="i"+�(Q%(fa%,ga%,0))
(n*L%=T%(m%,10)*Gc+30:H%=T%(m%,11)*Gc+200
(x%ș&2E,308,n_%,Ra$,L%,H%,8,p_%,o_%
(�*L%=T%(m%,12)*Gc+30:H%=T%(m%,13)*Gc+200
(�%ș&2E,308,n_%,Sa$,L%,H%,8,p_%,o_%
(�*L%=T%(m%,14)*Gc+30:H%=T%(m%,15)*Gc+200
(�%ș&2E,308,n_%,Ta$,L%,H%,8,p_%,o_%
(��
(��
(���m_:Jc%=0
(�!�ib("<Obey$Dir>.Scores")=0:�
(��i_%(6)-i_%(2)<=0�
(�Kc%=�(j_%(6,2)/20)
(�C=�"<Obey$Dir>.Scores"
(��v=1�10:�#C,z_$(v),z_%(v):�
)�#C
)�Kc%>=z_%(10)�
)�4:�:�''''
)";�I_%=1�" Despite the disastrous ending of your job...."
),B�" Your controlling has earned you a place in the bonuslist"''
)6 �" What is your name ?  "Lc$
)@�Lc$="" Lc$="Unspellable"
)J�(Lc$)>15 Lc$=�Lc$,15)
)T!z_%(10)=Kc%:z_$(10)=Lc$:Jc%=1
)^�K`=10�2�-1
)h=�z_%(K`)>z_%(K`-1)Ȕz_%(K`),z_%(K`-1):Ȕz_$(K`),z_$(K`-1)
)r�
)|�
)��28,23,45,56,12:�176:�:�62
)�:�''�8);"BONUSLIST  !RailPro";�8);"~~~~~~~~~~~~~~~~~~~"
)�� PRINT'
)�0�v=1�9:�'"     ";v;"  ";z_$(v);�25);z_%(v):�
)�-v=10:�'"    ";v;"  ";z_$(10);�25);z_%(10)
)��Jc%=1�
)�C=�"<Obey$Dir>.Scores"
)��v=1�10:�#C,z_$(v),z_%(v):�
)��#C
)��
)�&�Jc%=0�'"     Your bonus is: ";Kc%
)�p�60:�'"    Details of your performance"'"    can be found in the Logfile"'''"     Press - C - to continue.."
)��:ab$=�:��"Cc",ab$)
*�28
*�
*&��Ea:a=0:b=0:c=1
*0�__%(c,0)=0�
*:a=�(115):b=�(39)
*DE�(q_$(a,b)="10"�q_$(a,b)="07")�(q_$(a+1,b)="10"�q_$(a+1,b)="07")�
*NG�"7071 0b0c0d0e05",q_$(a-1,b))=0��"7071 0b0c0d0e05",q_$(a+2,b))=0�
*X;�Q%(a,b,1)=0�Q%(a-2,b,1)=0�Q%(a+2,b,1)=0�Q%(a+4,b,1)=0�
*b�a_(a,b,b)
*l;__%(c,0)=1:__%(c,1)=a:__%(c,2)=a+1:__%(c,4)=b:�Mc("07")
*v=__%(c,5)=�(60000):�__%(c,5)<12000 __%(c,5)=__%(c,5)+18000
*�__%(c,5)=__%(c,5)+�
*��("Splay_acco")
*���_`:�'" Maintenance has started on some track."''" Trains are allowed on lowest speed!"''" Other speeds will lead to a derailment!!.":�``:i_%(5)=i_%(5)+150:j_%(5,1)=j_%(5,1)+1
*�j_%(5,2)=j_%(5,2)+150
*�A`%=�+1000:c=1:�5
*��
*��
*��
*��
*��
*��
*���Ga:a=0:b=0:c=1
+�__%(c,0)=1��>__%(c,5)�
+#�a_(__%(c,1),__%(c,4),__%(c,4))
+#a=__%(c,1):b=__%(c,4):�Mc("10")
+ �e`:�f`
+*�("Splay_trei2")
+4��_`:�'" Maintenance has cleared track after work."''" No speed-restriction anymore at that point"''" Full speed traffic is allowed again...":�``
+>A`%=�+500:�5
+H�Nc=0�5:__%(c,Nc)=0:�
+R�
+\�
+p��za
+zla%=36:�t:�("Splay_apla")
+���'" Train ";t_$(T%(m%,2));"-";T%(m%,1);" crashed at a track in maintenance!!!"''"Damage is enormous and the line(s) on that spot will be"'"unavailable for 10 more minutes, as workmen have to clear the track."'"This costs your company # 1500."
+�BF`%=5:�T%(m%,3)>0:T%(m%,21)=T%(m%,21)-1500:�Ib:i_%(2)=i_%(2)+1
+�.j_%(7,1)=j_%(7,1)+1:j_%(7,2)=j_%(7,2)+1500
+�
�c=0�1
+�d�__%(c,0)=1�(T%(m%,10)=__%(c,1)�T%(m%,10)=__%(c,1)+1)�T%(m%,11)=__%(c,4):__%(c,5)=__%(c,5)+60000
+��
+��
+���a_(Oc,Qc,Rc)
+�
_b=0:`b=0
+��Oc<M_%�
+��:M_%=M_%-25:�M_%<Oc:_b=1
+��
,�_b=0�Oc>M_%+30�
, �:M_%=M_%+25:�M_%+30>Oc:_b=1
,�
,$�Qc>L_%+19�
,. �:L_%=L_%+10:�L_%+20>Qc:`b=1
,8�
,B�`b=0�Rc<L_%�
,L�:L_%=L_%-10:�L_%<Qc:`b=1
,V�
,`�_b=1�`b=1 Z_%=1:�C_
,j�
,~
��V_:�
,��V_%=1 V_%=0�V_%=1
,�W�V_%=1�_`:�''" Track maintenance crews will be"''" sent out to work on tracks.":�``
,�k�V_%=0�_`:�''" Track maintenance crews will be sent home"''" when finished working on some track..":�``
,��D_(20)
,��
,�*��Tb:i_%(5)=i_%(5)+T%(m%,21)-T%(m%,24)
,�j_%(2,2)=j_%(2,2)-T%(m%,24)
,�?T%(m%,3)=0:T%(m%,4)=�:T%(m%,25)=�:s_%(T%(m%,5),2)=T%(m%,25)
,�]D`%=D`%+1:T%(m%,6)=3:T%(m%,9)=0:T%(m%,5)=0:T%(m%,7)=0:T%(m%,24)=0:T%(m%,23)=0:T%(m%,21)=0
,�j_%(11,1)=j_%(11,1)+1
,�J`%=�+24000
-�
-��Fa
-�D`%>0�
-(a=�(117)+1:b=�(38)
-2W�q_$(a,b)="1d"�q_$(a+1,b)="1d"��"01020304",q_$(a-1,b))=0��"01020304",q_$(a+2,b))=0�
-<`_%(0)=1:`_%(1)=a:`_%(2)=b
-F�
-PW�q_$(a,b)="1d"�q_$(a-1,b)="1d"��"01020304",q_$(a+1,b))=0��"01020304",q_$(a-2,b))=0�
-Z `_%(0)=1:`_%(1)=a-1:`_%(2)=b
-d�
-n�`_%(0)=1�
-xa=`_%(1):�a_(a,b,b)
-�
�Mc("1c")
-�`_%(3)=�+42100
-�`_%(5)=(�(100)*D`%)
-��("Splay_aurot")
-��T`
-�A`%=�+1000:�5
-��
-��
-��
-���T`
-��_`:�'" An excursion party is waiting on a"'" platform for their extra train homewards."''" Counted passengers: ";`_%(5)''" Time left: ";:�e_(`_%(3)-�):�Aa$;:�``
-��
.��T_
.�`_%(0)=0�
."a=`_%(1):b=`_%(2)
.,$�>=`_%(3)�`_%(5)=0�Q%(a,b,1)=0�
.6
�Mc("1d")
.@d�_`:�'" The whole excursion party has boarded."''" You moved all passengers in time.":�``:�D_(3)
.J�a=0�5:`_%(a)=0:�
.T�
.^$�>=`_%(3)�`_%(5)>0�Q%(a,b,1)=0�
.h
�Mc("1d")
.r��_`:�'" Failed in moving the excursion party."''" Leased buses have moved ";`_%(5);" passengers."''" Your bill to pay: # ";(`_%(5)*15):�``:�D_(15)
.|Oj_%(8,1)=j_%(8,1)+1:j_%(8,2)=j_%(8,2)+(`_%(5)*15):i_%(5)=i_%(5)-(`_%(5)*15)
.��a=0�5:`_%(a)=0:�
.��
.��`_%(1)=0�("Splay_aurot")
.��
.�
��Mc(z`$)
.�q_$(a,b)=z`$:q_$(a+1,b)=z`$
.�@L%=(a-M_%)*40-4:H%=(b-L_%)*40-4:ș&2E,34+256,n_%,z`$,L%,H%,8
.�BL%=(a+1-M_%)*40-4:H%=(b-L_%)*40-4:ș&2E,34+256,n_%,z`$,L%,H%,8
.��
.���l_:�c%
.�Sc%=j_%(11,2)
/�D`%>0�
/�c%=1�a%
/B�T%(c%,3)=0�T%(c%,9)=0 j_%(11,2)=j_%(11,2)+�((�-T%(c%,4))/100)
/&�
/0�
/:A�28,19,53,60,10:�197:�63:�4:�:u$=" ":v$=" ":�h_:Tc$="  -   #"
/D)�'"           MANAGEMENT INFORMATION"
/N,�"          ========================"'''
/X"�" Received trains: ";j_%(0,1)
/b"�" Trains sent out: ";j_%(0,2)
/l�''" Revenues:"
/v�" ---------":�z(1)
/�H�"      Intercity's  : ";u$;j_%(1,1);Tc$;:�56:�v$;j_%(1,2):�z(2):�63
/�H�"      Local Trains : ";u$;j_%(2,1);Tc$;:�56:�v$;j_%(2,2):�z(3):�63
/�H�"      Goods Trains : ";u$;j_%(3,1);Tc$;:�56:�v$;j_%(3,2):�z(4):�63
/�I�'"      Extra Trains : ";u$;j_%(4,1);Tc$;:�56:�v$;j_%(4,2):�z(5):�63
/��'" Bonus:"
/��" ------"
/�H�"  Track Maintenance: ";u$;j_%(5,1);Tc$;:�56:�v$;j_%(5,2):�z(9):�63
/��''" Direct Losses:"
/��" --------------"
/�I�"            Delays : ";u$;j_%(9,1);Tc$;:�87:�v$;j_%(9,2):�z(12):�63
/�J�"  Emergency Brakes : ";u$;j_%(12,1);Tc$;:�87:�v$;j_%(12,2):�z(7):�63
/�H�"       Derailments : ";u$;j_%(7,1);Tc$;:�87:�v$;j_%(7,2):�z(8):�63
/�I�"      Extra Events : ";u$;j_%(8,1);Tc$;:�87:�v$;j_%(8,2):�z(11):�63
0�'" Indirect Losses:"
0�" ----------------"
0K�"      Empty Trains : ";u$;j_%(11,1);Tc$;:�87:�v$;j_%(11,2):�z(10):�63
0 J�"            Others : ";u$;j_%(10,1);Tc$;:�87:�v$;j_%(10,2):�z(6):�63
0*@�''"     Total Revenue :           #";v$;:�28:�;j_%(6,2):�63
04�''" ";�40,"=");
0>j_%(11,2)=Sc%
0H,�''"          -Press - C - to continue-"
0R�``
0\�:ab$=�:��"Cc",ab$)
0f�
0z
��z(v)
0��j_%(v,1)>=100 u$=" "
0��j_%(v,1)<100 u$="  "
0��j_%(v,1)<10 u$="   "
0��j_%(v,2)>100000 v$=" "
0��j_%(v,2)<100000 v$="  "
0��j_%(v,2)<10000 v$="   "
0��j_%(v,2)<1000 v$="    "
0��j_%(v,2)<100 v$="     "
0��j_%(v,2)<10 v$="      "
0��j_%(v,2)<0 v$="     "
0��j_%(v,2)<-9 v$="    "
0��j_%(v,2)<-99 v$="   "
0��j_%(v,2)<-999 v$="  "
1�j_%(v,2)<-9999 v$=" "
1�
1$��h_
1.rj_%(6,2)=j_%(1,2)+j_%(2,2)+j_%(3,2)+j_%(4,2)+j_%(5,2)-j_%(7,2)-j_%(8,2)-j_%(9,2)-j_%(10,2)-j_%(11,2)-j_%(12,2)
18�
1L
ݤib(Uc$)
1V�C%
1`
C%=�(Uc$)
1j�C%=0�=0
1t�#C%
1~=1
1���Q`
1�3c%=u_%(1)+1:�v_%(c%,7)-v_%(c%,6)<7 K_%(8)=30000
1�+b_%=((v_%(c%,3)-v_%(c%,1))/2)+v_%(c%,1)
1�-c_%=v_%(c%,4):d_%=v_%(c%,2):q_$(0,0)="00"
1��
1���t`
1��("Splay_warn")
1��Gb:�'" Driver of train ";t_$(T%(m%,2));"-";T%(m%,1);" reports the"''" passing of a point towards"''"   ";�Oa(D$(T%(m%,3)))
1��``
1��
�

00000000  78 10 9f e5 78 20 9f e5  78 30 9f e5 01 00 52 e4  |x...x ..x0....R.|
00000010  01 00 43 e4 01 10 51 e2  fb ff ff 1a 10 00 00 ef  |..C...Q.........|
00000020  9d 20 8f e2 01 10 d0 e4  00 00 31 e3 20 00 31 13  |. ........1. .1.|
00000030  01 10 c2 14 fa ff ff 1a  22 30 a0 e3 01 30 c2 e4  |........"0...0..|
00000040  20 30 a0 e3 01 30 c2 e4  00 00 31 e3 01 00 40 02  | 0...0....1...@.|
00000050  01 10 d0 e4 01 10 c2 e4  00 00 31 e3 fb ff ff 1a  |..........1.....|
00000060  43 00 8f e2 4c 10 8f e2  01 20 42 e0 00 30 a0 e3  |C...L.... B..0..|
00000070  04 40 a0 e3 24 00 00 ef  0c 00 8f e2 05 00 00 ef  |.@..$...........|
00000080  d8 96 00 00 9c 17 01 00  d7 26 01 00 42 61 73 69  |.........&..Basi|
00000090  63 20 2d 71 75 69 74 20  40 30 30 30 30 39 30 30  |c -quit @0000900|
000000a0  30 2c 30 30 30 31 32 36  44 38 00 4d 61 6b 65 41  |0,000126D8.MakeA|
000000b0  70 70 32 24 43 4c 49 00  42 61 73 69 63 20 2d 71  |pp2$CLI.Basic -q|
000000c0  75 69 74 20 22 0d 00 00  4f de 42 25 20 32 35 36  |uit "...O.B% 256|
000000d0  3a 43 24 3d 22 4d 61 6b  65 41 70 70 32 24 43 4c  |:C$="MakeApp2$CL|
000000e0  49 22 3a c8 99 33 35 2c  43 24 2c 42 25 2c 32 35  |I":..35,C$,B%,25|
000000f0  36 3a c8 99 31 36 b8 2c  2c 54 25 3a c8 99 37 32  |6:..16.,,T%:..72|
00000100  2c 42 25 2c 54 25 3a c8  99 33 36 2c 43 24 2c 22  |,B%,T%:..36,C$,"|
00000110  22 2c 2d 31 0d 00 0a 28  f4 20 21 52 75 6e 49 6d  |",-1...(. !RunIm|
00000120  61 67 65 20 6f 66 20 21  52 61 69 6c 50 72 6f 2c  |age of !RailPro,|
00000130  20 76 65 72 73 69 6f 6e  20 31 2e 32 0d 00 14 17  | version 1.2....|
00000140  f4 20 43 72 65 61 74 65  64 20 36 2d 31 32 2d 31  |. Created 6-12-1|
00000150  39 39 37 0d 00 1e 16 f4  20 62 79 20 4a 6f 73 20  |997..... by Jos |
00000160  4b 65 69 6a 7a 65 72 73  2c 0d 00 28 1c f4 20 44  |Keijzers,..(.. D|
00000170  6f 72 64 72 65 63 68 74  2c 20 4e 65 74 68 65 72  |ordrecht, Nether|
00000180  6c 61 6e 64 73 0d 00 32  1c f4 20 3d 3d 3d 3d 3d  |lands..2.. =====|
00000190  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
000001a0  3d 0d 00 3c 07 eb 32 38  0d 00 46 11 ee 85 db 3a  |=..<..28..F....:|
000001b0  f6 3a f1 9e 3a f1 9f 3a  fa 0d 00 50 05 f5 0d 00  |.:..:..:...P....|
000001c0  5a 1a f2 41 5f 3a f2 42  5f 3a f2 43 5f 3a f2 74  |Z..A_:.B_:.C_:.t|
000001d0  3a f2 44 5f 28 35 30 29  0d 00 64 0d e7 45 5f 25  |:.D_(50)..d..E_%|
000001e0  3d 30 f2 46 5f 0d 00 6e  07 c8 97 ee 0d 00 78 0e  |=0.F_..n......x.|
000001f0  c8 97 b8 36 30 30 2c 34  30 30 0d 00 82 05 f5 0d  |...600,400......|
00000200  00 8c 07 f2 47 5f 0d 00  96 08 fd 48 5f 25 0d 00  |....G_.....H_%..|
00000210  a0 0b e7 49 5f 25 3e 30  8c 0d 00 aa 54 db 3a f1  |...I_%>0....T.:.|
00000220  27 27 22 57 6f 75 6c 64  20 79 6f 75 20 6c 69 6b  |''"Would you lik|
00000230  65 20 74 6f 20 70 6c 61  79 20 61 67 61 69 6e 20  |e to play again |
00000240  77 69 74 68 20 74 68 65  20 73 61 6d 65 20 6f 72  |with the same or|
00000250  20 61 6e 6f 74 68 65 72  20 6d 61 70 20 6e 6f 77  | another map now|
00000260  3f 20 59 2f 4e 22 3a ef  35 3a e6 36 33 0d 00 b4  |? Y/N":.5:.63...|
00000270  19 f5 3a 63 24 3d be 3a  fd a7 22 59 79 4e 6e 22  |..:c$=.:.."YyNn"|
00000280  2c 63 24 29 3e 30 0d 00  be 2a e7 63 24 3d 22 59  |,c$)>0...*.c$="Y|
00000290  22 84 63 24 3d 22 79 22  20 48 5f 25 3d 30 3a ef  |".c$="y" H_%=0:.|
000002a0  32 36 3a fb 31 32 38 3a  e6 31 32 38 3a db 3a da  |26:.128:.128:.:.|
000002b0  0d 00 c8 05 cd 0d 00 d2  08 fd 48 5f 25 0d 00 dc  |..........H_%...|
000002c0  0f c8 99 32 36 32 33 38  33 2c 2d 31 0d 00 e6 05  |...262383,-1....|
000002d0  e0 0d 00 fa 08 dd f2 47  5f 0d 01 04 05 f5 0d 01  |.......G_.......|
000002e0  0e 07 f2 4a 5f 0d 01 18  0e c8 97 58 25 2c 59 25  |...J_......X%,Y%|
000002f0  2c 5a 25 0d 01 22 21 e7  a6 2d 38 32 80 45 5f 25  |,Z%.."!..-82.E_%|
00000300  3d 30 20 45 5f 25 3d 31  3a d1 3d 4b 5f 25 28 30  |=0 E_%=1:.=K_%(0|
00000310  29 3a f2 74 0d 01 2c 1f  e7 a6 2d 35 38 80 4c 5f  |):.t..,...-58.L_|
00000320  25 3c 32 30 20 4c 5f 25  3d 4c 5f 25 2b 31 30 3a  |%<20 L_%=L_%+10:|
00000330  f2 43 5f 0d 01 36 20 e7  a6 2d 34 32 80 4c 5f 25  |.C_..6 ..-42.L_%|
00000340  3e 3d 31 30 20 4c 5f 25  3d 4c 5f 25 2d 31 30 3a  |>=10 L_%=L_%-10:|
00000350  f2 43 5f 0d 01 40 20 e7  a6 2d 31 32 32 80 a6 2d  |.C_..@ ..-122..-|
00000360  32 80 4d 5f 25 3c 35 30  20 4d 5f 25 3d 4d 5f 25  |2.M_%<50 M_%=M_%|
00000370  2b 32 35 0d 01 4a 20 e7  a6 2d 31 32 32 80 4d 5f  |+25..J ..-122.M_|
00000380  25 3c 38 30 20 4d 5f 25  3d 4d 5f 25 2b 32 35 3a  |%<80 M_%=M_%+25:|
00000390  f2 43 5f 0d 01 54 20 e7  a6 2d 32 36 80 a6 2d 32  |.C_..T ..-26..-2|
000003a0  80 4d 5f 25 3e 3d 35 30  20 4d 5f 25 3d 4d 5f 25  |.M_%>=50 M_%=M_%|
000003b0  2d 32 35 0d 01 5e 20 e7  a6 2d 32 36 80 4d 5f 25  |-25..^ ..-26.M_%|
000003c0  3e 3d 32 35 20 4d 5f 25  3d 4d 5f 25 2d 32 35 3a  |>=25 M_%=M_%-25:|
000003d0  f2 43 5f 0d 01 68 26 e7  5a 25 3d 34 20 41 25 3d  |.C_..h&.Z%=4 A%=|
000003e0  58 25 81 34 30 3a 42 25  3d 59 25 81 34 30 3a e7  |X%.40:B%=Y%.40:.|
000003f0  59 25 3c 38 30 30 f2 4e  5f 0d 01 72 25 e7 5a 25  |Y%<800.N_..r%.Z%|
00000400  3d 31 20 41 25 3d 58 25  81 34 30 3a 42 25 3d 59  |=1 A%=X%.40:B%=Y|
00000410  25 81 34 30 3a e7 42 25  3c 32 30 f2 4f 5f 0d 01  |%.40:.B%<20.O_..|
00000420  7c 0c e7 5a 25 3d 32 f2  50 5f 0d 01 86 0c e7 a6  ||..Z%=2.P_......|
00000430  2d 33 38 f2 51 5f 0d 01  90 13 e7 45 5f 25 3d 30  |-38.Q_.....E_%=0|
00000440  20 63 25 3d b3 28 31 32  29 0d 01 9a 0b e7 45 5f  | c%=.(12).....E_|
00000450  25 3d 31 8c 0d 01 a4 25  e7 5a 25 3d 31 20 41 25  |%=1....%.Z%=1 A%|
00000460  3d 58 25 81 34 30 3a 42  25 3d 59 25 81 34 30 3a  |=X%.40:B%=Y%.40:|
00000470  e7 42 25 3c 32 30 f2 52  5f 0d 01 ae 10 e7 61 25  |.B%<20.R_.....a%|
00000480  3e 30 f2 53 5f 3a f2 54  5f 0d 01 b8 11 e7 61 25  |>0.S_:.T_.....a%|
00000490  3c 4b 5f 25 28 35 29 f2  55 5f 0d 01 c2 0c e7 a6  |<K_%(5).U_......|
000004a0  2d 33 34 f2 56 5f 0d 01  cc 0c e7 a6 2d 33 36 f2  |-34.V_......-36.|
000004b0  57 5f 0d 01 d6 0c e7 a6  2d 35 36 f2 58 5f 0d 01  |W_......-56.X_..|
000004c0  e0 0c e7 a6 2d 35 31 f2  59 5f 0d 01 ea 2a e7 a6  |....-51.Y_...*..|
000004d0  2d 39 39 20 5a 5f 25 3d  30 3a f2 61 5f 28 62 5f  |-99 Z_%=0:.a_(b_|
000004e0  25 2c 63 5f 25 2c 64 5f  25 29 3a e7 5a 5f 25 3d  |%,c_%,d_%):.Z_%=|
000004f0  30 f2 43 5f 0d 01 f4 05  cd 0d 01 fe 0d fd 48 5f  |0.C_..........H_|
00000500  25 84 a6 2d 31 37 0d 02  08 09 48 5f 25 3d 31 0d  |%..-17....H_%=1.|
00000510  02 12 2a 41 25 3d 91 2d  4b 5f 25 28 30 29 3a f2  |..*A%=.-K_%(0):.|
00000520  65 5f 28 41 25 29 3a 66  5f 25 3d 28 41 25 2f 36  |e_(A%):f_%=(A%/6|
00000530  30 30 30 29 3a 41 25 3d  91 0d 02 1c 12 e7 a6 2d  |000):A%=.......-|
00000540  31 37 80 49 5f 25 3d 30  f2 67 5f 0d 02 26 25 f2  |17.I_%=0.g_..&%.|
00000550  68 5f 3a 69 5f 25 28 35  29 3d 6a 5f 25 28 36 2c  |h_:i_%(5)=j_%(6,|
00000560  32 29 3a e7 69 5f 25 28  31 29 3e 31 30 f2 6b 5f  |2):.i_%(1)>10.k_|
00000570  0d 02 30 0b f2 6c 5f 3a  f2 6d 5f 0d 02 3a 05 e1  |..0..l_:.m_..:..|
00000580  0d 02 4e 0a dd f2 41 5f  3a d8 0d 02 58 1e de 6e  |..N...A_:...X..n|
00000590  5f 25 26 35 30 30 30 30  2c 6f 5f 25 20 31 30 32  |_%&50000,o_% 102|
000005a0  34 2c 70 5f 25 20 32 34  0d 02 62 10 6e 5f 25 21  |4,p_% 24..b.n_%!|
000005b0  30 3d 26 35 30 30 30 30  0d 02 6c 0c 6e 5f 25 21  |0=&50000..l.n_%!|
000005c0  38 3d 31 36 0d 02 76 13  c8 99 26 32 45 2c 39 2b  |8=16..v...&2E,9+|
000005d0  32 35 36 2c 6e 5f 25 0d  02 80 29 c8 99 26 32 45  |256,n_%...)..&2E|
000005e0  2c 31 30 2b 32 35 36 2c  6e 5f 25 2c 22 3c 4f 62  |,10+256,n_%,"<Ob|
000005f0  65 79 24 44 69 72 3e 2e  53 70 72 69 74 65 73 22  |ey$Dir>.Sprites"|
00000600  0d 02 8a c9 de 54 25 28  32 35 2c 33 35 29 2c 71  |.....T%(25,35),q|
00000610  5f 24 28 31 32 30 2c 34  30 29 2c 51 25 28 31 32  |_$(120,40),Q%(12|
00000620  30 2c 34 30 2c 31 29 2c  52 25 28 31 34 30 2c 35  |0,40,1),R%(140,5|
00000630  29 2c 72 5f 25 28 38 2c  39 29 2c 73 5f 25 28 33  |),r_%(8,9),s_%(3|
00000640  30 2c 34 29 2c 74 5f 24  28 33 29 2c 44 24 28 32  |0,4),t_$(3),D$(2|
00000650  30 29 2c 4b 5f 25 28 31  31 29 2c 75 5f 25 28 31  |0),K_%(11),u_%(1|
00000660  32 29 2c 76 5f 25 28 32  30 2c 39 29 2c 66 25 28  |2),v_%(20,9),f%(|
00000670  38 2c 33 29 2c 77 5f 24  28 32 30 2c 31 29 2c 69  |8,3),w_$(20,1),i|
00000680  5f 25 28 36 29 2c 78 5f  25 28 32 35 2c 31 29 2c  |_%(6),x_%(25,1),|
00000690  78 5f 24 28 32 35 29 2c  79 5f 25 28 31 32 29 2c  |x_$(25),y_%(12),|
000006a0  7a 5f 24 28 31 30 29 2c  7a 5f 25 28 31 30 29 2c  |z_$(10),z_%(10),|
000006b0  5f 5f 25 28 34 2c 35 29  2c 6a 5f 25 28 31 34 2c  |__%(4,5),j_%(14,|
000006c0  32 29 2c 60 5f 25 28 35  29 0d 02 94 90 4d 5f 25  |2),`_%(5)....M_%|
000006d0  3d 30 3a 4c 5f 25 3d 30  3a 6d 25 3d 30 3a 61 25  |=0:L_%=0:m%=0:a%|
000006e0  3d 30 3a 74 5f 24 28 31  29 3d 22 49 43 22 3a 74  |=0:t_$(1)="IC":t|
000006f0  5f 24 28 32 29 3d 22 4c  50 22 3a 74 5f 24 28 33  |_$(2)="LP":t_$(3|
00000700  29 3d 22 47 44 22 3a 48  5f 25 3d 30 3a 41 60 25  |)="GD":H_%=0:A`%|
00000710  3d 30 3a 42 60 25 3d 30  3a 43 60 25 3d 30 3a 5a  |=0:B`%=0:C`%=0:Z|
00000720  5f 25 3d 31 3a 45 5f 25  3d 30 3a 49 5f 25 3d 30  |_%=1:E_%=0:I_%=0|
00000730  3a 56 5f 25 3d 31 3a 44  60 25 3d 30 3a 45 60 25  |:V_%=1:D`%=0:E`%|
00000740  3d 30 3a 46 60 25 3d 30  3a 47 60 25 3d 30 3a 48  |=0:F`%=0:G`%=0:H|
00000750  60 3d 31 3a 49 60 25 3d  30 0d 02 9e 1a 44 24 28  |`=1:I`%=0....D$(|
00000760  30 29 3d 22 2d 2d 2d 2d  2d 2d 22 3a 4a 60 25 3d  |0)="------":J`%=|
00000770  31 30 30 0d 02 a8 8c 4b  5f 25 28 30 29 3d 35 30  |100....K_%(0)=50|
00000780  34 30 30 30 30 3a 4b 5f  25 28 31 29 3d 31 30 30  |40000:K_%(1)=100|
00000790  3a 4b 5f 25 28 32 29 3d  31 32 30 3a 4b 5f 25 28  |:K_%(2)=120:K_%(|
000007a0  33 29 3d 31 34 30 3a 4b  5f 25 28 34 29 3d 32 34  |3)=140:K_%(4)=24|
000007b0  3a 4b 5f 25 28 35 29 3d  33 30 30 30 3a 4b 5f 25  |:K_%(5)=3000:K_%|
000007c0  28 36 29 3d 31 32 30 30  30 3a 4b 5f 25 28 37 29  |(6)=12000:K_%(7)|
000007d0  3d 31 38 30 30 30 3a 4b  5f 25 28 38 29 3d 34 32  |=18000:K_%(8)=42|
000007e0  30 30 30 3a 4b 5f 25 28  39 29 3d 35 34 30 30 30  |000:K_%(9)=54000|
000007f0  3a 4b 5f 25 28 31 30 29  3d 31 32 30 30 30 30 0d  |:K_%(10)=120000.|
00000800  02 b2 23 e3 76 3d 30 b8  32 35 3a e3 4b 60 3d 30  |..#.v=0.25:.K`=0|
00000810  b8 33 35 3a 54 25 28 76  2c 4b 60 29 3d 30 3a ed  |.35:T%(v,K`)=0:.|
00000820  3a ed 0d 02 bc 33 e3 76  3d 30 b8 31 32 30 3a e3  |:....3.v=0.120:.|
00000830  4b 60 3d 30 b8 34 30 3a  51 25 28 76 2c 4b 60 2c  |K`=0.40:Q%(v,K`,|
00000840  30 29 3d 30 3a 51 25 28  76 2c 4b 60 2c 31 29 3d  |0)=0:Q%(v,K`,1)=|
00000850  30 3a ed 3a ed 0d 02 c6  23 e3 76 3d 30 b8 33 30  |0:.:....#.v=0.30|
00000860  3a e3 4b 60 3d 30 b8 34  3a 73 5f 25 28 76 2c 4b  |:.K`=0.4:s_%(v,K|
00000870  60 29 3d 30 3a ed 3a ed  0d 02 d0 15 e3 76 3d 30  |`)=0:.:......v=0|
00000880  b8 36 3a 69 5f 25 28 76  29 3d 30 3a ed 0d 02 da  |.6:i_%(v)=0:....|
00000890  2b e3 76 3d 30 b8 32 35  3a 78 5f 25 28 76 2c 30  |+.v=0.25:x_%(v,0|
000008a0  29 3d 30 3a 78 5f 25 28  76 2c 31 29 3d 30 3a 78  |)=0:x_%(v,1)=0:x|
000008b0  5f 24 28 76 29 3d 22 22  0d 02 e4 22 e3 76 3d 30  |_$(v)=""...".v=0|
000008c0  b8 38 3a e3 4b 60 3d 30  b8 39 3a 72 5f 25 28 76  |.8:.K`=0.9:r_%(v|
000008d0  2c 4b 60 29 3d 30 3a ed  3a ed 0d 02 ee 21 e3 58  |,K`)=0:.:....!.X|
000008e0  3d 31 b8 32 30 3a e3 59  3d 31 b8 39 3a 76 5f 25  |=1.20:.Y=1.9:v_%|
000008f0  28 58 2c 59 29 3d 30 3a  ed 3a ed 0d 02 f8 21 e3  |(X,Y)=0:.:....!.|
00000900  58 3d 31 b8 31 34 3a e3  59 3d 30 b8 32 3a 6a 5f  |X=1.14:.Y=0.2:j_|
00000910  25 28 58 2c 59 29 3d 30  3a ed 3a ed 0d 03 02 15  |%(X,Y)=0:.:.....|
00000920  e3 58 3d 30 b8 35 3a 60  5f 25 28 58 29 3d 30 3a  |.X=0.5:`_%(X)=0:|
00000930  ed 0d 03 0c 20 f7 3a e3  58 3d 31 b8 38 3a e3 59  |.... .:.X=1.8:.Y|
00000940  3d 31 b8 33 3a f3 66 25  28 58 2c 59 29 3a ed 3a  |=1.3:.f%(X,Y):.:|
00000950  ed 0d 03 16 15 e3 58 3d  31 b8 31 32 3a f3 79 5f  |......X=1.12:.y_|
00000960  25 28 58 29 3a ed 0d 03  20 26 e3 59 3d 30 b8 34  |%(X):... &.Y=0.4|
00000970  30 3a e3 58 3d 30 b8 31  32 30 3a 71 5f 24 28 58  |0:.X=0.120:q_$(X|
00000980  2c 59 29 3d 22 30 30 22  3a ed 3a ed 0d 03 2a 1a  |,Y)="00":.:...*.|
00000990  4c 60 24 3d 22 3c 4f 62  65 79 24 44 69 72 3e 2e  |L`$="<Obey$Dir>.|
000009a0  52 44 41 54 41 22 0d 03  34 0b 41 25 3d 8e 4c 60  |RDATA"..4.A%=.L`|
000009b0  24 0d 03 3e 24 e3 58 3d  30 b8 31 34 30 3a e3 59  |$..>$.X=0.140:.Y|
000009c0  3d 31 b8 35 3a e8 23 41  25 2c 52 25 28 58 2c 59  |=1.5:.#A%,R%(X,Y|
000009d0  29 3a ed 3a ed 0d 03 48  08 d9 23 41 25 0d 03 52  |):.:...H..#A%..R|
000009e0  05 e1 0d 03 5c 08 dd f2  4d 60 0d 03 66 07 f2 4e  |....\...M`..f..N|
000009f0  60 0d 03 70 0b 42 25 3d  8e 4e 60 24 0d 03 7a 0d  |`..p.B%=.N`$..z.|
00000a00  e8 23 42 25 2c 7a 2c 4f  60 0d 03 84 19 e3 58 3d  |.#B%,z,O`.....X=|
00000a10  31 b8 31 32 3a e8 23 42  25 2c 75 5f 25 28 58 29  |1.12:.#B%,u_%(X)|
00000a20  3a ed 0d 03 8e 18 e3 58  3d 31 b8 32 30 3a e8 23  |:......X=1.20:.#|
00000a30  42 25 2c 44 24 28 58 29  3a ed 0d 03 98 23 e3 58  |B%,D$(X):....#.X|
00000a40  3d 31 b8 38 3a e3 59 3d  31 b8 39 3a e8 23 42 25  |=1.8:.Y=1.9:.#B%|
00000a50  2c 72 5f 25 28 58 2c 59  29 3a ed 3a ed 0d 03 a2  |,r_%(X,Y):.:....|
00000a60  24 e3 58 3d 31 b8 32 30  3a e3 59 3d 31 b8 39 3a  |$.X=1.20:.Y=1.9:|
00000a70  e8 23 42 25 2c 76 5f 25  28 58 2c 59 29 3a ed 3a  |.#B%,v_%(X,Y):.:|
00000a80  ed 0d 03 ac 24 e3 58 3d  31 b8 33 30 3a e8 23 42  |....$.X=1.30:.#B|
00000a90  25 2c 73 5f 25 28 58 2c  33 29 2c 73 5f 25 28 58  |%,s_%(X,3),s_%(X|
00000aa0  2c 34 29 3a ed 0d 03 b6  26 e3 59 3d 30 b8 34 30  |,4):....&.Y=0.40|
00000ab0  3a e3 58 3d 30 b8 31 32  30 3a e8 23 42 25 2c 71  |:.X=0.120:.#B%,q|
00000ac0  5f 24 28 58 2c 59 29 3a  ed 3a ed 0d 03 c0 08 d9  |_$(X,Y):.:......|
00000ad0  23 42 25 0d 03 ca 19 d1  3d 4b 5f 25 28 30 29 3a  |#B%.....=K_%(0):|
00000ae0  50 60 25 3d 31 30 30 3a  fb 31 37 37 0d 03 d4 07  |P`%=100:.177....|
00000af0  f2 51 60 0d 03 de 05 e1  0d 03 e8 3b dc 20 2d 31  |.Q`........;. -1|
00000b00  2c 30 2c 32 2c 31 2c 30  2c 31 2c 30 2c 31 2c 34  |,0,2,1,0,1,0,1,4|
00000b10  2c 30 2c 2d 31 2c 33 2c  2d 31 2c 31 2c 36 2c 31  |,0,-1,3,-1,1,6,1|
00000b20  2c 2d 31 2c 35 2c 31 2c  31 2c 38 2c 2d 31 2c 2d  |,-1,5,1,1,8,-1,-|
00000b30  31 2c 37 0d 03 f2 4c dc  20 36 30 30 30 2c 31 32  |1,7...L. 6000,12|
00000b40  30 30 30 2c 31 38 30 30  30 2c 32 34 30 30 30 2c  |000,18000,24000,|
00000b50  33 30 30 30 30 2c 34 38  30 30 30 2c 32 34 30 30  |30000,48000,2400|
00000b60  30 2c 33 30 30 30 30 2c  34 32 30 30 30 2c 34 38  |0,30000,42000,48|
00000b70  30 30 30 2c 36 30 30 30  30 2c 39 30 30 30 30 0d  |000,60000,90000.|
00000b80  03 fc 04 0d 04 06 23 dd  f2 4e 5f 3a e7 28 41 25  |......#..N_:.(A%|
00000b90  2b 4d 5f 25 29 3e 31 32  30 84 28 42 25 2b 4c 5f  |+M_%)>120.(B%+L_|
00000ba0  25 29 3e 34 30 e1 0d 04  10 2f e7 51 25 28 41 25  |%)>40..../.Q%(A%|
00000bb0  2b 4d 5f 25 2c 42 25 2b  4c 5f 25 2c 31 29 3c 3e  |+M_%,B%+L_%,1)<>|
00000bc0  30 f2 52 60 28 41 25 2b  4d 5f 25 2c 42 25 2b 4c  |0.R`(A%+M_%,B%+L|
00000bd0  5f 25 29 3a e1 0d 04 1a  24 f2 53 60 28 41 25 2b  |_%):....$.S`(A%+|
00000be0  4d 5f 25 2c 42 25 2b 4c  5f 25 29 3a e7 43 24 3d  |M_%,B%+L_%):.C$=|
00000bf0  22 31 63 22 f2 54 60 3a  e1 0d 04 24 10 e7 61 24  |"1c".T`:...$..a$|
00000c00  3d 22 30 22 f2 55 60 3a  e1 0d 04 2e 10 e7 61 24  |="0".U`:......a$|
00000c10  3d 22 31 22 f2 56 60 3a  e1 0d 04 38 1e e7 61 24  |="1".V`:...8..a$|
00000c20  3d 22 36 22 84 61 24 3d  22 37 22 84 61 24 3d 22  |="6".a$="7".a$="|
00000c30  38 22 f2 57 60 3a e1 0d  04 42 17 e7 61 24 3d 22  |8".W`:...B..a$="|
00000c40  34 22 84 61 24 3d 22 35  22 f2 58 60 3a e1 0d 04  |4".a$="5".X`:...|
00000c50  4c 17 e7 61 24 3d 22 32  22 84 61 24 3d 22 33 22  |L..a$="2".a$="3"|
00000c60  f2 59 60 3a e1 0d 04 56  05 e1 0d 04 6a 1b dd f2  |.Y`:...V....j...|
00000c70  53 60 28 56 25 2c 57 25  29 3a 61 24 3d 22 22 3a  |S`(V%,W%):a$="":|
00000c80  62 24 3d 22 22 0d 04 74  12 e7 56 25 3e 31 32 30  |b$=""..t..V%>120|
00000c90  84 57 25 3e 34 30 e1 0d  04 7e 25 43 24 3d 71 5f  |.W%>40...~%C$=q_|
00000ca0  24 28 56 25 2c 57 25 29  3a 61 24 3d c0 43 24 2c  |$(V%,W%):a$=.C$,|
00000cb0  31 29 3a 62 24 3d c2 43  24 2c 31 29 0d 04 88 05  |1):b$=.C$,1)....|
00000cc0  e1 0d 04 9c 0e dd f2 57  60 3a 63 24 3d 62 24 0d  |.......W`:c$=b$.|
00000cd0  04 a6 12 e7 62 24 3d 22  32 22 20 63 24 3d 22 30  |....b$="2" c$="0|
00000ce0  22 0d 04 b0 21 e7 62 24  3d 22 30 22 20 63 24 3d  |"...!.b$="0" c$=|
00000cf0  22 32 22 8b e7 62 24 3d  22 31 22 20 63 24 3d 22  |"2"..b$="1" c$="|
00000d00  32 22 0d 04 ba 12 e7 62  24 3d 22 35 22 20 63 24  |2".....b$="5" c$|
00000d10  3d 22 33 22 0d 04 c4 21  e7 62 24 3d 22 33 22 20  |="3"...!.b$="3" |
00000d20  63 24 3d 22 35 22 8b e7  62 24 3d 22 34 22 20 63  |c$="5"..b$="4" c|
00000d30  24 3d 22 35 22 0d 04 ce  0d 62 24 3d 63 24 3a f2  |$="5"....b$=c$:.|
00000d40  5a 60 0d 04 d8 05 e1 0d  04 ec 0e dd f2 4f 5f 3a  |Z`...........O_:|
00000d50  63 24 3d 22 22 0d 04 f6  1c f2 53 60 28 41 25 2b  |c$="".....S`(A%+|
00000d60  4d 5f 25 2c 42 25 2b 4c  5f 25 29 3a 63 24 3d 62  |M_%,B%+L_%):c$=b|
00000d70  24 0d 05 00 1c e7 28 61  24 3d 22 36 22 84 61 24  |$.....(a$="6".a$|
00000d80  3d 22 37 22 84 61 24 3d  22 38 22 29 8c 0d 05 0a  |="7".a$="8")....|
00000d90  19 e7 62 24 3d 22 30 22  84 62 24 3d 22 32 22 20  |..b$="0".b$="2" |
00000da0  63 24 3d 22 31 22 0d 05  14 12 e7 62 24 3d 22 32  |c$="1".....b$="2|
00000db0  22 20 63 24 3d 22 31 22  0d 05 1e 19 e7 62 24 3d  |" c$="1".....b$=|
00000dc0  22 33 22 84 62 24 3d 22  35 22 20 63 24 3d 22 34  |"3".b$="5" c$="4|
00000dd0  22 0d 05 28 12 e7 62 24  3d 22 35 22 20 63 24 3d  |"..(..b$="5" c$=|
00000de0  22 34 22 0d 05 32 0d 62  24 3d 63 24 3a f2 5a 60  |"4"..2.b$=c$:.Z`|
00000df0  0d 05 3c 05 cd 0d 05 46  05 e1 0d 05 5a 08 dd f2  |..<....F....Z...|
00000e00  5a 60 0d 05 64 22 43 24  3d 61 24 2b 62 24 3a 71  |Z`..d"C$=a$+b$:q|
00000e10  5f 24 28 41 25 2b 4d 5f  25 2c 42 25 2b 4c 5f 25  |_$(A%+M_%,B%+L_%|
00000e20  29 3d 43 24 0d 05 6e 1f  4c 25 3d 41 25 2a 34 30  |)=C$..n.L%=A%*40|
00000e30  2d 34 3a 48 25 3d 42 25  2a 34 30 2d 34 3a 53 24  |-4:H%=B%*40-4:S$|
00000e40  3d 43 24 0d 05 78 21 c8  99 26 32 45 2c 33 34 2b  |=C$..x!..&2E,34+|
00000e50  32 35 36 2c 6e 5f 25 2c  53 24 2c 4c 25 2c 48 25  |256,n_%,S$,L%,H%|
00000e60  2c 26 30 38 0d 05 82 0b  f2 44 5f 28 32 35 29 0d  |,&08.....D_(25).|
00000e70  05 8c 05 e1 0d 05 a0 08  dd f2 58 60 0d 05 aa 21  |..........X`...!|
00000e80  e7 61 24 3d 22 34 22 20  63 24 3d 22 35 22 8b e7  |.a$="4" c$="5"..|
00000e90  61 24 3d 22 35 22 20 63  24 3d 22 34 22 0d 05 b4  |a$="5" c$="4"...|
00000ea0  0d 61 24 3d 63 24 3a f2  5a 60 0d 05 be 05 e1 0d  |.a$=c$:.Z`......|
00000eb0  05 d2 1d dd f2 59 60 3a  e7 a7 22 30 31 32 33 34  |.....Y`:.."01234|
00000ec0  35 63 64 65 22 2c 62 24  29 3d 30 e1 0d 05 dc 12  |5cde",b$)=0.....|
00000ed0  e7 62 24 3d 22 30 22 20  63 24 3d 22 31 22 0d 05  |.b$="0" c$="1"..|
00000ee0  e6 12 e7 62 24 3d 22 31  22 20 63 24 3d 22 32 22  |...b$="1" c$="2"|
00000ef0  0d 05 f0 12 e7 62 24 3d  22 32 22 20 63 24 3d 22  |.....b$="2" c$="|
00000f00  30 22 0d 05 fa 12 e7 62  24 3d 22 33 22 20 63 24  |0".....b$="3" c$|
00000f10  3d 22 34 22 0d 06 04 12  e7 62 24 3d 22 34 22 20  |="4".....b$="4" |
00000f20  63 24 3d 22 35 22 0d 06  0e 12 e7 62 24 3d 22 35  |c$="5".....b$="5|
00000f30  22 20 63 24 3d 22 33 22  0d 06 18 12 e7 62 24 3d  |" c$="3".....b$=|
00000f40  22 63 22 20 63 24 3d 22  64 22 0d 06 22 12 e7 62  |"c" c$="d".."..b|
00000f50  24 3d 22 64 22 20 63 24  3d 22 65 22 0d 06 2c 12  |$="d" c$="e"..,.|
00000f60  e7 62 24 3d 22 65 22 20  63 24 3d 22 63 22 0d 06  |.b$="e" c$="c"..|
00000f70  36 0d 62 24 3d 63 24 3a  f2 5a 60 0d 06 40 05 e1  |6.b$=c$:.Z`..@..|
00000f80  0d 06 54 32 dd f2 43 5f  3a e7 49 60 25 3e 30 ef  |..T2..C_:.I`%>0.|
00000f90  32 38 2c 31 38 2c 35 36  2c 35 38 2c 49 60 25 3a  |28,18,56,58,I`%:|
00000fa0  ef 34 3a fb 32 31 36 3a  db 3a ef 32 36 3a fb 31  |.4:.216:.:.26:.1|
00000fb0  37 37 0d 06 5e 14 f2 61  60 3a e7 5a 5f 25 3e 30  |77..^..a`:.Z_%>0|
00000fc0  e6 32 31 36 3a da 0d 06  68 2d 6c 25 3d 4d 5f 25  |.216:...h-l%=M_%|
00000fd0  3a 68 25 3d 4c 5f 25 3a  62 60 25 3d 4d 5f 25 2b  |:h%=L_%:b`%=M_%+|
00000fe0  33 32 3a e7 62 60 25 3e  31 30 30 20 62 60 25 3d  |32:.b`%>100 b`%=|
00000ff0  31 32 30 0d 06 72 1d 63  60 25 3d 4c 5f 25 2b 32  |120..r.c`%=L_%+2|
00001000  30 3a e7 63 60 25 3e 34  30 20 63 60 25 3d 34 30  |0:.c`%>40 c`%=40|
00001010  0d 06 7c 61 e3 59 3d 68  25 b8 63 60 25 3a e3 58  |..|a.Y=h%.c`%:.X|
00001020  3d 6c 25 b8 62 60 25 3a  4c 25 3d 28 58 2d 4d 5f  |=l%.b`%:L%=(X-M_|
00001030  25 29 2a 34 30 2d 34 3a  48 25 3d 28 59 2d 4c 5f  |%)*40-4:H%=(Y-L_|
00001040  25 29 2a 34 30 2d 34 3a  53 24 3d 71 5f 24 28 58  |%)*40-4:S$=q_$(X|
00001050  2c 59 29 3a 64 60 24 3d  53 24 3a e7 c0 53 24 2c  |,Y):d`$=S$:..S$,|
00001060  31 29 3c 3e 22 39 22 80  53 24 3c 3e 22 30 30 22  |1)<>"9".S$<>"00"|
00001070  8c 0d 06 86 1f c8 99 26  32 45 2c 33 34 2b 32 35  |.......&2E,34+25|
00001080  36 2c 6e 5f 25 2c 53 24  2c 4c 25 2c 48 25 2c 38  |6,n_%,S$,L%,H%,8|
00001090  0d 06 90 05 cd 0d 06 9a  56 e7 c0 53 24 2c 31 29  |........V..S$,1)|
000010a0  3d 22 39 22 20 53 24 3d  22 30 30 22 3a c8 99 26  |="9" S$="00":..&|
000010b0  32 45 2c 33 34 2b 32 35  36 2c 6e 5f 25 2c 53 24  |2E,34+256,n_%,S$|
000010c0  2c 4c 25 2c 48 25 2c 38  3a ef 35 3a e6 30 2c 36  |,L%,H%,8:.5:.0,6|
000010d0  33 3a ec 4c 25 2b 31 36  2c 48 25 2b 33 30 3a f1  |3:.L%+16,H%+30:.|
000010e0  c2 64 60 24 2c 31 29 3b  3a ef 34 0d 06 a4 0d ed  |.d`$,1);:.4.....|
000010f0  3a ed 3a 5a 5f 25 3d 31  0d 06 ae 16 e7 61 25 3e  |:.:Z_%=1.....a%>|
00001100  30 f2 65 60 3a e7 48 5f  25 3d 30 f2 66 60 0d 06  |0.e`:.H_%=0.f`..|
00001110  b8 0b f2 44 5f 28 32 30  29 0d 06 c2 05 e1 0d 06  |...D_(20).......|
00001120  d6 15 dd f2 67 60 28 68  60 25 2c 69 60 25 2c 6a  |....g`(h`%,i`%,j|
00001130  60 25 29 0d 06 e0 53 43  24 3d 71 5f 24 28 54 25  |`%)...SC$=q_$(T%|
00001140  28 6d 25 2c 68 60 25 29  2c 54 25 28 6d 25 2c 69  |(m%,h`%),T%(m%,i|
00001150  60 25 29 29 3a 4c 25 3d  28 54 25 28 6d 25 2c 68  |`%)):L%=(T%(m%,h|
00001160  60 25 29 2d 4d 5f 25 29  2a 34 30 2d 34 3a 48 25  |`%)-M_%)*40-4:H%|
00001170  3d 28 54 25 28 6d 25 2c  69 60 25 29 2d 4c 5f 25  |=(T%(m%,i`%)-L_%|
00001180  29 2a 34 30 2d 34 0d 06  ea 1f c8 99 26 32 45 2c  |)*40-4......&2E,|
00001190  33 34 2b 32 35 36 2c 6e  5f 25 2c 43 24 2c 4c 25  |34+256,n_%,C$,L%|
000011a0  2c 48 25 2c 38 0d 06 f4  43 51 25 28 54 25 28 6d  |,H%,8...CQ%(T%(m|
000011b0  25 2c 68 60 25 29 2c 54  25 28 6d 25 2c 69 60 25  |%,h`%),T%(m%,i`%|
000011c0  29 2c 30 29 3d 6a 60 25  3a 51 25 28 54 25 28 6d  |),0)=j`%:Q%(T%(m|
000011d0  25 2c 68 60 25 29 2c 54  25 28 6d 25 2c 69 60 25  |%,h`%),T%(m%,i`%|
000011e0  29 2c 31 29 3d 6a 60 25  0d 06 fe 1b 78 5f 25 28  |),1)=j`%....x_%(|
000011f0  6d 25 2c 30 29 3d 30 3a  78 5f 25 28 6d 25 2c 31  |m%,0)=0:x_%(m%,1|
00001200  29 3d 30 0d 07 08 05 e1  0d 07 1c 0f dd f2 6b 60  |)=0...........k`|
00001210  3a 6c 60 24 3d 22 22 0d  07 26 13 e7 61 24 3d 22  |:l`$=""..&..a$="|
00001220  36 22 84 61 24 3d 22 37  22 8c 0d 07 30 0f 54 25  |6".a$="7"...0.T%|
00001230  28 6d 25 2c 33 33 29 3d  31 0d 07 3a 30 e7 a7 22  |(m%,33)=1..:0.."|
00001240  30 33 22 2c 62 24 29 3e  30 80 54 25 28 6d 25 2c  |03",b$)>0.T%(m%,|
00001250  36 29 3d 31 3a f2 6d 60  3a 54 25 28 6d 25 2c 36  |6)=1:.m`:T%(m%,6|
00001260  29 3d 30 3a f2 69 5f 3a  e1 0d 07 44 21 e7 a7 22  |)=0:.i_:...D!.."|
00001270  30 33 22 2c 62 24 29 3e  30 20 54 25 28 6d 25 2c  |03",b$)>0 T%(m%,|
00001280  36 29 3d 30 3a f2 69 5f  3a e1 0d 07 4e 5e e7 a7  |6)=0:.i_:...N^..|
00001290  22 31 34 22 2c 62 24 29  3e 30 3a 54 25 28 6d 25  |"14",b$)>0:T%(m%|
000012a0  2c 36 29 3d 34 3a f2 6e  60 28 22 31 34 22 2c 22  |,6)=4:.n`("14","|
000012b0  30 33 22 29 3a 71 5f 24  28 54 25 28 6d 25 2c 31  |03"):q_$(T%(m%,1|
000012c0  30 29 2b 6f 60 25 2c 54  25 28 6d 25 2c 31 31 29  |0)+o`%,T%(m%,11)|
000012d0  2b 70 60 25 29 3d 43 24  3a f2 71 60 3a 54 25 28  |+p`%)=C$:.q`:T%(|
000012e0  6d 25 2c 31 37 29 3d 31  0d 07 58 5e e7 a7 22 32  |m%,17)=1..X^.."2|
000012f0  35 22 2c 62 24 29 3e 30  3a 54 25 28 6d 25 2c 36  |5",b$)>0:T%(m%,6|
00001300  29 3d 31 3a f2 6e 60 28  22 32 35 22 2c 22 30 33  |)=1:.n`("25","03|
00001310  22 29 3a 71 5f 24 28 54  25 28 6d 25 2c 31 30 29  |"):q_$(T%(m%,10)|
00001320  2b 6f 60 25 2c 54 25 28  6d 25 2c 31 31 29 2b 70  |+o`%,T%(m%,11)+p|
00001330  60 25 29 3d 43 24 3a f2  71 60 3a 54 25 28 6d 25  |`%)=C$:.q`:T%(m%|
00001340  2c 33 33 29 3d 30 0d 07  62 2e f2 72 60 28 54 25  |,33)=0..b..r`(T%|
00001350  28 6d 25 2c 31 30 29 2b  6f 60 25 2c 54 25 28 6d  |(m%,10)+o`%,T%(m|
00001360  25 2c 31 31 29 2b 70 60  25 2c 43 24 29 3a 6c 60  |%,11)+p`%,C$):l`|
00001370  24 3d 61 24 0d 07 6c 19  e7 a7 22 30 31 32 33 34  |$=a$..l..."01234|
00001380  35 22 2c 62 24 29 3e 30  f2 73 60 3a e1 0d 07 76  |5",b$)>0.s`:...v|
00001390  05 cd 0d 07 80 0c e7 61  24 3d 22 38 22 8c 0d 07  |.......a$="8"...|
000013a0  8a 17 e7 a7 22 38 39 61  62 22 2c 62 24 29 3e 30  |...."89ab",b$)>0|
000013b0  f2 74 60 3a e1 0d 07 94  2c e7 a7 22 36 37 22 2c  |.t`:....,.."67",|
000013c0  62 24 29 3e 30 80 a7 22  35 36 37 38 22 2c c3 28  |b$)>0.."5678",.(|
000013d0  54 25 28 6d 25 2c 38 29  29 29 3e 30 f2 74 60 3a  |T%(m%,8)))>0.t`:|
000013e0  e1 0d 07 9e 15 e7 a7 22  30 31 32 33 34 35 22 2c  |......."012345",|
000013f0  62 24 29 3e 30 8c 0d 07  a8 0f 54 25 28 6d 25 2c  |b$)>0.....T%(m%,|
00001400  33 33 29 3d 31 0d 07 b2  2c e7 a7 22 30 33 22 2c  |33)=1...,.."03",|
00001410  62 24 29 3e 30 80 54 25  28 6d 25 2c 36 29 3e 32  |b$)>0.T%(m%,6)>2|
00001420  20 54 25 28 6d 25 2c 36  29 3d 30 3a f2 69 5f 3a  | T%(m%,6)=0:.i_:|
00001430  e1 0d 07 bc 26 e7 a7 22  30 33 22 2c 62 24 29 3e  |....&.."03",b$)>|
00001440  30 80 54 25 28 6d 25 2c  36 29 3e 30 20 54 25 28  |0.T%(m%,6)>0 T%(|
00001450  6d 25 2c 36 29 3d 34 0d  07 c6 1b e7 a7 22 31 34  |m%,6)=4......"14|
00001460  22 2c 62 24 29 3e 30 20  54 25 28 6d 25 2c 36 29  |",b$)>0 T%(m%,6)|
00001470  3d 33 0d 07 d0 27 e7 a7  22 32 35 22 2c 62 24 29  |=3...'.."25",b$)|
00001480  3e 30 20 54 25 28 6d 25  2c 36 29 3d 31 3a 54 25  |>0 T%(m%,6)=1:T%|
00001490  28 6d 25 2c 33 33 29 3d  30 0d 07 da 58 e7 54 25  |(m%,33)=0...X.T%|
000014a0  28 6d 25 2c 32 39 29 3c  3e 30 f2 53 60 28 54 25  |(m%,29)<>0.S`(T%|
000014b0  28 6d 25 2c 32 39 29 2c  54 25 28 6d 25 2c 33 30  |(m%,29),T%(m%,30|
000014c0  29 29 3a f2 6e 60 28 22  30 33 31 34 22 2c 22 30  |)):.n`("0314","0|
000014d0  33 32 35 22 29 3a f2 72  60 28 54 25 28 6d 25 2c  |325"):.r`(T%(m%,|
000014e0  32 39 29 2c 54 25 28 6d  25 2c 33 30 29 2c 43 24  |29),T%(m%,30),C$|
000014f0  29 0d 07 e4 33 54 25 28  6d 25 2c 32 39 29 3d 54  |)...3T%(m%,29)=T|
00001500  25 28 6d 25 2c 31 30 29  2b 6f 60 25 3a 54 25 28  |%(m%,10)+o`%:T%(|
00001510  6d 25 2c 33 30 29 3d 54  25 28 6d 25 2c 31 31 29  |m%,30)=T%(m%,11)|
00001520  2b 70 60 25 0d 07 ee 4b  f2 53 60 28 54 25 28 6d  |+p`%...K.S`(T%(m|
00001530  25 2c 32 39 29 2c 54 25  28 6d 25 2c 33 30 29 29  |%,29),T%(m%,30))|
00001540  3a f2 6e 60 28 22 30 33  32 35 22 2c 22 30 33 31  |:.n`("0325","031|
00001550  34 22 29 3a f2 72 60 28  54 25 28 6d 25 2c 32 39  |4"):.r`(T%(m%,29|
00001560  29 2c 54 25 28 6d 25 2c  33 30 29 2c 43 24 29 0d  |),T%(m%,30),C$).|
00001570  07 f8 05 cd 0d 08 02 05  cd 0d 08 0c 05 e1 0d 08  |................|
00001580  20 11 dd f2 6e 60 28 75  60 24 2c 76 60 24 29 0d  | ...n`(u`$,v`$).|
00001590  08 2a 34 e7 a7 75 60 24  2c 62 24 29 3e 30 3a 77  |.*4..u`$,b$)>0:w|
000015a0  60 25 3d a7 75 60 24 2c  62 24 29 3a 63 24 3d c1  |`%=.u`$,b$):c$=.|
000015b0  76 60 24 2c 77 60 25 2c  31 29 3a 43 24 3d 61 24  |v`$,w`%,1):C$=a$|
000015c0  2b 63 24 0d 08 34 05 e1  0d 08 48 17 dd f2 73 60  |+c$..4....H...s`|
000015d0  3a e7 54 25 28 6d 25 2c  32 37 29 3c 3e 30 8c 0d  |:.T%(m%,27)<>0..|
000015e0  08 52 1c f2 53 60 28 54  25 28 6d 25 2c 32 37 29  |.R..S`(T%(m%,27)|
000015f0  2c 54 25 28 6d 25 2c 32  38 29 29 0d 08 5c 41 e7  |,T%(m%,28))..\A.|
00001600  61 24 3d 22 37 22 80 54  25 28 6d 25 2c 31 37 29  |a$="7".T%(m%,17)|
00001610  3d 32 f2 6e 60 28 22 30  33 22 2c 22 31 34 22 29  |=2.n`("03","14")|
00001620  3a f2 72 60 28 54 25 28  6d 25 2c 32 37 29 2c 54  |:.r`(T%(m%,27),T|
00001630  25 28 6d 25 2c 32 38 29  2c 43 24 29 0d 08 66 41  |%(m%,28),C$)..fA|
00001640  e7 61 24 3d 22 37 22 80  54 25 28 6d 25 2c 31 37  |.a$="7".T%(m%,17|
00001650  29 3c 32 f2 6e 60 28 22  30 33 22 2c 22 32 35 22  |)<2.n`("03","25"|
00001660  29 3a f2 72 60 28 54 25  28 6d 25 2c 32 37 29 2c  |):.r`(T%(m%,27),|
00001670  54 25 28 6d 25 2c 32 38  29 2c 43 24 29 0d 08 70  |T%(m%,28),C$)..p|
00001680  1c e7 54 25 28 6d 25 2c  31 37 29 3d 32 20 54 25  |..T%(m%,17)=2 T%|
00001690  28 6d 25 2c 31 37 29 3d  30 0d 08 7a 1c e7 54 25  |(m%,17)=0..z..T%|
000016a0  28 6d 25 2c 31 37 29 3d  31 20 54 25 28 6d 25 2c  |(m%,17)=1 T%(m%,|
000016b0  31 37 29 3d 32 0d 08 84  05 cd 0d 08 8e 12 e7 54  |17)=2..........T|
000016c0  25 28 6d 25 2c 33 31 29  3c 3e 30 8c 0d 08 98 1c  |%(m%,31)<>0.....|
000016d0  f2 53 60 28 54 25 28 6d  25 2c 33 31 29 2c 54 25  |.S`(T%(m%,31),T%|
000016e0  28 6d 25 2c 33 32 29 29  0d 08 a2 46 e7 61 24 3d  |(m%,32))...F.a$=|
000016f0  22 38 22 3a e7 54 25 28  6d 25 2c 33 31 29 3e 30  |"8":.T%(m%,31)>0|
00001700  f2 6e 60 28 22 30 33 31  34 22 2c 22 30 33 32 35  |.n`("0314","0325|
00001710  22 29 3a f2 72 60 28 54  25 28 6d 25 2c 33 31 29  |"):.r`(T%(m%,31)|
00001720  2c 54 25 28 6d 25 2c 33  32 29 2c 43 24 29 0d 08  |,T%(m%,32),C$)..|
00001730  ac 05 cd 0d 08 b6 4c e7  6c 60 24 3d 22 37 22 20  |......L.l`$="7" |
00001740  54 25 28 6d 25 2c 33 31  29 3d 54 25 28 6d 25 2c  |T%(m%,31)=T%(m%,|
00001750  32 39 29 3a 54 25 28 6d  25 2c 33 32 29 3d 54 25  |29):T%(m%,32)=T%|
00001760  28 6d 25 2c 33 30 29 3a  54 25 28 6d 25 2c 32 39  |(m%,30):T%(m%,29|
00001770  29 3d 30 3a 54 25 28 6d  25 2c 33 30 29 3d 30 0d  |)=0:T%(m%,30)=0.|
00001780  08 c0 24 e7 6c 60 24 3d  22 36 22 20 54 25 28 6d  |..$.l`$="6" T%(m|
00001790  25 2c 33 31 29 3d 30 3a  54 25 28 6d 25 2c 33 32  |%,31)=0:T%(m%,32|
000017a0  29 3d 30 0d 08 ca 28 e7  54 25 28 6d 25 2c 32 37  |)=0...(.T%(m%,27|
000017b0  29 3d 30 80 54 25 28 6d  25 2c 31 37 29 3d 31 20  |)=0.T%(m%,17)=1 |
000017c0  54 25 28 6d 25 2c 31 37  29 3d 32 0d 08 d4 33 54  |T%(m%,17)=2...3T|
000017d0  25 28 6d 25 2c 32 37 29  3d 54 25 28 6d 25 2c 31  |%(m%,27)=T%(m%,1|
000017e0  30 29 2b 6f 60 25 3a 54  25 28 6d 25 2c 32 38 29  |0)+o`%:T%(m%,28)|
000017f0  3d 54 25 28 6d 25 2c 31  31 29 2b 70 60 25 0d 08  |=T%(m%,11)+p`%..|
00001800  de 05 e1 0d 08 f2 1d dd  f2 72 60 28 78 60 25 2c  |.........r`(x`%,|
00001810  79 60 25 2c 7a 60 24 29  3a e7 78 60 25 3c 34 e1  |y`%,z`$):.x`%<4.|
00001820  0d 08 fc 14 71 5f 24 28  78 60 25 2c 79 60 25 29  |....q_$(x`%,y`%)|
00001830  3d 7a 60 24 0d 09 06 44  4c 25 3d 28 78 60 25 2d  |=z`$...DL%=(x`%-|
00001840  4d 5f 25 29 2a 34 30 2d  34 3a 48 25 3d 28 79 60  |M_%)*40-4:H%=(y`|
00001850  25 2d 4c 5f 25 29 2a 34  30 2d 34 3a c8 99 26 32  |%-L_%)*40-4:..&2|
00001860  45 2c 33 34 2b 32 35 36  2c 6e 5f 25 2c 7a 60 24  |E,34+256,n_%,z`$|
00001870  2c 4c 25 2c 48 25 2c 38  0d 09 10 05 e1 0d 09 24  |,L%,H%,8.......$|
00001880  16 dd f2 6d 60 3a e7 a7  22 30 33 22 2c 62 24 29  |...m`:.."03",b$)|
00001890  3e 30 8c 0d 09 2e 31 6a  5f 25 28 31 32 2c 31 29  |>0....1j_%(12,1)|
000018a0  3d 6a 5f 25 28 31 32 2c  31 29 2b 31 3a 6a 5f 25  |=j_%(12,1)+1:j_%|
000018b0  28 31 32 2c 32 29 3d 6a  5f 25 28 31 32 2c 32 29  |(12,2)=j_%(12,2)|
000018c0  2b 32 30 30 0d 09 38 1c  54 25 28 6d 25 2c 32 35  |+200..8.T%(m%,25|
000018d0  29 3d 54 25 28 6d 25 2c  32 35 29 2b 32 35 30 30  |)=T%(m%,25)+2500|
000018e0  0d 09 42 14 ff 28 22 53  70 6c 61 79 5f 74 65 6c  |..B..("Splay_tel|
000018f0  65 66 22 29 0d 09 4c ea  f2 5f 60 3a f1 27 22 20  |ef")..L.._`:.'" |
00001900  54 68 65 20 64 72 69 76  65 72 20 6f 66 20 74 72  |The driver of tr|
00001910  61 69 6e 20 22 3b 74 5f  24 28 54 25 28 6d 25 2c  |ain ";t_$(T%(m%,|
00001920  32 29 29 3b 22 2d 22 54  25 28 6d 25 2c 31 29 3b  |2));"-"T%(m%,1);|
00001930  22 20 69 73 20 61 6e 67  72 79 21 22 27 27 22 20  |" is angry!"''" |
00001940  48 65 20 68 61 64 20 74  6f 20 75 73 65 20 74 68  |He had to use th|
00001950  65 20 65 6d 65 72 67 65  6e 63 79 20 62 72 61 6b  |e emergency brak|
00001960  65 73 20 74 6f 20 73 74  6f 70 22 27 22 20 61 74  |es to stop"'" at|
00001970  20 61 20 72 65 64 20 73  69 67 6e 61 6c 2e 20 48  | a red signal. H|
00001980  65 20 68 61 73 20 74 6f  20 72 65 73 65 74 20 74  |e has to reset t|
00001990  68 65 20 73 79 73 74 65  6d 22 27 22 20 62 65 66  |he system"'" bef|
000019a0  6f 72 65 20 68 65 20 63  61 6e 73 20 63 6f 6e 74  |ore he cans cont|
000019b0  69 6e 75 65 2e 22 27 22  20 54 68 65 20 70 72 65  |inue."'" The pre|
000019c0  76 69 6f 75 73 20 28 73  75 62 29 73 69 67 6e 61  |vious (sub)signa|
000019d0  6c 20 77 61 73 20 67 72  65 65 6e 21 22 3b 0d 09  |l was green!";..|
000019e0  56 07 f2 60 60 0d 09 60  05 cd 0d 09 6a 05 e1 0d  |V..``..`....j...|
000019f0  09 7e 08 dd f2 4a 5f 0d  09 88 0a f2 65 5f 28 91  |.~...J_.....e_(.|
00001a00  29 0d 09 92 1e ef 34 3a  f1 8a 36 35 2c 30 29 3b  |).....4:..65,0);|
00001a10  22 20 22 3b 41 61 24 3b  22 20 22 3b 3a ef 35 0d  |" ";Aa$;" ";:.5.|
00001a20  09 9c 05 e1 0d 09 b0 1f  dd f2 55 5f 3a 42 61 25  |..........U_:Ba%|
00001a30  3d 30 3a 64 25 3d 30 3a  62 25 3d 30 3a 43 61 24  |=0:d%=0:b%=0:Ca$|
00001a40  3d 22 22 0d 09 ba 10 e7  61 25 3e 3d 4b 5f 25 28  |="".....a%>=K_%(|
00001a50  34 29 e1 0d 09 c4 0c e7  41 60 25 3e 91 3a e1 0d  |4)......A`%>.:..|
00001a60  09 ce 26 e7 56 5f 25 3d  31 3a 44 61 25 3d b3 28  |..&.V_%=1:Da%=.(|
00001a70  31 30 30 30 29 3a e7 44  61 25 83 34 34 34 3d 30  |1000):.Da%.444=0|
00001a80  f2 45 61 3a e1 0d 09 d8  36 e7 44 60 25 3e 30 3a  |.Ea:....6.D`%>0:|
00001a90  e7 60 5f 25 28 30 29 3d  30 3a 44 61 25 3d b3 28  |.`_%(0)=0:Da%=.(|
00001aa0  31 30 30 30 29 3a e7 44  61 25 83 28 33 36 30 2f  |1000):.Da%.(360/|
00001ab0  44 60 25 29 3d 32 f2 46  61 3a e1 0d 09 e2 0d f2  |D`%)=2.Fa:......|
00001ac0  47 61 3a e7 61 3e 30 e1  0d 09 ec 19 48 61 25 3d  |Ga:.a>0.....Ha%=|
00001ad0  b3 28 75 5f 25 28 31 29  29 3a e7 48 61 25 3d 30  |.(u_%(1)):.Ha%=0|
00001ae0  e1 0d 09 f6 12 e7 91 3c  72 5f 25 28 48 61 25 2c  |.......<r_%(Ha%,|
00001af0  30 29 e1 0d 0a 00 24 e7  51 25 28 72 5f 25 28 48  |0)....$.Q%(r_%(H|
00001b00  61 25 2c 31 29 2c 72 5f  25 28 48 61 25 2c 32 29  |a%,1),r_%(Ha%,2)|
00001b10  2c 31 29 3c 3e 30 e1 0d  0a 0a 21 4c 24 3d 71 5f  |,1)<>0....!L$=q_|
00001b20  24 28 72 5f 25 28 48 61  25 2c 31 29 2c 72 5f 25  |$(r_%(Ha%,1),r_%|
00001b30  28 48 61 25 2c 32 29 29  0d 0a 14 37 e7 4c 24 3d  |(Ha%,2))...7.L$=|
00001b40  22 30 63 22 84 4c 24 3d  22 30 65 22 3a e7 51 25  |"0c".L$="0e":.Q%|
00001b50  28 72 5f 25 28 48 61 25  2c 31 29 2b 32 2c 72 5f  |(r_%(Ha%,1)+2,r_|
00001b60  25 28 48 61 25 2c 32 29  2c 31 29 3c 3e 30 e1 0d  |%(Ha%,2),1)<>0..|
00001b70  0a 1e 37 e7 4c 24 3d 22  30 62 22 84 4c 24 3d 22  |..7.L$="0b".L$="|
00001b80  30 64 22 3a e7 51 25 28  72 5f 25 28 48 61 25 2c  |0d":.Q%(r_%(Ha%,|
00001b90  31 29 2d 32 2c 72 5f 25  28 48 61 25 2c 32 29 2c  |1)-2,r_%(Ha%,2),|
00001ba0  31 29 3c 3e 30 e1 0d 0a  28 12 63 25 3d b3 28 32  |1)<>0...(.c%=.(2|
00001bb0  30 29 3a 42 61 25 3d 31  0d 0a 32 10 e7 63 25 3c  |0):Ba%=1..2..c%<|
00001bc0  31 32 20 42 61 25 3d 32  0d 0a 3c 0f e7 63 25 3c  |12 Ba%=2..<..c%<|
00001bd0  33 20 42 61 25 3d 33 0d  0a 46 1e e7 a7 c3 28 72  |3 Ba%=3..F....(r|
00001be0  5f 25 28 48 61 25 2c 36  29 29 2c c3 28 42 61 25  |_%(Ha%,6)),.(Ba%|
00001bf0  29 29 3d 30 e1 0d 0a 50  2e e7 75 5f 25 28 31 30  |))=0...P..u_%(10|
00001c00  29 3d 31 20 49 61 25 3d  b3 28 75 5f 25 28 31 29  |)=1 Ia%=.(u_%(1)|
00001c10  2b 75 5f 25 28 31 31 29  29 3a e7 49 61 25 3d 48  |+u_%(11)):.Ia%=H|
00001c20  61 25 e1 0d 0a 5a 39 e7  75 5f 25 28 31 30 29 3d  |a%...Z9.u_%(10)=|
00001c30  30 20 49 61 25 3d b3 28  75 5f 25 28 31 31 29 29  |0 Ia%=.(u_%(11))|
00001c40  2b 75 5f 25 28 31 29 3a  e7 49 61 25 3d 75 5f 25  |+u_%(1):.Ia%=u_%|
00001c50  28 31 29 49 61 25 3d 49  61 25 2b 31 0d 0a 64 25  |(1)Ia%=Ia%+1..d%|
00001c60  62 25 3d 61 25 2b 31 3a  54 25 28 62 25 2c 32 29  |b%=a%+1:T%(b%,2)|
00001c70  3d 42 61 25 3a 54 25 28  62 25 2c 37 29 3d 48 61  |=Ba%:T%(b%,7)=Ha|
00001c80  25 0d 0a 6e 16 54 25 28  62 25 2c 33 29 3d 49 61  |%..n.T%(b%,3)=Ia|
00001c90  25 3a 63 25 3d 33 33 0d  0a 78 1e e7 a7 c3 28 76  |%:c%=33..x....(v|
00001ca0  5f 25 28 49 61 25 2c 35  29 29 2c c3 28 42 61 25  |_%(Ia%,5)),.(Ba%|
00001cb0  29 29 3d 30 e1 0d 0a 82  10 e7 49 61 25 3e 75 5f  |))=0......Ia%>u_|
00001cc0  25 28 31 29 8c 0d 0a 8c  1f 4a 61 25 3d 76 5f 25  |%(1).....Ja%=v_%|
00001cd0  28 49 61 25 2c 37 29 2d  76 5f 25 28 49 61 25 2c  |(Ia%,7)-v_%(Ia%,|
00001ce0  36 29 2b 31 0d 0a 96 1c  e7 4a 61 25 3d 31 20 63  |6)+1.....Ja%=1 c|
00001cf0  25 3d 76 5f 25 28 49 61  25 2c 37 29 8b f2 4b 61  |%=v_%(Ia%,7)..Ka|
00001d00  0d 0a a0 22 e7 a7 c3 28  73 5f 25 28 63 25 2c 33  |..."...(s_%(c%,3|
00001d10  29 29 2c c3 28 54 25 28  62 25 2c 37 29 29 29 3d  |)),.(T%(b%,7)))=|
00001d20  30 e1 0d 0a aa 5a e7 73  5f 25 28 63 25 2c 31 29  |0....Z.s_%(c%,1)|
00001d30  3c 3e 30 20 64 25 3d 28  28 91 2b 28 4b 5f 25 28  |<>0 d%=((.+(K_%(|
00001d40  42 61 25 29 2a 75 5f 25  28 48 61 25 2b 31 29 29  |Ba%)*u_%(Ha%+1))|
00001d50  2d 28 4b 5f 25 28 35 29  2a 32 29 2d 36 30 30 30  |-(K_%(5)*2)-6000|
00001d60  29 81 36 30 30 30 29 2a  36 30 30 30 3a e7 64 25  |).6000)*6000:.d%|
00001d70  3c 3d 73 5f 25 28 63 25  2c 32 29 e1 0d 0a b4 22  |<=s_%(c%,2)...."|
00001d80  73 5f 25 28 63 25 2c 31  29 3d 62 25 3a 73 5f 25  |s_%(c%,1)=b%:s_%|
00001d90  28 63 25 2c 32 29 3d 91  2b 39 39 30 30 30 0d 0a  |(c%,2)=.+99000..|
00001da0  be 05 cd 0d 0a c8 3f 54  25 28 62 25 2c 35 29 3d  |......?T%(b%,5)=|
00001db0  63 25 3a 54 25 28 62 25  2c 36 29 3d 31 3a 63 25  |c%:T%(b%,6)=1:c%|
00001dc0  3d 54 25 28 62 25 2c 37  29 3a 54 25 28 62 25 2c  |=T%(b%,7):T%(b%,|
00001dd0  38 29 3d 72 5f 25 28 54  25 28 62 25 2c 37 29 2c  |8)=r_%(T%(b%,7),|
00001de0  35 29 0d 0a d2 42 54 25  28 62 25 2c 31 30 29 3d  |5)...BT%(b%,10)=|
00001df0  72 5f 25 28 63 25 2c 31  29 3a 54 25 28 62 25 2c  |r_%(c%,1):T%(b%,|
00001e00  31 31 29 3d 72 5f 25 28  63 25 2c 32 29 3a 50 60  |11)=r_%(c%,2):P`|
00001e10  25 3d 50 60 25 2b 31 3a  54 25 28 62 25 2c 31 29  |%=P`%+1:T%(b%,1)|
00001e20  3d 50 60 25 0d 0a dc 10  e7 54 25 28 62 25 2c 38  |=P`%.....T%(b%,8|
00001e30  29 3d 31 8c 0d 0a e6 19  54 25 28 62 25 2c 31 30  |)=1.....T%(b%,10|
00001e40  29 3d 54 25 28 62 25 2c  31 30 29 2d 31 0d 0a f0  |)=T%(b%,10)-1...|
00001e50  57 54 25 28 62 25 2c 31  32 29 3d 54 25 28 62 25  |WT%(b%,12)=T%(b%|
00001e60  2c 31 30 29 2b 32 3a 54  25 28 62 25 2c 31 33 29  |,10)+2:T%(b%,13)|
00001e70  3d 54 25 28 62 25 2c 31  31 29 3a 54 25 28 62 25  |=T%(b%,11):T%(b%|
00001e80  2c 31 34 29 3d 54 25 28  62 25 2c 31 30 29 2b 31  |,14)=T%(b%,10)+1|
00001e90  3a 54 25 28 62 25 2c 31  35 29 3d 54 25 28 62 25  |:T%(b%,15)=T%(b%|
00001ea0  2c 31 31 29 0d 0a fa c8  51 25 28 72 5f 25 28 48  |,11)....Q%(r_%(H|
00001eb0  61 25 2c 31 29 2d 31 2c  72 5f 25 28 48 61 25 2c  |a%,1)-1,r_%(Ha%,|
00001ec0  32 29 2c 30 29 3d 31 30  3a 51 25 28 72 5f 25 28  |2),0)=10:Q%(r_%(|
00001ed0  48 61 25 2c 31 29 2c 72  5f 25 28 48 61 25 2c 32  |Ha%,1),r_%(Ha%,2|
00001ee0  29 2c 30 29 3d 31 30 3a  51 25 28 72 5f 25 28 48  |),0)=10:Q%(r_%(H|
00001ef0  61 25 2c 31 29 2b 31 2c  72 5f 25 28 48 61 25 2c  |a%,1)+1,r_%(Ha%,|
00001f00  32 29 2c 30 29 3d 32 33  3a 51 25 28 72 5f 25 28  |2),0)=23:Q%(r_%(|
00001f10  48 61 25 2c 31 29 2c 72  5f 25 28 48 61 25 2c 32  |Ha%,1),r_%(Ha%,2|
00001f20  29 2c 31 29 3d 50 60 25  3a 51 25 28 72 5f 25 28  |),1)=P`%:Q%(r_%(|
00001f30  48 61 25 2c 31 29 2b 31  2c 72 5f 25 28 48 61 25  |Ha%,1)+1,r_%(Ha%|
00001f40  2c 32 29 2c 31 29 3d 50  60 25 3a 51 25 28 72 5f  |,2),1)=P`%:Q%(r_|
00001f50  25 28 48 61 25 2c 31 29  2d 31 2c 72 5f 25 28 48  |%(Ha%,1)-1,r_%(H|
00001f60  61 25 2c 32 29 2c 31 29  3d 50 60 25 0d 0b 04 1b  |a%,2),1)=P`%....|
00001f70  54 25 28 62 25 2c 31 36  29 3d 31 3a 54 25 28 62  |T%(b%,16)=1:T%(b|
00001f80  25 2c 31 39 29 3d 31 0d  0b 0e 05 cd 0d 0b 18 10  |%,19)=1.........|
00001f90  e7 54 25 28 62 25 2c 38  29 3d 32 8c 0d 0b 22 19  |.T%(b%,8)=2...".|
00001fa0  54 25 28 62 25 2c 31 30  29 3d 54 25 28 62 25 2c  |T%(b%,10)=T%(b%,|
00001fb0  31 30 29 2b 31 0d 0b 2c  57 54 25 28 62 25 2c 31  |10)+1..,WT%(b%,1|
00001fc0  32 29 3d 54 25 28 62 25  2c 31 30 29 2d 32 3a 54  |2)=T%(b%,10)-2:T|
00001fd0  25 28 62 25 2c 31 33 29  3d 54 25 28 62 25 2c 31  |%(b%,13)=T%(b%,1|
00001fe0  31 29 3a 54 25 28 62 25  2c 31 34 29 3d 54 25 28  |1):T%(b%,14)=T%(|
00001ff0  62 25 2c 31 30 29 2d 31  3a 54 25 28 62 25 2c 31  |b%,10)-1:T%(b%,1|
00002000  35 29 3d 54 25 28 62 25  2c 31 31 29 0d 0b 36 c8  |5)=T%(b%,11)..6.|
00002010  51 25 28 72 5f 25 28 48  61 25 2c 31 29 2d 31 2c  |Q%(r_%(Ha%,1)-1,|
00002020  72 5f 25 28 48 61 25 2c  32 29 2c 30 29 3d 31 30  |r_%(Ha%,2),0)=10|
00002030  3a 51 25 28 72 5f 25 28  48 61 25 2c 31 29 2c 72  |:Q%(r_%(Ha%,1),r|
00002040  5f 25 28 48 61 25 2c 32  29 2c 30 29 3d 31 30 3a  |_%(Ha%,2),0)=10:|
00002050  51 25 28 72 5f 25 28 48  61 25 2c 31 29 2b 31 2c  |Q%(r_%(Ha%,1)+1,|
00002060  72 5f 25 28 48 61 25 2c  32 29 2c 30 29 3d 32 33  |r_%(Ha%,2),0)=23|
00002070  3a 51 25 28 72 5f 25 28  48 61 25 2c 31 29 2d 31  |:Q%(r_%(Ha%,1)-1|
00002080  2c 72 5f 25 28 48 61 25  2c 32 29 2c 31 29 3d 50  |,r_%(Ha%,2),1)=P|
00002090  60 25 3a 51 25 28 72 5f  25 28 48 61 25 2c 31 29  |`%:Q%(r_%(Ha%,1)|
000020a0  2c 72 5f 25 28 48 61 25  2c 32 29 2c 31 29 3d 50  |,r_%(Ha%,2),1)=P|
000020b0  60 25 3a 51 25 28 72 5f  25 28 48 61 25 2c 31 29  |`%:Q%(r_%(Ha%,1)|
000020c0  2b 31 2c 72 5f 25 28 48  61 25 2c 32 29 2c 31 29  |+1,r_%(Ha%,2),1)|
000020d0  3d 50 60 25 0d 0b 40 1b  54 25 28 62 25 2c 31 36  |=P`%..@.T%(b%,16|
000020e0  29 3d 32 3a 54 25 28 62  25 2c 31 39 29 3d 32 0d  |)=2:T%(b%,19)=2.|
000020f0  0b 4a 05 cd 0d 0b 54 61  61 25 3d 61 25 2b 31 3a  |.J....Taa%=a%+1:|
00002100  f2 4c 61 28 51 25 28 54  25 28 61 25 2c 31 30 29  |.La(Q%(T%(a%,10)|
00002110  2c 54 25 28 61 25 2c 31  31 29 2c 30 29 2c 51 25  |,T%(a%,11),0),Q%|
00002120  28 54 25 28 61 25 2c 31  32 29 2c 54 25 28 61 25  |(T%(a%,12),T%(a%|
00002130  2c 31 33 29 2c 30 29 2c  51 25 28 54 25 28 61 25  |,13),0),Q%(T%(a%|
00002140  2c 31 34 29 2c 54 25 28  61 25 2c 31 35 29 2c 30  |,14),T%(a%,15),0|
00002150  29 2c 61 25 29 0d 0b 5e  3d 54 25 28 61 25 2c 39  |),a%)..^=T%(a%,9|
00002160  29 3d 91 3a 54 25 28 61  25 2c 34 29 3d 91 2b 28  |)=.:T%(a%,4)=.+(|
00002170  4b 5f 25 28 42 61 25 29  2a 75 5f 25 28 48 61 25  |K_%(Ba%)*u_%(Ha%|
00002180  2b 31 29 29 2b 28 32 35  2a 4b 5f 25 28 42 61 25  |+1))+(25*K_%(Ba%|
00002190  29 29 0d 0b 68 23 54 25  28 61 25 2c 32 35 29 3d  |))..h#T%(a%,25)=|
000021a0  91 2b 28 4b 5f 25 28 42  61 25 29 2a 54 25 28 61  |.+(K_%(Ba%)*T%(a|
000021b0  25 2c 36 29 29 0d 0b 72  4d 4d 61 25 3d 79 5f 25  |%,6))..rMMa%=y_%|
000021c0  28 72 5f 25 28 48 61 25  2c 34 29 29 2d 79 5f 25  |(r_%(Ha%,4))-y_%|
000021d0  28 72 5f 25 28 48 61 25  2c 33 29 29 3a 72 5f 25  |(r_%(Ha%,3)):r_%|
000021e0  28 48 61 25 2c 30 29 3d  91 2b 28 b3 28 4d 61 25  |(Ha%,0)=.+(.(Ma%|
000021f0  29 2b 79 5f 25 28 72 5f  25 28 48 61 25 2c 33 29  |)+y_%(r_%(Ha%,3)|
00002200  29 29 0d 0b 7c 2d 41 60  25 3d 91 2b 33 30 30 30  |))..|-A`%=.+3000|
00002210  3a 69 5f 25 28 31 29 3d  50 60 25 2d 31 30 30 3a  |:i_%(1)=P`%-100:|
00002220  6a 5f 25 28 30 2c 31 29  3d 69 5f 25 28 31 29 0d  |j_%(0,1)=i_%(1).|
00002230  0b 86 47 6a 5f 25 28 54  25 28 61 25 2c 32 29 2c  |..Gj_%(T%(a%,2),|
00002240  31 29 3d 6a 5f 25 28 54  25 28 61 25 2c 32 29 2c  |1)=j_%(T%(a%,2),|
00002250  31 29 2b 31 3a 6a 5f 25  28 54 25 28 61 25 2c 32  |1)+1:j_%(T%(a%,2|
00002260  29 2c 32 29 3d 6a 5f 25  28 54 25 28 61 25 2c 32  |),2)=j_%(T%(a%,2|
00002270  29 2c 32 29 2b 30 0d 0b  90 5e f2 4e 61 3a f1 27  |),2)+0...^.Na:.'|
00002280  22 41 70 70 72 6f 61 63  68 69 6e 67 3a 20 54 72  |"Approaching: Tr|
00002290  61 69 6e 20 20 22 3b 74  5f 24 28 54 25 28 61 25  |ain  ";t_$(T%(a%|
000022a0  2c 32 29 29 3b 22 2d 22  3b 54 25 28 61 25 2c 31  |,2));"-";T%(a%,1|
000022b0  29 27 27 22 20 20 20 20  20 20 20 46 72 6f 6d 3a  |)''"       From:|
000022c0  20 22 3b a4 4f 61 28 44  24 28 54 25 28 61 25 2c  | ";.Oa(D$(T%(a%,|
000022d0  37 29 29 29 0d 0b 9a 3c  e7 54 25 28 61 25 2c 33  |7)))...<.T%(a%,3|
000022e0  29 3c 3d 75 5f 25 28 31  29 43 61 24 3d 22 20 20  |)<=u_%(1)Ca$="  |
000022f0  44 65 70 61 72 74 75 72  65 3a 20 22 8b 43 61 24  |Departure: ".Ca$|
00002300  3d 22 20 20 20 20 41 72  72 69 76 61 6c 3a 20 22  |="    Arrival: "|
00002310  0d 0b a4 5e f2 65 5f 28  54 25 28 61 25 2c 34 29  |...^.e_(T%(a%,4)|
00002320  29 3a f1 27 43 61 24 3b  50 61 24 3b 3a e7 76 5f  |):.'Ca$;Pa$;:.v_|
00002330  25 28 54 25 28 61 25 2c  33 29 2c 38 29 3d 30 80  |%(T%(a%,3),8)=0.|
00002340  54 25 28 61 25 2c 32 29  3c 33 80 54 25 28 61 25  |T%(a%,2)<3.T%(a%|
00002350  2c 35 29 3c 33 32 f1 22  20 6f 6e 20 54 72 61 63  |,5)<32." on Trac|
00002360  6b 20 22 3b 54 25 28 61  25 2c 35 29 8b f1 0d 0b  |k ";T%(a%,5)....|
00002370  ae 42 f1 27 22 44 65 73  74 69 6e 61 74 69 6f 6e  |.B.'"Destination|
00002380  3a 20 22 3b a4 4f 61 28  44 24 28 54 25 28 61 25  |: ";.Oa(D$(T%(a%|
00002390  2c 33 29 29 29 3b 22 20  28 22 3b c2 44 24 28 54  |,3)));" (";.D$(T|
000023a0  25 28 61 25 2c 33 29 29  2c 33 29 3b 22 29 22 3b  |%(a%,3)),3);")";|
000023b0  0d 0b b8 21 ff 28 22 53  50 4c 41 59 5f 42 45 4c  |...!.("SPLAY_BEL|
000023c0  4c 22 29 3a f2 60 60 3a  ef 35 3a f2 44 5f 28 35  |L"):.``:.5:.D_(5|
000023d0  29 0d 0b c2 05 e1 0d 0b  d6 08 dd f2 4b 61 0d 0b  |)...........Ka..|
000023e0  e0 18 63 25 3d b3 28 4a  61 25 29 3a e7 63 25 3d  |..c%=.(Ja%):.c%=|
000023f0  30 20 63 25 3d 31 0d 0b  ea 16 63 25 3d 63 25 2b  |0 c%=1....c%=c%+|
00002400  76 5f 25 28 49 61 25 2c  36 29 2d 31 0d 0b f4 05  |v_%(Ia%,6)-1....|
00002410  e1 0d 0b fe 08 dd f2 51  61 0d 0c 08 18 6a 25 3d  |.......Qa....j%=|
00002420  b3 28 4a 61 25 29 3a e7  6a 25 3d 30 20 6a 25 3d  |.(Ja%):.j%=0 j%=|
00002430  31 0d 0c 12 1b 6a 25 3d  6a 25 2b 76 5f 25 28 54  |1....j%=j%+v_%(T|
00002440  25 28 6d 25 2c 33 29 2c  36 29 2d 31 0d 0c 1c 05  |%(m%,3),6)-1....|
00002450  e1 0d 0c 30 15 dd f2 4c  61 28 52 61 2c 53 61 2c  |...0...La(Ra,Sa,|
00002460  54 61 2c 76 25 29 0d 0c  3a 16 e7 54 25 28 76 25  |Ta,v%)..:..T%(v%|
00002470  2c 32 29 3d 32 20 67 24  3d 22 70 22 0d 0c 44 16  |,2)=2 g$="p"..D.|
00002480  e7 54 25 28 76 25 2c 32  29 3d 33 20 67 24 3d 22  |.T%(v%,2)=3 g$="|
00002490  67 22 0d 0c 4e 16 e7 54  25 28 76 25 2c 32 29 3d  |g"..N..T%(v%,2)=|
000024a0  31 20 67 24 3d 22 69 22  0d 0c 58 2a 52 61 24 3d  |1 g$="i"..X*Ra$=|
000024b0  67 24 2b c3 28 52 61 29  3a 53 61 24 3d 67 24 2b  |g$+.(Ra):Sa$=g$+|
000024c0  c3 28 53 61 29 3a 54 61  24 3d 67 24 2b c3 28 54  |.(Sa):Ta$=g$+.(T|
000024d0  61 29 0d 0c 62 2f 4c 25  3d 28 54 25 28 76 25 2c  |a)..b/L%=(T%(v%,|
000024e0  31 30 29 2d 4d 5f 25 29  2a 34 30 3a 48 25 3d 28  |10)-M_%)*40:H%=(|
000024f0  54 25 28 76 25 2c 31 31  29 2d 4c 5f 25 29 2a 34  |T%(v%,11)-L_%)*4|
00002500  30 0d 0c 6c 20 c8 99 26  32 45 2c 33 34 2b 32 35  |0..l ..&2E,34+25|
00002510  36 2c 6e 5f 25 2c 52 61  24 2c 4c 25 2c 48 25 2c  |6,n_%,Ra$,L%,H%,|
00002520  38 0d 0c 76 2f 4c 25 3d  28 54 25 28 76 25 2c 31  |8..v/L%=(T%(v%,1|
00002530  34 29 2d 4d 5f 25 29 2a  34 30 3a 48 25 3d 28 54  |4)-M_%)*40:H%=(T|
00002540  25 28 76 25 2c 31 35 29  2d 4c 5f 25 29 2a 34 30  |%(v%,15)-L_%)*40|
00002550  0d 0c 80 20 c8 99 26 32  45 2c 33 34 2b 32 35 36  |... ..&2E,34+256|
00002560  2c 6e 5f 25 2c 54 61 24  2c 4c 25 2c 48 25 2c 38  |,n_%,Ta$,L%,H%,8|
00002570  0d 0c 8a 2f 4c 25 3d 28  54 25 28 76 25 2c 31 32  |.../L%=(T%(v%,12|
00002580  29 2d 4d 5f 25 29 2a 34  30 3a 48 25 3d 28 54 25  |)-M_%)*40:H%=(T%|
00002590  28 76 25 2c 31 33 29 2d  4c 5f 25 29 2a 34 30 0d  |(v%,13)-L_%)*40.|
000025a0  0c 94 20 c8 99 26 32 45  2c 33 34 2b 32 35 36 2c  |.. ..&2E,34+256,|
000025b0  6e 5f 25 2c 53 61 24 2c  4c 25 2c 48 25 2c 38 0d  |n_%,Sa$,L%,H%,8.|
000025c0  0c 9e 05 e1 0d 0c b2 11  dd f2 52 60 28 55 61 25  |..........R`(Ua%|
000025d0  2c 56 61 25 29 0d 0c bc  4a e3 6d 25 3d 31 b8 61  |,Va%)...J.m%=1.a|
000025e0  25 3a e7 28 54 25 28 6d  25 2c 31 30 29 3d 55 61  |%:.(T%(m%,10)=Ua|
000025f0  25 80 54 25 28 6d 25 2c  31 31 29 3d 56 61 25 29  |%.T%(m%,11)=Va%)|
00002600  84 28 54 25 28 6d 25 2c  31 32 29 3d 55 61 25 80  |.(T%(m%,12)=Ua%.|
00002610  54 25 28 6d 25 2c 31 33  29 3d 56 61 25 29 8c 0d  |T%(m%,13)=Va%)..|
00002620  0c c6 07 f2 4e 61 0d 0c  d0 4c f1 27 22 20 20 54  |....Na...L.'"  T|
00002630  72 61 69 6e 3a 20 22 3b  74 5f 24 28 54 25 28 6d  |rain: ";t_$(T%(m|
00002640  25 2c 32 29 29 3b 22 2d  22 3b 54 25 28 6d 25 2c  |%,2));"-";T%(m%,|
00002650  31 29 3b 27 22 44 65 73  74 69 6e 79 3a 20 22 3b  |1);'"Destiny: ";|
00002660  a4 4f 61 28 44 24 28 54  25 28 6d 25 2c 33 29 29  |.Oa(D$(T%(m%,3))|
00002670  29 27 0d 0c da 11 f2 65  5f 28 54 25 28 6d 25 2c  |)'.....e_(T%(m%,|
00002680  34 29 29 0d 0c e4 38 e7  54 25 28 6d 25 2c 33 29  |4))...8.T%(m%,3)|
00002690  3c 75 5f 25 28 31 29 2b  31 20 57 61 24 3d 22 44  |<u_%(1)+1 Wa$="D|
000026a0  65 70 61 72 74 75 72 65  3a 20 22 8b 57 61 24 3d  |eparture: ".Wa$=|
000026b0  22 41 72 72 69 76 61 6c  3a 20 22 0d 0c ee 18 e7  |"Arrival: ".....|
000026c0  54 25 28 6d 25 2c 33 29  3e 30 f1 57 61 24 3b 50  |T%(m%,3)>0.Wa$;P|
000026d0  61 24 3b 0d 0c f8 48 e7  54 25 28 6d 25 2c 33 29  |a$;...H.T%(m%,3)|
000026e0  3e 75 5f 25 28 31 29 80  54 25 28 6d 25 2c 32 29  |>u_%(1).T%(m%,2)|
000026f0  3c 33 80 76 5f 25 28 54  25 28 6d 25 2c 33 29 2c  |<3.v_%(T%(m%,3),|
00002700  38 29 3d 30 f1 27 22 4f  6e 20 54 72 61 63 6b 20  |8)=0.'"On Track |
00002710  22 3b 54 25 28 6d 25 2c  35 29 3b 0d 0d 02 46 e7  |";T%(m%,5);...F.|
00002720  54 25 28 6d 25 2c 33 29  3d 30 f1 27 27 22 52 65  |T%(m%,3)=0.''"Re|
00002730  76 65 6e 75 65 20 74 69  6c 6c 20 6e 6f 77 3a 20  |venue till now: |
00002740  23 20 22 3b 54 25 28 6d  25 2c 32 31 29 2d a8 28  |# ";T%(m%,21)-.(|
00002750  28 91 2d 54 25 28 6d 25  2c 34 29 29 2f 31 30 30  |(.-T%(m%,4))/100|
00002760  29 0d 0d 0c 3c e7 54 25  28 6d 25 2c 33 29 3e 30  |)...<.T%(m%,3)>0|
00002770  f1 27 27 22 52 65 76 65  6e 75 65 20 74 69 6c 6c  |.''"Revenue till|
00002780  20 6e 6f 77 3a 20 23 20  22 3b 54 25 28 6d 25 2c  | now: # ";T%(m%,|
00002790  32 31 29 2d 54 25 28 6d  25 2c 32 34 29 0d 0d 16  |21)-T%(m%,24)...|
000027a0  05 cd 0d 0d 20 12 ef 35  3a f2 44 5f 28 31 30 29  |.... ..5:.D_(10)|
000027b0  3a f2 60 60 0d 0d 2a 05  ed 0d 0d 34 05 e1 0d 0d  |:.``..*....4....|
000027c0  48 16 dd f2 65 5f 28 4b  25 29 3a 4b 25 3d 4b 25  |H...e_(K%):K%=K%|
000027d0  2f 31 30 30 0d 0d 52 31  58 61 25 3d 4b 25 81 33  |/100..R1Xa%=K%.3|
000027e0  36 30 30 3a 59 61 25 3d  28 4b 25 83 33 36 30 30  |600:Ya%=(K%.3600|
000027f0  29 81 36 30 3a 5a 61 25  3d 28 4b 25 83 33 36 30  |).60:Za%=(K%.360|
00002800  30 29 83 36 30 0d 0d 5c  1c e7 59 61 25 3c 31 30  |0).60..\..Ya%<10|
00002810  20 5a 5f 24 3d 22 3a 30  22 8b 5a 5f 24 3d 22 3a  | Z_$=":0".Z_$=":|
00002820  22 0d 0d 66 1c e7 5a 61  25 3c 31 30 20 61 61 24  |"..f..Za%<10 aa$|
00002830  3d 22 3a 30 22 8b 61 61  24 3d 22 3a 22 0d 0d 70  |=":0".aa$=":"..p|
00002840  24 41 61 24 3d c3 28 58  61 25 29 2b 5a 5f 24 2b  |$Aa$=.(Xa%)+Z_$+|
00002850  c3 28 59 61 25 29 2b 61  61 24 2b c3 28 5a 61 25  |.(Ya%)+aa$+.(Za%|
00002860  29 0d 0d 7a 19 50 61 24  3d c3 28 58 61 25 29 2b  |)..z.Pa$=.(Xa%)+|
00002870  5a 5f 24 2b c3 28 59 61  25 29 0d 0d 84 05 e1 0d  |Z_$+.(Ya%)......|
00002880  0d 98 08 dd f2 65 60 0d  0d a2 0c e3 6d 25 3d 31  |.....e`.....m%=1|
00002890  b8 61 25 0d 0d ac 57 62  61 25 3d 54 25 28 6d 25  |.a%...Wba%=T%(m%|
000028a0  2c 31 30 29 3a 63 61 25  3d 54 25 28 6d 25 2c 31  |,10):ca%=T%(m%,1|
000028b0  31 29 3a 64 61 25 3d 54  25 28 6d 25 2c 31 32 29  |1):da%=T%(m%,12)|
000028c0  3a 65 61 25 3d 54 25 28  6d 25 2c 31 33 29 3a 66  |:ea%=T%(m%,13):f|
000028d0  61 25 3d 54 25 28 6d 25  2c 31 34 29 3a 67 61 25  |a%=T%(m%,14):ga%|
000028e0  3d 54 25 28 6d 25 2c 31  35 29 0d 0d b6 35 f2 4c  |=T%(m%,15)...5.L|
000028f0  61 28 51 25 28 62 61 25  2c 63 61 25 2c 30 29 2c  |a(Q%(ba%,ca%,0),|
00002900  51 25 28 64 61 25 2c 65  61 25 2c 30 29 2c 51 25  |Q%(da%,ea%,0),Q%|
00002910  28 66 61 25 2c 67 61 25  2c 30 29 2c 6d 25 29 0d  |(fa%,ga%,0),m%).|
00002920  0d c0 05 ed 0d 0d ca 05  e1 0d 0d de 08 dd f2 53  |...............S|
00002930  5f 0d 0d e8 0c e3 6d 25  3d 31 b8 61 25 0d 0d f2  |_.....m%=1.a%...|
00002940  40 68 61 24 3d 22 22 3a  69 61 24 3d 22 22 3a 6a  |@ha$="":ia$="":j|
00002950  61 24 3d 22 22 3a 72 25  3d 30 3a 6f 60 25 3d 30  |a$="":r%=0:o`%=0|
00002960  3a 70 60 25 3d 30 3a 6b  61 25 3d 30 3a 6c 61 25  |:p`%=0:ka%=0:la%|
00002970  3d 30 3a 73 25 3d 30 3a  6d 61 25 3d 30 0d 0d fc  |=0:s%=0:ma%=0...|
00002980  11 e7 54 25 28 6d 25 2c  31 29 3c 3e 30 8c 0d 0e  |..T%(m%,1)<>0...|
00002990  06 7f e7 28 54 25 28 6d  25 2c 32 35 29 3c 28 91  |...(T%(m%,25)<(.|
000029a0  2b 34 32 30 30 30 29 29  80 54 25 28 6d 25 2c 38  |+42000)).T%(m%,8|
000029b0  29 3d 39 f2 67 60 28 31  32 2c 31 33 2c 30 29 3a  |)=9.g`(12,13,0):|
000029c0  f2 67 60 28 31 34 2c 31  35 2c 30 29 3a 54 25 28  |.g`(14,15,0):T%(|
000029d0  6d 25 2c 38 29 3d 31 30  3a f2 5f 60 3a f1 27 27  |m%,8)=10:._`:.''|
000029e0  27 22 20 54 72 61 63 6b  20 61 74 20 64 65 72 61  |'" Track at dera|
000029f0  69 6c 6d 65 6e 74 20 70  61 72 74 6c 79 20 72 65  |ilment partly re|
00002a00  73 74 6f 72 65 64 2e 2e  22 3a f2 60 60 0d 0e 10  |stored..":.``...|
00002a10  11 e7 54 25 28 6d 25 2c  32 35 29 3c 91 8c 0d 0e  |..T%(m%,25)<....|
00002a20  1a 22 e7 54 25 28 6d 25  2c 35 29 3d 30 80 54 25  |.".T%(m%,5)=0.T%|
00002a30  28 6d 25 2c 33 29 3c 3e  30 f2 6e 61 3a f2 6f 61  |(m%,3)<>0.na:.oa|
00002a40  0d 0e 24 1e 70 61 25 3d  54 25 28 6d 25 2c 38 29  |..$.pa%=T%(m%,8)|
00002a50  3a 71 61 25 3d 54 25 28  6d 25 2c 31 36 29 0d 0e  |:qa%=T%(m%,16)..|
00002a60  2e 12 e7 54 25 28 6d 25  2c 38 29 3c 3e 31 30 8c  |...T%(m%,8)<>10.|
00002a70  0d 0e 38 15 54 25 28 6d  25 2c 32 32 29 3d 30 3a  |..8.T%(m%,22)=0:|
00002a80  43 60 25 3d 30 0d 0e 42  40 68 61 24 3d 71 5f 24  |C`%=0..B@ha$=q_$|
00002a90  28 54 25 28 6d 25 2c 31  30 29 2c 54 25 28 6d 25  |(T%(m%,10),T%(m%|
00002aa0  2c 31 31 29 29 3a 72 25  3d a0 28 22 26 22 2b 68  |,11)):r%=.("&"+h|
00002ab0  61 24 29 3a f2 72 61 28  72 25 2c 70 61 25 29 3a  |a$):.ra(r%,pa%):|
00002ac0  72 25 3d 75 25 0d 0e 4c  2a e7 a7 22 32 61 32 62  |r%=u%..L*.."2a2b|
00002ad0  33 61 33 62 30 36 22 2c  68 61 24 29 3e 30 f2 73  |3a3b06",ha$)>0.s|
00002ae0  61 28 72 25 2c 70 61 25  29 3a 72 25 3d 75 25 0d  |a(r%,pa%):r%=u%.|
00002af0  0e 56 0f e7 68 61 24 3c  3e 22 30 30 22 8c 0d 0e  |.V..ha$<>"00"...|
00002b00  60 45 e7 a7 22 31 31 2d  30 36 34 34 35 34 36 34  |`E.."11-06445464|
00002b10  37 36 35 36 62 36 63 37  35 37 34 22 2c 68 61 24  |7656b6c7574",ha$|
00002b20  29 3e 30 20 54 25 28 6d  25 2c 34 29 3d 54 25 28  |)>0 T%(m%,4)=T%(|
00002b30  6d 25 2c 34 29 2b 4b 5f  25 28 54 25 28 6d 25 2c  |m%,4)+K_%(T%(m%,|
00002b40  32 29 29 0d 0e 6a 1d e7  70 61 25 3d 52 25 28 72  |2))..j..pa%=R%(r|
00002b50  25 2c 31 29 6b 61 25 3d  52 25 28 72 25 2c 35 29  |%,1)ka%=R%(r%,5)|
00002b60  0d 0e 74 1d e7 70 61 25  3d 52 25 28 72 25 2c 34  |..t..pa%=R%(r%,4|
00002b70  29 6b 61 25 3d 52 25 28  72 25 2c 35 29 0d 0e 7e  |)ka%=R%(r%,5)..~|
00002b80  43 6a 61 24 3d 71 5f 24  28 54 25 28 6d 25 2c 31  |Cja$=q_$(T%(m%,1|
00002b90  34 29 2c 54 25 28 6d 25  2c 31 35 29 29 3a 74 61  |4),T%(m%,15)):ta|
00002ba0  25 3d a0 28 22 26 22 2b  6a 61 24 29 3a f2 72 61  |%=.("&"+ja$):.ra|
00002bb0  28 74 61 25 2c 71 61 25  29 3a 74 61 25 3d 75 25  |(ta%,qa%):ta%=u%|
00002bc0  0d 0e 88 2c e7 a7 22 32  61 32 62 33 61 33 62 30  |...,.."2a2b3a3b0|
00002bd0  36 22 2c 6a 61 24 29 3e  30 f2 73 61 28 74 61 25  |6",ja$)>0.sa(ta%|
00002be0  2c 71 61 25 29 3a 74 61  25 3d 75 25 0d 0e 92 1f  |,qa%):ta%=u%....|
00002bf0  e7 71 61 25 3d 52 25 28  74 61 25 2c 31 29 6d 61  |.qa%=R%(ta%,1)ma|
00002c00  25 3d 52 25 28 74 61 25  2c 33 29 0d 0e 9c 1f e7  |%=R%(ta%,3).....|
00002c10  71 61 25 3d 52 25 28 74  61 25 2c 34 29 6d 61 25  |qa%=R%(ta%,4)ma%|
00002c20  3d 52 25 28 74 61 25 2c  32 29 0d 0e a6 1f 6f 60  |=R%(ta%,2)....o`|
00002c30  25 3d 66 25 28 70 61 25  2c 31 29 3a 70 60 25 3d  |%=f%(pa%,1):p`%=|
00002c40  66 25 28 70 61 25 2c 32  29 0d 0e b0 5a 69 61 24  |f%(pa%,2)...Zia$|
00002c50  3d 71 5f 24 28 54 25 28  6d 25 2c 31 30 29 2b 6f  |=q_$(T%(m%,10)+o|
00002c60  60 25 2c 54 25 28 6d 25  2c 31 31 29 2b 70 60 25  |`%,T%(m%,11)+p`%|
00002c70  29 3a 73 25 3d a0 28 22  26 22 2b 69 61 24 29 3a  |):s%=.("&"+ia$):|
00002c80  f2 72 61 28 73 25 2c 70  61 25 29 3a 73 25 3d 75  |.ra(s%,pa%):s%=u|
00002c90  25 3a e7 73 25 3e 31 34  30 84 73 25 3c 31 f2 75  |%:.s%>140.s%<1.u|
00002ca0  61 3a e1 0d 0e ba 2a e7  a7 22 32 61 32 62 33 61  |a:....*.."2a2b3a|
00002cb0  33 62 30 36 22 2c 69 61  24 29 3e 30 f2 73 61 28  |3b06",ia$)>0.sa(|
00002cc0  73 25 2c 70 61 25 29 3a  73 25 3d 75 25 0d 0e c4  |s%,pa%):s%=u%...|
00002cd0  67 e7 c0 68 61 24 2c 31  29 3d 22 36 22 80 a7 22  |g..ha$,1)="6".."|
00002ce0  31 64 31 65 31 66 31 63  22 2c 69 61 24 29 3e 30  |1d1e1f1c",ia$)>0|
00002cf0  3a f2 53 60 28 54 25 28  6d 25 2c 32 39 29 2c 54  |:.S`(T%(m%,29),T|
00002d00  25 28 6d 25 2c 33 30 29  29 3a f2 6e 60 28 22 31  |%(m%,30)):.n`("1|
00002d10  34 22 2c 22 32 35 22 29  3a f2 72 60 28 54 25 28  |4","25"):.r`(T%(|
00002d20  6d 25 2c 32 39 29 2c 54  25 28 6d 25 2c 33 30 29  |m%,29),T%(m%,30)|
00002d30  2c 43 24 29 0d 0e ce 28  e7 c0 68 61 24 2c 31 29  |,C$)...(..ha$,1)|
00002d40  3d 22 36 22 20 54 25 28  6d 25 2c 32 39 29 3d 30  |="6" T%(m%,29)=0|
00002d50  3a 54 25 28 6d 25 2c 33  30 29 3d 30 0d 0e d8 13  |:T%(m%,30)=0....|
00002d60  e7 73 25 3c 31 36 f2 76  61 3a e7 48 5f 25 e1 0d  |.s%<16.va:.H_%..|
00002d70  0e e2 0c e7 43 60 25 3c  3e 31 8c 0d 0e ec 11 e7  |....C`%<>1......|
00002d80  54 25 28 6d 25 2c 32 32  29 3d 30 8c 0d 0e f6 19  |T%(m%,22)=0.....|
00002d90  61 24 3d c0 69 61 24 2c  31 29 3a 62 24 3d c2 69  |a$=.ia$,1):b$=.i|
00002da0  61 24 2c 31 29 0d 0f 00  2c e7 a7 22 36 37 38 22  |a$,1)...,.."678"|
00002db0  2c 61 24 29 3e 30 f2 77  61 3a e7 54 25 28 6d 25  |,a$)>0.wa:.T%(m%|
00002dc0  2c 32 32 29 3d 30 f2 6b  60 3a f2 78 61 3a f2 79  |,22)=0.k`:.xa:.y|
00002dd0  61 0d 0f 0a 11 e7 54 25  28 6d 25 2c 32 32 29 3d  |a.....T%(m%,22)=|
00002de0  30 8c 0d 0f 14 11 e7 54  25 28 6d 25 2c 36 29 3c  |0......T%(m%,6)<|
00002df0  3e 30 8c 0d 0f 1e 30 46  60 25 3d 30 3a 54 25 28  |>0....0F`%=0:T%(|
00002e00  6d 25 2c 31 39 29 3d 54  25 28 6d 25 2c 31 36 29  |m%,19)=T%(m%,16)|
00002e10  3a 54 25 28 6d 25 2c 31  36 29 3d 54 25 28 6d 25  |:T%(m%,16)=T%(m%|
00002e20  2c 38 29 0d 0f 28 17 e7  73 25 3d 37 80 54 25 28  |,8)..(..s%=7.T%(|
00002e30  6d 25 2c 36 29 3c 34 f2  7a 61 0d 0f 32 13 e7 54  |m%,6)<4.za..2..T|
00002e40  25 28 6d 25 2c 33 33 29  3d 30 f2 5f 61 0d 0f 3c  |%(m%,33)=0._a..<|
00002e50  13 e7 73 25 3e 33 31 80  73 25 3c 39 36 f2 60 61  |..s%>31.s%<96.`a|
00002e60  0d 0f 46 0b e7 46 60 25  3d 30 8c 0d 0f 50 44 e7  |..F..F`%=0...PD.|
00002e70  51 25 28 54 25 28 6d 25  2c 31 30 29 2b 6f 60 25  |Q%(T%(m%,10)+o`%|
00002e80  2c 54 25 28 6d 25 2c 31  31 29 2b 70 60 25 2c 30  |,T%(m%,11)+p`%,0|
00002e90  29 3c 3e 30 80 a7 22 32  61 32 62 33 61 33 62 30  |)<>0.."2a2b3a3b0|
00002ea0  36 22 2c 69 61 24 29 3d  30 20 49 5f 25 3d 31 0d  |6",ia$)=0 I_%=1.|
00002eb0  0f 5a 11 41 62 25 3d 66  25 28 70 61 25 2c 33 29  |.Z.Ab%=f%(pa%,3)|
00002ec0  0d 0f 64 23 e7 52 25 28  73 25 2c 34 29 3d 41 62  |..d#.R%(s%,4)=Ab|
00002ed0  25 20 54 25 28 6d 25 2c  38 29 3d 52 25 28 73 25  |% T%(m%,8)=R%(s%|
00002ee0  2c 31 29 0d 0f 6e 23 e7  52 25 28 73 25 2c 31 29  |,1)..n#.R%(s%,1)|
00002ef0  3d 41 62 25 20 54 25 28  6d 25 2c 38 29 3d 52 25  |=Ab% T%(m%,8)=R%|
00002f00  28 73 25 2c 34 29 0d 0f  78 05 cd 0d 0f 82 10 f2  |(s%,4)..x.......|
00002f10  67 60 28 31 32 2c 31 33  2c 30 29 0d 0f 8c 38 54  |g`(12,13,0)...8T|
00002f20  25 28 6d 25 2c 31 32 29  3d 54 25 28 6d 25 2c 31  |%(m%,12)=T%(m%,1|
00002f30  34 29 3a 54 25 28 6d 25  2c 31 33 29 3d 54 25 28  |4):T%(m%,13)=T%(|
00002f40  6d 25 2c 31 35 29 3a f2  67 60 28 31 34 2c 31 35  |m%,15):.g`(14,15|
00002f50  2c 30 29 0d 0f 96 5b 54  25 28 6d 25 2c 31 34 29  |,0)...[T%(m%,14)|
00002f60  3d 54 25 28 6d 25 2c 31  30 29 3a 54 25 28 6d 25  |=T%(m%,10):T%(m%|
00002f70  2c 31 35 29 3d 54 25 28  6d 25 2c 31 31 29 3a 54  |,15)=T%(m%,11):T|
00002f80  25 28 6d 25 2c 31 30 29  3d 54 25 28 6d 25 2c 31  |%(m%,10)=T%(m%,1|
00002f90  30 29 2b 6f 60 25 3a 54  25 28 6d 25 2c 31 31 29  |0)+o`%:T%(m%,11)|
00002fa0  3d 54 25 28 6d 25 2c 31  31 29 2b 70 60 25 0d 0f  |=T%(m%,11)+p`%..|
00002fb0  a0 0b e7 46 60 25 3d 30  8c 0d 0f aa 22 e7 54 25  |...F`%=0....".T%|
00002fc0  28 6d 25 2c 38 29 3d 52  25 28 73 25 2c 31 29 6c  |(m%,8)=R%(s%,1)l|
00002fd0  61 25 3d 52 25 28 73 25  2c 32 29 0d 0f b4 22 e7  |a%=R%(s%,2)...".|
00002fe0  54 25 28 6d 25 2c 38 29  3d 52 25 28 73 25 2c 34  |T%(m%,8)=R%(s%,4|
00002ff0  29 6c 61 25 3d 52 25 28  73 25 2c 33 29 0d 0f be  |)la%=R%(s%,3)...|
00003000  20 e7 28 73 25 3e 3d 26  31 30 80 73 25 3c 26 31  | .(s%>=&10.s%<&1|
00003010  64 29 54 25 28 6d 25 2c  32 30 29 3d 30 0d 0f c8  |d)T%(m%,20)=0...|
00003020  05 cd 0d 0f d2 44 51 25  28 54 25 28 6d 25 2c 31  |.....DQ%(T%(m%,1|
00003030  30 29 2c 54 25 28 6d 25  2c 31 31 29 2c 30 29 3d  |0),T%(m%,11),0)=|
00003040  6c 61 25 3a 51 25 28 54  25 28 6d 25 2c 31 30 29  |la%:Q%(T%(m%,10)|
00003050  2c 54 25 28 6d 25 2c 31  31 29 2c 31 29 3d 54 25  |,T%(m%,11),1)=T%|
00003060  28 6d 25 2c 31 29 0d 0f  dc 44 51 25 28 54 25 28  |(m%,1)...DQ%(T%(|
00003070  6d 25 2c 31 32 29 2c 54  25 28 6d 25 2c 31 33 29  |m%,12),T%(m%,13)|
00003080  2c 30 29 3d 6d 61 25 3a  51 25 28 54 25 28 6d 25  |,0)=ma%:Q%(T%(m%|
00003090  2c 31 32 29 2c 54 25 28  6d 25 2c 31 33 29 2c 31  |,12),T%(m%,13),1|
000030a0  29 3d 54 25 28 6d 25 2c  31 29 0d 0f e6 44 51 25  |)=T%(m%,1)...DQ%|
000030b0  28 54 25 28 6d 25 2c 31  34 29 2c 54 25 28 6d 25  |(T%(m%,14),T%(m%|
000030c0  2c 31 35 29 2c 30 29 3d  6b 61 25 3a 51 25 28 54  |,15),0)=ka%:Q%(T|
000030d0  25 28 6d 25 2c 31 34 29  2c 54 25 28 6d 25 2c 31  |%(m%,14),T%(m%,1|
000030e0  35 29 2c 31 29 3d 54 25  28 6d 25 2c 31 29 0d 0f  |5),1)=T%(m%,1)..|
000030f0  f0 1e 42 61 25 3d 54 25  28 6d 25 2c 32 29 2b 31  |..Ba%=T%(m%,2)+1|
00003100  3a e7 49 5f 25 3d 31 f2  49 5f 3a e1 0d 0f fa 20  |:.I_%=1.I_:.... |
00003110  e7 54 25 28 6d 25 2c 36  29 3d 31 20 48 60 3d 4b  |.T%(m%,6)=1 H`=K|
00003120  5f 25 28 54 25 28 6d 25  2c 32 29 29 0d 10 04 2e  |_%(T%(m%,2))....|
00003130  e7 54 25 28 6d 25 2c 36  29 3d 32 20 48 60 3d 4b  |.T%(m%,6)=2 H`=K|
00003140  5f 25 28 54 25 28 6d 25  2c 32 29 29 2b 28 33 30  |_%(T%(m%,2))+(30|
00003150  2f 54 25 28 6d 25 2c 32  29 29 0d 10 0e 2e e7 54  |/T%(m%,2)).....T|
00003160  25 28 6d 25 2c 36 29 3d  33 20 48 60 3d 4b 5f 25  |%(m%,6)=3 H`=K_%|
00003170  28 54 25 28 6d 25 2c 32  29 29 2b 28 36 30 2f 54  |(T%(m%,2))+(60/T|
00003180  25 28 6d 25 2c 32 29 29  0d 10 18 2e e7 54 25 28  |%(m%,2)).....T%(|
00003190  6d 25 2c 36 29 3d 34 20  48 60 3d 4b 5f 25 28 54  |m%,6)=4 H`=K_%(T|
000031a0  25 28 6d 25 2c 32 29 29  2b 28 39 30 2f 54 25 28  |%(m%,2))+(90/T%(|
000031b0  6d 25 2c 32 29 29 0d 10  22 12 54 25 28 6d 25 2c  |m%,2))..".T%(m%,|
000031c0  32 35 29 3d 91 2b 48 60  0d 10 2c 3a e7 28 69 61  |25)=.+H`..,:.(ia|
000031d0  24 3d 22 31 64 22 84 69  61 24 3d 22 31 65 22 29  |$="1d".ia$="1e")|
000031e0  80 54 25 28 6d 25 2c 32  29 3c 33 20 54 25 28 6d  |.T%(m%,2)<3 T%(m|
000031f0  25 2c 36 29 3d 33 3a 54  25 28 6d 25 2c 33 33 29  |%,6)=3:T%(m%,33)|
00003200  3d 31 0d 10 36 2e e7 28  69 61 24 3d 22 31 66 22  |=1..6..(ia$="1f"|
00003210  84 69 61 24 3d 22 31 63  22 29 54 25 28 6d 25 2c  |.ia$="1c")T%(m%,|
00003220  36 29 3d 33 3a 54 25 28  6d 25 2c 33 33 29 3d 31  |6)=3:T%(m%,33)=1|
00003230  0d 10 40 2f e7 46 60 25  3d 35 20 54 25 28 6d 25  |..@/.F`%=5 T%(m%|
00003240  2c 32 35 29 3d 54 25 28  6d 25 2c 32 35 29 2b 36  |,25)=T%(m%,25)+6|
00003250  30 30 30 30 3a 54 25 28  6d 25 2c 38 29 3d 39 0d  |0000:T%(m%,8)=9.|
00003260  10 4a 59 f2 4c 61 28 51  25 28 54 25 28 6d 25 2c  |.JY.La(Q%(T%(m%,|
00003270  31 30 29 2c 54 25 28 6d  25 2c 31 31 29 2c 30 29  |10),T%(m%,11),0)|
00003280  2c 51 25 28 54 25 28 6d  25 2c 31 32 29 2c 54 25  |,Q%(T%(m%,12),T%|
00003290  28 6d 25 2c 31 33 29 2c  30 29 2c 51 25 28 54 25  |(m%,13),0),Q%(T%|
000032a0  28 6d 25 2c 31 34 29 2c  54 25 28 6d 25 2c 31 35  |(m%,14),T%(m%,15|
000032b0  29 2c 30 29 2c 6d 25 29  0d 10 54 59 e7 28 72 25  |),0),m%)..TY.(r%|
000032c0  3d 26 31 30 84 28 72 25  3e 26 31 62 80 72 25 3c  |=&10.(r%>&1b.r%<|
000032d0  26 32 30 29 84 28 72 25  3e 26 33 66 80 72 25 3c  |&20).(r%>&3f.r%<|
000032e0  26 34 34 29 29 80 28 73  25 3d 26 31 30 84 28 73  |&44)).(s%=&10.(s|
000032f0  25 3e 26 31 62 80 73 25  3c 26 32 30 29 84 28 73  |%>&1b.s%<&20).(s|
00003300  25 3e 26 33 66 80 73 25  3c 26 34 34 29 29 f2 6f  |%>&3f.s%<&44)).o|
00003310  61 0d 10 5e 05 cd 0d 10  68 05 cd 0d 10 72 05 cd  |a..^....h....r..|
00003320  0d 10 7c 05 cd 0d 10 86  05 cd 0d 10 90 10 e7 68  |..|............h|
00003330  61 24 3d 22 30 30 22 f2  42 62 0d 10 9a 05 cd 0d  |a$="00".Bb......|
00003340  10 a4 57 e7 54 25 28 6d  25 2c 38 29 3d 31 30 f2  |..W.T%(m%,8)=10.|
00003350  43 62 3a f2 5f 60 3a f1  27 27 27 22 20 44 65 72  |Cb:._`:.'''" Der|
00003360  61 69 6c 65 64 20 74 72  61 69 6e 20 72 65 6d 6f  |ailed train remo|
00003370  76 65 64 2e 22 27 22 20  54 72 61 63 6b 20 69 73  |ved."'" Track is|
00003380  20 61 76 61 69 6c 61 62  6c 65 20 61 67 61 69 6e  | available again|
00003390  2e 22 3a f2 60 60 0d 10  ae 05 cd 0d 10 b8 05 cd  |.":.``..........|
000033a0  0d 10 c2 0b ed 3a 42 60  25 3d 30 0d 10 cc 05 e1  |.....:B`%=0.....|
000033b0  0d 10 e0 32 dd f2 75 61  3a f2 74 3a e7 51 25 28  |...2..ua:.t:.Q%(|
000033c0  54 25 28 6d 25 2c 31 30  29 2b 6f 60 25 2c 54 25  |T%(m%,10)+o`%,T%|
000033d0  28 6d 25 2c 31 31 29 2b  70 60 25 2c 30 29 3d 31  |(m%,11)+p`%,0)=1|
000033e0  30 e1 0d 10 ea 2a e7 51  25 28 54 25 28 6d 25 2c  |0....*.Q%(T%(m%,|
000033f0  31 32 29 2b 6f 60 25 2c  54 25 28 6d 25 2c 31 33  |12)+o`%,T%(m%,13|
00003400  29 2b 70 60 25 2c 30 29  3d 31 30 e1 0d 10 f4 98  |)+p`%,0)=10.....|
00003410  f2 74 3a f1 27 27 22 53  6f 6d 65 74 68 69 6e 67  |.t:.''"Something|
00003420  20 67 6f 65 73 20 77 72  6f 6e 67 2e 2e 21 21 20  | goes wrong..!! |
00003430  20 77 69 74 68 20 74 72  61 69 6e 20 20 22 3b 54  | with train  ";T|
00003440  25 28 6d 25 2c 31 29 3b  22 22 27 22 52 65 63 61  |%(m%,1);""'"Reca|
00003450  6c 63 75 6c 61 74 69 6e  67 20 64 61 74 61 22 3a  |lculating data":|
00003460  42 60 25 3d 42 60 25 2b  31 3a e7 42 60 25 3e 3d  |B`%=B`%+1:.B`%>=|
00003470  31 30 f2 43 62 3a f1 22  54 72 61 69 6e 20 74 61  |10.Cb:."Train ta|
00003480  6b 65 6e 20 6f 75 74 20  6f 66 20 73 65 72 76 69  |ken out of servi|
00003490  63 65 22 3a ef 35 3a f2  44 5f 28 31 35 29 3a 42  |ce":.5:.D_(15):B|
000034a0  60 25 3d 30 0d 10 fe 05  e1 0d 11 12 08 dd f2 52  |`%=0...........R|
000034b0  5f 0d 11 1c 1f 44 62 25  3d 41 25 2b 4d 5f 25 3a  |_....Db%=A%+M_%:|
000034c0  45 62 25 3d 42 25 2b 4c  5f 25 3a 46 62 25 3d 30  |Eb%=B%+L_%:Fb%=0|
000034d0  0d 11 26 14 e7 44 62 25  3e 31 32 30 84 45 62 25  |..&..Db%>120.Eb%|
000034e0  3e 34 30 e1 0d 11 30 16  e7 51 25 28 44 62 25 2c  |>40...0..Q%(Db%,|
000034f0  45 62 25 2c 31 29 3c 3e  30 8c 0d 11 3a 4a e3 6d  |Eb%,1)<>0...:J.m|
00003500  25 3d 31 b8 61 25 3a e7  28 54 25 28 6d 25 2c 31  |%=1.a%:.(T%(m%,1|
00003510  30 29 3d 44 62 25 80 54  25 28 6d 25 2c 31 31 29  |0)=Db%.T%(m%,11)|
00003520  3d 45 62 25 29 84 28 54  25 28 6d 25 2c 31 32 29  |=Eb%).(T%(m%,12)|
00003530  3d 44 62 25 80 54 25 28  6d 25 2c 31 33 29 3d 45  |=Db%.T%(m%,13)=E|
00003540  62 25 29 8c 0d 11 44 13  e7 46 60 25 3e 30 80 a6  |b%)...D..F`%>0..|
00003550  2d 31 f2 43 62 3a e1 0d  11 4e 2e 68 61 24 3d 71  |-1.Cb:...N.ha$=q|
00003560  5f 24 28 54 25 28 6d 25  2c 31 30 29 2c 54 25 28  |_$(T%(m%,10),T%(|
00003570  6d 25 2c 31 31 29 29 3a  72 25 3d a0 28 22 26 22  |m%,11)):r%=.("&"|
00003580  2b 68 61 24 29 0d 11 58  2e 69 61 24 3d 71 5f 24  |+ha$)..X.ia$=q_$|
00003590  28 54 25 28 6d 25 2c 31  32 29 2c 54 25 28 6d 25  |(T%(m%,12),T%(m%|
000035a0  2c 31 33 29 29 3a 73 25  3d a0 28 22 26 22 2b 69  |,13)):s%=.("&"+i|
000035b0  61 24 29 0d 11 62 10 e7  54 25 28 6d 25 2c 38 29  |a$)..b..T%(m%,8)|
000035c0  3c 39 8c 0d 11 6c 21 f2  47 62 3a f1 8a 30 2c 31  |<9...l!.Gb:..0,1|
000035d0  29 3b 22 20 54 72 61 69  6e 20 22 3b 54 25 28 6d  |);" Train ";T%(m|
000035e0  25 2c 31 29 0d 11 76 10  e7 54 25 28 6d 25 2c 36  |%,1)..v..T%(m%,6|
000035f0  29 3d 30 8c 0d 11 80 1f  f1 27 22 20 44 69 72 65  |)=0......'" Dire|
00003600  63 74 69 6f 6e 20 63 68  61 6e 67 65 64 2e 22 3a  |ction changed.":|
00003610  f2 60 60 0d 11 8a 07 f2  48 62 0d 11 94 0e 54 25  |.``.....Hb....T%|
00003620  28 6d 25 2c 36 29 3d 33  0d 11 9e 39 54 25 28 6d  |(m%,6)=3...9T%(m|
00003630  25 2c 32 35 29 3d 54 25  28 6d 25 2c 32 35 29 2b  |%,25)=T%(m%,25)+|
00003640  31 30 30 3a 46 62 25 3d  31 3a 54 25 28 6d 25 2c  |100:Fb%=1:T%(m%,|
00003650  32 37 29 3d 30 3a 54 25  28 6d 25 2c 32 38 29 3d  |27)=0:T%(m%,28)=|
00003660  30 0d 11 a8 53 e7 54 25  28 6d 25 2c 33 29 3e 30  |0...S.T%(m%,3)>0|
00003670  20 54 25 28 6d 25 2c 32  31 29 3d 54 25 28 6d 25  | T%(m%,21)=T%(m%|
00003680  2c 32 31 29 2d 36 30 3a  6a 5f 25 28 31 30 2c 31  |,21)-60:j_%(10,1|
00003690  29 3d 6a 5f 25 28 31 30  2c 31 29 2b 31 3a 6a 5f  |)=j_%(10,1)+1:j_|
000036a0  25 28 31 30 2c 32 29 3d  6a 5f 25 28 31 30 2c 32  |%(10,2)=j_%(10,2|
000036b0  29 2b 36 30 0d 11 b2 05  cd 0d 11 bc 5e e7 46 62  |)+60........^.Fb|
000036c0  25 3d 30 80 54 25 28 6d  25 2c 36 29 3c 3e 30 f2  |%=0.T%(m%,6)<>0.|
000036d0  47 62 3a f1 27 27 27 22  20 44 72 69 76 65 72 20  |Gb:.'''" Driver |
000036e0  63 61 6e 20 6f 6e 6c 79  20 62 65 20 72 65 61 63  |can only be reac|
000036f0  68 65 64 22 27 22 20 77  68 65 6e 20 73 74 6f 70  |hed"'" when stop|
00003700  70 65 64 20 61 74 20 61  20 73 69 67 6e 61 6c 2e  |ped at a signal.|
00003710  2e 22 3b 3a f2 60 60 0d  11 c6 05 cd 0d 11 d0 63  |.";:.``........c|
00003720  e7 54 25 28 6d 25 2c 38  29 3e 38 f2 47 62 3a f1  |.T%(m%,8)>8.Gb:.|
00003730  27 27 27 22 20 44 72 69  76 65 72 20 69 73 20 75  |'''" Driver is u|
00003740  6e 72 65 61 63 68 61 62  6c 65 20 61 73 20 68 65  |nreachable as he|
00003750  20 69 73 20 69 6e 20 22  27 22 20 68 6f 73 70 69  | is in "'" hospi|
00003760  74 61 6c 20 61 66 74 65  72 20 74 68 65 20 64 65  |tal after the de|
00003770  72 61 69 6c 6d 65 6e 74  2e 2e 22 3a f2 60 60 0d  |railment..":.``.|
00003780  11 da 0b f2 44 5f 28 32  30 29 0d 11 e4 05 cd 0d  |....D_(20)......|
00003790  11 ee 05 ed 0d 11 f8 05  cd 0d 12 02 06 ef 35 0d  |..............5.|
000037a0  12 0c 20 e7 41 25 3d 30  80 4d 5f 25 3e 3d 32 35  |.. .A%=0.M_%>=25|
000037b0  20 4d 5f 25 3d 4d 5f 25  2d 32 35 3a f2 43 5f 0d  | M_%=M_%-25:.C_.|
000037c0  12 16 20 e7 42 25 3d 30  80 4c 5f 25 3e 3d 31 30  |.. .B%=0.L_%>=10|
000037d0  20 4c 5f 25 3d 4c 5f 25  2d 31 30 3a f2 43 5f 0d  | L_%=L_%-10:.C_.|
000037e0  12 20 20 e7 41 25 3d 33  31 80 4d 5f 25 3c 38 30  |.  .A%=31.M_%<80|
000037f0  20 4d 5f 25 3d 4d 5f 25  2b 32 35 3a f2 43 5f 0d  | M_%=M_%+25:.C_.|
00003800  12 2a 21 e7 42 25 3e 3d  31 39 80 4c 5f 25 3c 32  |.*!.B%>=19.L_%<2|
00003810  30 20 4c 5f 25 3d 4c 5f  25 2b 31 30 3a f2 43 5f  |0 L_%=L_%+10:.C_|
00003820  0d 12 34 05 e1 0d 12 48  1b dd f2 76 61 3a 43 60  |..4....H...va:C`|
00003830  25 3d 30 3a e7 73 25 3e  35 80 73 25 3c 31 31 e1  |%=0:.s%>5.s%<11.|
00003840  0d 12 52 0f e7 73 25 3e  30 80 73 25 3c 35 8c 0d  |..R..s%>0.s%<5..|
00003850  12 5c 12 54 25 28 6d 25  2c 36 29 3d 30 3a f2 78  |.\.T%(m%,6)=0:.x|
00003860  61 0d 12 66 05 cd 0d 12  70 15 e7 73 25 3d 35 80  |a..f....p..s%=5.|
00003870  54 25 28 6d 25 2c 33 29  3d 30 8c 0d 12 7a 37 e7  |T%(m%,3)=0...z7.|
00003880  54 25 28 6d 25 2c 39 29  3d 30 20 6a 5f 25 28 31  |T%(m%,9)=0 j_%(1|
00003890  31 2c 32 29 3d 6a 5f 25  28 31 31 2c 32 29 2b a8  |1,2)=j_%(11,2)+.|
000038a0  28 28 91 2d 54 25 28 6d  25 2c 34 29 29 2f 31 30  |((.-T%(m%,4))/10|
000038b0  30 29 0d 12 84 05 cd 0d  12 8e 15 e7 73 25 3d 35  |0)..........s%=5|
000038c0  80 54 25 28 6d 25 2c 33  29 3e 30 8c 0d 12 98 43  |.T%(m%,3)>0....C|
000038d0  e7 54 25 28 6d 25 2c 31  30 29 2b 6f 60 25 3c 3e  |.T%(m%,10)+o`%<>|
000038e0  76 5f 25 28 54 25 28 6d  25 2c 33 29 2c 31 29 84  |v_%(T%(m%,3),1).|
000038f0  54 25 28 6d 25 2c 31 31  29 2b 70 60 25 3c 3e 76  |T%(m%,11)+p`%<>v|
00003900  5f 25 28 54 25 28 6d 25  2c 33 29 2c 32 29 8c 0d  |_%(T%(m%,3),2)..|
00003910  12 a2 98 f2 47 62 3a f1  27 22 20 59 6f 75 20 73  |....Gb:.'" You s|
00003920  65 6e 74 20 74 72 61 69  6e 20 22 3b 74 5f 24 28  |ent train ";t_$(|
00003930  54 25 28 6d 25 2c 32 29  29 3b 22 2d 22 3b 54 25  |T%(m%,2));"-";T%|
00003940  28 6d 25 2c 31 29 3b 22  20 74 6f 20 74 68 65 20  |(m%,1);" to the |
00003950  77 72 6f 6e 67 20 64 65  73 74 69 6e 79 2e 22 27  |wrong destiny."'|
00003960  22 20 4f 74 68 65 72 73  20 77 69 6c 6c 20 68 61  |" Others will ha|
00003970  76 65 20 74 6f 20 72 65  64 69 72 65 63 74 20 74  |ve to redirect t|
00003980  68 65 20 74 72 61 69 6e  20 22 27 22 20 61 6e 64  |he train "'" and|
00003990  20 63 68 61 72 67 65 20  79 6f 75 20 23 20 33 30  | charge you # 30|
000039a0  30 2e 22 3a f2 60 60 0d  12 ac 49 54 25 28 6d 25  |0.":.``...IT%(m%|
000039b0  2c 32 31 29 3d 54 25 28  6d 25 2c 32 31 29 2d 33  |,21)=T%(m%,21)-3|
000039c0  30 30 3a 6a 5f 25 28 31  30 2c 31 29 3d 6a 5f 25  |00:j_%(10,1)=j_%|
000039d0  28 31 30 2c 31 29 2b 31  3a 6a 5f 25 28 31 30 2c  |(10,1)+1:j_%(10,|
000039e0  32 29 3d 6a 5f 25 28 31  30 2c 32 29 2b 33 30 30  |2)=j_%(10,2)+300|
000039f0  0d 12 b6 05 cd 0d 12 c0  05 cd 0d 12 ca 0a e7 73  |...............s|
00003a00  25 3d 35 8c 0d 12 d4 47  f2 53 60 28 54 25 28 6d  |%=5....G.S`(T%(m|
00003a10  25 2c 33 31 29 2c 54 25  28 6d 25 2c 33 32 29 29  |%,31),T%(m%,32))|
00003a20  3a f2 6e 60 28 22 31 34  22 2c 22 32 35 22 29 3a  |:.n`("14","25"):|
00003a30  f2 72 60 28 54 25 28 6d  25 2c 33 31 29 2c 54 25  |.r`(T%(m%,31),T%|
00003a40  28 6d 25 2c 33 32 29 2c  43 24 29 0d 12 de 4b f2  |(m%,32),C$)...K.|
00003a50  53 60 28 54 25 28 6d 25  2c 32 37 29 2c 54 25 28  |S`(T%(m%,27),T%(|
00003a60  6d 25 2c 32 38 29 29 3a  f2 6e 60 28 22 30 33 22  |m%,28)):.n`("03"|
00003a70  2c 22 32 35 22 29 3a f2  72 60 28 54 25 28 6d 25  |,"25"):.r`(T%(m%|
00003a80  2c 32 37 29 2c 54 25 28  6d 25 2c 32 38 29 2c 43  |,27),T%(m%,28),C|
00003a90  24 29 3a f2 49 62 0d 12  e8 68 ef 32 38 2c 31 36  |$):.Ib...h.28,16|
00003aa0  2c 35 39 2c 36 33 2c 35  38 3a ef 34 3a db 3a f1  |,59,63,58:.4:.:.|
00003ab0  22 54 72 61 69 6e 20 22  3b 74 5f 24 28 54 25 28  |"Train ";t_$(T%(|
00003ac0  6d 25 2c 32 29 29 3b 22  2d 22 3b 54 25 28 6d 25  |m%,2));"-";T%(m%|
00003ad0  2c 31 29 3b 22 20 20 66  6f 72 3a 20 22 3b a4 4f  |,1);"  for: ";.O|
00003ae0  61 28 44 24 28 54 25 28  6d 25 2c 33 29 29 29 3b  |a(D$(T%(m%,3)));|
00003af0  22 20 6c 65 66 74 20 61  72 65 61 2e 22 3b 0d 12  |" left area.";..|
00003b00  f2 34 f2 60 60 3a ef 35  3a f2 43 62 3a 69 5f 25  |.4.``:.5:.Cb:i_%|
00003b10  28 36 29 3d 69 5f 25 28  36 29 2b 31 3a 43 60 25  |(6)=i_%(6)+1:C`%|
00003b20  3d 31 3a 6a 5f 25 28 30  2c 32 29 3d 69 5f 25 28  |=1:j_%(0,2)=i_%(|
00003b30  36 29 0d 12 fc 05 cd 0d  13 06 11 e7 73 25 3e 31  |6)..........s%>1|
00003b40  30 80 73 25 3c 31 35 8c  0d 13 10 1d f2 4a 62 3a  |0.s%<15......Jb:|
00003b50  49 5f 25 3d 31 3a ff 28  22 53 70 6c 61 79 5f 61  |I_%=1:.("Splay_a|
00003b60  70 6c 61 22 29 0d 13 1a  76 f2 74 3a f1 22 20 20  |pla")...v.t:."  |
00003b70  59 4f 55 20 53 45 4e 54  20 41 20 54 52 41 49 4e  |YOU SENT A TRAIN|
00003b80  20 4f 4e 20 41 20 57 52  4f 4e 47 20 54 52 41 43  | ON A WRONG TRAC|
00003b90  4b 21 21 21 21 21 22 27  27 22 20 20 52 49 47 48  |K!!!!!"''"  RIGH|
00003ba0  54 20 4f 55 54 53 49 44  45 20 59 4f 55 52 20 53  |T OUTSIDE YOUR S|
00003bb0  45 43 54 49 4f 4e 20 41  20 4d 41 4a 4f 52 20 41  |ECTION A MAJOR A|
00003bc0  43 43 49 44 45 4e 54 20  57 49 4c 4c 20 54 41 4b  |CCIDENT WILL TAK|
00003bd0  45 20 50 4c 41 43 45 21  22 27 27 0d 13 24 30 f1  |E PLACE!"''..$0.|
00003be0  22 20 20 20 20 20 20 59  20 4f 20 55 20 20 41 20  |"      Y O U  A |
00003bf0  52 20 45 20 20 46 20 49  20 52 20 45 20 44 20 20  |R E  F I R E D  |
00003c00  21 20 20 21 20 20 21 20  20 21 22 0d 13 2e 54 54  |!  !  !  !"...TT|
00003c10  25 28 6d 25 2c 32 31 29  3d 54 25 28 6d 25 2c 32  |%(m%,21)=T%(m%,2|
00003c20  31 29 2d 35 30 30 30 3a  69 5f 25 28 33 29 3d 33  |1)-5000:i_%(3)=3|
00003c30  3a 6a 5f 25 28 31 30 2c  31 29 3d 6a 5f 25 28 31  |:j_%(10,1)=j_%(1|
00003c40  30 2c 31 29 2b 31 3a 6a  5f 25 28 31 30 2c 32 29  |0,1)+1:j_%(10,2)|
00003c50  3d 6a 5f 25 28 31 30 2c  32 29 2b 35 30 30 30 0d  |=j_%(10,2)+5000.|
00003c60  13 38 16 69 5f 25 28 35  29 3d 69 5f 25 28 35 29  |.8.i_%(5)=i_%(5)|
00003c70  2d 35 30 30 30 0d 13 42  12 f2 44 5f 28 38 30 30  |-5000..B..D_(800|
00003c80  29 3a 48 5f 25 3d 31 0d  13 4c 05 cd 0d 13 56 05  |):H_%=1..L....V.|
00003c90  e1 0d 13 6a 08 dd f2 4b  62 0d 13 74 09 f2 47 62  |...j...Kb..t..Gb|
00003ca0  3a f1 0d 13 7e 2a f1 22  20 54 72 61 69 6e 3a 20  |:...~*." Train: |
00003cb0  22 3b 74 5f 24 28 54 25  28 6d 25 2c 32 29 29 3b  |";t_$(T%(m%,2));|
00003cc0  22 2d 22 3b 54 25 28 6d  25 2c 31 29 0d 13 88 11  |"-";T%(m%,1)....|
00003cd0  f2 65 5f 28 54 25 28 6d  25 2c 34 29 29 0d 13 92  |.e_(T%(m%,4))...|
00003ce0  5c f1 27 22 20 53 63 68  65 64 75 6c 65 64 20 3a  |\.'" Scheduled :|
00003cf0  20 22 3b 50 61 24 3b 3a  e7 76 5f 25 28 54 25 28  | ";Pa$;:.v_%(T%(|
00003d00  6d 25 2c 33 29 2c 38 29  3d 30 80 54 25 28 6d 25  |m%,3),8)=0.T%(m%|
00003d10  2c 35 29 3e 30 80 54 25  28 6d 25 2c 35 29 3c 33  |,5)>0.T%(m%,5)<3|
00003d20  32 f1 22 20 6f 6e 20 54  72 61 63 6b 20 22 3b 54  |2." on Track ";T|
00003d30  25 28 6d 25 2c 35 29 8b  f1 0d 13 9c 12 4c 62 25  |%(m%,5)......Lb%|
00003d40  3d 91 3a f2 65 5f 28 4c  62 25 29 0d 13 a6 1a f1  |=.:.e_(Lb%).....|
00003d50  22 20 41 72 72 69 76 65  64 20 61 74 3a 20 22 3b  |" Arrived at: ";|
00003d60  50 61 24 3b 27 0d 13 b0  05 e1 0d 13 c4 2b dd f2  |Pa$;'........+..|
00003d70  4d 62 3a 54 25 28 6d 25  2c 32 30 29 3d 31 3a 4e  |Mb:T%(m%,20)=1:N|
00003d80  62 25 3d 30 3a 4f 62 25  3d 30 3a 50 62 25 3d 4b  |b%=0:Ob%=0:Pb%=K|
00003d90  5f 25 28 38 29 0d 13 ce  40 e7 54 25 28 6d 25 2c  |_%(8)...@.T%(m%,|
00003da0  34 29 3e 91 6a 5f 25 28  54 25 28 6d 25 2c 32 29  |4)>.j_%(T%(m%,2)|
00003db0  2c 32 29 3d 6a 5f 25 28  54 25 28 6d 25 2c 32 29  |,2)=j_%(T%(m%,2)|
00003dc0  2c 32 29 2b 28 28 54 25  28 6d 25 2c 34 29 2d 91  |,2)+((T%(m%,4)-.|
00003dd0  29 2f 35 30 29 0d 13 d8  1a e7 54 25 28 6d 25 2c  |)/50).....T%(m%,|
00003de0  32 29 3d 32 20 50 62 25  3d 4b 5f 25 28 39 29 0d  |2)=2 Pb%=K_%(9).|
00003df0  13 e2 0f e7 73 25 3e 30  80 73 25 3c 35 8c 0d 13  |....s%>0.s%<5...|
00003e00  ec 07 f2 48 62 0d 13 f6  28 51 62 25 3d 4b 5f 25  |...Hb...(Qb%=K_%|
00003e10  28 37 29 3a 52 62 25 3d  4b 5f 25 28 38 29 3a 53  |(7):Rb%=K_%(8):S|
00003e20  62 25 3d b3 28 52 62 25  2d 51 62 25 29 0d 14 00  |b%=.(Rb%-Qb%)...|
00003e30  05 cd 0d 14 0a 17 54 25  28 6d 25 2c 37 29 3d 54  |......T%(m%,7)=T|
00003e40  25 28 6d 25 2c 33 29 3a  f5 0d 14 14 4d f5 3a 63  |%(m%,3):....M.:c|
00003e50  25 3d b3 28 75 5f 25 28  31 29 29 3a fd a7 c3 28  |%=.(u_%(1)):...(|
00003e60  72 5f 25 28 63 25 2c 39  29 29 2c c3 28 54 25 28  |r_%(c%,9)),.(T%(|
00003e70  6d 25 2c 32 29 29 29 3e  30 80 a7 c3 28 73 5f 25  |m%,2)))>0...(s_%|
00003e80  28 54 25 28 6d 25 2c 35  29 2c 34 29 29 2c c3 28  |(T%(m%,5),4)),.(|
00003e90  63 25 29 29 3e 30 0d 14  1e 24 54 25 28 6d 25 2c  |c%))>0...$T%(m%,|
00003ea0  39 29 3d 91 3a e7 68 61  24 3d 22 31 65 22 20 63  |9)=.:.ha$="1e" c|
00003eb0  25 3d 75 5f 25 28 31 29  2b 31 0d 14 28 0f 54 25  |%=u_%(1)+1..(.T%|
00003ec0  28 6d 25 2c 33 29 3d 63  25 0d 14 32 0c e7 73 25  |(m%,3)=c%..2..s%|
00003ed0  3e 26 35 46 8c 0d 14 3c  4e e7 76 5f 25 28 63 25  |>&5F...<N.v_%(c%|
00003ee0  2c 31 29 3c 54 25 28 6d  25 2c 31 30 29 80 54 25  |,1)<T%(m%,10).T%|
00003ef0  28 6d 25 2c 38 29 3d 31  3a 51 62 25 3d 4b 5f 25  |(m%,8)=1:Qb%=K_%|
00003f00  28 36 29 3a 52 62 25 3d  4b 5f 25 28 36 29 3a 53  |(6):Rb%=K_%(6):S|
00003f10  62 25 3d b3 28 52 62 25  2b 52 62 25 29 3a 4e 62  |b%=.(Rb%+Rb%):Nb|
00003f20  25 3d 31 0d 14 46 64 e7  4e 62 25 3d 30 3a e7 76  |%=1..Fd.Nb%=0:.v|
00003f30  5f 25 28 63 25 2c 31 29  3c 54 25 28 6d 25 2c 31  |_%(c%,1)<T%(m%,1|
00003f40  30 29 80 54 25 28 6d 25  2c 38 29 3d 32 3a f2 48  |0).T%(m%,8)=2:.H|
00003f50  62 3a 54 25 28 6d 25 2c  38 29 3d 31 3a 51 62 25  |b:T%(m%,8)=1:Qb%|
00003f60  3d 4b 5f 25 28 37 29 3a  52 62 25 3d 4b 5f 25 28  |=K_%(7):Rb%=K_%(|
00003f70  38 29 3a 53 62 25 3d b3  28 52 62 25 2d 51 62 25  |8):Sb%=.(Rb%-Qb%|
00003f80  29 3a 4e 62 25 3d 31 0d  14 50 55 e7 4e 62 25 3d  |):Nb%=1..PU.Nb%=|
00003f90  30 3a e7 76 5f 25 28 63  25 2c 31 29 3e 54 25 28  |0:.v_%(c%,1)>T%(|
00003fa0  6d 25 2c 31 30 29 80 54  25 28 6d 25 2c 38 29 3d  |m%,10).T%(m%,8)=|
00003fb0  32 3a 51 62 25 3d 4b 5f  25 28 36 29 3a 52 62 25  |2:Qb%=K_%(6):Rb%|
00003fc0  3d 4b 5f 25 28 36 29 3a  53 62 25 3d b3 28 52 62  |=K_%(6):Sb%=.(Rb|
00003fd0  25 2b 52 62 25 29 3a 4e  62 25 3d 31 0d 14 5a 5e  |%+Rb%):Nb%=1..Z^|
00003fe0  e7 4e 62 25 3d 30 3a e7  76 5f 25 28 63 25 2c 31  |.Nb%=0:.v_%(c%,1|
00003ff0  29 3e 54 25 28 6d 25 2c  31 30 29 80 54 25 28 6d  |)>T%(m%,10).T%(m|
00004000  25 2c 38 29 3d 31 3a f2  48 62 3a 54 25 28 6d 25  |%,8)=1:.Hb:T%(m%|
00004010  2c 38 29 3d 32 3a 51 62  25 3d 4b 5f 25 28 37 29  |,8)=2:Qb%=K_%(7)|
00004020  3a 52 62 25 3d 4b 5f 25  28 38 29 3a 53 62 25 3d  |:Rb%=K_%(8):Sb%=|
00004030  b3 28 52 62 25 2d 51 62  25 29 0d 14 64 05 cd 0d  |.(Rb%-Qb%)..d...|
00004040  14 6e 5e e7 68 61 24 3d  22 31 65 22 20 54 25 28  |.n^.ha$="1e" T%(|
00004050  6d 25 2c 34 29 3d 28 28  54 25 28 6d 25 2c 39 29  |m%,4)=((T%(m%,9)|
00004060  2b 36 30 30 30 30 29 81  36 30 30 30 29 2a 36 30  |+60000).6000)*60|
00004070  30 30 3a 54 25 28 6d 25  2c 32 35 29 3d 54 25 28  |00:T%(m%,25)=T%(|
00004080  6d 25 2c 34 29 3a 54 25  28 6d 25 2c 35 29 3d 30  |m%,4):T%(m%,5)=0|
00004090  3a 54 25 28 6d 25 2c 36  29 3d 33 3a e1 0d 14 78  |:T%(m%,6)=3:...x|
000040a0  34 e7 54 25 28 6d 25 2c  32 29 3d 32 3a 51 62 25  |4.T%(m%,2)=2:Qb%|
000040b0  3d 4b 5f 25 28 37 29 3a  52 62 25 3d 4b 5f 25 28  |=K_%(7):Rb%=K_%(|
000040c0  39 29 3a 53 62 25 3d b3  28 52 62 25 2d 51 62 25  |9):Sb%=.(Rb%-Qb%|
000040d0  29 0d 14 82 26 e7 4f 62  25 3d 31 80 54 25 28 6d  |)...&.Ob%=1.T%(m|
000040e0  25 2c 32 29 3c 33 80 44  60 25 3c 34 80 4a 60 25  |%,2)<3.D`%<4.J`%|
000040f0  3c 91 f2 54 62 3a e1 0d  14 8c 14 e7 4f 62 25 3d  |<..Tb:......Ob%=|
00004100  35 20 50 62 25 3d 39 30  30 30 30 0d 14 96 15 e7  |5 Pb%=90000.....|
00004110  4f 62 25 3d 37 20 50 62  25 3d 31 35 30 30 30 30  |Ob%=7 Pb%=150000|
00004120  0d 14 a0 35 e7 54 25 28  6d 25 2c 32 29 3d 33 3a  |...5.T%(m%,2)=3:|
00004130  51 62 25 3d 4b 5f 25 28  38 29 3a 52 62 25 3d 4b  |Qb%=K_%(8):Rb%=K|
00004140  5f 25 28 31 30 29 3a 53  62 25 3d b3 28 52 62 25  |_%(10):Sb%=.(Rb%|
00004150  2d 51 62 25 29 0d 14 aa  3a e7 a7 c3 28 73 5f 25  |-Qb%)...:...(s_%|
00004160  28 54 25 28 6d 25 2c 35  29 2c 34 29 29 2c 22 39  |(T%(m%,5),4)),"9|
00004170  22 29 3e 30 80 4f 62 25  3c 35 3a 51 62 25 3d 37  |")>0.Ob%<5:Qb%=7|
00004180  35 30 30 3a 53 62 25 3d  b3 28 36 30 30 30 29 0d  |500:Sb%=.(6000).|
00004190  14 b4 2b 54 25 28 6d 25  2c 34 29 3d 28 28 54 25  |..+T%(m%,4)=((T%|
000041a0  28 6d 25 2c 39 29 2b 53  62 25 2b 51 62 25 29 81  |(m%,9)+Sb%+Qb%).|
000041b0  36 30 30 30 29 2a 36 30  30 30 0d 14 be 24 54 25  |6000)*6000...$T%|
000041c0  28 6d 25 2c 32 35 29 3d  54 25 28 6d 25 2c 34 29  |(m%,25)=T%(m%,4)|
000041d0  3a f2 55 62 3a e7 4f 62  25 3e 30 f2 56 62 0d 14  |:.Ub:.Ob%>0.Vb..|
000041e0  c8 0a fd 4f 62 25 3d 30  0d 14 d2 24 73 5f 25 28  |...Ob%=0...$s_%(|
000041f0  54 25 28 6d 25 2c 35 29  2c 32 29 3d 54 25 28 6d  |T%(m%,5),2)=T%(m|
00004200  25 2c 32 35 29 2b 4b 5f  25 28 35 29 0d 14 dc 25  |%,25)+K_%(5)...%|
00004210  e7 54 25 28 6d 25 2c 36  29 3d 33 20 54 25 28 6d  |.T%(m%,6)=3 T%(m|
00004220  25 2c 36 29 3d 32 8b 54  25 28 6d 25 2c 36 29 3d  |%,6)=2.T%(m%,6)=|
00004230  33 0d 14 e6 05 e1 0d 14  fa 08 dd f2 56 62 0d 15  |3...........Vb..|
00004240  04 2b 51 62 25 3d 4b 5f  25 28 37 29 3a 52 62 25  |.+Qb%=K_%(7):Rb%|
00004250  3d 50 62 25 3a 53 62 25  3d b3 28 52 62 25 2d 51  |=Pb%:Sb%=.(Rb%-Q|
00004260  62 25 29 3a 4e 62 25 3d  30 0d 15 0e 05 e1 0d 15  |b%):Nb%=0.......|
00004270  22 08 dd f2 57 62 0d 15  2c 11 f2 65 5f 28 54 25  |"...Wb..,..e_(T%|
00004280  28 6d 25 2c 34 29 29 0d  15 36 46 f1 22 20 4e 65  |(m%,4))..6F." Ne|
00004290  78 74 20 64 65 73 74 69  6e 61 74 69 6f 6e 3a 20  |xt destination: |
000042a0  22 3b a4 4f 61 28 44 24  28 54 25 28 6d 25 2c 33  |";.Oa(D$(T%(m%,3|
000042b0  29 29 29 3b 22 20 28 22  3b c2 44 24 28 54 25 28  |)));" (";.D$(T%(|
000042c0  6d 25 2c 33 29 29 2c 33  29 3b 22 29 22 0d 15 40  |m%,3)),3);")"..@|
000042d0  25 f1 22 20 44 65 70 61  72 74 75 72 65 20 74 69  |%." Departure ti|
000042e0  6d 65 20 20 3a 20 22 3b  50 61 24 3a f2 60 60 3a  |me  : ";Pa$:.``:|
000042f0  ef 35 0d 15 4a 05 e1 0d  15 5e 1a dd f2 78 61 3a  |.5..J....^...xa:|
00004300  58 62 25 3d 30 3a 63 25  3d 54 25 28 6d 25 2c 33  |Xb%=0:c%=T%(m%,3|
00004310  29 0d 15 68 11 e7 54 25  28 6d 25 2c 36 29 3c 3e  |)..h..T%(m%,6)<>|
00004320  30 e1 0d 15 72 5f e7 28  73 25 3c 35 80 73 25 3e  |0...r_.(s%<5.s%>|
00004330  30 29 80 28 72 25 3e 33  32 84 72 25 3c 32 39 29  |0).(r%>32.r%<29)|
00004340  f2 48 62 3a 54 25 28 6d  25 2c 36 29 3d 33 3a 54  |.Hb:T%(m%,6)=3:T|
00004350  25 28 6d 25 2c 32 35 29  3d 54 25 28 6d 25 2c 32  |%(m%,25)=T%(m%,2|
00004360  35 29 2b 31 30 30 30 3a  54 25 28 6d 25 2c 32 32  |5)+1000:T%(m%,22|
00004370  29 3d 34 3a 54 25 28 6d  25 2c 33 33 29 3d 31 3a  |)=4:T%(m%,33)=1:|
00004380  e1 0d 15 7c 96 e7 28 73  25 3c 35 80 73 25 3e 30  |...|..(s%<5.s%>0|
00004390  29 80 28 54 25 28 6d 25  2c 31 30 29 3c 76 5f 25  |).(T%(m%,10)<v_%|
000043a0  28 63 25 2c 31 29 84 54  25 28 6d 25 2c 31 30 29  |(c%,1).T%(m%,10)|
000043b0  3e 76 5f 25 28 63 25 2c  33 29 84 54 25 28 6d 25  |>v_%(c%,3).T%(m%|
000043c0  2c 31 31 29 3c 76 5f 25  28 63 25 2c 32 29 84 54  |,11)<v_%(c%,2).T|
000043d0  25 28 6d 25 2c 31 31 29  3e 76 5f 25 28 63 25 2c  |%(m%,11)>v_%(c%,|
000043e0  34 29 29 f2 48 62 3a 54  25 28 6d 25 2c 36 29 3d  |4)).Hb:T%(m%,6)=|
000043f0  33 3a 54 25 28 6d 25 2c  32 35 29 3d 54 25 28 6d  |3:T%(m%,25)=T%(m|
00004400  25 2c 32 35 29 2b 35 30  30 3a 54 25 28 6d 25 2c  |%,25)+500:T%(m%,|
00004410  32 32 29 3d 34 3a e1 0d  15 86 24 e7 68 61 24 3c  |22)=4:....$.ha$<|
00004420  3e 22 31 65 22 80 68 61  24 3c 3e 22 31 64 22 80  |>"1e".ha$<>"1d".|
00004430  68 61 24 3c 3e 22 31 66  22 3a e1 0d 15 90 13 e7  |ha$<>"1f":......|
00004440  63 25 3d 30 80 68 61 24  3d 22 31 64 22 e1 0d 15  |c%=0.ha$="1d"...|
00004450  9a 6d e7 54 25 28 6d 25  2c 31 30 29 3e 76 5f 25  |.m.T%(m%,10)>v_%|
00004460  28 54 25 28 6d 25 2c 33  29 2c 31 29 80 54 25 28  |(T%(m%,3),1).T%(|
00004470  6d 25 2c 31 30 29 3c 76  5f 25 28 54 25 28 6d 25  |m%,10)<v_%(T%(m%|
00004480  2c 33 29 2c 33 29 80 54  25 28 6d 25 2c 31 31 29  |,3),3).T%(m%,11)|
00004490  3e 76 5f 25 28 54 25 28  6d 25 2c 33 29 2c 32 29  |>v_%(T%(m%,3),2)|
000044a0  80 54 25 28 6d 25 2c 31  31 29 3c 76 5f 25 28 54  |.T%(m%,11)<v_%(T|
000044b0  25 28 6d 25 2c 33 29 2c  34 29 8c 0d 15 a4 1e e7  |%(m%,3),4)......|
000044c0  54 25 28 6d 25 2c 32 29  3d 33 80 68 61 24 3d 22  |T%(m%,2)=3.ha$="|
000044d0  31 66 22 20 58 62 25 3d  31 0d 15 ae 1f e7 54 25  |1f" Xb%=1.....T%|
000044e0  28 6d 25 2c 32 29 3c 33  80 68 61 24 3c 3e 22 31  |(m%,2)<3.ha$<>"1|
000044f0  66 22 20 58 62 25 3d 31  0d 15 b8 0b e7 58 62 25  |f" Xb%=1.....Xb%|
00004500  3d 31 8c 0d 15 c2 0b f2  4b 62 3a f2 4d 62 0d 15  |=1......Kb:.Mb..|
00004510  cc 5e f2 57 62 3a f2 71  60 3a e7 68 61 24 3c 3e  |.^.Wb:.q`:.ha$<>|
00004520  22 31 65 22 20 6a 5f 25  28 54 25 28 6d 25 2c 32  |"1e" j_%(T%(m%,2|
00004530  29 2c 32 29 3d 6a 5f 25  28 54 25 28 6d 25 2c 32  |),2)=j_%(T%(m%,2|
00004540  29 2c 32 29 2b 31 30 30  3a e7 54 25 28 6d 25 2c  |),2)+100:.T%(m%,|
00004550  33 29 3e 30 20 54 25 28  6d 25 2c 32 31 29 3d 54  |3)>0 T%(m%,21)=T|
00004560  25 28 6d 25 2c 32 31 29  2b 31 30 30 0d 15 d6 62  |%(m%,21)+100...b|
00004570  e7 28 54 25 28 6d 25 2c  32 29 3d 31 84 54 25 28  |.(T%(m%,2)=1.T%(|
00004580  6d 25 2c 32 29 3d 33 29  80 68 61 24 3c 3e 22 31  |m%,2)=3).ha$<>"1|
00004590  65 22 20 54 25 28 6d 25  2c 32 31 29 3d 54 25 28  |e" T%(m%,21)=T%(|
000045a0  6d 25 2c 32 31 29 2b 31  30 30 3a 6a 5f 25 28 54  |m%,21)+100:j_%(T|
000045b0  25 28 6d 25 2c 32 29 2c  32 29 3d 6a 5f 25 28 54  |%(m%,2),2)=j_%(T|
000045c0  25 28 6d 25 2c 32 29 2c  32 29 2b 31 30 30 0d 15  |%(m%,2),2)+100..|
000045d0  e0 2d f2 6f 61 3a 54 25  28 6d 25 2c 32 32 29 3d  |.-.oa:T%(m%,22)=|
000045e0  34 3a 54 25 28 6d 25 2c  36 29 3d 33 3a ef 35 3a  |4:T%(m%,6)=3:.5:|
000045f0  54 25 28 6d 25 2c 32 30  29 3d 31 0d 15 ea 05 cd  |T%(m%,20)=1.....|
00004600  0d 15 f4 05 cd 0d 15 fe  0f 63 25 3d 54 25 28 6d  |.........c%=T%(m|
00004610  25 2c 33 29 0d 16 08 25  e7 68 61 24 3d 22 31 64  |%,3)...%.ha$="1d|
00004620  22 80 54 25 28 6d 25 2c  32 29 3c 33 80 54 25 28  |".T%(m%,2)<3.T%(|
00004630  6d 25 2c 32 32 29 3d 30  8c 0d 16 12 32 e7 76 5f  |m%,22)=0....2.v_|
00004640  25 28 63 25 2c 31 29 3c  54 25 28 6d 25 2c 31 30  |%(c%,1)<T%(m%,10|
00004650  29 80 54 25 28 6d 25 2c  38 29 3d 32 3a f2 48 62  |).T%(m%,8)=2:.Hb|
00004660  3a 54 25 28 6d 25 2c 36  29 3d 33 0d 16 1c 32 e7  |:T%(m%,6)=3...2.|
00004670  76 5f 25 28 63 25 2c 31  29 3e 54 25 28 6d 25 2c  |v_%(c%,1)>T%(m%,|
00004680  31 30 29 80 54 25 28 6d  25 2c 38 29 3d 31 3a f2  |10).T%(m%,8)=1:.|
00004690  48 62 3a 54 25 28 6d 25  2c 36 29 3d 33 0d 16 26  |Hb:T%(m%,6)=3..&|
000046a0  50 e7 54 25 28 6d 25 2c  32 30 29 3d 31 20 54 25  |P.T%(m%,20)=1 T%|
000046b0  28 6d 25 2c 32 31 29 3d  54 25 28 6d 25 2c 32 31  |(m%,21)=T%(m%,21|
000046c0  29 2d 35 30 3a 6a 5f 25  28 39 2c 32 29 3d 6a 5f  |)-50:j_%(9,2)=j_|
000046d0  25 28 39 2c 32 29 2b 35  30 3a 6a 5f 25 28 39 2c  |%(9,2)+50:j_%(9,|
000046e0  31 29 3d 6a 5f 25 28 39  2c 31 29 2b 31 0d 16 30  |1)=j_%(9,1)+1..0|
000046f0  93 e7 54 25 28 6d 25 2c  32 30 29 3d 30 20 54 25  |..T%(m%,20)=0 T%|
00004700  28 6d 25 2c 31 38 29 3d  28 b3 28 35 30 29 2a 34  |(m%,18)=(.(50)*4|
00004710  29 3a 54 25 28 6d 25 2c  32 31 29 3d 54 25 28 6d  |):T%(m%,21)=T%(m|
00004720  25 2c 32 31 29 2b 54 25  28 6d 25 2c 31 38 29 3a  |%,21)+T%(m%,18):|
00004730  54 25 28 6d 25 2c 32 30  29 3d 31 3a f2 71 60 3a  |T%(m%,20)=1:.q`:|
00004740  54 25 28 6d 25 2c 34 29  3d 54 25 28 6d 25 2c 34  |T%(m%,4)=T%(m%,4|
00004750  29 2b 34 30 30 30 3a 6a  5f 25 28 54 25 28 6d 25  |)+4000:j_%(T%(m%|
00004760  2c 32 29 2c 32 29 3d 6a  5f 25 28 54 25 28 6d 25  |,2),2)=j_%(T%(m%|
00004770  2c 32 29 2c 32 29 2b 54  25 28 6d 25 2c 31 38 29  |,2),2)+T%(m%,18)|
00004780  0d 16 3a 29 e7 54 25 28  6d 25 2c 31 29 3d 60 5f  |..:).T%(m%,1)=`_|
00004790  25 28 34 29 80 76 5f 25  28 63 25 2c 38 29 3d 31  |%(4).v_%(c%,8)=1|
000047a0  20 60 5f 25 28 34 29 3d  30 0d 16 44 31 54 25 28  | `_%(4)=0..D1T%(|
000047b0  6d 25 2c 32 35 29 3d 54  25 28 6d 25 2c 32 35 29  |m%,25)=T%(m%,25)|
000047c0  2b 4b 5f 25 28 35 29 3a  54 25 28 6d 25 2c 32 32  |+K_%(5):T%(m%,22|
000047d0  29 3d 34 3a f2 6f 61 3a  ef 35 0d 16 4e 05 cd 0d  |)=4:.oa:.5..N...|
000047e0  16 58 05 e1 0d 16 6c 0e  dd f2 77 61 3a 45 60 25  |.X....l...wa:E`%|
000047f0  3d 30 0d 16 76 1b e7 54  25 28 6d 25 2c 32 29 3d  |=0..v..T%(m%,2)=|
00004800  32 80 54 25 28 6d 25 2c  33 29 3e 30 8c 0d 16 80  |2.T%(m%,3)>0....|
00004810  31 e7 54 25 28 6d 25 2c  32 29 3d 32 80 68 61 24  |1.T%(m%,2)=2.ha$|
00004820  3d 22 31 64 22 80 a7 22  31 34 32 35 22 2c 62 24  |="1d".."1425",b$|
00004830  29 80 54 25 28 6d 25 2c  32 30 29 3d 30 8c 0d 16  |).T%(m%,20)=0...|
00004840  8a 41 54 25 28 6d 25 2c  32 30 29 3d 31 3a 54 25  |.AT%(m%,20)=1:T%|
00004850  28 6d 25 2c 31 38 29 3d  28 b3 28 34 30 29 2a 35  |(m%,18)=(.(40)*5|
00004860  29 3a 54 25 28 6d 25 2c  32 31 29 3d 54 25 28 6d  |):T%(m%,21)=T%(m|
00004870  25 2c 32 31 29 2b 54 25  28 6d 25 2c 31 38 29 0d  |%,21)+T%(m%,18).|
00004880  16 94 48 f2 71 60 3a 54  25 28 6d 25 2c 34 29 3d  |..H.q`:T%(m%,4)=|
00004890  54 25 28 6d 25 2c 34 29  2b 33 36 30 30 3a 6a 5f  |T%(m%,4)+3600:j_|
000048a0  25 28 54 25 28 6d 25 2c  32 29 2c 32 29 3d 6a 5f  |%(T%(m%,2),2)=j_|
000048b0  25 28 54 25 28 6d 25 2c  32 29 2c 32 29 2b 54 25  |%(T%(m%,2),2)+T%|
000048c0  28 6d 25 2c 31 38 29 0d  16 9e 2e 54 25 28 6d 25  |(m%,18)....T%(m%|
000048d0  2c 32 35 29 3d 54 25 28  6d 25 2c 32 35 29 2b 4b  |,25)=T%(m%,25)+K|
000048e0  5f 25 28 35 29 3a 54 25  28 6d 25 2c 32 32 29 3d  |_%(5):T%(m%,22)=|
000048f0  34 3a f2 6f 61 0d 16 a8  05 cd 0d 16 b2 05 cd 0d  |4:.oa...........|
00004900  16 bc 70 e7 54 25 28 6d  25 2c 32 29 3c 33 80 54  |..p.T%(m%,2)<3.T|
00004910  25 28 6d 25 2c 33 29 3d  30 80 28 68 61 24 3d 22  |%(m%,3)=0.(ha$="|
00004920  31 63 22 84 6a 61 24 3d  22 31 63 22 84 71 5f 24  |1c".ja$="1c".q_$|
00004930  28 54 25 28 6d 25 2c 31  32 29 2c 54 25 28 6d 25  |(T%(m%,12),T%(m%|
00004940  2c 31 33 29 29 3d 22 31  63 22 29 80 a7 22 30 33  |,13))="1c").."03|
00004950  22 2c 62 24 29 80 54 25  28 6d 25 2c 32 30 29 3d  |",b$).T%(m%,20)=|
00004960  30 80 54 25 28 6d 25 2c  39 29 3c 31 30 30 8c 0d  |0.T%(m%,9)<100..|
00004970  16 c6 24 e7 60 5f 25 28  35 29 3c 3d 31 30 30 20  |..$.`_%(5)<=100 |
00004980  45 60 25 3d 60 5f 25 28  35 29 3a 60 5f 25 28 35  |E`%=`_%(5):`_%(5|
00004990  29 3d 30 0d 16 d0 29 e7  60 5f 25 28 35 29 3e 31  |)=0...).`_%(5)>1|
000049a0  30 30 20 60 5f 25 28 35  29 3d 60 5f 25 28 35 29  |00 `_%(5)=`_%(5)|
000049b0  2d 31 30 30 3a 45 60 25  3d 31 30 30 0d 16 da 52  |-100:E`%=100...R|
000049c0  e7 45 60 25 3e 30 20 6a  5f 25 28 31 31 2c 32 29  |.E`%>0 j_%(11,2)|
000049d0  3d 6a 5f 25 28 31 31 2c  32 29 2b a8 28 28 91 2d  |=j_%(11,2)+.((.-|
000049e0  54 25 28 6d 25 2c 34 29  29 2f 32 30 30 29 3a e7  |T%(m%,4))/200):.|
000049f0  54 25 28 6d 25 2c 39 29  3d 30 20 6a 5f 25 28 34  |T%(m%,9)=0 j_%(4|
00004a00  2c 31 29 3d 6a 5f 25 28  34 2c 31 29 2b 31 0d 16  |,1)=j_%(4,1)+1..|
00004a10  e4 5e 54 25 28 6d 25 2c  39 29 3d 54 25 28 6d 25  |.^T%(m%,9)=T%(m%|
00004a20  2c 39 29 2b 45 60 25 3a  54 25 28 6d 25 2c 32 35  |,9)+E`%:T%(m%,25|
00004a30  29 3d 91 2b 33 30 30 30  3a 54 25 28 6d 25 2c 32  |)=.+3000:T%(m%,2|
00004a40  31 29 3d 54 25 28 6d 25  2c 32 31 29 2b 45 60 25  |1)=T%(m%,21)+E`%|
00004a50  2a 31 35 3a 6a 5f 25 28  34 2c 32 29 3d 6a 5f 25  |*15:j_%(4,2)=j_%|
00004a60  28 34 2c 32 29 2b 45 60  25 2a 31 35 0d 16 ee 5d  |(4,2)+E`%*15...]|
00004a70  f2 5f 60 3a f1 27 22 54  72 61 69 6e 20 4c 50 2d  |._`:.'"Train LP-|
00004a80  22 3b 54 25 28 6d 25 2c  31 29 3b 22 20 69 73 20  |";T%(m%,1);" is |
00004a90  6c 6f 61 64 69 6e 67 20  22 3b 45 60 25 3b 22 20  |loading ";E`%;" |
00004aa0  70 61 73 73 65 6e 67 65  72 73 22 27 27 22 66 72  |passengers"''"fr|
00004ab0  6f 6d 20 61 6e 20 65 78  63 75 72 73 69 6f 6e 20  |om an excursion |
00004ac0  70 61 72 74 79 2e 22 27  27 0d 16 f8 29 f1 22 20  |party."''...)." |
00004ad0  50 61 73 73 65 6e 67 65  72 73 20 73 74 69 6c 6c  |Passengers still|
00004ae0  20 74 6f 20 6d 6f 76 65  3a 20 22 3b 60 5f 25 28  | to move: ";`_%(|
00004af0  35 29 0d 17 02 1b e7 60  5f 25 28 35 29 3d 30 3a  |5).....`_%(5)=0:|
00004b00  60 5f 25 28 33 29 3d 91  2b 34 35 30 30 0d 17 0c  |`_%(3)=.+4500...|
00004b10  07 f2 60 60 0d 17 16 05  cd 0d 17 20 05 e1 0d 17  |..``....... ....|
00004b20  34 24 dd f2 74 3a ef 32  38 2c 31 2c 38 2c 37 38  |4$..t:.28,1,8,78|
00004b30  2c 30 3a fb 31 37 37 3a  fb 36 33 3a ef 34 3a db  |,0:.177:.63:.4:.|
00004b40  3a e1 0d 17 3e 25 dd f2  4e 61 3a ef 32 38 2c 31  |:...>%..Na:.28,1|
00004b50  2c 38 2c 33 32 2c 30 3a  fb 32 32 37 3a fb 36 33  |,8,32,0:.227:.63|
00004b60  3a ef 34 3a db 3a e1 0d  17 48 26 dd f2 47 62 3a  |:.4:.:...H&..Gb:|
00004b70  ef 32 38 2c 33 33 2c 38  2c 37 38 2c 31 3a fb 32  |.28,33,8,78,1:.2|
00004b80  31 37 3a fb 36 33 3a ef  34 3a db 3a e1 0d 17 52  |17:.63:.4:.:...R|
00004b90  26 dd f2 5f 60 3a ef 32  38 2c 33 33 2c 38 2c 37  |&.._`:.28,33,8,7|
00004ba0  38 2c 31 3a fb 31 39 37  3a fb 36 33 3a ef 34 3a  |8,1:.197:.63:.4:|
00004bb0  db 3a e1 0d 17 5c 23 dd  f2 60 60 3a ef 32 38 2c  |.:...\#..``:.28,|
00004bc0  31 2c 38 2c 37 38 2c 30  3a fb 31 37 37 3a fb 36  |1,8,78,0:.177:.6|
00004bd0  33 3a ef 34 3a e1 0d 17  66 1c dd f2 61 60 3a ef  |3:.4:...f...a`:.|
00004be0  32 34 2c 30 3b 30 3b 31  32 37 38 3b 38 30 30 3b  |24,0;0;1278;800;|
00004bf0  3a e1 0d 17 7a 08 dd f2  58 5f 0d 17 84 09 59 62  |:...z...X_....Yb|
00004c00  25 3d 91 0d 17 8e 9d f2  74 3a f1 27 27 22 20 20  |%=......t:.''"  |
00004c10  50 20 41 20 55 20 53 20  45 20 20 21 21 21 22 27  |P A U S E  !!!"'|
00004c20  27 22 20 53 74 61 74 69  6f 6e 2d 43 6c 6f 63 6b  |'" Station-Clock|
00004c30  20 73 74 6f 70 70 65 64  20 75 6e 74 69 6c 20 79  | stopped until y|
00004c40  6f 75 20 61 72 65 20 72  65 61 64 79 20 74 6f 20  |ou are ready to |
00004c50  63 6f 6e 74 69 6e 75 65  2e 2e 2e 22 27 27 22 20  |continue..."''" |
00004c60  50 72 65 73 73 20 2d 20  43 20 2d 20 74 6f 20 63  |Press - C - to c|
00004c70  6f 6e 74 69 6e 75 65 2e  2e 20 20 20 50 72 65 73  |ontinue..   Pres|
00004c80  73 20 20 4d 20 20 66 6f  72 20 4d 61 6e 61 67 65  |s  M  for Manage|
00004c90  6d 65 6e 74 2d 69 6e 66  6f 2e 2e 22 3b 3a ef 35  |ment-info..";:.5|
00004ca0  0d 17 98 07 f2 5a 62 0d  17 a2 19 f5 3a 61 62 24  |.....Zb.....:ab$|
00004cb0  3d be 3a fd a7 22 43 63  4d 6d 22 2c 61 62 24 29  |=.:.."CcMm",ab$)|
00004cc0  0d 17 ac 17 e7 61 62 24  3d 22 4d 22 84 61 62 24  |.....ab$="M".ab$|
00004cd0  3d 22 6d 22 f2 6c 5f 0d  17 b6 16 d1 3d 59 62 25  |="m".l_.....=Yb%|
00004ce0  3a f2 74 3a 5a 5f 25 3d  31 3a f2 43 5f 0d 17 c0  |:.t:Z_%=1:.C_...|
00004cf0  05 e1 0d 17 d4 08 dd f2  49 5f 0d 17 de 30 e7 51  |........I_...0.Q|
00004d00  25 28 54 25 28 6d 25 2c  31 30 29 2b 6f 60 25 2c  |%(T%(m%,10)+o`%,|
00004d10  54 25 28 6d 25 2c 31 31  29 2b 70 60 25 2c 31 29  |T%(m%,11)+p`%,1)|
00004d20  3d 54 25 28 6d 25 2c 31  29 e1 0d 17 e8 36 51 25  |=T%(m%,1)....6Q%|
00004d30  28 54 25 28 6d 25 2c 31  30 29 2c 54 25 28 6d 25  |(T%(m%,10),T%(m%|
00004d40  2c 31 31 29 2c 30 29 3d  33 35 3a 48 5f 25 3d 31  |,11),0)=35:H_%=1|
00004d50  3a f2 4c 61 28 33 35 2c  30 2c 33 36 2c 6d 25 29  |:.La(35,0,36,m%)|
00004d60  0d 17 f2 17 f2 4a 62 3a  ff 28 22 53 70 6c 61 79  |.....Jb:.("Splay|
00004d70  5f 61 70 6c 61 22 29 0d  17 fc 91 f2 74 3a f1 22  |_apla").....t:."|
00004d80  20 20 41 20 4d 41 4a 4f  52 20 54 52 41 49 4e 43  |  A MAJOR TRAINC|
00004d90  52 41 53 48 20 54 4f 4f  4b 20 50 4c 41 43 45 21  |RASH TOOK PLACE!|
00004da0  21 21 21 21 22 27 27 22  20 20 4d 61 6e 79 20 70  |!!!!"''"  Many p|
00004db0  65 6f 70 6c 65 20 64 69  65 64 20 6f 72 20 67 6f  |eople died or go|
00004dc0  74 20 73 65 72 69 6f 75  73 6c 79 20 77 6f 75 6e  |t seriously woun|
00004dd0  64 65 64 21 22 27 27 22  20 20 59 6f 75 27 6c 6c  |ded!"''"  You'll|
00004de0  20 6e 65 76 65 72 20 6b  6e 6f 77 20 74 68 65 20  | never know the |
00004df0  65 78 61 63 74 20 6e 75  6d 62 65 72 73 2c 20 66  |exact numbers, f|
00004e00  6f 72 2e 2e 2e 22 27 27  0d 18 06 31 f1 89 28 32  |or..."''...1..(2|
00004e10  30 29 3b 22 20 59 20 4f  20 55 20 20 41 20 52 20  |0);" Y O U  A R |
00004e20  45 20 20 46 20 49 20 52  20 45 20 44 20 20 21 20  |E  F I R E D  ! |
00004e30  20 21 20 20 21 20 20 21  22 0d 18 10 38 69 5f 25  | !  !  !"...8i_%|
00004e40  28 35 29 3d 69 5f 25 28  35 29 2d 35 30 30 30 3a  |(5)=i_%(5)-5000:|
00004e50  69 5f 25 28 33 29 3d 33  3a 6a 5f 25 28 31 30 2c  |i_%(3)=3:j_%(10,|
00004e60  32 29 3d 6a 5f 25 28 31  30 2c 32 29 2b 35 30 30  |2)=j_%(10,2)+500|
00004e70  30 0d 18 1a 13 48 5f 25  3d 31 3a f2 44 5f 28 31  |0....H_%=1:.D_(1|
00004e80  30 30 30 29 0d 18 24 05  e1 0d 18 38 16 dd f2 42  |000)..$....8...B|
00004e90  62 3a e7 54 25 28 6d 25  2c 31 29 3c 3e 30 8c 0d  |b:.T%(m%,1)<>0..|
00004ea0  18 42 34 f2 74 3a f1 27  27 22 54 72 61 69 6e 20  |.B4.t:.''"Train |
00004eb0  22 3b 54 25 28 6d 25 2c  31 29 3b 22 20 68 61 73  |";T%(m%,1);" has|
00004ec0  20 67 6f 6e 65 20 75 74  74 65 72 6c 79 20 6d 61  | gone utterly ma|
00004ed0  64 2e 22 0d 18 4c 5d f1  22 49 74 20 77 69 6c 6c  |d."..L]."It will|
00004ee0  20 62 65 20 72 65 6d 6f  76 65 64 20 61 6e 64 20  | be removed and |
00004ef0  74 68 65 20 6d 61 6e 61  67 65 6d 65 6e 74 20 77  |the management w|
00004f00  69 6c 6c 22 27 22 20 64  65 6e 79 20 74 68 61 74  |ill"'" deny that|
00004f10  20 73 75 63 68 20 61 20  74 72 61 69 6e 20 65 76  | such a train ev|
00004f20  65 72 20 65 78 69 73 74  65 64 2e 2e 2e 2e 2e 22  |er existed....."|
00004f30  0d 18 56 0e f2 43 62 3a  ef 35 3a cd 3a e1 0d 18  |..V..Cb:.5:.:...|
00004f40  6a 08 dd f2 60 61 0d 18  74 15 64 25 3d 66 25 28  |j...`a..t.d%=f%(|
00004f50  54 25 28 6d 25 2c 38 29  2c 33 29 0d 18 7e 30 e7  |T%(m%,8),3)..~0.|
00004f60  64 25 3c 3e 52 25 28 73  25 2c 31 29 80 64 25 3c  |d%<>R%(s%,1).d%<|
00004f70  3e 52 25 28 73 25 2c 34  29 80 73 25 3e 36 33 80  |>R%(s%,4).s%>63.|
00004f80  54 25 28 6d 25 2c 36 29  3e 33 8c 0d 18 88 39 e7  |T%(m%,6)>3....9.|
00004f90  61 24 3d 22 34 22 20 53  24 3d 22 35 22 2b 62 24  |a$="4" S$="5"+b$|
00004fa0  3a 71 5f 24 28 54 25 28  6d 25 2c 31 30 29 2b 6f  |:q_$(T%(m%,10)+o|
00004fb0  60 25 2c 54 25 28 6d 25  2c 31 31 29 2b 70 60 25  |`%,T%(m%,11)+p`%|
00004fc0  29 3d 53 24 0d 18 92 39  e7 61 24 3d 22 35 22 20  |)=S$...9.a$="5" |
00004fd0  53 24 3d 22 34 22 2b 62  24 3a 71 5f 24 28 54 25  |S$="4"+b$:q_$(T%|
00004fe0  28 6d 25 2c 31 30 29 2b  6f 60 25 2c 54 25 28 6d  |(m%,10)+o`%,T%(m|
00004ff0  25 2c 31 31 29 2b 70 60  25 29 3d 53 24 0d 18 9c  |%,11)+p`%)=S$...|
00005000  10 73 25 3d a0 28 22 26  22 2b 53 24 29 0d 18 a6  |.s%=.("&"+S$)...|
00005010  59 4c 25 3d 28 54 25 28  6d 25 2c 31 30 29 2b 6f  |YL%=(T%(m%,10)+o|
00005020  60 25 2d 4d 5f 25 29 2a  34 30 2d 34 3a 48 25 3d  |`%-M_%)*40-4:H%=|
00005030  28 54 25 28 6d 25 2c 31  31 29 2b 70 60 25 2d 4c  |(T%(m%,11)+p`%-L|
00005040  5f 25 29 2a 34 30 2d 34  3a c8 99 26 32 45 2c 33  |_%)*40-4:..&2E,3|
00005050  34 2b 32 35 36 2c 6e 5f  25 2c 53 24 2c 4c 25 2c  |4+256,n_%,S$,L%,|
00005060  48 25 2c 26 30 38 0d 18  b0 05 e1 0d 18 ba 05 cd  |H%,&08..........|
00005070  0d 18 c4 1f e7 64 25 3c  3e 52 25 28 73 25 2c 31  |.....d%<>R%(s%,1|
00005080  29 80 64 25 3c 3e 52 25  28 73 25 2c 34 29 8c 0d  |).d%<>R%(s%,4)..|
00005090  18 ce 1d 6c 61 25 3d 33  36 3a f2 74 3a ff 28 22  |...la%=36:.t:.("|
000050a0  53 70 6c 61 79 5f 61 70  6c 61 22 29 0d 18 d8 f5  |Splay_apla")....|
000050b0  f1 27 27 22 20 54 72 61  69 6e 20 22 3b 74 5f 24  |.''" Train ";t_$|
000050c0  28 54 25 28 6d 25 2c 32  29 29 3b 22 2d 22 3b 54  |(T%(m%,2));"-";T|
000050d0  25 28 6d 25 2c 31 29 3b  22 20 63 72 61 73 68 65  |%(m%,1);" crashe|
000050e0  64 20 61 74 20 61 20 77  72 6f 6e 67 6c 79 20 64  |d at a wrongly d|
000050f0  69 72 65 63 74 65 64 20  70 6f 69 6e 74 21 21 21  |irected point!!!|
00005100  22 27 27 22 44 61 6d 61  67 65 20 69 73 20 65 6e  |"''"Damage is en|
00005110  6f 72 6d 6f 75 73 20 61  6e 64 20 74 68 65 20 6c  |ormous and the l|
00005120  69 6e 65 28 73 29 20 6f  6e 20 74 68 61 74 20 73  |ine(s) on that s|
00005130  70 6f 74 20 77 69 6c 6c  20 62 65 22 27 22 75 6e  |pot will be"'"un|
00005140  61 76 61 69 6c 61 62 6c  65 20 66 6f 72 20 31 30  |available for 10|
00005150  20 6d 69 6e 75 74 65 73  2c 20 61 73 20 77 6f 72  | minutes, as wor|
00005160  6b 6d 65 6e 20 68 61 76  65 20 74 6f 20 63 6c 65  |kmen have to cle|
00005170  61 72 20 74 68 65 20 74  72 61 63 6b 2e 22 27 22  |ar the track."'"|
00005180  54 68 69 73 20 63 6f 73  74 73 20 79 6f 75 72 20  |This costs your |
00005190  63 6f 6d 70 61 6e 79 20  23 20 32 30 30 30 2e 22  |company # 2000."|
000051a0  3b 0d 18 e2 36 46 60 25  3d 35 3a 54 25 28 6d 25  |;...6F`%=5:T%(m%|
000051b0  2c 32 31 29 3d 54 25 28  6d 25 2c 32 31 29 2d 32  |,21)=T%(m%,21)-2|
000051c0  30 30 30 3a f2 49 62 3a  69 5f 25 28 32 29 3d 69  |000:.Ib:i_%(2)=i|
000051d0  5f 25 28 32 29 2b 31 0d  18 ec 2e 6a 5f 25 28 37  |_%(2)+1....j_%(7|
000051e0  2c 31 29 3d 6a 5f 25 28  37 2c 31 29 2b 31 3a 6a  |,1)=j_%(7,1)+1:j|
000051f0  5f 25 28 37 2c 32 29 3d  6a 5f 25 28 37 2c 32 29  |_%(7,2)=j_%(7,2)|
00005200  2b 32 30 30 30 0d 18 f6  10 cd 3a ef 35 3a f2 44  |+2000.....:.5:.D|
00005210  5f 28 31 30 29 0d 19 00  05 e1 0d 19 14 08 dd f2  |_(10)...........|
00005220  5f 61 0d 19 1e 2f 54 25  28 6d 25 2c 36 29 3d 31  |_a.../T%(m%,6)=1|
00005230  3a 62 62 24 3d c0 71 5f  24 28 54 25 28 6d 25 2c  |:bb$=.q_$(T%(m%,|
00005240  31 32 29 2c 54 25 28 6d  25 2c 31 33 29 29 2c 31  |12),T%(m%,13)),1|
00005250  29 0d 19 28 2a e7 61 24  3d 22 35 22 84 c0 68 61  |)..(*.a$="5"..ha|
00005260  24 2c 31 29 3d 22 35 22  84 62 62 24 3d 22 35 22  |$,1)="5".bb$="5"|
00005270  3a 54 25 28 6d 25 2c 36  29 3d 32 0d 19 32 2d e7  |:T%(m%,6)=2..2-.|
00005280  28 61 24 3d 22 33 22 84  61 24 3d 22 32 22 29 80  |(a$="3".a$="2").|
00005290  a7 22 31 32 63 65 22 2c  62 24 29 3e 30 3a 54 25  |."12ce",b$)>0:T%|
000052a0  28 6d 25 2c 36 29 3d 32  0d 19 3c 05 e1 0d 19 50  |(m%,6)=2..<....P|
000052b0  08 dd f2 43 62 0d 19 5a  5e f2 67 60 28 31 30 2c  |...Cb..Z^.g`(10,|
000052c0  31 31 2c 30 29 3a f2 67  60 28 31 32 2c 31 33 2c  |11,0):.g`(12,13,|
000052d0  30 29 3a f2 67 60 28 31  34 2c 31 35 2c 30 29 3a  |0):.g`(14,15,0):|
000052e0  e7 54 25 28 6d 25 2c 33  29 3e 75 5f 25 28 31 29  |.T%(m%,3)>u_%(1)|
000052f0  73 5f 25 28 54 25 28 6d  25 2c 35 29 2c 31 29 3d  |s_%(T%(m%,5),1)=|
00005300  30 3a 73 5f 25 28 54 25  28 6d 25 2c 35 29 2c 32  |0:s_%(T%(m%,5),2|
00005310  29 3d 30 0d 19 64 2c e7  54 25 28 6d 25 2c 33 29  |)=0..d,.T%(m%,3)|
00005320  3d 30 20 44 60 25 3d 44  60 25 2d 31 3a 47 60 25  |=0 D`%=D`%-1:G`%|
00005330  3d 30 3a e7 44 60 25 3c  30 20 44 60 25 3d 30 0d  |=0:.D`%<0 D`%=0.|
00005340  19 6e 17 e3 7a 25 3d 6d  25 b8 61 25 3a e3 4f 60  |.n..z%=m%.a%:.O`|
00005350  25 3d 31 b8 33 35 0d 19  78 1b 54 25 28 7a 25 2c  |%=1.35..x.T%(z%,|
00005360  4f 60 25 29 3d 54 25 28  7a 25 2b 31 2c 4f 60 25  |O`%)=T%(z%+1,O`%|
00005370  29 0d 19 82 4d ed 3a 78  5f 25 28 7a 25 2c 30 29  |)...M.:x_%(z%,0)|
00005380  3d 78 5f 25 28 7a 25 2b  31 2c 30 29 3a 78 5f 25  |=x_%(z%+1,0):x_%|
00005390  28 7a 25 2c 31 29 3d 78  5f 25 28 7a 25 2b 31 2c  |(z%,1)=x_%(z%+1,|
000053a0  31 29 3a 78 5f 24 28 7a  25 29 3d 78 5f 24 28 7a  |1):x_$(z%)=x_$(z|
000053b0  25 2b 31 29 3a ed 3a 61  25 3d 61 25 2d 31 0d 19  |%+1):.:a%=a%-1..|
000053c0  8c 05 e1 0d 19 a0 08 dd  f2 59 5f 0d 19 aa 11 63  |.........Y_....c|
000053d0  62 25 3d 30 3a 64 62 24  3d 22 2d 22 0d 19 b4 0b  |b%=0:db$="-"....|
000053e0  e3 74 3d 31 b8 61 25 0d  19 be 4d e7 28 54 25 28  |.t=1.a%...M.(T%(|
000053f0  74 2c 33 29 3c 28 75 5f  25 28 31 29 2b 31 29 80  |t,3)<(u_%(1)+1).|
00005400  91 3c 54 25 28 74 2c 34  29 29 84 28 54 25 28 74  |.<T%(t,4)).(T%(t|
00005410  2c 33 29 3c 28 75 5f 25  28 31 29 2b 32 29 80 91  |,3)<(u_%(1)+2)..|
00005420  3c 54 25 28 74 2c 34 29  80 54 25 28 74 2c 35 29  |<T%(t,4).T%(t,5)|
00005430  3d 30 29 8c 0d 19 c8 1c  63 62 25 3d 63 62 25 2b  |=0).....cb%=cb%+|
00005440  31 3a 64 62 24 3d c3 28  54 25 28 74 2c 35 29 29  |1:db$=.(T%(t,5))|
00005450  0d 19 d2 32 e7 76 5f 25  28 54 25 28 74 2c 33 29  |...2.v_%(T%(t,3)|
00005460  2c 38 29 3d 31 84 54 25  28 74 2c 32 29 3d 33 84  |,8)=1.T%(t,2)=3.|
00005470  54 25 28 74 2c 35 29 3e  33 31 20 64 62 24 3d 22  |T%(t,5)>31 db$="|
00005480  2d 22 0d 19 dc 16 e7 54  25 28 74 2c 35 29 3d 30  |-".....T%(t,5)=0|
00005490  20 64 62 24 3d 22 2d 22  0d 19 e6 30 65 62 24 3d  | db$="-"...0eb$=|
000054a0  74 5f 24 28 54 25 28 74  2c 32 29 29 2b 22 2d 22  |t_$(T%(t,2))+"-"|
000054b0  2b c3 28 54 25 28 74 2c  31 29 29 3a f2 65 5f 28  |+.(T%(t,1)):.e_(|
000054c0  54 25 28 74 2c 34 29 29  0d 19 f0 55 77 5f 24 28  |T%(t,4))...Uw_$(|
000054d0  63 62 25 2c 30 29 3d c3  28 54 25 28 74 2c 34 29  |cb%,0)=.(T%(t,4)|
000054e0  29 3a 77 5f 24 28 63 62  25 2c 31 29 3d 65 62 24  |):w_$(cb%,1)=eb$|
000054f0  2b 22 20 20 22 2b 50 61  24 2b 22 20 20 20 20 22  |+"  "+Pa$+"    "|
00005500  2b 64 62 24 2b 22 20 20  20 20 20 22 2b a4 4f 61  |+db$+"     "+.Oa|
00005510  28 44 24 28 54 25 28 74  2c 33 29 29 29 0d 19 fa  |(D$(T%(t,3)))...|
00005520  05 cd 0d 1a 04 05 ed 0d  1a 0e 0b e7 63 62 25 3e  |............cb%>|
00005530  31 8c 0d 1a 18 1b e3 74  3d 31 b8 63 62 25 3a e3  |1......t=1.cb%:.|
00005540  66 62 3d 63 62 25 b8 74  2b 31 88 2d 31 0d 1a 22  |fb=cb%.t+1.-1.."|
00005550  4b e7 bb 77 5f 24 28 66  62 2c 30 29 3c bb 77 5f  |K..w_$(fb,0)<.w_|
00005560  24 28 66 62 2d 31 2c 30  29 c8 94 77 5f 24 28 66  |$(fb-1,0)..w_$(f|
00005570  62 2c 30 29 2c 77 5f 24  28 66 62 2d 31 2c 30 29  |b,0),w_$(fb-1,0)|
00005580  3a c8 94 77 5f 24 28 66  62 2c 31 29 2c 77 5f 24  |:..w_$(fb,1),w_$|
00005590  28 66 62 2d 31 2c 31 29  0d 1a 2c 07 ed 3a ed 0d  |(fb-1,1)..,..:..|
000055a0  1a 36 05 cd 0d 1a 40 26  49 60 25 3d 35 36 2d 63  |.6....@&I`%=56-c|
000055b0  62 25 2d 33 3a ef 32 38  2c 31 38 2c 35 36 2c 35  |b%-3:.28,18,56,5|
000055c0  38 2c 49 60 25 3a ef 34  3a db 0d 1a 4a 25 f1 8a  |8,I`%:.4:...J%..|
000055d0  31 32 2c 30 29 3b 22 44  45 50 41 52 54 55 52 45  |12,0);"DEPARTURE|
000055e0  53 22 3a 67 62 24 3d c4  34 31 2c 22 2d 22 29 0d  |S":gb$=.41,"-").|
000055f0  1a 54 3f f1 8a 30 2c 31  29 3b 22 54 72 61 69 6e  |.T?..0,1);"Train|
00005600  3a 22 3b 8a 38 29 3b 22  54 69 6d 65 3a 22 3b 8a  |:";.8);"Time:";.|
00005610  31 35 29 3b 22 54 72 61  63 6b 3a 22 3b 8a 32 33  |15);"Track:";.23|
00005620  29 3b 22 44 65 73 74 2e  3a 22 27 67 62 24 0d 1a  |);"Dest.:"'gb$..|
00005630  5e 18 e3 74 3d 31 b8 63  62 25 3a f1 77 5f 24 28  |^..t=1.cb%:.w_$(|
00005640  74 2c 31 29 3a ed 0d 1a  68 07 f2 60 60 0d 1a 72  |t,1):...h..``..r|
00005650  05 e1 0d 1a 86 08 dd f2  48 62 0d 1a 90 19 ea 72  |........Hb.....r|
00005660  25 2c 73 25 2c 74 25 2c  68 61 24 2c 69 61 24 2c  |%,s%,t%,ha$,ia$,|
00005670  6a 61 24 0d 1a 9a 45 68  61 24 3d 71 5f 24 28 54  |ja$...Eha$=q_$(T|
00005680  25 28 6d 25 2c 31 30 29  2c 54 25 28 6d 25 2c 31  |%(m%,10),T%(m%,1|
00005690  31 29 29 3a 72 25 3d a0  28 22 26 22 2b 68 61 24  |1)):r%=.("&"+ha$|
000056a0  29 3a f2 72 61 28 72 25  2c 54 25 28 6d 25 2c 38  |):.ra(r%,T%(m%,8|
000056b0  29 29 3a 72 25 3d 75 25  0d 1a a4 2f e7 a7 22 32  |)):r%=u%.../.."2|
000056c0  61 32 62 33 61 33 62 30  36 22 2c 68 61 24 29 3e  |a2b3a3b06",ha$)>|
000056d0  30 f2 73 61 28 72 25 2c  54 25 28 6d 25 2c 38 29  |0.sa(r%,T%(m%,8)|
000056e0  29 3a 72 25 3d 75 25 0d  1a ae 46 69 61 24 3d 71  |):r%=u%...Fia$=q|
000056f0  5f 24 28 54 25 28 6d 25  2c 31 32 29 2c 54 25 28  |_$(T%(m%,12),T%(|
00005700  6d 25 2c 31 33 29 29 3a  73 25 3d a0 28 22 26 22  |m%,13)):s%=.("&"|
00005710  2b 69 61 24 29 3a f2 72  61 28 73 25 2c 54 25 28  |+ia$):.ra(s%,T%(|
00005720  6d 25 2c 31 39 29 29 3a  73 25 3d 75 25 0d 1a b8  |m%,19)):s%=u%...|
00005730  30 e7 a7 22 32 61 32 62  33 61 33 62 30 36 22 2c  |0.."2a2b3a3b06",|
00005740  69 61 24 29 3e 30 f2 73  61 28 73 25 2c 54 25 28  |ia$)>0.sa(s%,T%(|
00005750  6d 25 2c 31 39 29 29 3a  73 25 3d 75 25 0d 1a c2  |m%,19)):s%=u%...|
00005760  46 6a 61 24 3d 71 5f 24  28 54 25 28 6d 25 2c 31  |Fja$=q_$(T%(m%,1|
00005770  34 29 2c 54 25 28 6d 25  2c 31 35 29 29 3a 74 25  |4),T%(m%,15)):t%|
00005780  3d a0 28 22 26 22 2b 6a  61 24 29 3a f2 72 61 28  |=.("&"+ja$):.ra(|
00005790  74 25 2c 54 25 28 6d 25  2c 31 36 29 29 3a 74 25  |t%,T%(m%,16)):t%|
000057a0  3d 75 25 0d 1a cc 30 e7  a7 22 32 61 32 62 33 61  |=u%...0.."2a2b3a|
000057b0  33 62 30 36 22 2c 6a 61  24 29 3e 30 f2 73 61 28  |3b06",ja$)>0.sa(|
000057c0  74 25 2c 54 25 28 6d 25  2c 31 36 29 29 3a 74 25  |t%,T%(m%,16)):t%|
000057d0  3d 75 25 0d 1a d6 39 e7  54 25 28 6d 25 2c 38 29  |=u%...9.T%(m%,8)|
000057e0  3d 52 25 28 72 25 2c 31  29 54 25 28 6d 25 2c 38  |=R%(r%,1)T%(m%,8|
000057f0  29 3d 52 25 28 72 25 2c  34 29 8b 54 25 28 6d 25  |)=R%(r%,4).T%(m%|
00005800  2c 38 29 3d 52 25 28 72  25 2c 31 29 0d 1a e0 3c  |,8)=R%(r%,1)...<|
00005810  e7 54 25 28 6d 25 2c 31  36 29 3d 52 25 28 74 25  |.T%(m%,16)=R%(t%|
00005820  2c 31 29 54 25 28 6d 25  2c 31 36 29 3d 52 25 28  |,1)T%(m%,16)=R%(|
00005830  74 25 2c 34 29 8b 54 25  28 6d 25 2c 31 36 29 3d  |t%,4).T%(m%,16)=|
00005840  52 25 28 74 25 2c 31 29  0d 1a ea 3c e7 54 25 28  |R%(t%,1)...<.T%(|
00005850  6d 25 2c 31 39 29 3d 52  25 28 73 25 2c 31 29 54  |m%,19)=R%(s%,1)T|
00005860  25 28 6d 25 2c 31 39 29  3d 52 25 28 73 25 2c 34  |%(m%,19)=R%(s%,4|
00005870  29 8b 54 25 28 6d 25 2c  31 39 29 3d 52 25 28 73  |).T%(m%,19)=R%(s|
00005880  25 2c 31 29 0d 1a f4 44  c8 94 54 25 28 6d 25 2c  |%,1)...D..T%(m%,|
00005890  31 30 29 2c 54 25 28 6d  25 2c 31 32 29 3a c8 94  |10),T%(m%,12):..|
000058a0  54 25 28 6d 25 2c 31 31  29 2c 54 25 28 6d 25 2c  |T%(m%,11),T%(m%,|
000058b0  31 33 29 3a c8 94 54 25  28 6d 25 2c 38 29 2c 54  |13):..T%(m%,8),T|
000058c0  25 28 6d 25 2c 31 39 29  0d 1a fe 05 e1 0d 1b 12  |%(m%,19)........|
000058d0  08 dd f2 57 5f 0d 1b 1c  22 e7 75 5f 25 28 31 30  |...W_...".u_%(10|
000058e0  29 3d 31 20 75 5f 25 28  31 30 29 3d 30 8b 75 5f  |)=1 u_%(10)=0.u_|
000058f0  25 28 31 30 29 3d 31 0d  1b 26 06 f2 74 0d 1b 30  |%(10)=1..&..t..0|
00005900  67 e7 75 5f 25 28 31 30  29 3d 31 f1 27 27 22 4d  |g.u_%(10)=1.''"M|
00005910  61 69 6e 20 53 74 61 74  69 6f 6e 20 69 73 20 6e  |ain Station is n|
00005920  6f 77 20 61 20 54 68 72  6f 75 67 68 20 73 74 61  |ow a Through sta|
00005930  74 69 6f 6e 22 27 27 22  4e 6f 74 20 61 6c 6c 20  |tion"''"Not all |
00005940  74 72 61 69 6e 73 20 77  69 6c 6c 20 67 65 74 20  |trains will get |
00005950  61 20 6e 65 77 20 64 65  73 74 69 6e 79 20 68 65  |a new destiny he|
00005960  72 65 2e 22 0d 1b 3a 60  e7 75 5f 25 28 31 30 29  |re."..:`.u_%(10)|
00005970  3d 30 f1 27 27 22 4d 61  69 6e 20 53 74 61 74 69  |=0.''"Main Stati|
00005980  6f 6e 20 69 73 20 6e 6f  77 20 61 20 54 65 72 6d  |on is now a Term|
00005990  69 6e 61 6c 20 73 74 61  74 69 6f 6e 2e 22 27 27  |inal station."''|
000059a0  22 41 6c 6c 20 74 72 61  69 6e 73 20 67 65 74 20  |"All trains get |
000059b0  61 20 6e 65 77 20 64 65  73 74 69 6e 79 20 68 65  |a new destiny he|
000059c0  72 65 2e 22 0d 1b 44 0e  ef 35 3a f2 44 5f 28 32  |re."..D..5:.D_(2|
000059d0  30 29 0d 1b 4e 05 e1 0d  1b 62 08 dd f2 55 60 0d  |0)..N....b...U`.|
000059e0  1b 6c 79 e7 62 24 3d 22  37 22 f2 74 3a f1 27 27  |.ly.b$="7".t:.''|
000059f0  22 54 68 69 73 20 69 73  20 61 20 74 72 61 63 6b  |"This is a track|
00005a00  20 69 6e 20 6d 61 69 6e  74 65 6e 61 6e 63 65 2e  | in maintenance.|
00005a10  20 53 77 69 74 63 68 20  74 68 65 20 73 69 67 6e  | Switch the sign|
00005a20  61 6c 73 22 27 22 74 6f  20 74 68 65 20 6c 6f 77  |als"'"to the low|
00005a30  65 73 74 20 73 70 65 65  64 20 74 6f 20 70 72 65  |est speed to pre|
00005a40  76 65 6e 74 20 61 20 64  65 72 61 69 6c 6d 65 6e  |vent a derailmen|
00005a50  74 2e 22 3a ef 35 3a e1  0d 1b 76 21 e7 62 24 3d  |t.":.5:...v!.b$=|
00005a60  22 62 22 84 62 24 3d 22  63 22 84 62 24 3d 22 64  |"b".b$="c".b$="d|
00005a70  22 84 62 24 3d 22 65 22  8c 0d 1b 80 10 e3 65 25  |".b$="e"......e%|
00005a80  3d 31 b8 75 5f 25 28 31  29 0d 1b 8a a4 e7 72 5f  |=1.u_%(1).....r_|
00005a90  25 28 65 25 2c 31 29 3d  41 25 2b 4d 5f 25 80 72  |%(e%,1)=A%+M_%.r|
00005aa0  5f 25 28 65 25 2c 32 29  3d 42 25 2b 4c 5f 25 f2  |_%(e%,2)=B%+L_%.|
00005ab0  74 3a f1 27 27 22 54 68  69 73 20 69 73 20 74 68  |t:.''"This is th|
00005ac0  65 20 65 6e 74 72 79 70  6f 69 6e 74 20 66 6f 72  |e entrypoint for|
00005ad0  20 74 68 65 20 74 72 61  69 6e 73 20 66 72 6f 6d  | the trains from|
00005ae0  20 22 3b a4 4f 61 28 44  24 28 65 25 29 29 3a f1  | ";.Oa(D$(e%)):.|
00005af0  27 22 54 68 65 20 69 6e  74 65 72 76 61 6c 20 69  |'"The interval i|
00005b00  73 20 22 3b 72 5f 25 28  65 25 2c 33 29 3b 22 20  |s ";r_%(e%,3);" |
00005b10  20 28 73 65 65 20 54 61  62 6c 65 20 77 69 74 68  | (see Table with|
00005b20  20 27 49 27 29 22 3a f2  68 62 3a ef 35 0d 1b 94  | 'I')":.hb:.5...|
00005b30  05 ed 0d 1b 9e 05 cd 0d  1b a8 0c e7 62 24 3d 22  |............b$="|
00005b40  35 22 8c 0d 1b b2 10 e3  65 25 3d 31 b8 75 5f 25  |5"......e%=1.u_%|
00005b50  28 31 29 0d 1b bc 66 e7  72 5f 25 28 65 25 2c 37  |(1)...f.r_%(e%,7|
00005b60  29 3d 41 25 2b 4d 5f 25  80 72 5f 25 28 65 25 2c  |)=A%+M_%.r_%(e%,|
00005b70  38 29 3d 42 25 2b 4c 5f  25 f2 74 3a f1 27 27 22  |8)=B%+L_%.t:.''"|
00005b80  54 68 69 73 20 69 73 20  74 68 65 20 65 78 69 74  |This is the exit|
00005b90  70 6f 69 6e 74 20 66 6f  72 20 74 68 65 20 74 72  |point for the tr|
00005ba0  61 69 6e 73 20 74 6f 20  22 3b a4 4f 61 28 44 24  |ains to ";.Oa(D$|
00005bb0  28 65 25 29 29 3b 3a ef  35 0d 1b c6 05 ed 0d 1b  |(e%));:.5.......|
00005bc0  d0 05 cd 0d 1b da 80 e7  bb 28 62 24 29 3e 3d 31  |.........(b$)>=1|
00005bd0  80 bb 28 62 24 29 3c 3d  34 f2 74 3a f1 27 27 22  |..(b$)<=4.t:.''"|
00005be0  54 68 69 73 20 74 65 6c  6c 73 20 74 68 65 20 74  |This tells the t|
00005bf0  72 61 69 6e 20 74 6f 20  73 74 6f 70 2e 20 57 68  |rain to stop. Wh|
00005c00  65 6e 20 70 65 72 6d 69  74 74 65 64 20 74 6f 20  |en permitted to |
00005c10  67 6f 2c 22 27 27 22 69  74 20 77 69 6c 6c 20 72  |go,"''"it will r|
00005c20  75 6e 20 69 6e 74 6f 20  74 68 65 20 6f 70 70 6f  |un into the oppo|
00005c30  73 69 74 65 20 64 69 72  65 63 74 69 6f 6e 2e 22  |site direction."|
00005c40  3a ef 35 0d 1b e4 05 e1  0d 1b f8 08 dd f2 46 5f  |:.5...........F_|
00005c50  0d 1c 02 b3 f2 74 3a f1  27 22 46 69 72 73 74 20  |.....t:.'"First |
00005c60  79 6f 75 20 6d 61 79 20  65 78 61 6d 69 6e 65 20  |you may examine |
00005c70  79 6f 75 72 20 61 72 65  61 20 61 6e 64 20 63 68  |your area and ch|
00005c80  65 63 6b 20 70 6f 69 6e  74 73 20 61 6e 64 20 73  |eck points and s|
00005c90  69 67 6e 61 6c 73 2e 22  27 27 22 57 68 65 6e 20  |ignals."''"When |
00005ca0  79 6f 75 27 72 65 20 72  65 61 64 79 20 74 6f 20  |you're ready to |
00005cb0  73 74 61 72 74 2c 20 70  72 65 73 73 20 20 53 20  |start, press  S |
00005cc0  20 22 27 27 22 54 69 6d  65 20 77 69 6c 6c 20 62  | "''"Time will b|
00005cd0  65 20 72 65 73 65 74 20  61 6e 64 20 79 6f 75 72  |e reset and your|
00005ce0  20 77 6f 72 6b 20 69 6e  20 74 68 69 73 20 63 6f  | work in this co|
00005cf0  6e 74 72 6f 6c 2d 72 6f  6f 6d 20 73 74 61 72 74  |ntrol-room start|
00005d00  73 2e 22 0d 1c 0c 05 e1  0d 1c 20 08 dd f2 4e 60  |s."....... ...N`|
00005d10  0d 1c 2a 21 e7 a4 69 62  28 22 3c 4f 62 65 79 24  |..*!..ib("<Obey$|
00005d20  44 69 72 3e 2e 4c 6f 67  46 69 6c 65 22 29 3d 30  |Dir>.LogFile")=0|
00005d30  8c 0d 1c 34 1b 43 3d ae  22 3c 4f 62 65 79 24 44  |...4.C=."<Obey$D|
00005d40  69 72 3e 2e 4c 6f 67 46  69 6c 65 22 0d 1c 3e 2b  |ir>.LogFile"..>+|
00005d50  d9 23 43 3a ff 28 22 53  45 54 54 59 50 45 20 3c  |.#C:.("SETTYPE <|
00005d60  4f 62 65 79 24 44 69 72  3e 2e 4c 6f 67 46 69 6c  |Obey$Dir>.LogFil|
00005d70  65 20 46 46 46 22 29 0d  1c 48 05 cd 0d 1c 52 43  |e FFF")..H....RC|
00005d80  f1 27 27 22 57 68 69 63  68 20 6f 66 20 74 68 65  |.''"Which of the|
00005d90  20 70 72 65 73 65 6e 74  20 53 74 61 74 69 6f 6e  | present Station|
00005da0  6d 61 70 73 20 77 6f 75  6c 64 20 79 6f 75 20 6c  |maps would you l|
00005db0  69 6b 65 20 74 6f 20 70  6c 61 79 3f 22 27 27 0d  |ike to play?"''.|
00005dc0  1c 5c 1f ff 28 22 49 4e  46 4f 20 3c 4f 62 65 79  |.\..("INFO <Obey|
00005dd0  24 44 69 72 3e 2e 4d 61  70 73 2e 2a 22 29 0d 1c  |$Dir>.Maps.*")..|
00005de0  66 0a 6a 62 24 3d 22 22  0d 1c 70 1b f1 27 27 3a  |f.jb$=""..p..'':|
00005df0  f5 3a f5 3a e8 22 22 6a  62 24 3a fd 6a 62 24 3c  |.:.:.""jb$:.jb$<|
00005e00  3e 22 22 0d 1c 7a 2a 6b  62 24 3d 22 3c 4f 62 65  |>""..z*kb$="<Obe|
00005e10  79 24 44 69 72 3e 2e 4d  61 70 73 2e 22 2b 6a 62  |y$Dir>.Maps."+jb|
00005e20  24 3a fd a4 69 62 28 6b  62 24 29 3d 31 0d 1c 84  |$:..ib(kb$)=1...|
00005e30  0d 4e 60 24 3d 6b 62 24  3a db 0d 1c 8e 05 e1 0d  |.N`$=kb$:.......|
00005e40  1c a2 22 dd f2 56 60 3a  6c 62 25 3d 30 3a 68 25  |.."..V`:lb%=0:h%|
00005e50  3d 41 25 2b 4d 5f 25 3a  76 25 3d 42 25 2b 4c 5f  |=A%+M_%:v%=B%+L_|
00005e60  25 0d 1c ac 1a e7 62 24  3d 22 64 22 84 62 24 3d  |%.....b$="d".b$=|
00005e70  22 65 22 84 62 24 3d 22  66 22 8c 0d 1c b6 1f e3  |"e".b$="f"......|
00005e80  63 25 3d 75 5f 25 28 31  29 b8 28 75 5f 25 28 31  |c%=u_%(1).(u_%(1|
00005e90  29 2b 75 5f 25 28 31 31  29 29 0d 1c c0 39 e7 68  |)+u_%(11))...9.h|
00005ea0  25 3e 76 5f 25 28 63 25  2c 31 29 80 68 25 3c 76  |%>v_%(c%,1).h%<v|
00005eb0  5f 25 28 63 25 2c 33 29  80 76 25 3e 76 5f 25 28  |_%(c%,3).v%>v_%(|
00005ec0  63 25 2c 32 29 80 76 25  3c 76 5f 25 28 63 25 2c  |c%,2).v%<v_%(c%,|
00005ed0  34 29 8c 0d 1c ca 4f e7  62 24 3d 22 66 22 f2 74  |4)....O.b$="f".t|
00005ee0  3a f1 27 27 22 54 68 69  73 20 69 73 20 61 20 73  |:.''"This is a s|
00005ef0  69 64 69 6e 67 20 74 72  61 63 6b 20 66 6f 72 20  |iding track for |
00005f00  47 6f 6f 64 73 54 72 61  69 6e 73 20 61 74 20 22  |GoodsTrains at "|
00005f10  3b a4 4f 61 28 44 24 28  63 25 29 29 3a 6c 62 25  |;.Oa(D$(c%)):lb%|
00005f20  3d 31 0d 1c d4 3c e7 62  24 3d 22 64 22 f2 74 3a  |=1...<.b$="d".t:|
00005f30  f1 27 27 22 54 68 69 73  20 69 73 20 74 68 65 20  |.''"This is the |
00005f40  73 74 61 74 69 6f 6e 20  6f 66 20 22 3b a4 4f 61  |station of ";.Oa|
00005f50  28 44 24 28 63 25 29 29  3a 6c 62 25 3d 31 0d 1c  |(D$(c%)):lb%=1..|
00005f60  de 4b e7 62 24 3d 22 65  22 f2 74 3a f1 27 27 22  |.K.b$="e".t:.''"|
00005f70  54 68 69 73 20 69 73 20  61 20 73 69 64 69 6e 67  |This is a siding|
00005f80  20 66 6f 72 20 49 43 27  73 20 61 6e 64 20 4c 50  | for IC's and LP|
00005f90  27 73 20 61 74 20 22 3b  a4 4f 61 28 44 24 28 63  |'s at ";.Oa(D$(c|
00005fa0  25 29 29 3a 6c 62 25 3d  31 0d 1c e8 07 cd 3a ed  |%)):lb%=1.....:.|
00005fb0  0d 1c f2 38 e7 6c 62 25  3d 30 f2 74 3a f1 27 27  |...8.lb%=0.t:.''|
00005fc0  22 54 68 69 73 20 69 73  20 61 20 73 75 62 75 72  |"This is a subur|
00005fd0  62 61 6e 20 70 6c 61 74  66 6f 72 6d 20 6f 72 20  |ban platform or |
00005fe0  73 69 64 69 6e 67 2e 22  0d 1c fc 06 ef 35 0d 1d  |siding.".....5..|
00005ff0  06 05 cd 0d 1d 10 05 e1  0d 1d 24 0b dd f2 50 5f  |..........$...P_|
00006000  3a f2 74 0d 1d 2e 20 f1  22 2d 2d 2d 2d 4b 65 79  |:.t... ."----Key|
00006010  62 6f 61 72 64 2d 6f 70  74 69 6f 6e 73 2d 2d 2d  |board-options---|
00006020  2d 22 3b 0d 1d 38 31 f1  8a 30 2c 32 29 3b 22 53  |-";..81..0,2);"S|
00006030  20 2d 20 53 74 61 72 74  20 67 61 6d 65 20 22 3b  | - Start game ";|
00006040  8a 33 33 2c 32 29 3b 22  50 20 2d 20 50 61 75 7a  |.33,2);"P - Pauz|
00006050  65 20 22 3b 0d 1d 42 2c  f1 8a 30 2c 33 29 3b 22  |e ";..B,..0,3);"|
00006060  44 20 2d 20 44 65 70 61  72 74 75 72 65 2d 74 61  |D - Departure-ta|
00006070  62 6c 65 22 3b 8a 33 33  2c 33 29 3b 22 20 22 3b  |ble";.33,3);" ";|
00006080  0d 1d 4c 20 f1 8a 30 2c  34 29 3b 22 49 20 2d 20  |..L ..0,4);"I - |
00006090  49 6e 74 65 72 76 61 6c  2d 74 61 62 6c 65 22 3b  |Interval-table";|
000060a0  0d 1d 56 46 f1 8a 30 2c  35 29 3b 22 54 20 2d 20  |..VF..0,5);"T - |
000060b0  54 6f 67 67 6c 65 20 62  65 74 77 65 65 6e 20 54  |Toggle between T|
000060c0  65 72 6d 69 6e 61 6c 2d  22 3b 8a 39 2c 36 29 3b  |erminal-";.9,6);|
000060d0  22 61 6e 64 20 54 68 72  6f 75 67 68 2d 73 74 61  |"and Through-sta|
000060e0  74 69 6f 6e 22 3b 0d 1d  60 34 f1 8a 33 33 2c 36  |tion";..`4..33,6|
000060f0  29 3b 22 3c 73 70 61 63  65 3e 20 2d 20 52 65 74  |);"<space> - Ret|
00006100  75 72 6e 20 74 6f 20 4d  61 69 6e 20 53 74 61 74  |urn to Main Stat|
00006110  69 6f 6e 20 61 72 65 61  22 3b 0d 1d 6a 41 f1 8a  |ion area";..jA..|
00006120  30 2c 37 29 3b 22 51 20  2d 20 51 75 69 74 22 3b  |0,7);"Q - Quit";|
00006130  8a 33 33 2c 37 29 3b 22  3c 63 75 72 73 6f 72 2d  |.33,7);"<cursor-|
00006140  6b 65 79 73 3e 20 2d 20  6d 6f 76 65 20 74 68 72  |keys> - move thr|
00006150  6f 75 67 68 20 61 72 65  61 22 3b 0d 1d 74 0b f2  |ough area";..t..|
00006160  44 5f 28 31 30 29 0d 1d  7e 08 ef 35 3a e1 0d 1d  |D_(10)..~..5:...|
00006170  92 15 dd f2 69 5f 3a e7  54 25 28 6d 25 2c 33 29  |....i_:.T%(m%,3)|
00006180  3d 30 e1 0d 1d 9c 1e e7  28 28 91 81 36 30 30 30  |=0......((..6000|
00006190  29 2a 36 30 30 30 29 3c  54 25 28 6d 25 2c 34 29  |)*6000)<T%(m%,4)|
000061a0  e1 0d 1d a6 26 e7 54 25  28 6d 25 2c 33 29 3e 75  |....&.T%(m%,3)>u|
000061b0  5f 25 28 31 29 80 a7 22  31 64 31 65 31 66 22 2c  |_%(1).."1d1e1f",|
000061c0  68 61 24 29 3e 30 e1 0d  1d b0 2d e7 54 25 28 6d  |ha$)>0....-.T%(m|
000061d0  25 2c 32 33 29 3d 30 20  54 25 28 6d 25 2c 32 33  |%,23)=0 T%(m%,23|
000061e0  29 3d 91 3a ff 28 22 53  70 6c 61 79 5f 74 65 6c  |)=.:.("Splay_tel|
000061f0  65 66 22 29 0d 1d ba 05  e1 0d 1d ce 16 dd f2 71  |ef")...........q|
00006200  60 3a e7 54 25 28 6d 25  2c 32 33 29 3d 30 e1 0d  |`:.T%(m%,23)=0..|
00006210  1d d8 2e 6d 62 25 3d 28  91 2d 54 25 28 6d 25 2c  |...mb%=(.-T%(m%,|
00006220  32 33 29 29 2f 31 30 30  3a e7 6d 62 25 3e 31 30  |23))/100:.mb%>10|
00006230  80 54 25 28 6d 25 2c 32  36 29 3d 30 8c 0d 1d e2  |.T%(m%,26)=0....|
00006240  33 69 5f 25 28 34 29 3d  69 5f 25 28 34 29 2b 31  |3i_%(4)=i_%(4)+1|
00006250  3a 54 25 28 6d 25 2c 32  36 29 3d 31 3a 6a 5f 25  |:T%(m%,26)=1:j_%|
00006260  28 39 2c 31 29 3d 6a 5f  25 28 39 2c 31 29 2b 31  |(9,1)=j_%(9,1)+1|
00006270  0d 1d ec 1d 6a 5f 25 28  39 2c 32 29 3d 6a 5f 25  |....j_%(9,2)=j_%|
00006280  28 39 2c 32 29 2b 28 6d  62 25 2a 33 29 0d 1d f6  |(9,2)+(mb%*3)...|
00006290  1f 54 25 28 6d 25 2c 32  34 29 3d 54 25 28 6d 25  |.T%(m%,24)=T%(m%|
000062a0  2c 32 34 29 2b 28 6d 62  25 2a 33 29 0d 1e 00 05  |,24)+(mb%*3)....|
000062b0  cd 0d 1e 0a 27 54 25 28  6d 25 2c 32 33 29 3d 30  |....'T%(m%,23)=0|
000062c0  3a 78 5f 25 28 6d 25 2c  30 29 3d 30 3a 78 5f 25  |:x_%(m%,0)=0:x_%|
000062d0  28 6d 25 2c 31 29 3d 30  0d 1e 14 05 e1 0d 1e 28  |(m%,1)=0.......(|
000062e0  0d dd f2 49 62 3a 6e 62  3d 30 0d 1e 32 1b e7 73  |...Ib:nb=0..2..s|
000062f0  25 3d 35 80 54 25 28 6d  25 2c 32 29 3d 31 20 6e  |%=5.T%(m%,2)=1 n|
00006300  62 3d 32 30 30 0d 1e 3c  26 e7 73 25 3d 35 80 54  |b=200..<&.s%=5.T|
00006310  25 28 6d 25 2c 32 29 3d  32 80 54 25 28 6d 25 2c  |%(m%,2)=2.T%(m%,|
00006320  33 29 3e 30 20 6e 62 3d  32 30 30 0d 1e 46 1b e7  |3)>0 nb=200..F..|
00006330  73 25 3d 35 80 54 25 28  6d 25 2c 32 29 3d 33 20  |s%=5.T%(m%,2)=3 |
00006340  6e 62 3d 33 30 30 0d 1e  50 13 71 60 3d 6e 62 2b  |nb=300..P.q`=nb+|
00006350  54 25 28 6d 25 2c 32 31  29 0d 1e 5a 42 49 62 3d  |T%(m%,21)..ZBIb=|
00006360  71 60 2d 54 25 28 6d 25  2c 32 34 29 3a e7 54 25  |q`-T%(m%,24):.T%|
00006370  28 6d 25 2c 33 29 3e 30  20 6a 5f 25 28 54 25 28  |(m%,3)>0 j_%(T%(|
00006380  6d 25 2c 32 29 2c 32 29  3d 6a 5f 25 28 54 25 28  |m%,2),2)=j_%(T%(|
00006390  6d 25 2c 32 29 2c 32 29  2b 6e 62 0d 1e 64 14 69  |m%,2),2)+nb..d.i|
000063a0  5f 25 28 35 29 3d 69 5f  25 28 35 29 2b 49 62 0d  |_%(5)=i_%(5)+Ib.|
000063b0  1e 6e 05 e1 0d 1e 82 08  dd f2 6b 5f 0d 1e 8c 1c  |.n........k_....|
000063c0  43 25 3d ad 22 3c 4f 62  65 79 24 44 69 72 3e 2e  |C%=."<Obey$Dir>.|
000063d0  4c 6f 67 46 69 6c 65 22  0d 1e 96 20 41 24 3d 91  |LogFile"... A$=.|
000063e0  24 3a cf 23 43 25 3d a2  23 43 25 3a 45 24 3d 22  |$:.#C%=.#C%:E$="|
000063f0  20 20 20 20 20 20 20 22  0d 1e a0 2d 42 24 3d 41  |       "...-B$=A|
00006400  24 2b 22 3a 20 20 59 6f  75 20 70 6c 61 79 65 64  |$+":  You played|
00006410  3a 20 22 2b 6a 62 24 2b  22 20 20 66 6f 72 3a 20  |: "+jb$+"  for: |
00006420  22 2b 41 61 24 0d 1e aa  24 e7 69 5f 25 28 33 29  |"+Aa$...$.i_%(3)|
00006430  3d 33 20 42 24 3d 42 24  2b 22 20 20 28 43 72 61  |=3 B$=B$+"  (Cra|
00006440  73 68 65 64 21 21 21 29  22 0d 1e b4 59 43 24 3d  |shed!!!)"...YC$=|
00006450  22 54 72 61 69 6e 73 20  72 65 63 65 69 76 65 64  |"Trains received|
00006460  3a 20 22 2b c3 28 69 5f  25 28 31 29 29 2b 22 20  |: "+.(i_%(1))+" |
00006470  20 20 44 65 72 61 69 6c  6d 65 6e 74 73 3a 20 22  |  Derailments: "|
00006480  2b c3 28 69 5f 25 28 32  29 29 2b 22 20 20 20 44  |+.(i_%(2))+"   D|
00006490  65 6c 61 79 73 3a 20 22  2b c3 28 69 5f 25 28 34  |elays: "+.(i_%(4|
000064a0  29 29 0d 1e be 47 46 24  3d 22 54 72 61 69 6e 73  |))...GF$="Trains|
000064b0  20 73 65 6e 74 20 6f 75  74 3a 20 22 2b c3 28 69  | sent out: "+.(i|
000064c0  5f 25 28 36 29 29 2b 22  20 20 20 54 6f 74 61 6c  |_%(6))+"   Total|
000064d0  20 72 65 76 65 6e 75 65  3a 20 23 20 22 2b c3 28  | revenue: # "+.(|
000064e0  6a 5f 25 28 36 2c 32 29  29 0d 1e c8 23 d5 23 43  |j_%(6,2))...#.#C|
000064f0  25 2c 42 24 3a d5 23 43  25 2c 43 24 3a d5 23 43  |%,B$:.#C%,C$:.#C|
00006500  25 2c 46 24 3a d5 23 43  25 2c 45 24 0d 1e d2 08  |%,F$:.#C%,E$....|
00006510  d9 23 43 25 0d 1e dc 05  e1 0d 1e f0 08 dd f2 79  |.#C%...........y|
00006520  61 0d 1e fa 12 e7 54 25  28 6d 25 2c 36 29 3d 30  |a.....T%(m%,6)=0|
00006530  f2 6f 62 0d 1f 04 05 e1  0d 1f 0e 08 dd f2 6f 62  |.ob...........ob|
00006540  0d 1f 18 13 e7 78 5f 25  28 6d 25 2c 30 29 3d 30  |.....x_%(m%,0)=0|
00006550  f2 6f 61 0d 1f 22 05 e1  0d 1f 2c 08 dd f2 6f 61  |.oa.."....,...oa|
00006560  0d 1f 36 29 e7 54 25 28  6d 25 2c 33 29 3c 3e 30  |..6).T%(m%,3)<>0|
00006570  f2 65 5f 28 54 25 28 6d  25 2c 34 29 29 3a 53 62  |.e_(T%(m%,4)):Sb|
00006580  24 3d c2 50 61 24 2c 32  29 0d 1f 40 18 e7 54 25  |$=.Pa$,2)..@..T%|
00006590  28 6d 25 2c 33 29 3d 30  20 53 62 24 3d 22 30 30  |(m%,3)=0 Sb$="00|
000065a0  22 0d 1f 4a 31 e7 54 25  28 6d 25 2c 33 29 3c 3d  |"..J1.T%(m%,3)<=|
000065b0  75 5f 25 28 31 29 78 5f  24 28 6d 25 29 3d 53 62  |u_%(1)x_$(m%)=Sb|
000065c0  24 2b c2 44 24 28 54 25  28 6d 25 2c 33 29 29 2c  |$+.D$(T%(m%,3)),|
000065d0  33 29 0d 1f 54 15 e7 54  25 28 6d 25 2c 33 29 3e  |3)..T..T%(m%,3)>|
000065e0  75 5f 25 28 31 29 8c 0d  1f 5e 2d e7 54 25 28 6d  |u_%(1)...^-.T%(m|
000065f0  25 2c 35 29 3c 31 30 20  78 5f 24 28 6d 25 29 3d  |%,5)<10 x_$(m%)=|
00006600  53 62 24 2b 22 50 2d 22  2b c3 28 54 25 28 6d 25  |Sb$+"P-"+.(T%(m%|
00006610  2c 35 29 29 0d 1f 68 2b  e7 54 25 28 6d 25 2c 35  |,5))..h+.T%(m%,5|
00006620  29 3e 39 20 78 5f 24 28  6d 25 29 3d 53 62 24 2b  |)>9 x_$(m%)=Sb$+|
00006630  22 50 22 2b c3 28 54 25  28 6d 25 2c 35 29 29 0d  |"P"+.(T%(m%,5)).|
00006640  1f 72 2c e7 54 25 28 6d  25 2c 32 29 3d 33 20 78  |.r,.T%(m%,2)=3 x|
00006650  5f 24 28 6d 25 29 3d 53  62 24 2b c2 44 24 28 54  |_$(m%)=Sb$+.D$(T|
00006660  25 28 6d 25 2c 33 29 29  2c 33 29 0d 1f 7c 3e e7  |%(m%,3)),3)..|>.|
00006670  54 25 28 6d 25 2c 32 29  3c 33 80 76 5f 25 28 54  |T%(m%,2)<3.v_%(T|
00006680  25 28 6d 25 2c 33 29 2c  38 29 3d 31 20 78 5f 24  |%(m%,3),8)=1 x_$|
00006690  28 6d 25 29 3d 53 62 24  2b c2 44 24 28 54 25 28  |(m%)=Sb$+.D$(T%(|
000066a0  6d 25 2c 33 29 29 2c 33  29 0d 1f 86 37 e7 54 25  |m%,3)),3)...7.T%|
000066b0  28 6d 25 2c 32 29 3c 33  80 54 25 28 6d 25 2c 35  |(m%,2)<3.T%(m%,5|
000066c0  29 3d 30 20 78 5f 24 28  6d 25 29 3d 53 62 24 2b  |)=0 x_$(m%)=Sb$+|
000066d0  c2 44 24 28 54 25 28 6d  25 2c 33 29 29 2c 33 29  |.D$(T%(m%,3)),3)|
000066e0  0d 1f 90 05 cd 0d 1f 9a  13 70 62 24 3d c3 28 54  |.........pb$=.(T|
000066f0  25 28 6d 25 2c 38 29 29  0d 1f a4 47 e7 a7 22 31  |%(m%,8))...G.."1|
00006700  35 38 34 22 2c 70 62 24  29 3e 30 20 78 5f 25 28  |584",pb$)>0 x_%(|
00006710  6d 25 2c 30 29 3d 54 25  28 6d 25 2c 31 30 29 2a  |m%,0)=T%(m%,10)*|
00006720  34 30 2b 32 30 3a 78 5f  25 28 6d 25 2c 31 29 3d  |40+20:x_%(m%,1)=|
00006730  54 25 28 6d 25 2c 31 31  29 2a 34 30 2b 33 34 0d  |T%(m%,11)*40+34.|
00006740  1f ae 47 e7 a7 22 32 33  36 37 22 2c 70 62 24 29  |..G.."2367",pb$)|
00006750  3e 30 20 78 5f 25 28 6d  25 2c 30 29 3d 54 25 28  |>0 x_%(m%,0)=T%(|
00006760  6d 25 2c 31 32 29 2a 34  30 2b 32 30 3a 78 5f 25  |m%,12)*40+20:x_%|
00006770  28 6d 25 2c 31 29 3d 54  25 28 6d 25 2c 31 33 29  |(m%,1)=T%(m%,13)|
00006780  2a 34 30 2b 33 34 0d 1f  b8 24 ef 32 33 2c 32 35  |*40+34...$.23,25|
00006790  34 2c 26 46 46 46 46 3b  26 46 46 46 46 3b 26 46  |4,&FFFF;&FFFF;&F|
000067a0  46 46 46 3b 26 46 46 46  46 3b 0d 1f c2 17 71 62  |FFF;&FFFF;....qb|
000067b0  3d 4d 5f 25 2a 34 30 3a  72 62 3d 4c 5f 25 2a 34  |=M_%*40:rb=L_%*4|
000067c0  30 0d 1f cc 28 e7 91 3e  28 54 25 28 6d 25 2c 34  |0...(..>(T%(m%,4|
000067d0  29 2b 33 30 30 30 29 80  54 25 28 6d 25 2c 33 29  |)+3000).T%(m%,3)|
000067e0  3c 3e 30 e6 33 8b e6 34  38 0d 1f d6 12 e7 54 25  |<>0.3..48.....T%|
000067f0  28 6d 25 2c 33 29 3d 30  e6 34 38 0d 1f e0 2c ef  |(m%,3)=0.48...,.|
00006800  35 3a ec 78 5f 25 28 6d  25 2c 30 29 2d 71 62 2c  |5:.x_%(m%,0)-qb,|
00006810  78 5f 25 28 6d 25 2c 31  29 2d 72 62 3a f1 c4 35  |x_%(m%,1)-rb:..5|
00006820  2c bd 32 35 34 29 3b 0d  1f ea 2f e6 33 31 3a ef  |,.254);.../.31:.|
00006830  35 3a ec 78 5f 25 28 6d  25 2c 30 29 2d 71 62 2c  |5:.x_%(m%,0)-qb,|
00006840  78 5f 25 28 6d 25 2c 31  29 2d 72 62 3a f1 78 5f  |x_%(m%,1)-rb:.x_|
00006850  24 28 6d 25 29 3b 0d 1f  f4 05 e1 0d 20 08 0c dd  |$(m%);...... ...|
00006860  a4 4f 61 28 41 24 29 0d  20 12 0f 73 62 25 3d a9  |.Oa(A$). ..sb%=.|
00006870  28 41 24 29 2d 33 0d 20  1c 0d 3d c0 41 24 2c 73  |(A$)-3. ..=.A$,s|
00006880  62 25 29 0d 20 30 08 dd  f2 66 60 0d 20 3a 0c e3  |b%). 0...f`. :..|
00006890  6d 25 3d 31 b8 61 25 0d  20 44 11 e7 78 5f 25 28  |m%=1.a%. D..x_%(|
000068a0  6d 25 2c 30 29 3e 30 8c  0d 20 4e 21 e7 91 3e 54  |m%,0)>0.. N!..>T|
000068b0  25 28 6d 25 2c 34 29 80  54 25 28 6d 25 2c 33 29  |%(m%,4).T%(m%,3)|
000068c0  3c 3e 30 e6 33 8b e6 34  38 0d 20 58 12 e7 54 25  |<>0.3..48. X..T%|
000068d0  28 6d 25 2c 33 29 3d 30  e6 34 38 0d 20 62 17 71  |(m%,3)=0.48. b.q|
000068e0  62 3d 4d 5f 25 2a 34 30  3a 72 62 3d 4c 5f 25 2a  |b=M_%*40:rb=L_%*|
000068f0  34 30 0d 20 6c 2c ef 35  3a ec 78 5f 25 28 6d 25  |40. l,.5:.x_%(m%|
00006900  2c 30 29 2d 71 62 2c 78  5f 25 28 6d 25 2c 31 29  |,0)-qb,x_%(m%,1)|
00006910  2d 72 62 3a f1 c4 35 2c  bd 32 35 34 29 3b 0d 20  |-rb:..5,.254);. |
00006920  76 2f e6 33 31 3a ef 35  3a ec 78 5f 25 28 6d 25  |v/.31:.5:.x_%(m%|
00006930  2c 30 29 2d 71 62 2c 78  5f 25 28 6d 25 2c 31 29  |,0)-qb,x_%(m%,1)|
00006940  2d 72 62 3a f1 78 5f 24  28 6d 25 29 3b 0d 20 80  |-rb:.x_$(m%);. .|
00006950  05 cd 0d 20 8a 05 ed 0d  20 94 05 e1 0d 20 a8 12  |... .... .... ..|
00006960  dd f2 55 62 3a 74 62 3d  30 3a 75 62 3d 30 0d 20  |..Ub:tb=0:ub=0. |
00006970  b2 3a 76 62 3d 54 25 28  6d 25 2c 31 29 3a 77 62  |.:vb=T%(m%,1):wb|
00006980  3d 54 25 28 6d 25 2c 32  29 3a 78 62 3d 54 25 28  |=T%(m%,2):xb=T%(|
00006990  6d 25 2c 33 29 3a 79 62  3d 28 54 25 28 6d 25 2c  |m%,3):yb=(T%(m%,|
000069a0  34 29 81 36 30 30 30 29  0d 20 bc 0c e3 7a 62 3d  |4).6000). ...zb=|
000069b0  31 b8 61 25 0d 20 c6 12  e7 54 25 28 7a 62 2c 31  |1.a%. ...T%(zb,1|
000069c0  29 3c 3e 76 62 8c 0d 20  d0 16 75 62 3d 28 54 25  |)<>vb.. ..ub=(T%|
000069d0  28 7a 62 2c 34 29 81 36  30 30 30 29 0d 20 da 36  |(zb,4).6000). .6|
000069e0  e7 54 25 28 7a 62 2c 33  29 3d 78 62 80 28 75 62  |.T%(zb,3)=xb.(ub|
000069f0  3d 79 62 84 75 62 3d 79  62 2d 31 84 75 62 3d 79  |=yb.ub=yb-1.ub=y|
00006a00  62 2b 31 29 4f 62 25 3d  4f 62 25 2b 31 3a 74 62  |b+1)Ob%=Ob%+1:tb|
00006a10  3d 31 0d 20 e4 05 cd 0d  20 ee 05 ed 0d 20 f8 0a  |=1. .... .... ..|
00006a20  e7 77 62 3d 31 8c 0d 21  02 0c e3 7a 62 3d 31 b8  |.wb=1..!...zb=1.|
00006a30  61 25 0d 21 0c 16 75 62  3d 28 54 25 28 7a 62 2c  |a%.!..ub=(T%(zb,|
00006a40  34 29 81 36 30 30 30 29  0d 21 16 3f e7 54 25 28  |4).6000).!.?.T%(|
00006a50  7a 62 2c 31 29 3c 3e 76  62 80 54 25 28 7a 62 2c  |zb,1)<>vb.T%(zb,|
00006a60  32 29 3e 31 80 54 25 28  7a 62 2c 33 29 3d 78 62  |2)>1.T%(zb,3)=xb|
00006a70  80 75 62 3d 79 62 2d 31  20 4f 62 25 3d 4f 62 25  |.ub=yb-1 Ob%=Ob%|
00006a80  2b 31 3a 74 62 3d 31 0d  21 20 05 ed 0d 21 2a 05  |+1:tb=1.! ...!*.|
00006a90  cd 0d 21 34 0a e7 77 62  3e 31 8c 0d 21 3e 0c e3  |..!4..wb>1..!>..|
00006aa0  7a 62 3d 31 b8 61 25 0d  21 48 16 75 62 3d 28 54  |zb=1.a%.!H.ub=(T|
00006ab0  25 28 7a 62 2c 34 29 81  36 30 30 30 29 0d 21 52  |%(zb,4).6000).!R|
00006ac0  48 e7 54 25 28 7a 62 2c  31 29 3c 3e 76 62 80 54  |H.T%(zb,1)<>vb.T|
00006ad0  25 28 7a 62 2c 32 29 3d  31 80 54 25 28 7a 62 2c  |%(zb,2)=1.T%(zb,|
00006ae0  33 29 3d 78 62 80 28 75  62 3d 79 62 2b 31 84 75  |3)=xb.(ub=yb+1.u|
00006af0  62 3d 79 62 2b 32 29 4f  62 25 3d 4f 62 25 2b 31  |b=yb+2)Ob%=Ob%+1|
00006b00  3a 74 62 3d 31 0d 21 5c  05 ed 0d 21 66 05 cd 0d  |:tb=1.!\...!f...|
00006b10  21 70 0f e7 74 62 3d 30  20 4f 62 25 3d 30 0d 21  |!p..tb=0 Ob%=0.!|
00006b20  7a 05 e1 0d 21 8e 12 dd  f2 4a 62 3a 5f 62 3d 30  |z...!....Jb:_b=0|
00006b30  3a 60 62 3d 30 0d 21 98  13 e7 54 25 28 6d 25 2c  |:`b=0.!...T%(m%,|
00006b40  31 30 29 3c 4d 5f 25 8c  0d 21 a2 24 f5 3a 4d 5f  |10)<M_%..!.$.:M_|
00006b50  25 3d 4d 5f 25 2d 32 35  3a fd 4d 5f 25 3c 54 25  |%=M_%-25:.M_%<T%|
00006b60  28 6d 25 2c 31 30 29 3a  5f 62 3d 31 0d 21 ac 05  |(m%,10):_b=1.!..|
00006b70  cd 0d 21 b6 13 e7 54 25  28 6d 25 2c 31 31 29 3c  |..!...T%(m%,11)<|
00006b80  4c 5f 25 8c 0d 21 c0 24  f5 3a 4c 5f 25 3d 4c 5f  |L_%..!.$.:L_%=L_|
00006b90  25 2d 31 30 3a fd 4c 5f  25 3c 54 25 28 6d 25 2c  |%-10:.L_%<T%(m%,|
00006ba0  31 31 29 3a 60 62 3d 31  0d 21 ca 05 cd 0d 21 d4  |11):`b=1.!....!.|
00006bb0  1b e7 5f 62 3d 30 80 54  25 28 6d 25 2c 31 30 29  |.._b=0.T%(m%,10)|
00006bc0  3e 4d 5f 25 2b 33 30 8c  0d 21 de 27 f5 3a 4d 5f  |>M_%+30..!.'.:M_|
00006bd0  25 3d 4d 5f 25 2b 32 35  3a fd 4d 5f 25 2b 33 30  |%=M_%+25:.M_%+30|
00006be0  3e 54 25 28 6d 25 2c 31  30 29 3a 5f 62 3d 31 0d  |>T%(m%,10):_b=1.|
00006bf0  21 e8 05 cd 0d 21 f2 1b  e7 60 62 3d 30 80 54 25  |!....!...`b=0.T%|
00006c00  28 6d 25 2c 31 31 29 3e  4c 5f 25 2b 32 30 8c 0d  |(m%,11)>L_%+20..|
00006c10  21 fc 27 f5 3a 4c 5f 25  3d 4c 5f 25 2b 31 30 3a  |!.'.:L_%=L_%+10:|
00006c20  fd 4c 5f 25 2b 32 30 3e  54 25 28 6d 25 2c 31 31  |.L_%+20>T%(m%,11|
00006c30  29 3a 60 62 3d 31 0d 22  06 05 cd 0d 22 10 18 e7  |):`b=1."...."...|
00006c40  5f 62 3d 31 84 60 62 3d  31 20 5a 5f 25 3d 31 3a  |_b=1.`b=1 Z_%=1:|
00006c50  f2 43 5f 0d 22 1a 05 e1  0d 22 2e 08 dd f2 51 5f  |.C_."...."....Q_|
00006c60  0d 22 38 37 f2 74 3a f1  27 22 54 61 62 6c 65 20  |."87.t:.'"Table |
00006c70  6f 66 20 69 6e 74 65 72  76 61 6c 73 20 62 65 74  |of intervals bet|
00006c80  77 65 65 6e 20 74 72 61  69 6e 73 20 61 74 20 65  |ween trains at e|
00006c90  6e 74 72 79 3a 22 3b 0d  22 42 27 f1 8a 35 2c 33  |ntry:";."B'..5,3|
00006ca0  29 22 31 20 3a 20 31 2d  34 6d 69 6e 73 20 20 20  |)"1 : 1-4mins   |
00006cb0  20 20 34 20 3a 20 34 2d  38 6d 69 6e 73 22 0d 22  |  4 : 4-8mins"."|
00006cc0  4c 28 f1 8a 35 2c 34 29  22 32 20 3a 20 32 2d 35  |L(..5,4)"2 : 2-5|
00006cd0  6d 69 6e 73 20 20 20 20  20 35 20 3a 20 35 2d 31  |mins     5 : 5-1|
00006ce0  30 6d 69 6e 73 22 0d 22  56 28 f1 8a 35 2c 35 29  |0mins"."V(..5,5)|
00006cf0  22 33 20 3a 20 33 2d 37  6d 69 6e 73 20 20 20 20  |"3 : 3-7mins    |
00006d00  20 36 20 3a 20 38 2d 31  35 6d 69 6e 73 22 0d 22  | 6 : 8-15mins"."|
00006d10  60 81 f1 8a 30 2c 36 29  22 54 6f 20 63 68 61 6e  |`...0,6)"To chan|
00006d20  67 65 3a 20 43 6c 69 63  6b 20 73 65 6c 65 63 74  |ge: Click select|
00006d30  20 6f 6e 20 45 6e 74 72  79 70 6f 69 6e 74 2c 20  | on Entrypoint, |
00006d40  77 68 69 6c 73 74 20 68  6f 6c 64 69 6e 67 20 64  |whilst holding d|
00006d50  6f 77 6e 22 27 22 20 20  20 20 20 20 20 20 20 20  |own"'"          |
00006d60  20 74 68 65 20 6b 65 79  20 77 69 74 68 20 74 68  | the key with th|
00006d70  65 20 6e 75 6d 62 65 72  20 28 31 2d 36 29 20 6f  |e number (1-6) o|
00006d80  6e 20 74 68 65 20 6b 65  79 62 6f 61 72 64 22 0d  |n the keyboard".|
00006d90  22 6a 06 ef 35 0d 22 74  05 e1 0d 22 88 0d dd f2  |"j..5."t..."....|
00006da0  68 62 3a 41 63 3d 30 0d  22 92 26 e7 a6 2d 34 39  |hb:Ac=0.".&..-49|
00006db0  20 72 5f 25 28 65 25 2c  33 29 3d 31 3a 72 5f 25  | r_%(e%,3)=1:r_%|
00006dc0  28 65 25 2c 34 29 3d 37  3a 41 63 3d 31 0d 22 9c  |(e%,4)=7:Ac=1.".|
00006dd0  26 e7 a6 2d 35 30 20 72  5f 25 28 65 25 2c 33 29  |&..-50 r_%(e%,3)|
00006de0  3d 32 3a 72 5f 25 28 65  25 2c 34 29 3d 38 3a 41  |=2:r_%(e%,4)=8:A|
00006df0  63 3d 31 0d 22 a6 26 e7  a6 2d 31 38 20 72 5f 25  |c=1.".&..-18 r_%|
00006e00  28 65 25 2c 33 29 3d 33  3a 72 5f 25 28 65 25 2c  |(e%,3)=3:r_%(e%,|
00006e10  34 29 3d 39 3a 41 63 3d  31 0d 22 b0 27 e7 a6 2d  |4)=9:Ac=1.".'..-|
00006e20  31 39 20 72 5f 25 28 65  25 2c 33 29 3d 34 3a 72  |19 r_%(e%,3)=4:r|
00006e30  5f 25 28 65 25 2c 34 29  3d 31 30 3a 41 63 3d 31  |_%(e%,4)=10:Ac=1|
00006e40  0d 22 ba 27 e7 a6 2d 32  30 20 72 5f 25 28 65 25  |.".'..-20 r_%(e%|
00006e50  2c 33 29 3d 35 3a 72 5f  25 28 65 25 2c 34 29 3d  |,3)=5:r_%(e%,4)=|
00006e60  31 31 3a 41 63 3d 31 0d  22 c4 27 e7 a6 2d 35 33  |11:Ac=1.".'..-53|
00006e70  20 72 5f 25 28 65 25 2c  33 29 3d 36 3a 72 5f 25  | r_%(e%,3)=6:r_%|
00006e80  28 65 25 2c 34 29 3d 31  32 3a 41 63 3d 31 0d 22  |(e%,4)=12:Ac=1."|
00006e90  ce 2b e7 41 63 3d 31 f1  27 22 49 6e 74 65 72 76  |.+.Ac=1.'"Interv|
00006ea0  61 6c 20 63 68 61 6e 67  65 64 20 74 6f 20 22 3b  |al changed to ";|
00006eb0  72 5f 25 28 65 25 2c 33  29 0d 22 d8 0b f2 44 5f  |r_%(e%,3)."...D_|
00006ec0  28 32 30 29 0d 22 e2 05  e1 0d 22 f6 11 dd f2 6e  |(20)."...."....n|
00006ed0  61 3a 42 63 25 3d 39 30  30 30 0d 23 00 29 4a 61  |a:Bc%=9000.#.)Ja|
00006ee0  25 3d 76 5f 25 28 54 25  28 6d 25 2c 33 29 2c 37  |%=v_%(T%(m%,3),7|
00006ef0  29 2d 76 5f 25 28 54 25  28 6d 25 2c 33 29 2c 36  |)-v_%(T%(m%,3),6|
00006f00  29 2b 31 0d 23 0a 05 f5  0d 23 14 21 e7 4a 61 25  |)+1.#....#.!.Ja%|
00006f10  3d 31 20 6a 25 3d 76 5f  25 28 54 25 28 6d 25 2c  |=1 j%=v_%(T%(m%,|
00006f20  33 29 2c 37 29 8b f2 51  61 0d 23 1e 43 e7 73 5f  |3),7)..Qa.#.C.s_|
00006f30  25 28 6a 25 2c 31 29 3c  3e 30 20 64 25 3d 28 28  |%(j%,1)<>0 d%=((|
00006f40  91 2b 42 63 25 29 81 36  30 30 30 29 2a 36 30 30  |.+Bc%).6000)*600|
00006f50  30 3a e7 64 25 3c 3d 73  5f 25 28 6a 25 2c 32 29  |0:.d%<=s_%(j%,2)|
00006f60  42 63 25 3d 42 63 25 2b  36 30 30 30 0d 23 28 1d  |Bc%=Bc%+6000.#(.|
00006f70  fd 64 25 3e 73 5f 25 28  6a 25 2c 32 29 84 73 5f  |.d%>s_%(j%,2).s_|
00006f80  25 28 6a 25 2c 31 29 3d  30 0d 23 32 27 e7 73 5f  |%(j%,1)=0.#2'.s_|
00006f90  25 28 6a 25 2c 31 29 3d  30 20 64 25 3d 28 28 91  |%(j%,1)=0 d%=((.|
00006fa0  2b 42 63 25 29 81 36 30  30 30 29 2a 36 30 30 30  |+Bc%).6000)*6000|
00006fb0  0d 23 3c 22 73 5f 25 28  6a 25 2c 31 29 3d 6d 25  |.#<"s_%(j%,1)=m%|
00006fc0  3a 73 5f 25 28 6a 25 2c  32 29 3d 91 2b 39 30 30  |:s_%(j%,2)=.+900|
00006fd0  30 30 0d 23 46 1b 54 25  28 6d 25 2c 35 29 3d 6a  |00.#F.T%(m%,5)=j|
00006fe0  25 3a 54 25 28 6d 25 2c  34 29 3d 64 25 0d 23 50  |%:T%(m%,4)=d%.#P|
00006ff0  05 e1 0d 23 64 10 dd f2  72 61 28 71 25 2c 43 63  |...#d...ra(q%,Cc|
00007000  25 29 0d 23 6e 1a e7 71  25 3d 26 32 30 84 71 25  |%).#n..q%=&20.q%|
00007010  3d 26 30 39 84 71 25 3d  26 38 36 8c 0d 23 78 17  |=&09.q%=&86..#x.|
00007020  e7 43 63 25 3d 31 84 43  63 25 3d 32 20 71 25 3d  |.Cc%=1.Cc%=2 q%=|
00007030  26 31 30 0d 23 82 17 e7  43 63 25 3d 35 84 43 63  |&10.#...Cc%=5.Cc|
00007040  25 3d 36 20 71 25 3d 26  31 32 0d 23 8c 05 cd 0d  |%=6 q%=&12.#....|
00007050  23 96 0c e7 71 25 3d 26  30 38 8c 0d 23 a0 17 e7  |#...q%=&08..#...|
00007060  43 63 25 3d 38 84 43 63  25 3d 37 20 71 25 3d 26  |Cc%=8.Cc%=7 q%=&|
00007070  31 33 0d 23 aa 17 e7 43  63 25 3d 35 84 43 63 25  |13.#...Cc%=5.Cc%|
00007080  3d 36 20 71 25 3d 26 31  32 0d 23 b4 05 cd 0d 23  |=6 q%=&12.#....#|
00007090  be 1a e7 71 25 3d 26 33  30 84 71 25 3d 26 30 61  |...q%=&30.q%=&0a|
000070a0  84 71 25 3d 26 38 37 8c  0d 23 c8 17 e7 43 63 25  |.q%=&87..#...Cc%|
000070b0  3d 31 84 43 63 25 3d 32  20 71 25 3d 26 31 30 0d  |=1.Cc%=2 q%=&10.|
000070c0  23 d2 17 e7 43 63 25 3d  38 84 43 63 25 3d 37 20  |#...Cc%=8.Cc%=7 |
000070d0  71 25 3d 26 31 33 0d 23  dc 05 cd 0d 23 e6 0c e7  |q%=&13.#....#...|
000070e0  71 25 3d 26 32 33 8c 0d  23 f0 17 e7 43 63 25 3d  |q%=&23..#...Cc%=|
000070f0  38 84 43 63 25 3d 37 20  71 25 3d 26 31 33 0d 23  |8.Cc%=7 q%=&13.#|
00007100  fa 17 e7 43 63 25 3d 34  84 43 63 25 3d 33 20 71  |...Cc%=4.Cc%=3 q|
00007110  25 3d 26 31 31 0d 24 04  05 cd 0d 24 0e 0c e7 71  |%=&11.$....$...q|
00007120  25 3d 26 33 33 8c 0d 24  18 17 e7 43 63 25 3d 34  |%=&33..$...Cc%=4|
00007130  84 43 63 25 3d 33 20 71  25 3d 26 31 31 0d 24 22  |.Cc%=3 q%=&11.$"|
00007140  17 e7 43 63 25 3d 35 84  43 63 25 3d 36 20 71 25  |..Cc%=5.Cc%=6 q%|
00007150  3d 26 31 32 0d 24 2c 05  cd 0d 24 36 09 75 25 3d  |=&12.$,...$6.u%=|
00007160  71 25 0d 24 40 05 e1 0d  24 54 0c dd f2 44 5f 28  |q%.$@...$T...D_(|
00007170  44 63 29 0d 24 5e 15 44  5f 25 3d 91 2b 44 63 3a  |Dc).$^.D_%=.+Dc:|
00007180  f5 3a fd 91 3e 44 5f 25  0d 24 68 05 e1 0d 24 7c  |.:..>D_%.$h...$||
00007190  10 dd f2 73 61 28 71 25  2c 43 63 25 29 0d 24 86  |...sa(q%,Cc%).$.|
000071a0  0c e7 71 25 3d 26 32 61  8c 0d 24 90 17 e7 43 63  |..q%=&2a..$...Cc|
000071b0  25 3d 31 84 43 63 25 3d  32 20 71 25 3d 26 31 30  |%=1.Cc%=2 q%=&10|
000071c0  0d 24 9a 17 e7 43 63 25  3d 35 84 43 63 25 3d 36  |.$...Cc%=5.Cc%=6|
000071d0  20 71 25 3d 26 32 61 0d  24 a4 05 cd 0d 24 ae 0c  | q%=&2a.$....$..|
000071e0  e7 71 25 3d 26 32 62 8c  0d 24 b8 17 e7 43 63 25  |.q%=&2b..$...Cc%|
000071f0  3d 31 84 43 63 25 3d 32  20 71 25 3d 26 32 62 0d  |=1.Cc%=2 q%=&2b.|
00007200  24 c2 17 e7 43 63 25 3d  35 84 43 63 25 3d 36 20  |$...Cc%=5.Cc%=6 |
00007210  71 25 3d 26 31 32 0d 24  cc 05 cd 0d 24 d6 0c e7  |q%=&12.$....$...|
00007220  71 25 3d 26 33 61 8c 0d  24 e0 17 e7 43 63 25 3d  |q%=&3a..$...Cc%=|
00007230  31 84 43 63 25 3d 32 20  71 25 3d 26 31 30 0d 24  |1.Cc%=2 q%=&10.$|
00007240  ea 17 e7 43 63 25 3d 38  84 43 63 25 3d 37 20 71  |...Cc%=8.Cc%=7 q|
00007250  25 3d 26 33 61 0d 24 f4  05 cd 0d 24 fe 0c e7 71  |%=&3a.$....$...q|
00007260  25 3d 26 33 62 8c 0d 25  08 17 e7 43 63 25 3d 31  |%=&3b..%...Cc%=1|
00007270  84 43 63 25 3d 32 20 71  25 3d 26 33 62 0d 25 12  |.Cc%=2 q%=&3b.%.|
00007280  17 e7 43 63 25 3d 38 84  43 63 25 3d 37 20 71 25  |..Cc%=8.Cc%=7 q%|
00007290  3d 26 31 33 0d 25 1c 05  cd 0d 25 26 0c e7 71 25  |=&13.%....%&..q%|
000072a0  3d 26 30 36 8c 0d 25 30  17 e7 43 63 25 3d 31 84  |=&06..%0..Cc%=1.|
000072b0  43 63 25 3d 32 20 71 25  3d 26 32 62 0d 25 3a 17  |Cc%=2 q%=&2b.%:.|
000072c0  e7 43 63 25 3d 34 84 43  63 25 3d 33 20 71 25 3d  |.Cc%=4.Cc%=3 q%=|
000072d0  26 31 31 0d 25 44 05 cd  0d 25 4e 09 75 25 3d 71  |&11.%D...%N.u%=q|
000072e0  25 0d 25 58 05 e1 0d 25  6c 0b dd f2 67 5f 3a f2  |%.%X...%l...g_:.|
000072f0  74 0d 25 76 4c f1 27 27  22 20 20 57 6f 75 6c 64  |t.%vL.''"  Would|
00007300  20 79 6f 75 20 6c 69 6b  65 20 74 6f 20 53 61 76  | you like to Sav|
00007310  65 20 74 68 65 20 73 69  74 75 61 74 69 6f 6e 20  |e the situation |
00007320  61 6e 64 20 72 65 2d 63  6f 6e 74 72 6f 6c 20 69  |and re-control i|
00007330  74 20 6c 61 74 65 72 3f  20 59 2f 4e 22 0d 25 80  |t later? Y/N".%.|
00007340  19 f5 3a 63 24 3d be 3a  fd a7 22 59 79 4e 6e 22  |..:c$=.:.."YyNn"|
00007350  2c 63 24 29 3e 30 0d 25  8a 13 e7 63 24 3d 22 4e  |,c$)>0.%...c$="N|
00007360  22 84 63 24 3d 22 6e 22  e1 0d 25 94 2f e8 27 27  |".c$="n"..%./.''|
00007370  22 20 20 57 68 61 74 20  69 73 20 74 68 65 20 6e  |"  What is the n|
00007380  61 6d 65 20 66 6f 72 20  74 68 65 20 66 69 6c 65  |ame for the file|
00007390  3f 20 3a 20 22 45 63 24  0d 25 9e 0c e7 45 63 24  |? : "Ec$.%...Ec$|
000073a0  3d 22 22 e1 0d 25 a8 1f  46 63 24 3d 22 3c 4f 62  |=""..%..Fc$="<Ob|
000073b0  65 79 24 44 69 72 3e 2e  53 61 76 65 64 2e 22 2b  |ey$Dir>.Saved."+|
000073c0  45 63 24 0d 25 b2 33 f1  27 22 20 20 4e 6f 77 20  |Ec$.%.3.'"  Now |
000073d0  73 61 76 69 6e 67 2e 2e  2e 2e 2e 2e 61 70 70 72  |saving......appr|
000073e0  6f 78 2e 20 37 35 6b 20  6f 66 20 64 61 74 61 2e  |ox. 75k of data.|
000073f0  22 27 27 27 27 27 0d 25  bc 0a 43 3d ae 46 63 24  |"'''''.%..C=.Fc$|
00007400  0d 25 c6 18 f1 23 43 2c  61 25 2c 41 25 2c 4b 5f  |.%...#C,a%,A%,K_|
00007410  25 28 38 29 2c 50 60 25  0d 25 d0 23 e3 78 3d 31  |%(8),P`%.%.#.x=1|
00007420  b8 61 25 3a e3 79 3d 31  b8 33 35 3a f1 23 43 2c  |.a%:.y=1.35:.#C,|
00007430  54 25 28 78 2c 79 29 3a  ed 3a ed 0d 25 da 25 e3  |T%(x,y):.:..%.%.|
00007440  78 3d 30 b8 31 32 30 3a  e3 79 3d 30 b8 34 30 3a  |x=0.120:.y=0.40:|
00007450  f1 23 43 2c 71 5f 24 28  78 2c 79 29 3a ed 3a ed  |.#C,q_$(x,y):.:.|
00007460  0d 25 e4 30 e3 78 3d 30  b8 31 32 30 3a e3 79 3d  |.%.0.x=0.120:.y=|
00007470  30 b8 34 30 3a f1 23 43  2c 51 25 28 78 2c 79 2c  |0.40:.#C,Q%(x,y,|
00007480  30 29 2c 51 25 28 78 2c  79 2c 31 29 3a ed 3a ed  |0),Q%(x,y,1):.:.|
00007490  0d 25 ee 22 e3 78 3d 30  b8 38 3a e3 79 3d 30 b8  |.%.".x=0.8:.y=0.|
000074a0  39 3a f1 23 43 2c 72 5f  25 28 78 2c 79 29 3a ed  |9:.#C,r_%(x,y):.|
000074b0  3a ed 0d 25 f8 23 e3 78  3d 30 b8 33 30 3a e3 79  |:..%.#.x=0.30:.y|
000074c0  3d 30 b8 34 3a f1 23 43  2c 73 5f 25 28 78 2c 79  |=0.4:.#C,s_%(x,y|
000074d0  29 3a ed 3a ed 0d 26 02  23 e3 78 3d 30 b8 32 30  |):.:..&.#.x=0.20|
000074e0  3a e3 79 3d 30 b8 39 3a  f1 23 43 2c 76 5f 25 28  |:.y=0.9:.#C,v_%(|
000074f0  78 2c 79 29 3a ed 3a ed  0d 26 0c 18 e3 78 3d 30  |x,y):.:..&...x=0|
00007500  b8 31 32 3a f1 23 43 2c  75 5f 25 28 78 29 3a ed  |.12:.#C,u_%(x):.|
00007510  0d 26 16 17 e3 78 3d 30  b8 32 30 3a f1 23 43 2c  |.&...x=0.20:.#C,|
00007520  44 24 28 78 29 3a ed 0d  26 20 17 e3 78 3d 30 b8  |D$(x):..& ..x=0.|
00007530  36 3a f1 23 43 2c 69 5f  25 28 78 29 3a ed 0d 26  |6:.#C,i_%(x):..&|
00007540  2a 2a e3 78 3d 30 b8 61  25 3a f1 23 43 2c 78 5f  |**.x=0.a%:.#C,x_|
00007550  25 28 78 2c 30 29 2c 78  5f 25 28 78 2c 31 29 2c  |%(x,0),x_%(x,1),|
00007560  78 5f 24 28 78 29 3a ed  0d 26 34 22 e3 78 3d 30  |x_$(x):..&4".x=0|
00007570  b8 34 3a e3 79 3d 30 b8  35 3a f1 23 43 2c 5f 5f  |.4:.y=0.5:.#C,__|
00007580  25 28 78 2c 79 29 3a ed  3a ed 0d 26 3e 23 e3 78  |%(x,y):.:..&>#.x|
00007590  3d 30 b8 31 34 3a f1 23  43 2c 6a 5f 25 28 78 2c  |=0.14:.#C,j_%(x,|
000075a0  31 29 2c 6a 5f 25 28 78  2c 32 29 3a ed 0d 26 48  |1),j_%(x,2):..&H|
000075b0  17 e3 78 3d 30 b8 35 3a  f1 23 43 2c 60 5f 25 28  |..x=0.5:.#C,`_%(|
000075c0  78 29 3a ed 0d 26 52 07  d9 23 43 0d 26 5c 05 db  |x):..&R..#C.&\..|
000075d0  0d 26 66 05 e1 0d 26 7a  08 dd f2 42 5f 0d 26 84  |.&f...&z...B_.&.|
000075e0  22 f1 27 27 22 21 52 61  69 6c 50 72 6f 20 2d 20  |".''"!RailPro - |
000075f0  76 65 72 73 69 6f 6e 20  31 2e 32 22 27 27 27 0d  |version 1.2"'''.|
00007600  26 8e 6d f1 27 22 44 6f  20 79 6f 75 20 77 69 73  |&.m.'"Do you wis|
00007610  68 20 74 6f 3a 22 27 27  22 28 31 29 20 2d 20 53  |h to:"''"(1) - S|
00007620  74 61 72 74 20 61 20 6e  65 77 20 73 74 61 74 69  |tart a new stati|
00007630  6f 6e 2f 63 6f 6e 74 72  6f 6c 22 27 22 28 32 29  |on/control"'"(2)|
00007640  20 2d 20 4c 6f 61 64 20  61 20 73 61 76 65 64 20  | - Load a saved |
00007650  73 69 74 75 61 74 69 6f  6e 22 27 27 22 59 6f 75  |situation"''"You|
00007660  72 20 63 68 6f 69 63 65  2e 2e 2e 22 0d 26 98 17  |r choice...".&..|
00007670  f5 3a 63 24 3d be 3a fd  a7 22 31 32 22 2c 63 24  |.:c$=.:.."12",c$|
00007680  29 3e 30 0d 26 a2 10 e7  63 24 3d 22 31 22 f2 4d  |)>0.&...c$="1".M|
00007690  60 3a e1 0d 26 ac 0d f1  27 27 27 27 27 22 20 22  |`:..&...'''''" "|
000076a0  0d 26 b6 20 ff 28 22 49  4e 46 4f 20 3c 4f 62 65  |.&. .("INFO <Obe|
000076b0  79 24 44 69 72 3e 2e 53  61 76 65 64 2e 2a 22 29  |y$Dir>.Saved.*")|
000076c0  0d 26 c0 31 e8 27 27 22  57 68 61 74 20 69 73 20  |.&.1.''"What is |
000076d0  74 68 65 20 6e 61 6d 65  20 6f 66 20 74 68 65 20  |the name of the |
000076e0  73 61 76 65 64 20 66 69  6c 65 3f 20 20 22 6a 62  |saved file?  "jb|
000076f0  24 0d 26 ca 12 e7 6a 62  24 3d 22 22 db 3a f2 4d  |$.&...jb$="".:.M|
00007700  60 3a e1 0d 26 d4 1f 6b  62 24 3d 22 3c 4f 62 65  |`:..&..kb$="<Obe|
00007710  79 24 44 69 72 3e 2e 53  61 76 65 64 2e 22 2b 6a  |y$Dir>.Saved."+j|
00007720  62 24 0d 26 de 26 e7 a4  69 62 28 6b 62 24 29 3d  |b$.&.&..ib(kb$)=|
00007730  30 f1 22 46 69 6c 65 20  6e 6f 74 20 66 6f 75 6e  |0."File not foun|
00007740  64 22 3a f2 4d 60 3a e1  0d 26 e8 15 f1 27 27 22  |d":.M`:..&...''"|
00007750  4c 6f 61 64 69 6e 67 2e  2e 2e 2e 2e 22 0d 26 f2  |Loading.....".&.|
00007760  0a 43 3d 8e 6b 62 24 0d  26 fc 18 e8 23 43 2c 61  |.C=.kb$.&...#C,a|
00007770  25 2c 41 25 2c 4b 5f 25  28 38 29 2c 50 60 25 0d  |%,A%,K_%(8),P`%.|
00007780  27 06 23 e3 78 3d 31 b8  61 25 3a e3 79 3d 31 b8  |'.#.x=1.a%:.y=1.|
00007790  33 35 3a e8 23 43 2c 54  25 28 78 2c 79 29 3a ed  |35:.#C,T%(x,y):.|
000077a0  3a ed 0d 27 10 25 e3 78  3d 30 b8 31 32 30 3a e3  |:..'.%.x=0.120:.|
000077b0  79 3d 30 b8 34 30 3a e8  23 43 2c 71 5f 24 28 78  |y=0.40:.#C,q_$(x|
000077c0  2c 79 29 3a ed 3a ed 0d  27 1a 30 e3 78 3d 30 b8  |,y):.:..'.0.x=0.|
000077d0  31 32 30 3a e3 79 3d 30  b8 34 30 3a e8 23 43 2c  |120:.y=0.40:.#C,|
000077e0  51 25 28 78 2c 79 2c 30  29 2c 51 25 28 78 2c 79  |Q%(x,y,0),Q%(x,y|
000077f0  2c 31 29 3a ed 3a ed 0d  27 24 22 e3 78 3d 30 b8  |,1):.:..'$".x=0.|
00007800  38 3a e3 79 3d 30 b8 39  3a e8 23 43 2c 72 5f 25  |8:.y=0.9:.#C,r_%|
00007810  28 78 2c 79 29 3a ed 3a  ed 0d 27 2e 23 e3 78 3d  |(x,y):.:..'.#.x=|
00007820  30 b8 33 30 3a e3 79 3d  30 b8 34 3a e8 23 43 2c  |0.30:.y=0.4:.#C,|
00007830  73 5f 25 28 78 2c 79 29  3a ed 3a ed 0d 27 38 23  |s_%(x,y):.:..'8#|
00007840  e3 78 3d 30 b8 32 30 3a  e3 79 3d 30 b8 39 3a e8  |.x=0.20:.y=0.9:.|
00007850  23 43 2c 76 5f 25 28 78  2c 79 29 3a ed 3a ed 0d  |#C,v_%(x,y):.:..|
00007860  27 42 18 e3 78 3d 30 b8  31 32 3a e8 23 43 2c 75  |'B..x=0.12:.#C,u|
00007870  5f 25 28 78 29 3a ed 0d  27 4c 17 e3 78 3d 30 b8  |_%(x):..'L..x=0.|
00007880  32 30 3a e8 23 43 2c 44  24 28 78 29 3a ed 0d 27  |20:.#C,D$(x):..'|
00007890  56 17 e3 78 3d 30 b8 36  3a e8 23 43 2c 69 5f 25  |V..x=0.6:.#C,i_%|
000078a0  28 78 29 3a ed 0d 27 60  2a e3 78 3d 30 b8 61 25  |(x):..'`*.x=0.a%|
000078b0  3a e8 23 43 2c 78 5f 25  28 78 2c 30 29 2c 78 5f  |:.#C,x_%(x,0),x_|
000078c0  25 28 78 2c 31 29 2c 78  5f 24 28 78 29 3a ed 0d  |%(x,1),x_$(x):..|
000078d0  27 6a 22 e3 78 3d 30 b8  34 3a e3 79 3d 30 b8 35  |'j".x=0.4:.y=0.5|
000078e0  3a e8 23 43 2c 5f 5f 25  28 78 2c 79 29 3a ed 3a  |:.#C,__%(x,y):.:|
000078f0  ed 0d 27 74 23 e3 78 3d  30 b8 31 34 3a e8 23 43  |..'t#.x=0.14:.#C|
00007900  2c 6a 5f 25 28 78 2c 31  29 2c 6a 5f 25 28 78 2c  |,j_%(x,1),j_%(x,|
00007910  32 29 3a ed 0d 27 7e 17  e3 78 3d 30 b8 35 3a e8  |2):..'~..x=0.5:.|
00007920  23 43 2c 60 5f 25 28 78  29 3a ed 0d 27 88 07 d9  |#C,`_%(x):..'...|
00007930  23 43 0d 27 92 10 45 5f  25 3d 31 3a d1 3d 41 25  |#C.'..E_%=1:.=A%|
00007940  3a db 0d 27 9c 07 f2 51  60 0d 27 a6 0b e3 78 3d  |:..'...Q`.'...x=|
00007950  31 b8 61 25 0d 27 b0 23  e7 54 25 28 78 2c 31 29  |1.a%.'.#.T%(x,1)|
00007960  3c 3e 30 80 54 25 28 78  2c 33 29 3d 30 20 44 60  |<>0.T%(x,3)=0 D`|
00007970  25 3d 44 60 25 2b 31 0d  27 ba 05 ed 0d 27 ce 05  |%=D`%+1.'....'..|
00007980  e1 0d 27 e2 0e dd f2 5a  62 3a f2 61 60 3a da 0d  |..'....Zb:.a`:..|
00007990  27 ec 35 21 70 5f 25 3d  31 3a 70 5f 25 21 34 3d  |'.5!p_%=1:p_%!4=|
000079a0  31 3a 70 5f 25 21 38 3d  34 3a 70 5f 25 21 31 32  |1:p_%!8=4:p_%!12|
000079b0  3d 34 3a 53 24 3d 71 5f  24 28 31 2c 31 29 3a 47  |=4:S$=q_$(1,1):G|
000079c0  63 3d 31 30 0d 27 f6 1f  c8 99 32 36 34 30 30 30  |c=10.'....264000|
000079d0  2c 6e 5f 25 2c 53 24 2c  2d 31 2c 2d 31 2c 6f 5f  |,n_%,S$,-1,-1,o_|
000079e0  25 2c 32 0d 28 00 14 e3  76 3d 30 b8 31 32 30 3a  |%,2.(...v=0.120:|
000079f0  e3 77 3d 30 b8 34 30 0d  28 0a 1a 48 63 3d 76 2a  |.w=0.40.(..Hc=v*|
00007a00  47 63 2b 33 30 3a 49 63  3d 77 2a 47 63 2b 32 30  |Gc+30:Ic=w*Gc+20|
00007a10  30 0d 28 14 16 53 24 3d  71 5f 24 28 76 2c 77 29  |0.(..S$=q_$(v,w)|
00007a20  3a 64 60 24 3d 53 24 0d  28 1e 1a e7 c0 53 24 2c  |:d`$=S$.(....S$,|
00007a30  31 29 3c 3e 22 39 22 80  53 24 3c 3e 22 30 30 22  |1)<>"9".S$<>"00"|
00007a40  8c 0d 28 28 24 c8 99 26  32 45 2c 33 30 38 2c 6e  |..(($..&2E,308,n|
00007a50  5f 25 2c 53 24 2c 48 63  2c 49 63 2c 30 2c 70 5f  |_%,S$,Hc,Ic,0,p_|
00007a60  25 2c 6f 5f 25 0d 28 32  05 cd 0d 28 46 07 ed 3a  |%,o_%.(2...(F..:|
00007a70  ed 0d 28 50 0c e3 6d 25  3d 31 b8 61 25 0d 28 5a  |..(P..m%=1.a%.(Z|
00007a80  57 62 61 25 3d 54 25 28  6d 25 2c 31 30 29 3a 63  |Wba%=T%(m%,10):c|
00007a90  61 25 3d 54 25 28 6d 25  2c 31 31 29 3a 64 61 25  |a%=T%(m%,11):da%|
00007aa0  3d 54 25 28 6d 25 2c 31  32 29 3a 65 61 25 3d 54  |=T%(m%,12):ea%=T|
00007ab0  25 28 6d 25 2c 31 33 29  3a 66 61 25 3d 54 25 28  |%(m%,13):fa%=T%(|
00007ac0  6d 25 2c 31 34 29 3a 67  61 25 3d 54 25 28 6d 25  |m%,14):ga%=T%(m%|
00007ad0  2c 31 35 29 0d 28 64 4e  52 61 24 3d 22 69 22 2b  |,15).(dNRa$="i"+|
00007ae0  c3 28 51 25 28 62 61 25  2c 63 61 25 2c 30 29 29  |.(Q%(ba%,ca%,0))|
00007af0  3a 53 61 24 3d 22 69 22  2b c3 28 51 25 28 64 61  |:Sa$="i"+.(Q%(da|
00007b00  25 2c 65 61 25 2c 30 29  29 3a 54 61 24 3d 22 69  |%,ea%,0)):Ta$="i|
00007b10  22 2b c3 28 51 25 28 66  61 25 2c 67 61 25 2c 30  |"+.(Q%(fa%,ga%,0|
00007b20  29 29 0d 28 6e 2a 4c 25  3d 54 25 28 6d 25 2c 31  |)).(n*L%=T%(m%,1|
00007b30  30 29 2a 47 63 2b 33 30  3a 48 25 3d 54 25 28 6d  |0)*Gc+30:H%=T%(m|
00007b40  25 2c 31 31 29 2a 47 63  2b 32 30 30 0d 28 78 25  |%,11)*Gc+200.(x%|
00007b50  c8 99 26 32 45 2c 33 30  38 2c 6e 5f 25 2c 52 61  |..&2E,308,n_%,Ra|
00007b60  24 2c 4c 25 2c 48 25 2c  38 2c 70 5f 25 2c 6f 5f  |$,L%,H%,8,p_%,o_|
00007b70  25 0d 28 82 2a 4c 25 3d  54 25 28 6d 25 2c 31 32  |%.(.*L%=T%(m%,12|
00007b80  29 2a 47 63 2b 33 30 3a  48 25 3d 54 25 28 6d 25  |)*Gc+30:H%=T%(m%|
00007b90  2c 31 33 29 2a 47 63 2b  32 30 30 0d 28 8c 25 c8  |,13)*Gc+200.(.%.|
00007ba0  99 26 32 45 2c 33 30 38  2c 6e 5f 25 2c 53 61 24  |.&2E,308,n_%,Sa$|
00007bb0  2c 4c 25 2c 48 25 2c 38  2c 70 5f 25 2c 6f 5f 25  |,L%,H%,8,p_%,o_%|
00007bc0  0d 28 96 2a 4c 25 3d 54  25 28 6d 25 2c 31 34 29  |.(.*L%=T%(m%,14)|
00007bd0  2a 47 63 2b 33 30 3a 48  25 3d 54 25 28 6d 25 2c  |*Gc+30:H%=T%(m%,|
00007be0  31 35 29 2a 47 63 2b 32  30 30 0d 28 a0 25 c8 99  |15)*Gc+200.(.%..|
00007bf0  26 32 45 2c 33 30 38 2c  6e 5f 25 2c 54 61 24 2c  |&2E,308,n_%,Ta$,|
00007c00  4c 25 2c 48 25 2c 38 2c  70 5f 25 2c 6f 5f 25 0d  |L%,H%,8,p_%,o_%.|
00007c10  28 aa 05 ed 0d 28 b4 05  e1 0d 28 c8 0e dd f2 6d  |(....(....(....m|
00007c20  5f 3a 4a 63 25 3d 30 0d  28 d2 21 e7 a4 69 62 28  |_:Jc%=0.(.!..ib(|
00007c30  22 3c 4f 62 65 79 24 44  69 72 3e 2e 53 63 6f 72  |"<Obey$Dir>.Scor|
00007c40  65 73 22 29 3d 30 3a e1  0d 28 dc 16 e7 69 5f 25  |es")=0:..(...i_%|
00007c50  28 36 29 2d 69 5f 25 28  32 29 3c 3d 30 e1 0d 28  |(6)-i_%(2)<=0..(|
00007c60  e6 16 4b 63 25 3d a8 28  6a 5f 25 28 36 2c 32 29  |..Kc%=.(j_%(6,2)|
00007c70  2f 32 30 29 0d 28 f0 1a  43 3d 8e 22 3c 4f 62 65  |/20).(..C=."<Obe|
00007c80  79 24 44 69 72 3e 2e 53  63 6f 72 65 73 22 0d 28  |y$Dir>.Scores".(|
00007c90  fa 1f e3 76 3d 31 b8 31  30 3a e8 23 43 2c 7a 5f  |...v=1.10:.#C,z_|
00007ca0  24 28 76 29 2c 7a 5f 25  28 76 29 3a ed 0d 29 04  |$(v),z_%(v):..).|
00007cb0  07 d9 23 43 0d 29 0e 12  e7 4b 63 25 3e 3d 7a 5f  |..#C.)...Kc%>=z_|
00007cc0  25 28 31 30 29 8c 0d 29  18 0e ef 34 3a db 3a f1  |%(10)..)...4:.:.|
00007cd0  27 27 27 27 0d 29 22 3b  e7 49 5f 25 3d 31 f1 22  |''''.)";.I_%=1."|
00007ce0  20 44 65 73 70 69 74 65  20 74 68 65 20 64 69 73  | Despite the dis|
00007cf0  61 73 74 72 6f 75 73 20  65 6e 64 69 6e 67 20 6f  |astrous ending o|
00007d00  66 20 79 6f 75 72 20 6a  6f 62 2e 2e 2e 2e 22 0d  |f your job....".|
00007d10  29 2c 42 f1 22 20 59 6f  75 72 20 63 6f 6e 74 72  |),B." Your contr|
00007d20  6f 6c 6c 69 6e 67 20 68  61 73 20 65 61 72 6e 65  |olling has earne|
00007d30  64 20 79 6f 75 20 61 20  70 6c 61 63 65 20 69 6e  |d you a place in|
00007d40  20 74 68 65 20 62 6f 6e  75 73 6c 69 73 74 22 27  | the bonuslist"'|
00007d50  27 0d 29 36 20 e8 22 20  57 68 61 74 20 69 73 20  |'.)6 ." What is |
00007d60  79 6f 75 72 20 6e 61 6d  65 20 3f 20 20 22 4c 63  |your name ?  "Lc|
00007d70  24 0d 29 40 1d e7 4c 63  24 3d 22 22 20 4c 63 24  |$.)@..Lc$="" Lc$|
00007d80  3d 22 55 6e 73 70 65 6c  6c 61 62 6c 65 22 0d 29  |="Unspellable".)|
00007d90  4a 1b e7 a9 28 4c 63 24  29 3e 31 35 20 4c 63 24  |J...(Lc$)>15 Lc$|
00007da0  3d c0 4c 63 24 2c 31 35  29 0d 29 54 21 7a 5f 25  |=.Lc$,15).)T!z_%|
00007db0  28 31 30 29 3d 4b 63 25  3a 7a 5f 24 28 31 30 29  |(10)=Kc%:z_$(10)|
00007dc0  3d 4c 63 24 3a 4a 63 25  3d 31 0d 29 5e 0f e3 4b  |=Lc$:Jc%=1.)^..K|
00007dd0  60 3d 31 30 b8 32 88 2d  31 0d 29 68 3d e7 7a 5f  |`=10.2.-1.)h=.z_|
00007de0  25 28 4b 60 29 3e 7a 5f  25 28 4b 60 2d 31 29 c8  |%(K`)>z_%(K`-1).|
00007df0  94 7a 5f 25 28 4b 60 29  2c 7a 5f 25 28 4b 60 2d  |.z_%(K`),z_%(K`-|
00007e00  31 29 3a c8 94 7a 5f 24  28 4b 60 29 2c 7a 5f 24  |1):..z_$(K`),z_$|
00007e10  28 4b 60 2d 31 29 0d 29  72 05 ed 0d 29 7c 05 cd  |(K`-1).)r...)|..|
00007e20  0d 29 86 1e ef 32 38 2c  32 33 2c 34 35 2c 35 36  |.)...28,23,45,56|
00007e30  2c 31 32 3a fb 31 37 36  3a db 3a fb 36 32 0d 29  |,12:.176:.:.62.)|
00007e40  90 3a f1 27 27 8a 38 29  3b 22 42 4f 4e 55 53 4c  |.:.''.8);"BONUSL|
00007e50  49 53 54 20 20 21 52 61  69 6c 50 72 6f 22 3b 8a  |IST  !RailPro";.|
00007e60  38 29 3b 22 7e 7e 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |8);"~~~~~~~~~~~~|
00007e70  7e 7e 7e 7e 7e 7e 7e 22  0d 29 9a 0c f4 20 50 52  |~~~~~~~".)... PR|
00007e80  49 4e 54 27 0d 29 a4 30  e3 76 3d 31 b8 39 3a f1  |INT'.).0.v=1.9:.|
00007e90  27 22 20 20 20 20 20 22  3b 76 3b 22 20 20 22 3b  |'"     ";v;"  ";|
00007ea0  7a 5f 24 28 76 29 3b 8a  32 35 29 3b 7a 5f 25 28  |z_$(v);.25);z_%(|
00007eb0  76 29 3a ed 0d 29 ae 2d  76 3d 31 30 3a f1 27 22  |v):..).-v=10:.'"|
00007ec0  20 20 20 20 22 3b 76 3b  22 20 20 22 3b 7a 5f 24  |    ";v;"  ";z_$|
00007ed0  28 31 30 29 3b 8a 32 35  29 3b 7a 5f 25 28 31 30  |(10);.25);z_%(10|
00007ee0  29 0d 29 b8 0b e7 4a 63  25 3d 31 8c 0d 29 c2 1a  |).)...Jc%=1..)..|
00007ef0  43 3d ae 22 3c 4f 62 65  79 24 44 69 72 3e 2e 53  |C=."<Obey$Dir>.S|
00007f00  63 6f 72 65 73 22 0d 29  cc 1f e3 76 3d 31 b8 31  |cores".)...v=1.1|
00007f10  30 3a f1 23 43 2c 7a 5f  24 28 76 29 2c 7a 5f 25  |0:.#C,z_$(v),z_%|
00007f20  28 76 29 3a ed 0d 29 d6  07 d9 23 43 0d 29 e0 05  |(v):..)...#C.)..|
00007f30  cd 0d 29 ea 26 e7 4a 63  25 3d 30 f1 27 22 20 20  |..).&.Jc%=0.'"  |
00007f40  20 20 20 59 6f 75 72 20  62 6f 6e 75 73 20 69 73  |   Your bonus is|
00007f50  3a 20 22 3b 4b 63 25 0d  29 f4 70 fb 36 30 3a f1  |: ";Kc%.).p.60:.|
00007f60  27 22 20 20 20 20 44 65  74 61 69 6c 73 20 6f 66  |'"    Details of|
00007f70  20 79 6f 75 72 20 70 65  72 66 6f 72 6d 61 6e 63  | your performanc|
00007f80  65 22 27 22 20 20 20 20  63 61 6e 20 62 65 20 66  |e"'"    can be f|
00007f90  6f 75 6e 64 20 69 6e 20  74 68 65 20 4c 6f 67 66  |ound in the Logf|
00007fa0  69 6c 65 22 27 27 27 22  20 20 20 20 20 50 72 65  |ile"'''"     Pre|
00007fb0  73 73 20 2d 20 43 20 2d  20 74 6f 20 63 6f 6e 74  |ss - C - to cont|
00007fc0  69 6e 75 65 2e 2e 22 0d  29 fe 17 f5 3a 61 62 24  |inue..".)...:ab$|
00007fd0  3d be 3a fd a7 22 43 63  22 2c 61 62 24 29 0d 2a  |=.:.."Cc",ab$).*|
00007fe0  08 07 eb 32 38 0d 2a 12  05 e1 0d 2a 26 14 dd f2  |...28.*....*&...|
00007ff0  45 61 3a 61 3d 30 3a 62  3d 30 3a 63 3d 31 0d 2a  |Ea:a=0:b=0:c=1.*|
00008000  30 10 e7 5f 5f 25 28 63  2c 30 29 3d 30 8c 0d 2a  |0..__%(c,0)=0..*|
00008010  3a 14 61 3d b3 28 31 31  35 29 3a 62 3d b3 28 33  |:.a=.(115):b=.(3|
00008020  39 29 0d 2a 44 45 e7 28  71 5f 24 28 61 2c 62 29  |9).*DE.(q_$(a,b)|
00008030  3d 22 31 30 22 84 71 5f  24 28 61 2c 62 29 3d 22  |="10".q_$(a,b)="|
00008040  30 37 22 29 80 28 71 5f  24 28 61 2b 31 2c 62 29  |07").(q_$(a+1,b)|
00008050  3d 22 31 30 22 84 71 5f  24 28 61 2b 31 2c 62 29  |="10".q_$(a+1,b)|
00008060  3d 22 30 37 22 29 8c 0d  2a 4e 47 e7 a7 22 37 30  |="07")..*NG.."70|
00008070  37 31 20 30 62 30 63 30  64 30 65 30 35 22 2c 71  |71 0b0c0d0e05",q|
00008080  5f 24 28 61 2d 31 2c 62  29 29 3d 30 80 a7 22 37  |_$(a-1,b))=0.."7|
00008090  30 37 31 20 30 62 30 63  30 64 30 65 30 35 22 2c  |071 0b0c0d0e05",|
000080a0  71 5f 24 28 61 2b 32 2c  62 29 29 3d 30 8c 0d 2a  |q_$(a+2,b))=0..*|
000080b0  58 3b e7 51 25 28 61 2c  62 2c 31 29 3d 30 80 51  |X;.Q%(a,b,1)=0.Q|
000080c0  25 28 61 2d 32 2c 62 2c  31 29 3d 30 80 51 25 28  |%(a-2,b,1)=0.Q%(|
000080d0  61 2b 32 2c 62 2c 31 29  3d 30 80 51 25 28 61 2b  |a+2,b,1)=0.Q%(a+|
000080e0  34 2c 62 2c 31 29 3d 30  8c 0d 2a 62 0e f2 61 5f  |4,b,1)=0..*b..a_|
000080f0  28 61 2c 62 2c 62 29 0d  2a 6c 3b 5f 5f 25 28 63  |(a,b,b).*l;__%(c|
00008100  2c 30 29 3d 31 3a 5f 5f  25 28 63 2c 31 29 3d 61  |,0)=1:__%(c,1)=a|
00008110  3a 5f 5f 25 28 63 2c 32  29 3d 61 2b 31 3a 5f 5f  |:__%(c,2)=a+1:__|
00008120  25 28 63 2c 34 29 3d 62  3a f2 4d 63 28 22 30 37  |%(c,4)=b:.Mc("07|
00008130  22 29 0d 2a 76 3d 5f 5f  25 28 63 2c 35 29 3d b3  |").*v=__%(c,5)=.|
00008140  28 36 30 30 30 30 29 3a  e7 5f 5f 25 28 63 2c 35  |(60000):.__%(c,5|
00008150  29 3c 31 32 30 30 30 20  5f 5f 25 28 63 2c 35 29  |)<12000 __%(c,5)|
00008160  3d 5f 5f 25 28 63 2c 35  29 2b 31 38 30 30 30 0d  |=__%(c,5)+18000.|
00008170  2a 80 17 5f 5f 25 28 63  2c 35 29 3d 5f 5f 25 28  |*..__%(c,5)=__%(|
00008180  63 2c 35 29 2b 91 0d 2a  8a 13 ff 28 22 53 70 6c  |c,5)+..*...("Spl|
00008190  61 79 5f 61 63 63 6f 22  29 0d 2a 94 b3 f2 5f 60  |ay_acco").*..._`|
000081a0  3a f1 27 22 20 4d 61 69  6e 74 65 6e 61 6e 63 65  |:.'" Maintenance|
000081b0  20 68 61 73 20 73 74 61  72 74 65 64 20 6f 6e 20  | has started on |
000081c0  73 6f 6d 65 20 74 72 61  63 6b 2e 22 27 27 22 20  |some track."''" |
000081d0  54 72 61 69 6e 73 20 61  72 65 20 61 6c 6c 6f 77  |Trains are allow|
000081e0  65 64 20 6f 6e 20 6c 6f  77 65 73 74 20 73 70 65  |ed on lowest spe|
000081f0  65 64 21 22 27 27 22 20  4f 74 68 65 72 20 73 70  |ed!"''" Other sp|
00008200  65 65 64 73 20 77 69 6c  6c 20 6c 65 61 64 20 74  |eeds will lead t|
00008210  6f 20 61 20 64 65 72 61  69 6c 6d 65 6e 74 21 21  |o a derailment!!|
00008220  2e 22 3a f2 60 60 3a 69  5f 25 28 35 29 3d 69 5f  |.":.``:i_%(5)=i_|
00008230  25 28 35 29 2b 31 35 30  3a 6a 5f 25 28 35 2c 31  |%(5)+150:j_%(5,1|
00008240  29 3d 6a 5f 25 28 35 2c  31 29 2b 31 0d 2a 9e 19  |)=j_%(5,1)+1.*..|
00008250  6a 5f 25 28 35 2c 32 29  3d 6a 5f 25 28 35 2c 32  |j_%(5,2)=j_%(5,2|
00008260  29 2b 31 35 30 0d 2a a8  15 41 60 25 3d 91 2b 31  |)+150.*..A`%=.+1|
00008270  30 30 30 3a 63 3d 31 3a  ef 35 0d 2a b2 05 cd 0d  |000:c=1:.5.*....|
00008280  2a bc 05 cd 0d 2a c6 05  cd 0d 2a d0 05 e1 0d 2a  |*....*....*....*|
00008290  da 05 cd 0d 2a e4 05 e1  0d 2a f8 14 dd f2 47 61  |....*....*....Ga|
000082a0  3a 61 3d 30 3a 62 3d 30  3a 63 3d 31 0d 2b 02 1b  |:a=0:b=0:c=1.+..|
000082b0  e7 5f 5f 25 28 63 2c 30  29 3d 31 80 91 3e 5f 5f  |.__%(c,0)=1..>__|
000082c0  25 28 63 2c 35 29 8c 0d  2b 0c 23 f2 61 5f 28 5f  |%(c,5)..+.#.a_(_|
000082d0  5f 25 28 63 2c 31 29 2c  5f 5f 25 28 63 2c 34 29  |_%(c,1),__%(c,4)|
000082e0  2c 5f 5f 25 28 63 2c 34  29 29 0d 2b 16 23 61 3d  |,__%(c,4)).+.#a=|
000082f0  5f 5f 25 28 63 2c 31 29  3a 62 3d 5f 5f 25 28 63  |__%(c,1):b=__%(c|
00008300  2c 34 29 3a f2 4d 63 28  22 31 30 22 29 0d 2b 20  |,4):.Mc("10").+ |
00008310  0b f2 65 60 3a f2 66 60  0d 2b 2a 14 ff 28 22 53  |..e`:.f`.+*..("S|
00008320  70 6c 61 79 5f 74 72 65  69 32 22 29 0d 2b 34 94  |play_trei2").+4.|
00008330  f2 5f 60 3a f1 27 22 20  4d 61 69 6e 74 65 6e 61  |._`:.'" Maintena|
00008340  6e 63 65 20 68 61 73 20  63 6c 65 61 72 65 64 20  |nce has cleared |
00008350  74 72 61 63 6b 20 61 66  74 65 72 20 77 6f 72 6b  |track after work|
00008360  2e 22 27 27 22 20 4e 6f  20 73 70 65 65 64 2d 72  |."''" No speed-r|
00008370  65 73 74 72 69 63 74 69  6f 6e 20 61 6e 79 6d 6f  |estriction anymo|
00008380  72 65 20 61 74 20 74 68  61 74 20 70 6f 69 6e 74  |re at that point|
00008390  22 27 27 22 20 46 75 6c  6c 20 73 70 65 65 64 20  |"''" Full speed |
000083a0  74 72 61 66 66 69 63 20  69 73 20 61 6c 6c 6f 77  |traffic is allow|
000083b0  65 64 20 61 67 61 69 6e  2e 2e 2e 22 3a f2 60 60  |ed again...":.``|
000083c0  0d 2b 3e 10 41 60 25 3d  91 2b 35 30 30 3a ef 35  |.+>.A`%=.+500:.5|
000083d0  0d 2b 48 19 e3 4e 63 3d  30 b8 35 3a 5f 5f 25 28  |.+H..Nc=0.5:__%(|
000083e0  63 2c 4e 63 29 3d 30 3a  ed 0d 2b 52 05 cd 0d 2b  |c,Nc)=0:..+R...+|
000083f0  5c 05 e1 0d 2b 70 08 dd  f2 7a 61 0d 2b 7a 1d 6c  |\...+p...za.+z.l|
00008400  61 25 3d 33 36 3a f2 74  3a ff 28 22 53 70 6c 61  |a%=36:.t:.("Spla|
00008410  79 5f 61 70 6c 61 22 29  0d 2b 84 f6 f1 27 22 20  |y_apla").+...'" |
00008420  54 72 61 69 6e 20 22 3b  74 5f 24 28 54 25 28 6d  |Train ";t_$(T%(m|
00008430  25 2c 32 29 29 3b 22 2d  22 3b 54 25 28 6d 25 2c  |%,2));"-";T%(m%,|
00008440  31 29 3b 22 20 63 72 61  73 68 65 64 20 61 74 20  |1);" crashed at |
00008450  61 20 74 72 61 63 6b 20  69 6e 20 6d 61 69 6e 74  |a track in maint|
00008460  65 6e 61 6e 63 65 21 21  21 22 27 27 22 44 61 6d  |enance!!!"''"Dam|
00008470  61 67 65 20 69 73 20 65  6e 6f 72 6d 6f 75 73 20  |age is enormous |
00008480  61 6e 64 20 74 68 65 20  6c 69 6e 65 28 73 29 20  |and the line(s) |
00008490  6f 6e 20 74 68 61 74 20  73 70 6f 74 20 77 69 6c  |on that spot wil|
000084a0  6c 20 62 65 22 27 22 75  6e 61 76 61 69 6c 61 62  |l be"'"unavailab|
000084b0  6c 65 20 66 6f 72 20 31  30 20 6d 6f 72 65 20 6d  |le for 10 more m|
000084c0  69 6e 75 74 65 73 2c 20  61 73 20 77 6f 72 6b 6d  |inutes, as workm|
000084d0  65 6e 20 68 61 76 65 20  74 6f 20 63 6c 65 61 72  |en have to clear|
000084e0  20 74 68 65 20 74 72 61  63 6b 2e 22 27 22 54 68  | the track."'"Th|
000084f0  69 73 20 63 6f 73 74 73  20 79 6f 75 72 20 63 6f  |is costs your co|
00008500  6d 70 61 6e 79 20 23 20  31 35 30 30 2e 22 0d 2b  |mpany # 1500.".+|
00008510  8e 42 46 60 25 3d 35 3a  e7 54 25 28 6d 25 2c 33  |.BF`%=5:.T%(m%,3|
00008520  29 3e 30 3a 54 25 28 6d  25 2c 32 31 29 3d 54 25  |)>0:T%(m%,21)=T%|
00008530  28 6d 25 2c 32 31 29 2d  31 35 30 30 3a f2 49 62  |(m%,21)-1500:.Ib|
00008540  3a 69 5f 25 28 32 29 3d  69 5f 25 28 32 29 2b 31  |:i_%(2)=i_%(2)+1|
00008550  0d 2b 98 2e 6a 5f 25 28  37 2c 31 29 3d 6a 5f 25  |.+..j_%(7,1)=j_%|
00008560  28 37 2c 31 29 2b 31 3a  6a 5f 25 28 37 2c 32 29  |(7,1)+1:j_%(7,2)|
00008570  3d 6a 5f 25 28 37 2c 32  29 2b 31 35 30 30 0d 2b  |=j_%(7,2)+1500.+|
00008580  a2 0a e3 63 3d 30 b8 31  0d 2b ac 64 e7 5f 5f 25  |...c=0.1.+.d.__%|
00008590  28 63 2c 30 29 3d 31 80  28 54 25 28 6d 25 2c 31  |(c,0)=1.(T%(m%,1|
000085a0  30 29 3d 5f 5f 25 28 63  2c 31 29 84 54 25 28 6d  |0)=__%(c,1).T%(m|
000085b0  25 2c 31 30 29 3d 5f 5f  25 28 63 2c 31 29 2b 31  |%,10)=__%(c,1)+1|
000085c0  29 80 54 25 28 6d 25 2c  31 31 29 3d 5f 5f 25 28  |).T%(m%,11)=__%(|
000085d0  63 2c 34 29 3a 5f 5f 25  28 63 2c 35 29 3d 5f 5f  |c,4):__%(c,5)=__|
000085e0  25 28 63 2c 35 29 2b 36  30 30 30 30 0d 2b b6 05  |%(c,5)+60000.+..|
000085f0  ed 0d 2b c0 05 e1 0d 2b  d4 12 dd f2 61 5f 28 4f  |..+....+....a_(O|
00008600  63 2c 51 63 2c 52 63 29  0d 2b de 0d 5f 62 3d 30  |c,Qc,Rc).+.._b=0|
00008610  3a 60 62 3d 30 0d 2b e8  0c e7 4f 63 3c 4d 5f 25  |:`b=0.+...Oc<M_%|
00008620  8c 0d 2b f2 1d f5 3a 4d  5f 25 3d 4d 5f 25 2d 32  |..+...:M_%=M_%-2|
00008630  35 3a fd 4d 5f 25 3c 4f  63 3a 5f 62 3d 31 0d 2b  |5:.M_%<Oc:_b=1.+|
00008640  fc 05 cd 0d 2c 06 14 e7  5f 62 3d 30 80 4f 63 3e  |....,..._b=0.Oc>|
00008650  4d 5f 25 2b 33 30 8c 0d  2c 10 20 f5 3a 4d 5f 25  |M_%+30..,. .:M_%|
00008660  3d 4d 5f 25 2b 32 35 3a  fd 4d 5f 25 2b 33 30 3e  |=M_%+25:.M_%+30>|
00008670  4f 63 3a 5f 62 3d 31 0d  2c 1a 05 cd 0d 2c 24 0f  |Oc:_b=1.,....,$.|
00008680  e7 51 63 3e 4c 5f 25 2b  31 39 8c 0d 2c 2e 20 f5  |.Qc>L_%+19..,. .|
00008690  3a 4c 5f 25 3d 4c 5f 25  2b 31 30 3a fd 4c 5f 25  |:L_%=L_%+10:.L_%|
000086a0  2b 32 30 3e 51 63 3a 60  62 3d 31 0d 2c 38 05 cd  |+20>Qc:`b=1.,8..|
000086b0  0d 2c 42 11 e7 60 62 3d  30 80 52 63 3c 4c 5f 25  |.,B..`b=0.Rc<L_%|
000086c0  8c 0d 2c 4c 1d f5 3a 4c  5f 25 3d 4c 5f 25 2d 31  |..,L..:L_%=L_%-1|
000086d0  30 3a fd 4c 5f 25 3c 51  63 3a 60 62 3d 31 0d 2c  |0:.L_%<Qc:`b=1.,|
000086e0  56 05 cd 0d 2c 60 18 e7  5f 62 3d 31 84 60 62 3d  |V...,`.._b=1.`b=|
000086f0  31 20 5a 5f 25 3d 31 3a  f2 43 5f 0d 2c 6a 05 e1  |1 Z_%=1:.C_.,j..|
00008700  0d 2c 7e 0a dd f2 56 5f  3a e1 0d 2c 88 16 e7 56  |.,~...V_:..,...V|
00008710  5f 25 3d 31 20 56 5f 25  3d 30 8b 56 5f 25 3d 31  |_%=1 V_%=0.V_%=1|
00008720  0d 2c 92 57 e7 56 5f 25  3d 31 f2 5f 60 3a f1 27  |.,.W.V_%=1._`:.'|
00008730  27 22 20 54 72 61 63 6b  20 6d 61 69 6e 74 65 6e  |'" Track mainten|
00008740  61 6e 63 65 20 63 72 65  77 73 20 77 69 6c 6c 20  |ance crews will |
00008750  62 65 22 27 27 22 20 73  65 6e 74 20 6f 75 74 20  |be"''" sent out |
00008760  74 6f 20 77 6f 72 6b 20  6f 6e 20 74 72 61 63 6b  |to work on track|
00008770  73 2e 22 3a f2 60 60 0d  2c 9c 6b e7 56 5f 25 3d  |s.":.``.,.k.V_%=|
00008780  30 f2 5f 60 3a f1 27 27  22 20 54 72 61 63 6b 20  |0._`:.''" Track |
00008790  6d 61 69 6e 74 65 6e 61  6e 63 65 20 63 72 65 77  |maintenance crew|
000087a0  73 20 77 69 6c 6c 20 62  65 20 73 65 6e 74 20 68  |s will be sent h|
000087b0  6f 6d 65 22 27 27 22 20  77 68 65 6e 20 66 69 6e  |ome"''" when fin|
000087c0  69 73 68 65 64 20 77 6f  72 6b 69 6e 67 20 6f 6e  |ished working on|
000087d0  20 73 6f 6d 65 20 74 72  61 63 6b 2e 2e 22 3a f2  | some track..":.|
000087e0  60 60 0d 2c a6 0b f2 44  5f 28 32 30 29 0d 2c b0  |``.,...D_(20).,.|
000087f0  05 e1 0d 2c c4 2a dd f2  54 62 3a 69 5f 25 28 35  |...,.*..Tb:i_%(5|
00008800  29 3d 69 5f 25 28 35 29  2b 54 25 28 6d 25 2c 32  |)=i_%(5)+T%(m%,2|
00008810  31 29 2d 54 25 28 6d 25  2c 32 34 29 0d 2c ce 1f  |1)-T%(m%,24).,..|
00008820  6a 5f 25 28 32 2c 32 29  3d 6a 5f 25 28 32 2c 32  |j_%(2,2)=j_%(2,2|
00008830  29 2d 54 25 28 6d 25 2c  32 34 29 0d 2c d8 3f 54  |)-T%(m%,24).,.?T|
00008840  25 28 6d 25 2c 33 29 3d  30 3a 54 25 28 6d 25 2c  |%(m%,3)=0:T%(m%,|
00008850  34 29 3d 91 3a 54 25 28  6d 25 2c 32 35 29 3d 91  |4)=.:T%(m%,25)=.|
00008860  3a 73 5f 25 28 54 25 28  6d 25 2c 35 29 2c 32 29  |:s_%(T%(m%,5),2)|
00008870  3d 54 25 28 6d 25 2c 32  35 29 0d 2c e2 5d 44 60  |=T%(m%,25).,.]D`|
00008880  25 3d 44 60 25 2b 31 3a  54 25 28 6d 25 2c 36 29  |%=D`%+1:T%(m%,6)|
00008890  3d 33 3a 54 25 28 6d 25  2c 39 29 3d 30 3a 54 25  |=3:T%(m%,9)=0:T%|
000088a0  28 6d 25 2c 35 29 3d 30  3a 54 25 28 6d 25 2c 37  |(m%,5)=0:T%(m%,7|
000088b0  29 3d 30 3a 54 25 28 6d  25 2c 32 34 29 3d 30 3a  |)=0:T%(m%,24)=0:|
000088c0  54 25 28 6d 25 2c 32 33  29 3d 30 3a 54 25 28 6d  |T%(m%,23)=0:T%(m|
000088d0  25 2c 32 31 29 3d 30 0d  2c ec 19 6a 5f 25 28 31  |%,21)=0.,..j_%(1|
000088e0  31 2c 31 29 3d 6a 5f 25  28 31 31 2c 31 29 2b 31  |1,1)=j_%(11,1)+1|
000088f0  0d 2c f6 0f 4a 60 25 3d  91 2b 32 34 30 30 30 0d  |.,..J`%=.+24000.|
00008900  2d 00 05 e1 0d 2d 14 08  dd f2 46 61 0d 2d 1e 0b  |-....-....Fa.-..|
00008910  e7 44 60 25 3e 30 8c 0d  2d 28 16 61 3d b3 28 31  |.D`%>0..-(.a=.(1|
00008920  31 37 29 2b 31 3a 62 3d  b3 28 33 38 29 0d 2d 32  |17)+1:b=.(38).-2|
00008930  57 e7 71 5f 24 28 61 2c  62 29 3d 22 31 64 22 80  |W.q_$(a,b)="1d".|
00008940  71 5f 24 28 61 2b 31 2c  62 29 3d 22 31 64 22 80  |q_$(a+1,b)="1d".|
00008950  a7 22 30 31 30 32 30 33  30 34 22 2c 71 5f 24 28  |."01020304",q_$(|
00008960  61 2d 31 2c 62 29 29 3d  30 80 a7 22 30 31 30 32  |a-1,b))=0.."0102|
00008970  30 33 30 34 22 2c 71 5f  24 28 61 2b 32 2c 62 29  |0304",q_$(a+2,b)|
00008980  29 3d 30 8c 0d 2d 3c 1e  60 5f 25 28 30 29 3d 31  |)=0..-<.`_%(0)=1|
00008990  3a 60 5f 25 28 31 29 3d  61 3a 60 5f 25 28 32 29  |:`_%(1)=a:`_%(2)|
000089a0  3d 62 0d 2d 46 05 cd 0d  2d 50 57 e7 71 5f 24 28  |=b.-F...-PW.q_$(|
000089b0  61 2c 62 29 3d 22 31 64  22 80 71 5f 24 28 61 2d  |a,b)="1d".q_$(a-|
000089c0  31 2c 62 29 3d 22 31 64  22 80 a7 22 30 31 30 32  |1,b)="1d".."0102|
000089d0  30 33 30 34 22 2c 71 5f  24 28 61 2b 31 2c 62 29  |0304",q_$(a+1,b)|
000089e0  29 3d 30 80 a7 22 30 31  30 32 30 33 30 34 22 2c  |)=0.."01020304",|
000089f0  71 5f 24 28 61 2d 32 2c  62 29 29 3d 30 8c 0d 2d  |q_$(a-2,b))=0..-|
00008a00  5a 20 60 5f 25 28 30 29  3d 31 3a 60 5f 25 28 31  |Z `_%(0)=1:`_%(1|
00008a10  29 3d 61 2d 31 3a 60 5f  25 28 32 29 3d 62 0d 2d  |)=a-1:`_%(2)=b.-|
00008a20  64 05 cd 0d 2d 6e 0e e7  60 5f 25 28 30 29 3d 31  |d...-n..`_%(0)=1|
00008a30  8c 0d 2d 78 17 61 3d 60  5f 25 28 31 29 3a f2 61  |..-x.a=`_%(1):.a|
00008a40  5f 28 61 2c 62 2c 62 29  0d 2d 82 0d f2 4d 63 28  |_(a,b,b).-...Mc(|
00008a50  22 31 63 22 29 0d 2d 8c  12 60 5f 25 28 33 29 3d  |"1c").-..`_%(3)=|
00008a60  91 2b 34 32 31 30 30 0d  2d 96 17 60 5f 25 28 35  |.+42100.-..`_%(5|
00008a70  29 3d 28 b3 28 31 30 30  29 2a 44 60 25 29 0d 2d  |)=(.(100)*D`%).-|
00008a80  a0 14 ff 28 22 53 70 6c  61 79 5f 61 75 72 6f 74  |...("Splay_aurot|
00008a90  22 29 0d 2d aa 07 f2 54  60 0d 2d b4 11 41 60 25  |").-...T`.-..A`%|
00008aa0  3d 91 2b 31 30 30 30 3a  ef 35 0d 2d be 05 cd 0d  |=.+1000:.5.-....|
00008ab0  2d c8 05 cd 0d 2d d2 05  e1 0d 2d e6 08 dd f2 54  |-....-....-....T|
00008ac0  60 0d 2d f0 a5 f2 5f 60  3a f1 27 22 20 41 6e 20  |`.-..._`:.'" An |
00008ad0  65 78 63 75 72 73 69 6f  6e 20 70 61 72 74 79 20  |excursion party |
00008ae0  69 73 20 77 61 69 74 69  6e 67 20 6f 6e 20 61 22  |is waiting on a"|
00008af0  27 22 20 70 6c 61 74 66  6f 72 6d 20 66 6f 72 20  |'" platform for |
00008b00  74 68 65 69 72 20 65 78  74 72 61 20 74 72 61 69  |their extra trai|
00008b10  6e 20 68 6f 6d 65 77 61  72 64 73 2e 22 27 27 22  |n homewards."''"|
00008b20  20 43 6f 75 6e 74 65 64  20 70 61 73 73 65 6e 67  | Counted passeng|
00008b30  65 72 73 3a 20 22 3b 60  5f 25 28 35 29 27 27 22  |ers: ";`_%(5)''"|
00008b40  20 54 69 6d 65 20 6c 65  66 74 3a 20 22 3b 3a f2  | Time left: ";:.|
00008b50  65 5f 28 60 5f 25 28 33  29 2d 91 29 3a f1 41 61  |e_(`_%(3)-.):.Aa|
00008b60  24 3b 3a f2 60 60 0d 2d  fa 05 e1 0d 2e 0e 08 dd  |$;:.``.-........|
00008b70  f2 54 5f 0d 2e 18 0e e7  60 5f 25 28 30 29 3d 30  |.T_.....`_%(0)=0|
00008b80  e1 0d 2e 22 15 61 3d 60  5f 25 28 31 29 3a 62 3d  |...".a=`_%(1):b=|
00008b90  60 5f 25 28 32 29 0d 2e  2c 24 e7 91 3e 3d 60 5f  |`_%(2)..,$..>=`_|
00008ba0  25 28 33 29 80 60 5f 25  28 35 29 3d 30 80 51 25  |%(3).`_%(5)=0.Q%|
00008bb0  28 61 2c 62 2c 31 29 3d  30 8c 0d 2e 36 0d f2 4d  |(a,b,1)=0...6..M|
00008bc0  63 28 22 31 64 22 29 0d  2e 40 64 f2 5f 60 3a f1  |c("1d")..@d._`:.|
00008bd0  27 22 20 54 68 65 20 77  68 6f 6c 65 20 65 78 63  |'" The whole exc|
00008be0  75 72 73 69 6f 6e 20 70  61 72 74 79 20 68 61 73  |ursion party has|
00008bf0  20 62 6f 61 72 64 65 64  2e 22 27 27 22 20 59 6f  | boarded."''" Yo|
00008c00  75 20 6d 6f 76 65 64 20  61 6c 6c 20 70 61 73 73  |u moved all pass|
00008c10  65 6e 67 65 72 73 20 69  6e 20 74 69 6d 65 2e 22  |engers in time."|
00008c20  3a f2 60 60 3a f2 44 5f  28 33 29 0d 2e 4a 15 e3  |:.``:.D_(3)..J..|
00008c30  61 3d 30 b8 35 3a 60 5f  25 28 61 29 3d 30 3a ed  |a=0.5:`_%(a)=0:.|
00008c40  0d 2e 54 05 cd 0d 2e 5e  24 e7 91 3e 3d 60 5f 25  |..T....^$..>=`_%|
00008c50  28 33 29 80 60 5f 25 28  35 29 3e 30 80 51 25 28  |(3).`_%(5)>0.Q%(|
00008c60  61 2c 62 2c 31 29 3d 30  8c 0d 2e 68 0d f2 4d 63  |a,b,1)=0...h..Mc|
00008c70  28 22 31 64 22 29 0d 2e  72 96 f2 5f 60 3a f1 27  |("1d")..r.._`:.'|
00008c80  22 20 46 61 69 6c 65 64  20 69 6e 20 6d 6f 76 69  |" Failed in movi|
00008c90  6e 67 20 74 68 65 20 65  78 63 75 72 73 69 6f 6e  |ng the excursion|
00008ca0  20 70 61 72 74 79 2e 22  27 27 22 20 4c 65 61 73  | party."''" Leas|
00008cb0  65 64 20 62 75 73 65 73  20 68 61 76 65 20 6d 6f  |ed buses have mo|
00008cc0  76 65 64 20 22 3b 60 5f  25 28 35 29 3b 22 20 70  |ved ";`_%(5);" p|
00008cd0  61 73 73 65 6e 67 65 72  73 2e 22 27 27 22 20 59  |assengers."''" Y|
00008ce0  6f 75 72 20 62 69 6c 6c  20 74 6f 20 70 61 79 3a  |our bill to pay:|
00008cf0  20 23 20 22 3b 28 60 5f  25 28 35 29 2a 31 35 29  | # ";(`_%(5)*15)|
00008d00  3a f2 60 60 3a f2 44 5f  28 31 35 29 0d 2e 7c 4f  |:.``:.D_(15)..|O|
00008d10  6a 5f 25 28 38 2c 31 29  3d 6a 5f 25 28 38 2c 31  |j_%(8,1)=j_%(8,1|
00008d20  29 2b 31 3a 6a 5f 25 28  38 2c 32 29 3d 6a 5f 25  |)+1:j_%(8,2)=j_%|
00008d30  28 38 2c 32 29 2b 28 60  5f 25 28 35 29 2a 31 35  |(8,2)+(`_%(5)*15|
00008d40  29 3a 69 5f 25 28 35 29  3d 69 5f 25 28 35 29 2d  |):i_%(5)=i_%(5)-|
00008d50  28 60 5f 25 28 35 29 2a  31 35 29 0d 2e 86 15 e3  |(`_%(5)*15).....|
00008d60  61 3d 30 b8 35 3a 60 5f  25 28 61 29 3d 30 3a ed  |a=0.5:`_%(a)=0:.|
00008d70  0d 2e 90 05 cd 0d 2e 9a  1d e7 60 5f 25 28 31 29  |..........`_%(1)|
00008d80  3d 30 ff 28 22 53 70 6c  61 79 5f 61 75 72 6f 74  |=0.("Splay_aurot|
00008d90  22 29 0d 2e a4 05 e1 0d  2e b8 0d dd f2 4d 63 28  |")...........Mc(|
00008da0  7a 60 24 29 0d 2e c2 1f  71 5f 24 28 61 2c 62 29  |z`$)....q_$(a,b)|
00008db0  3d 7a 60 24 3a 71 5f 24  28 61 2b 31 2c 62 29 3d  |=z`$:q_$(a+1,b)=|
00008dc0  7a 60 24 0d 2e cc 40 4c  25 3d 28 61 2d 4d 5f 25  |z`$...@L%=(a-M_%|
00008dd0  29 2a 34 30 2d 34 3a 48  25 3d 28 62 2d 4c 5f 25  |)*40-4:H%=(b-L_%|
00008de0  29 2a 34 30 2d 34 3a c8  99 26 32 45 2c 33 34 2b  |)*40-4:..&2E,34+|
00008df0  32 35 36 2c 6e 5f 25 2c  7a 60 24 2c 4c 25 2c 48  |256,n_%,z`$,L%,H|
00008e00  25 2c 38 0d 2e d6 42 4c  25 3d 28 61 2b 31 2d 4d  |%,8...BL%=(a+1-M|
00008e10  5f 25 29 2a 34 30 2d 34  3a 48 25 3d 28 62 2d 4c  |_%)*40-4:H%=(b-L|
00008e20  5f 25 29 2a 34 30 2d 34  3a c8 99 26 32 45 2c 33  |_%)*40-4:..&2E,3|
00008e30  34 2b 32 35 36 2c 6e 5f  25 2c 7a 60 24 2c 4c 25  |4+256,n_%,z`$,L%|
00008e40  2c 48 25 2c 38 0d 2e e0  05 e1 0d 2e f4 0c dd f2  |,H%,8...........|
00008e50  6c 5f 3a ea 63 25 0d 2e  fe 11 53 63 25 3d 6a 5f  |l_:.c%....Sc%=j_|
00008e60  25 28 31 31 2c 32 29 0d  2f 08 0b e7 44 60 25 3e  |%(11,2)./...D`%>|
00008e70  30 8c 0d 2f 12 0c e3 63  25 3d 31 b8 61 25 0d 2f  |0../...c%=1.a%./|
00008e80  1c 42 e7 54 25 28 63 25  2c 33 29 3d 30 80 54 25  |.B.T%(c%,3)=0.T%|
00008e90  28 63 25 2c 39 29 3d 30  20 6a 5f 25 28 31 31 2c  |(c%,9)=0 j_%(11,|
00008ea0  32 29 3d 6a 5f 25 28 31  31 2c 32 29 2b a8 28 28  |2)=j_%(11,2)+.((|
00008eb0  91 2d 54 25 28 63 25 2c  34 29 29 2f 31 30 30 29  |.-T%(c%,4))/100)|
00008ec0  0d 2f 26 05 ed 0d 2f 30  05 cd 0d 2f 3a 41 ef 32  |./&.../0.../:A.2|
00008ed0  38 2c 31 39 2c 35 33 2c  36 30 2c 31 30 3a fb 31  |8,19,53,60,10:.1|
00008ee0  39 37 3a fb 36 33 3a ef  34 3a db 3a 75 24 3d 22  |97:.63:.4:.:u$="|
00008ef0  20 22 3a 76 24 3d 22 20  22 3a f2 68 5f 3a 54 63  | ":v$=" ":.h_:Tc|
00008f00  24 3d 22 20 20 2d 20 20  20 23 22 0d 2f 44 29 f1  |$="  -   #"./D).|
00008f10  27 22 20 20 20 20 20 20  20 20 20 20 20 4d 41 4e  |'"           MAN|
00008f20  41 47 45 4d 45 4e 54 20  49 4e 46 4f 52 4d 41 54  |AGEMENT INFORMAT|
00008f30  49 4f 4e 22 0d 2f 4e 2c  f1 22 20 20 20 20 20 20  |ION"./N,."      |
00008f40  20 20 20 20 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |    ============|
00008f50  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 22 27 27 27  |============"'''|
00008f60  0d 2f 58 22 f1 22 20 52  65 63 65 69 76 65 64 20  |./X"." Received |
00008f70  74 72 61 69 6e 73 3a 20  22 3b 6a 5f 25 28 30 2c  |trains: ";j_%(0,|
00008f80  31 29 0d 2f 62 22 f1 22  20 54 72 61 69 6e 73 20  |1)./b"." Trains |
00008f90  73 65 6e 74 20 6f 75 74  3a 20 22 3b 6a 5f 25 28  |sent out: ";j_%(|
00008fa0  30 2c 32 29 0d 2f 6c 13  f1 27 27 22 20 52 65 76  |0,2)./l..''" Rev|
00008fb0  65 6e 75 65 73 3a 22 0d  2f 76 17 f1 22 20 2d 2d  |enues:"./v.." --|
00008fc0  2d 2d 2d 2d 2d 2d 2d 22  3a f2 7a 28 31 29 0d 2f  |-------":.z(1)./|
00008fd0  80 48 f1 22 20 20 20 20  20 20 49 6e 74 65 72 63  |.H."      Interc|
00008fe0  69 74 79 27 73 20 20 3a  20 22 3b 75 24 3b 6a 5f  |ity's  : ";u$;j_|
00008ff0  25 28 31 2c 31 29 3b 54  63 24 3b 3a fb 35 36 3a  |%(1,1);Tc$;:.56:|
00009000  f1 76 24 3b 6a 5f 25 28  31 2c 32 29 3a f2 7a 28  |.v$;j_%(1,2):.z(|
00009010  32 29 3a fb 36 33 0d 2f  8a 48 f1 22 20 20 20 20  |2):.63./.H."    |
00009020  20 20 4c 6f 63 61 6c 20  54 72 61 69 6e 73 20 3a  |  Local Trains :|
00009030  20 22 3b 75 24 3b 6a 5f  25 28 32 2c 31 29 3b 54  | ";u$;j_%(2,1);T|
00009040  63 24 3b 3a fb 35 36 3a  f1 76 24 3b 6a 5f 25 28  |c$;:.56:.v$;j_%(|
00009050  32 2c 32 29 3a f2 7a 28  33 29 3a fb 36 33 0d 2f  |2,2):.z(3):.63./|
00009060  94 48 f1 22 20 20 20 20  20 20 47 6f 6f 64 73 20  |.H."      Goods |
00009070  54 72 61 69 6e 73 20 3a  20 22 3b 75 24 3b 6a 5f  |Trains : ";u$;j_|
00009080  25 28 33 2c 31 29 3b 54  63 24 3b 3a fb 35 36 3a  |%(3,1);Tc$;:.56:|
00009090  f1 76 24 3b 6a 5f 25 28  33 2c 32 29 3a f2 7a 28  |.v$;j_%(3,2):.z(|
000090a0  34 29 3a fb 36 33 0d 2f  9e 49 f1 27 22 20 20 20  |4):.63./.I.'"   |
000090b0  20 20 20 45 78 74 72 61  20 54 72 61 69 6e 73 20  |   Extra Trains |
000090c0  3a 20 22 3b 75 24 3b 6a  5f 25 28 34 2c 31 29 3b  |: ";u$;j_%(4,1);|
000090d0  54 63 24 3b 3a fb 35 36  3a f1 76 24 3b 6a 5f 25  |Tc$;:.56:.v$;j_%|
000090e0  28 34 2c 32 29 3a f2 7a  28 35 29 3a fb 36 33 0d  |(4,2):.z(5):.63.|
000090f0  2f a8 0f f1 27 22 20 42  6f 6e 75 73 3a 22 0d 2f  |/...'" Bonus:"./|
00009100  b2 0e f1 22 20 2d 2d 2d  2d 2d 2d 22 0d 2f bc 48  |..." ------"./.H|
00009110  f1 22 20 20 54 72 61 63  6b 20 4d 61 69 6e 74 65  |."  Track Mainte|
00009120  6e 61 6e 63 65 3a 20 22  3b 75 24 3b 6a 5f 25 28  |nance: ";u$;j_%(|
00009130  35 2c 31 29 3b 54 63 24  3b 3a fb 35 36 3a f1 76  |5,1);Tc$;:.56:.v|
00009140  24 3b 6a 5f 25 28 35 2c  32 29 3a f2 7a 28 39 29  |$;j_%(5,2):.z(9)|
00009150  3a fb 36 33 0d 2f c6 18  f1 27 27 22 20 44 69 72  |:.63./...''" Dir|
00009160  65 63 74 20 4c 6f 73 73  65 73 3a 22 0d 2f d0 16  |ect Losses:"./..|
00009170  f1 22 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |." -------------|
00009180  2d 22 0d 2f da 49 f1 22  20 20 20 20 20 20 20 20  |-"./.I."        |
00009190  20 20 20 20 44 65 6c 61  79 73 20 3a 20 22 3b 75  |    Delays : ";u|
000091a0  24 3b 6a 5f 25 28 39 2c  31 29 3b 54 63 24 3b 3a  |$;j_%(9,1);Tc$;:|
000091b0  fb 38 37 3a f1 76 24 3b  6a 5f 25 28 39 2c 32 29  |.87:.v$;j_%(9,2)|
000091c0  3a f2 7a 28 31 32 29 3a  fb 36 33 0d 2f e4 4a f1  |:.z(12):.63./.J.|
000091d0  22 20 20 45 6d 65 72 67  65 6e 63 79 20 42 72 61  |"  Emergency Bra|
000091e0  6b 65 73 20 3a 20 22 3b  75 24 3b 6a 5f 25 28 31  |kes : ";u$;j_%(1|
000091f0  32 2c 31 29 3b 54 63 24  3b 3a fb 38 37 3a f1 76  |2,1);Tc$;:.87:.v|
00009200  24 3b 6a 5f 25 28 31 32  2c 32 29 3a f2 7a 28 37  |$;j_%(12,2):.z(7|
00009210  29 3a fb 36 33 0d 2f ee  48 f1 22 20 20 20 20 20  |):.63./.H."     |
00009220  20 20 44 65 72 61 69 6c  6d 65 6e 74 73 20 3a 20  |  Derailments : |
00009230  22 3b 75 24 3b 6a 5f 25  28 37 2c 31 29 3b 54 63  |";u$;j_%(7,1);Tc|
00009240  24 3b 3a fb 38 37 3a f1  76 24 3b 6a 5f 25 28 37  |$;:.87:.v$;j_%(7|
00009250  2c 32 29 3a f2 7a 28 38  29 3a fb 36 33 0d 2f f8  |,2):.z(8):.63./.|
00009260  49 f1 22 20 20 20 20 20  20 45 78 74 72 61 20 45  |I."      Extra E|
00009270  76 65 6e 74 73 20 3a 20  22 3b 75 24 3b 6a 5f 25  |vents : ";u$;j_%|
00009280  28 38 2c 31 29 3b 54 63  24 3b 3a fb 38 37 3a f1  |(8,1);Tc$;:.87:.|
00009290  76 24 3b 6a 5f 25 28 38  2c 32 29 3a f2 7a 28 31  |v$;j_%(8,2):.z(1|
000092a0  31 29 3a fb 36 33 0d 30  02 19 f1 27 22 20 49 6e  |1):.63.0...'" In|
000092b0  64 69 72 65 63 74 20 4c  6f 73 73 65 73 3a 22 0d  |direct Losses:".|
000092c0  30 0c 18 f1 22 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |0..." ----------|
000092d0  2d 2d 2d 2d 2d 2d 22 0d  30 16 4b f1 22 20 20 20  |------".0.K."   |
000092e0  20 20 20 45 6d 70 74 79  20 54 72 61 69 6e 73 20  |   Empty Trains |
000092f0  3a 20 22 3b 75 24 3b 6a  5f 25 28 31 31 2c 31 29  |: ";u$;j_%(11,1)|
00009300  3b 54 63 24 3b 3a fb 38  37 3a f1 76 24 3b 6a 5f  |;Tc$;:.87:.v$;j_|
00009310  25 28 31 31 2c 32 29 3a  f2 7a 28 31 30 29 3a fb  |%(11,2):.z(10):.|
00009320  36 33 0d 30 20 4a f1 22  20 20 20 20 20 20 20 20  |63.0 J."        |
00009330  20 20 20 20 4f 74 68 65  72 73 20 3a 20 22 3b 75  |    Others : ";u|
00009340  24 3b 6a 5f 25 28 31 30  2c 31 29 3b 54 63 24 3b  |$;j_%(10,1);Tc$;|
00009350  3a fb 38 37 3a f1 76 24  3b 6a 5f 25 28 31 30 2c  |:.87:.v$;j_%(10,|
00009360  32 29 3a f2 7a 28 36 29  3a fb 36 33 0d 30 2a 40  |2):.z(6):.63.0*@|
00009370  f1 27 27 22 20 20 20 20  20 54 6f 74 61 6c 20 52  |.''"     Total R|
00009380  65 76 65 6e 75 65 20 3a  20 20 20 20 20 20 20 20  |evenue :        |
00009390  20 20 20 23 22 3b 76 24  3b 3a fb 32 38 3a f1 3b  |   #";v$;:.28:.;|
000093a0  6a 5f 25 28 36 2c 32 29  3a fb 36 33 0d 30 34 14  |j_%(6,2):.63.04.|
000093b0  f1 27 27 22 20 22 3b c4  34 30 2c 22 3d 22 29 3b  |.''" ";.40,"=");|
000093c0  0d 30 3e 11 6a 5f 25 28  31 31 2c 32 29 3d 53 63  |.0>.j_%(11,2)=Sc|
000093d0  25 0d 30 48 2c f1 27 27  22 20 20 20 20 20 20 20  |%.0H,.''"       |
000093e0  20 20 20 2d 50 72 65 73  73 20 2d 20 43 20 2d 20  |   -Press - C - |
000093f0  74 6f 20 63 6f 6e 74 69  6e 75 65 2d 22 0d 30 52  |to continue-".0R|
00009400  07 f2 60 60 0d 30 5c 17  f5 3a 61 62 24 3d be 3a  |..``.0\..:ab$=.:|
00009410  fd a7 22 43 63 22 2c 61  62 24 29 0d 30 66 05 e1  |.."Cc",ab$).0f..|
00009420  0d 30 7a 0a dd f2 7a 28  76 29 0d 30 84 19 e7 6a  |.0z...z(v).0...j|
00009430  5f 25 28 76 2c 31 29 3e  3d 31 30 30 20 75 24 3d  |_%(v,1)>=100 u$=|
00009440  22 20 22 0d 30 8e 19 e7  6a 5f 25 28 76 2c 31 29  |" ".0...j_%(v,1)|
00009450  3c 31 30 30 20 75 24 3d  22 20 20 22 0d 30 98 19  |<100 u$="  ".0..|
00009460  e7 6a 5f 25 28 76 2c 31  29 3c 31 30 20 75 24 3d  |.j_%(v,1)<10 u$=|
00009470  22 20 20 20 22 0d 30 a2  1b e7 6a 5f 25 28 76 2c  |"   ".0...j_%(v,|
00009480  32 29 3e 31 30 30 30 30  30 20 76 24 3d 22 20 22  |2)>100000 v$=" "|
00009490  0d 30 ac 1c e7 6a 5f 25  28 76 2c 32 29 3c 31 30  |.0...j_%(v,2)<10|
000094a0  30 30 30 30 20 76 24 3d  22 20 20 22 0d 30 b6 1c  |0000 v$="  ".0..|
000094b0  e7 6a 5f 25 28 76 2c 32  29 3c 31 30 30 30 30 20  |.j_%(v,2)<10000 |
000094c0  76 24 3d 22 20 20 20 22  0d 30 c0 1c e7 6a 5f 25  |v$="   ".0...j_%|
000094d0  28 76 2c 32 29 3c 31 30  30 30 20 76 24 3d 22 20  |(v,2)<1000 v$=" |
000094e0  20 20 20 22 0d 30 ca 1c  e7 6a 5f 25 28 76 2c 32  |   ".0...j_%(v,2|
000094f0  29 3c 31 30 30 20 76 24  3d 22 20 20 20 20 20 22  |)<100 v$="     "|
00009500  0d 30 d4 1c e7 6a 5f 25  28 76 2c 32 29 3c 31 30  |.0...j_%(v,2)<10|
00009510  20 76 24 3d 22 20 20 20  20 20 20 22 0d 30 de 1a  | v$="      ".0..|
00009520  e7 6a 5f 25 28 76 2c 32  29 3c 30 20 76 24 3d 22  |.j_%(v,2)<0 v$="|
00009530  20 20 20 20 20 22 0d 30  e8 1a e7 6a 5f 25 28 76  |     ".0...j_%(v|
00009540  2c 32 29 3c 2d 39 20 76  24 3d 22 20 20 20 20 22  |,2)<-9 v$="    "|
00009550  0d 30 f2 1a e7 6a 5f 25  28 76 2c 32 29 3c 2d 39  |.0...j_%(v,2)<-9|
00009560  39 20 76 24 3d 22 20 20  20 22 0d 30 fc 1a e7 6a  |9 v$="   ".0...j|
00009570  5f 25 28 76 2c 32 29 3c  2d 39 39 39 20 76 24 3d  |_%(v,2)<-999 v$=|
00009580  22 20 20 22 0d 31 06 1a  e7 6a 5f 25 28 76 2c 32  |"  ".1...j_%(v,2|
00009590  29 3c 2d 39 39 39 39 20  76 24 3d 22 20 22 0d 31  |)<-9999 v$=" ".1|
000095a0  10 05 e1 0d 31 24 08 dd  f2 68 5f 0d 31 2e 72 6a  |....1$...h_.1.rj|
000095b0  5f 25 28 36 2c 32 29 3d  6a 5f 25 28 31 2c 32 29  |_%(6,2)=j_%(1,2)|
000095c0  2b 6a 5f 25 28 32 2c 32  29 2b 6a 5f 25 28 33 2c  |+j_%(2,2)+j_%(3,|
000095d0  32 29 2b 6a 5f 25 28 34  2c 32 29 2b 6a 5f 25 28  |2)+j_%(4,2)+j_%(|
000095e0  35 2c 32 29 2d 6a 5f 25  28 37 2c 32 29 2d 6a 5f  |5,2)-j_%(7,2)-j_|
000095f0  25 28 38 2c 32 29 2d 6a  5f 25 28 39 2c 32 29 2d  |%(8,2)-j_%(9,2)-|
00009600  6a 5f 25 28 31 30 2c 32  29 2d 6a 5f 25 28 31 31  |j_%(10,2)-j_%(11|
00009610  2c 32 29 2d 6a 5f 25 28  31 32 2c 32 29 0d 31 38  |,2)-j_%(12,2).18|
00009620  05 e1 0d 31 4c 0d dd a4  69 62 28 55 63 24 29 0d  |...1L...ib(Uc$).|
00009630  31 56 07 ea 43 25 0d 31  60 0d 43 25 3d 8e 28 55  |1V..C%.1`.C%=.(U|
00009640  63 24 29 0d 31 6a 0c e7  43 25 3d 30 8c 3d 30 0d  |c$).1j..C%=0.=0.|
00009650  31 74 08 d9 23 43 25 0d  31 7e 06 3d 31 0d 31 92  |1t..#C%.1~.=1.1.|
00009660  08 dd f2 51 60 0d 31 9c  33 63 25 3d 75 5f 25 28  |...Q`.1.3c%=u_%(|
00009670  31 29 2b 31 3a e7 76 5f  25 28 63 25 2c 37 29 2d  |1)+1:.v_%(c%,7)-|
00009680  76 5f 25 28 63 25 2c 36  29 3c 37 20 4b 5f 25 28  |v_%(c%,6)<7 K_%(|
00009690  38 29 3d 33 30 30 30 30  0d 31 a6 2b 62 5f 25 3d  |8)=30000.1.+b_%=|
000096a0  28 28 76 5f 25 28 63 25  2c 33 29 2d 76 5f 25 28  |((v_%(c%,3)-v_%(|
000096b0  63 25 2c 31 29 29 2f 32  29 2b 76 5f 25 28 63 25  |c%,1))/2)+v_%(c%|
000096c0  2c 31 29 0d 31 b0 2d 63  5f 25 3d 76 5f 25 28 63  |,1).1.-c_%=v_%(c|
000096d0  25 2c 34 29 3a 64 5f 25  3d 76 5f 25 28 63 25 2c  |%,4):d_%=v_%(c%,|
000096e0  32 29 3a 71 5f 24 28 30  2c 30 29 3d 22 30 30 22  |2):q_$(0,0)="00"|
000096f0  0d 31 ba 05 e1 0d 31 ce  08 dd f2 74 60 0d 31 d8  |.1....1....t`.1.|
00009700  13 ff 28 22 53 70 6c 61  79 5f 77 61 72 6e 22 29  |..("Splay_warn")|
00009710  0d 31 e2 7f f2 47 62 3a  f1 27 22 20 44 72 69 76  |.1...Gb:.'" Driv|
00009720  65 72 20 6f 66 20 74 72  61 69 6e 20 22 3b 74 5f  |er of train ";t_|
00009730  24 28 54 25 28 6d 25 2c  32 29 29 3b 22 2d 22 3b  |$(T%(m%,2));"-";|
00009740  54 25 28 6d 25 2c 31 29  3b 22 20 72 65 70 6f 72  |T%(m%,1);" repor|
00009750  74 73 20 74 68 65 22 27  27 22 20 70 61 73 73 69  |ts the"''" passi|
00009760  6e 67 20 6f 66 20 61 20  70 6f 69 6e 74 20 74 6f  |ng of a point to|
00009770  77 61 72 64 73 22 27 27  22 20 20 20 22 3b a4 4f  |wards"''"   ";.O|
00009780  61 28 44 24 28 54 25 28  6d 25 2c 33 29 29 29 0d  |a(D$(T%(m%,3))).|
00009790  31 ec 07 f2 60 60 0d 31  f6 05 e1 0d ff           |1...``.1.....|
0000979d

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .