LEEDS YYz[ /0:0:1::0:6 :7,8;" ";0;3;"" :8,8;" ";0;3;"" :9 ,8;" LEEDS ";0;3;"" !;10 ,8;" POWER BOX ";0;3;"" #;11 ,8;" ";0;3;"" -;12 ,8;" ";0;3;"" 2813 ,8;3;0;"" 7<15,6;1;1;"1993 ASHLEY GREENUP" 899(="Q"h>660)80P F21,0;0;" ":1000:23674z\,0:23673y\,0:23672x\,0:h<1140t502 Pc0::1:Q=Q/H*900:z=(100d-q/5):z>100dz=100d:84T Rz<5z=5 T80,3;7;"RAIL TRAFFIC CONTROL LEEDS" V68,5;7;"Efficiency Rating ";z;"%" X\20,3;7;"Do you wish to play again ?";21,10 ;"PRESS y OR n" Y="Y":1 Z ="N" [ 89Y dE21,0;0;" ":"INPUT: ";i$:i$=""280 ni$(1)="P"200 x a=-1 "i=17:i$=l$(i)a=i i 6a=-1z$="NOT ALLOWED":q=q+3:250 :a(a)>500z$="NOT ALLOWED":q=q+3:250 Ea(a)>5z$="TOO EARLY TO SET ROUTE":q=q+3:250 X21,0;7;0;1;a$(a,214):z=e(a):300, "EXIT: ";e$:e$=""280 e$(1)"P"190 9E$="P12"P(4,1)<1E$="P4":P=4 DE$="P12"P(4,1)>0E$="P4":P=4:185 Iq$=e$:9900&:zz=1z$="NOT ALLOWED":q=q+3:250 Np(p,1)>0z$="PLATFORM ALREADY OCCUPIED":q=q+3:250 1850::250  9I$="P12"P(4,1)>1I$="P4":P=4 *q$=i$:9900&:zz=1225 !p(p,1)>1230 *z$="NOT ALLOWED":q=q+3:250 Np(p,1)>300,z$="NOT READY FOR DEPARTURE":q=q+3:250 G21,0;7;0;1;p$(p):z=f(p):300, "EXIT: ";e$:e$=""285 e$(1)"P"246 0q$=e$:kp=p:9900&:zz=1225 p=kp 1850: 321,0;0;" " z$=""285 >21,0;0;" " >21,16-z$/2;0;7;1;z$ 1.5@,-2 >21,0;0;" " " 721,13 ;7;0;1;g$(z):  :650 %x$=" " 9c$="1000":h=600X:u=0:v=0:q=0  470 i=17 !a(i)=501:l$(i):a$(i)=x$ i ѓb(1)=1:b(2)=25:B(3)=36$:B(4)=524:B(5)=73I:B(6)=88X:B(7)=109m $"YK","HG","SK","BD","HD","DN","NM" i=110 :l(i):i [16,17,18,20,16,17,19,18,19,20 :0,0;7;1;"THE TRAFFIC DEPARTMENT REPORTS:-";14,0;" ":j=14:e=0  ;6,10 ,164,5,25,175 5n(7):2,0;" ":i=14 7T$="in York Area":I>1t$="Near Knaresborough" ;I>2t$="at Shipley":I>3t$="at Holbeck Jc" mz$="":x=1+(*15):x=15n(i)=20+(*11 ):z$="Severe disruption ":5600 Lx=14n(i)=14+(*11 ):z$="Engineering work ":5600 Bx=13 n(i)=10 :z$="Operational problems ":5600 &%x<13 n(i)=0:5622 0;3;z$:t$::e=1 2qi:n(4)>0n(5)=n(4)-5+(*10 ):n(6)=n(4)-5+(*10 ) 5nx=(*5)+1:x=5;"Delays to Normanton arrivals":n(7)=4+(*16)+1 :6e=018,7;"NO PROBLEMS TODAY" N 620l XO(2)=0:7:0:0:p$(2)="2V10 Lds-Ilk":p(2,1)=3128:k(2)=8:r(2)=1011:f(2)=46.:P(2,2)=1 ZO(3)=152:p$(3)="2H13 Lds-Skp":p(3,1)=3040:k(3)=9 :r(3)=1003:f(3)=491:P(3,2)=1 \O(5)=0:p$(5)="1A15 Lds-Kgx":p(5,1)=3117:k(5)=24:r(5)=1010:f(5)=73I:P(5,2)=1 ]O(6)=0:p$(6)="1M43 Lds-Car":p(6,1)=346Z:k(6)=11 :r(6)=1045:f(6)=88X:P(6,2)=1 ^O(7)=0:p$(7)="2J05 Lds-Msd":p(7,1)=323C:k(7)=19:r(7)=1022:f(7)=62>:P(7,2)=1 _O(10 )=0:p$(10 )="2F07 Lds-Knt":p(10 ,1)=3084:k(10 )=29:r(10 )=1007:f(10 )=71G:P(10 ,2)=1 `O(4)=0:p$(4)="2M12 Scb-Lvp":p(4,1)=302.:k(4)=12 :r(4)=1001:f(4)=13 :P(4,2)=1 b|H<605]615g:a=17:N1,N2:x=(n1*32 )+N2(n1*32 )+n2+1:22528X+x,67C:x g|7,21,8,21,9 ,22,10 ,22,11 ,21,14,21,15,22 ia: v821,3;7;"Press any key to continue" {=""635{  >g$(101e,14):neo=1:j(135):800   n1,n2,n3 x=1n1 n1=99c812, ]eng=(*n2)+n3:j(eng)=0g$(neo)=b$(eng):neo=neo+1:j(eng)=1:775  765 x  725  7,7,1,21,21,8,17,17,29,11 ,11 ,46.,9 ,13 ,59;,7,7,72H,5,10 ,79O,4,9 ,89Y,6,8,98b,2,6,106j,1,1,113q,1,1,114r,2,2,115s,2,2,117u,1,1,119w,5,5,120x,99c,99c,99c , 10:0:0::7:1: 0:7:1:16,0;"P1";17,0;"P2";18,0;"P3";19,0;"P7";20,0;"10";16,16;"P5";17,16;"P6";18,16;"P8";19,16;"P9";20,16;"12" 912:6:0:915:x=07:n5:"a"+x,n5:x:x=315:x,0;"":x C128,0,0,0,0,0,0,1  jj=0 6:1:930:i=11962:n1,n2:n1>999(n1-1000)*8,n2*8+jj:929 n1*8,n2*8 'i:jj=0jj=-1:927 1001,19,2.3333,-2.3333,4,0,1.2,-1.2,14.5h,0,1002,19,1.5@,-1.5@,4,0,1,-1,6,0,3,-3,5.50,0,1005,19,3,-3,1006,19,2,-2,1000,15.3t,7.7vfff,0,1,-1,5,0,3,-3,3.5`,0,1,1,4.5,0,1,-1,.5,0,1,1,3.6ffff,0 !1000,14.5h,7.5p,0,1,-1,5,0,7,-7,4,0,4,4,1,0,1.8ffff,1.8ffff,.5,0,1000,10 ,1.5@,1.5@,1000,9 ,1.5@,1.5@,1004,14,1.3&fff,1.3&fff,1004,13 ,1.5@,1.5@,1003.8z33,14.5h,-.73333,-.73333,0,-5.89,1003.4zٙ,15.2s333,-1.3&fff,-1.3&fff,0,-5.9<,1003.1zff,13.6Y,0,-5.50,1002.2z,14,0,-6 1007.5{,8,0,3.5`,5,5,1008.6|&ff,8,0,3.5`,1008.5| ,8,0,3.5`,5,5,1007.6{ff,8,0,3.5`,1014.5},15.5x,4.2fff,-4.2fff,8,0,1016.5~ ,14.5h,6.5P,0,1016,12 ,4.5,-4.5,2.5 ,0,1019.5~,8.5,6,0,3,3,1,0,2,2,.4L,0 g1018.5~,9.5,7,0,2,2,1017.5~`,10.5(,5.50,0,1015.5},14.5h,1,0,1016.5~ ,13.5X,1,0,1029.5,12.4Ffff,1.1 ,1.1 ,1.3&fff,0,1015.7},11.34,1,0,1016.5~ ,10.5(,1,0,1019.5~,7.5p,1,0 2,0;0;6;"SK HG";5,0;"BD";7,30;"YK";13 ,0;"HD";14,2;"DN NM" 6,22;0;" ";7,22;" ";8,22;" ";9 ,23;"";10 ,23;"";11 ,22;" ";12 ,23;"";13 ,23;"";14,22;" ";15,23;"" 0;7;0,0;"YK";1,0;"HG";0,16;"SK";1,16;"BD";2,16;"HD";3,16;"DN";4,16;"NM" H<605]600X  .15~,10 Qh=h+1:mo=(h/60<):mo=h-mo*60<:z$=mo:z$=1z$="0"+z$ s1>1s1=s1-1 .z$=(h/60<)+z$:z$=3z$="0"+z$ c$=z$ Ld=17 Va(d)=a(d)-1 [a(d)5001290  ` a$(d)=x$ jZz$=d$(b(d)):f=q(b(d)):t=u(b(d)):s=v(b(d))+1000:m=x(b(d)):l=y(b(d)):g=z(b(d)) ~2b(d)=b(d)+1:e(d)=l:t(d)=t:c(d)=g:t$=s y$=" " m=0y$="*" >y$=y$+z$+" ":q$=k$(f):y$=y$+q$+"-":q$=k$(t):y$=y$+q$+" " &mo=(s/100d):mo=s-mo*100d 's=60<*((s/100d))+mo:w=s+m $mo=(w/60<):mo=w-mo*60< (w=100d*((w/60<))+mo:d(d)=w  b=0 JX=(*10 )+1:x=10 b=1+(*20):1190 b=1+(*5) (b=b+n(d):s+b-h<6b=h+6-s z$=" " m21240 /n=2:g>10 g<1000n=4 m>n+bm=m-b:1240 m=n Bm01+(*10 )<4m=m+1:1260 6m01+(*10 )=1m=m+2 *z$=t$+" ":b=0q$=" ":1280 q$=b:b<10 q$=" "+q$ Iz$=z$+q$:a$(d)=y$+z$:m(d)=m:a(d)=s-h+b:m=0a(d)=a(d)+1  d 7i=110 :p(i,1)=p(i,1)-1 2^p(i,1)=499p(i,1)=299++s(i):o(i)>0o(i)<100d1370Z <1p(i,1)=0o(i)>100d1420 P 1390n Z03560 :j=1(o(i)-20):z$,x:j d<q$=k$(x):z$(1)="5"p$(i)=z$+" ECS-"+q$:1383g fp$(i)=z$+" Lds-"+q$ gk(i)=x i!o(i)=33!o(i)=153 j#o(i)=39'o(i)=155 ni xA12 ,10 ;0;6;c$:sf=0:1490  ,mo=(r(i)/100d):mo=r(i)-mo*100d !z=60<*(r(i)/100d)+mo )h-z<30w(o(i)-100d)=w(f(i))  Qi=17:j=i-1:jj=2:i>2j=i-3:jj=18 /a(i)>500a$(i)=a$(i,14)+" Sig " /a(i)=501a$(i)=a$(i,14)+" Run " -a(i)<5a$(i)=a$(i,14)+" App " -a(i)3a$(i)=a$(i,14)+" Chk " Fa(i)1a$(i)=a$(i,14)+" Hld ":sf=0q=q+1 Ea(i)>15a(i)<500j,jj;1;1;x$(14) A(i)<16A(i)>499j,jj;7;1;1;" ";A$(i)(25);6;A$(I)(11 13 );7;A$(I)(1518);6;A$(I)(2021) "i 1i=110 BMp(i,1)>500z$=p$(i,5)+P$(i)(10 12 )+" Sig " C$p(i,1)<5001620T Dsf=0((p(i,1)=502p(i,2)>4)(P(I,1)=500P(I,2)<5))x=18:22624`X+i(p(i,2),x),70F:x Fwp(i,2)>4sf=0p(i,1)=501x=9 17:22624`X+i(p(i,2),x),70F:x Hxp(i,2)>4sf=0p(i,1)=500x=1826:22624`X+i(p(i,2),x),70F:x JMp(i,1)=500z$=p$(i,5)+p$(i)(10 12 )+" Arr " ^&y$=r(i):r(i)<1000y$="0"+y$ hcp(i,1)>300,p(i,1)<498z$=p$(i,5)+p$(I)(10 12 )+" d"+y$ rMp(i,1)300,z$=p$(i,5)+p$(i)(10 12 )+" Rdy " |Ep(i,1)<300,p(i,1)>3sf=0q=q+1 sf=0(p(i,2)=28p(i,2)=31p(i,2)=35#p(i,2)=36$)p(i,1)=2:1680 (64020+i)>0sf=0x=2028:22624`X+i((64020+i),x),70F:x:64020+i,0 (64000+i)>0sf=0x=11 19:22624`X+i((64000+i),x),70F:x:(64020+I),(64000+I):64000+i,0 "p(i,1)01700 Wp(i,1)=3z$=p$(i,5)+p$(i)(10 12 )+" Dep ":1700 p(i,1)=2sf=0z$=p$(i,5)+p$(i)(10 12 )+" Dep ":x=110 :22624`X+i(p(i,2),x),70F:x:5500| ;p(i,1)1z$=" " 7j=18:I<4I=7I=10 j=2 l(i),j;1;7;1;z$(114):p(i,1)300,p(i,1)>5l(i),j+13 ;4;1;1;"" i   :z$="" 31t(a)<36$p>4)(P<4(t(a)<32 t(a)>35#))z$="BAD PLATFORM":q=q+1: l6i=110 :e$(2̱e$)=(i)1905q n)i:z$="NO SUCH PLATFORM":q=q+2: q)i=17:i$=l$(i)1920 vi:1950 aroute=g(i,e$(2̱e$)):p(p,2)=route:route=0z$="NOT ALLOWED":q=q+1: x=128 (22624`X+i(route,x))=67CI(ROUTE,X)>0z$="ROUTE CONFLICT":q=q+2:p(p,1)=0:p(p,2)=0: X x=128 !22624`X+i(route,x),67C (x:p(e$(2̱e$),2)=route  2000 +i=17:e$=l$(i)1960 $i:z$="NOT ALLOWED":q=q+1:  6000p Xroute=h(i$(2̱i$),i):route=0z$="THAT ROUTE NOT ALLOWED":q=q+2: 4x=328:i(route,x)=01967 H(22624`X+i(route,x))=67Cz$="ROUTE CONFLICT":q=q+2: x x=128 5i(route,x)>022624`X+i(route,x),67C x %p((i$(2̱i$)),2)=route i$(1)="P"3260 !c=0:u=0:v=0 D/a(a)>2a(a)=a(a)+500:3150N Fa(a)=503 X1p(p,1)=a(a):y=a(a)-502:3312 /p(p,1)=3:64080P+p,0: z=o(p) +dh=2:a$(a,1)="*"dh=1 Pp$(p)=a$(a,dh14):f(p)=e(a):r(p)=d(a):s(p)=m(a):k(p)=t(a):o(p)=c(a)  "1J07",26,"1J08",26,"2C22",6,"2C24",7,"2C26",6,"2C28",7,"2C30",6,"2C32",7,"2C34",6,"2C36",7,"2C38",6,"2C40",7,"2H15",9 ,"2V12",8,"2H17",9 ,"2M65",10 "2V14",8,"2H19",9 ,"2H21",9 ,"2V16",8,"2M77",11 ,"2M67",10 ,"2V18",8,"2H23",9 ,"2H25",9 ,"2V20",8,"2H27",9 ,"2T17",16,"2T19",16,"2T21",16,"2T25",16 "2T27",16,"2T29",16,"2T31",16,"2T35",16,"2T37",16,"2T39",16,"2J07",19,"2J09",19,"2J11",19,"2J13",19,"2J15",19,"1A17",24,"2B09",25,"2Y21",26,"5D34",5 "2B11",25,"1A18",24,"2Y23",26,"1J09",27,"1B13",25,"1A19",24,"2Y25",26,"2B15",25,"1A20",24,"5D17",5,"2Y34",26,"2B17",25,"1A21",24,"2Y29",26,"2G19",28,"2F09",29,"2G21",28,"2F11",30,"2G25",28,"2F13",31,"2G27",28,"2F15",29,"2G29",28,"2F17",30 |64000+i,p(i,2) 8p(i,1)=0:p(i,2)=0:1686 p"K(P)<6E$="YK"1962 u1(k(p)=6k(p)=7)E$="HG"1962 w0k(p)>7k(p)<12 E$="SK"1962 z1k(p)>11 k(p)<17E$="BD"1962 1k(p)>16k(p)<20E$="HD"1962 1k(p)>19k(p)<28E$="DN"1962 1k(p)>27k(p)<32 E$="NM"1962 &Z$="WRONG EXIT ROUTE":Q=Q+1: &+Q=Q+2:z$="WRONG DEPARTURE ROUTE": #(/0:0::6:1:1 #-5,9 ;" ";8,9 ;" POWER BOX ";10 ,9 ;" ";9 ,9 ;" ";7,9 ;" LEEDS ";6,9 ;" " #U$1:0:0:7 #Z[13 ,4;"AWAITING TRAFFIC REPORTS";14,4;"FROM CONTROL-PLEASE WAIT" #29110#:i=095_:a:"a"+i,a:i: #C1,0,0,0,0,0,0,128 #J0,16,16,215,215,16,16,16 #I0,60<,4,133,189,32 ,32 ,60< #G0,60<,4,133,189,4,4,60< #J0,60<,32 ,32 ,60<,131,131,60< #J0,60<,32 ,32 ,60<,165,165,60< #F0,60<,4,133,133,4,4,4 #J0,60<,36$,165,189,36$,36$,60< #H0,60<,36$,165,189,4,4,60< #H0,79O,73I,73I,73I,73I,73I,79O #J0,36$,36$,165,165,36$,36$,36$ #J0,47/,33!,161,175,40(,40(,47/ &zz=0 &"q$(1)="P"q$=q$(2) &"zy=q$:zy=0zz=1: &/zy>2(zy=2q$"10")zz=1: &i=1zy &,(q$)<1Ű(q$)>10 zz=1: &i &6p=q$:e$="P"+q$:p<1p>10 zz=1: & '(0:7:0:7:: '.X=128:X;" ";I(14,X):X: ' 900:I=128:0,0;7;0;"I(";ROUTE;",";i;")":i(route,i):(22624`X+i(route,i)),67C:i:route=route+1:9995 ' ' .X=128:X;" ";I(12 ,X):x: ' 900:route=route+1:I=128:0,0;"I(";ROUTE;",";i;")":(22592@X+i(route,i)),67C:i:h: 9997 ' '_x=17:0,0;"h(";XX;",";x;") ":h(XX,X):x:XX=XX+1:9998' 'bX=180P:X;" ";D$(X);" ";K$(Q(X));" ";K$(U(X));" ";V(X);" ";X(X);" ";Z(X);" ";Y(X):X `_# #ZyzcLhBvq-3eft s\mlDgwbn/brp SunM60660000000000R00001111100000out OYYGmN00000000000000S00000000000000ƕx1501+1556 1578+1571 1512+1527 1562+1528 1606+1586 1551+1509 1518+1611 1589+1554 1516+1504 1545+1597 3161+3164 3177+3169 3162+3193 3188+3183 3165+3167 3172+3190 3184+3180 3186+3173 3163+3179 6402+3166+31783170+3194+64076404+3192+31853171+3176+64153182+3189+64123187+3191+31751510+1520+15071563+1519+15571602+1593+15131537+1568+15171506+1565+15471523+1526+15411599+1604+15333201+5150 3208+5133 5468+3213 3303+3212 3306+5271 5450+3310 3204+3307 3205+5476 5526+3309 5278+5196 5275+5506 5460+5156 5170+5277 5139+5617 5470+5248 5481+5465 5453+5503 5626+5479 5185+5485 5493+5522 5491+5481 5527+5518 5514+5504 5620+5613 5623+5616 5220+5490 5176+5267 5462+5496 5515+5508 5618+5605 5483+5445 5177+5477 5114+5269 5194+5473 5624+5458 5610+5489 5516+5232 6202+5261+54446203+5190+54666205+5456+56216207+5519+56196212+5622+55236213+5488+54865447+5492+62175461+5495+62185615+5501+62215484+5469+62226223+5525+55026224+5443+54515459+5457+62256226+5472+54825452+5531+62276229+5611+54556230+5471+55245475+5614+62315442+5464+62356236+5210+54486237+5513+56015521+5520+62385478+5279+62396240+5463+54946241+5474+54495497+5517+62436244+5467+54546414+5625+54805628+5510+64055606+5612+64135627+5604+64181548+1566 1576+1585 1600+1612 6401+5602 5613+6409 6408+5446 xen1M585J071M361M052M141M675J082T231M062M161M631M371M071V522M181M732T331M082M201M261M381M092M221V602C172C192C212C232C252C272C292C312C332C352C372H222V152H242E702V172H282H302V192E102H322V212H342E742V232H382H402T142E072T162P162T182E092T201E792T222E112T242P082T262E132T281E802T302E152T322P262T341E521E532J141E541E552J161E561E572J181E581E592J201E601E612J221D331E272B102Y201D342B121D352Y221D152B141D362Y242B161D372D172Y261E322B181D382Y282B202G162F062G182F082G302F102G242F122G262F142G28              $  $      #!##!##!"#!##!##"""""""""""%%%%%$%$$%$$$%$$%$$$%$$%&&&&&&&&&&& +;q}9IWg/x@[+3}CW_  *9n~6FUe+is1;W7gJRYg;Hd          ?  Q       R$%S!\"T#`BCDEFCBEDCF2/3:045.Z;/69073<=< =< =< =< =<U?>V?@ W?JY8&^AK'[NL(OMP)]8_*A+H,G-H+H,G-g !"#$%&'()*+,-./0{12x3456}789:;|<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ}(ScbNewYrkHul#NLYorKnaIlkSkpMorCarLvpBlkHfxPrsBdfLivMcrMsdPgnBrsCdfWlvKgXScnShfNotSfdKntGleCsfLdsLdsLdsLdsLdsLdsLds c ()*+2 !"#,-%$./&c '0 1 155301155302155303155304155305155306155307156475156476156478156479156480156481156482156483156485156486156487156489156490156491156492156493156494156441156443156451156459150232150234150236150238150240150242150244150246150248150250150252150254150256150258150260150262150264144001144002144003144004144005144006144007144008144009144010144011144013144012142072142073142074142076142075142077142071142078142079142080142081142082142083141001141004141008141015141017141019141020*91001*91002*91003*91004*91005*91006*91007*91008*91009*91010111201111202111203111204111205111206111207111208111209 47422 47424 47434 47443 47444 47448 47475 47488 47401 47406 47407 47469 47478 47483 47651108563150124253043253046254038254040 47501110400110411101454101457101462 ]2;Zy9876'HIIJKLMNNNNNopppqrstttuv#$%%&'HIIJKLMNNo#$%&'HHSIJKLMNNoo`abbcdefggkLMMNOoo`abcdefgg2STUUVWefg2SSTUUVWeffgB"cdefgB"cdefgB"cdefgB"cdefg234567G'222Stuv'HIIJKKLMMNoo''HHIIJKLLMNoo#$%%&''HIIJKLLMNNoopqrstuv`aabcdeffgkkLMNoopqrsttuvvuttsrqpponmlkjjiihGG&&vutsrrqqponmlkjiihGFEDC""!nmmlkjihGGFEDC""nmmlkjiihGFEDC""nmlsR1sR1   #CC#CCnmmlkjiihGFFEDC""   #C6789VWXY:765432#CCvutsR1((HHHHHH`aabcddefgkkLMNoovutssrqponnmlnnmllkjiihGG&&nmllnnmmlkjiihGG&&765432765432  WVUTS22WVUTTS2  `abcdefg2334567eefg23345567sR1#CCX C1354T1420INMQ10EP10Z2F12 Lds Sig Y1407&i  Б  &5 5  &&5 5 &&5 &b&5 Nje155303 155307 155305 155306 155302 155301 155304 156487 156486 156479 156485 156490 156494 156482 156492 156483 156459 156481 156489 156476 156491 156443