ZXTape! 0Created with Ramsoft MakeTZX9lime ^K` v1.0  7 "lss" 18,1 "lsg"  Klime ^Ko` v1.0  7 "lss" 18,1 "lsg"  @lss @bp`   0       0 ` 0|<@<@|BBB>B<BB@h8@8888x<@88D888x8BBbbbBB@@0TD<0@D<0DD@DDDDDBBRRR@|@@Tx8DB<8@<Bx~~D<<<~B<D@@HBD@D@@f@B||pB(<(<|Z<B@@>H~@BD@@DBBB@BBBx~~BB<<~B<<88888888888888888888888888888888888888888888888888888888888888888888888888<<<88<<<<<<<88888888888888888888<8888<<8888<88888888888888888888<8888<<8888<88888888888888888888<8888<<8888<88888888888888888888<8888<<8888<88888888888888888888<<<<<<<88<<<88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888889999999999999998888888888888888899999999999999999888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888????????????????????????????????8888888888888888888888888888888888888888888888888888888888888888flsg ʘRw̘r$(78N,12 ):c(579):p$(9 ,28):q$(9 ,14):t$(9 ,14):u$(9 ,14):l$(82R,7):l(15):d$(10 ,16) Cm$(4,9 ):s(13 ):o(9 ):p(5,11 ) f(6):o$(6,28):c$(29,9 ):n(2):b(3):d(3):a$(14,14):a(14) -$i=023:a:"a"+i,a:i 03,7,14,28,568,112p,224,192,192,224,112p,568,28,14,7,3,0,24,60<,126~,126~,60<,24,0 2"90Z:2390V :85004! <#120x:cl<810*60< A 3690j ZQ0:0:0::6:4,6;" " \5,6;" RAIL TRAFFIC CONTROL ":6,6;" LIME STREET ":7,6;" " ]G0:7:11 ,0;" Prepare to start your shift as" ^112 ,0;" duty traffic controller" _X5:20,3;1;1;"  Dee-Kay Systems (1988) ":0: x6:140:zp=0:2050:zp=7:2050:320:790:260:3180: y%140:zz=140:7000X z3zp=0:2050:zz=2050:7000X {3zp=7:2050:zz=2050:7000X |%320@:zz=320@:7000X }%790:zz=790:7000X ~%260:zz=260:7000X '3180l :zz=3180l :7000X  >cl=cl+1/3:i=(cl/60<):mo=(cl-i*60<) /k$=(100d*i+mo):cl<600Xk$="0"+k$ 2i=14:m$(i)=d$(i)(4)+" " yj=19 :pp=p(2,j):d$(i)(4)=u$(j)(4)ưd$(i)(55)=(pp/100d)190 210 ;pp<0m$(i)=d$(i)(4)+" (P"+j+")":210 0pp>0m$(i)=d$(i)(4)+" P"+j+" " j:i Bi=111 :p(1,i)=p(1,i)+1/3:i  a=16 $o$(a)(25)=" "3106 /pl=(o$(a)(2)):pl>11 3106 ,&p(1,pl)10003270 6a > @i=111 JTptc=p(1,i):pl=i:pc=((p(2,pl))/100d):ptc<-.2~L500 Tptc>.2~L480 h1pl=yphp=1gp=hdo:hp=0:400 r3pl=qpmp=1gp=nkno1:mp=0:400 |3pl=rpop=1gp=nkno2:op=0:400 i>9 510 (gp=p(3,pl):j$=l$(gp):440 0i=10 vp=vp+1:b(vp)=gp:510 0i=11 wp=wp+1:d(wp)=gp:510 "j$=l$(gp):pc0420 ~p$(pl)=" "+j$(6):p(2,pl)=999:p(4,pl)=gp:p(1,pl)=1000:470 qp$(pl)=" "+j$(5)+"+"+u$(pl)+p$(pl)(22):p(2,pl)=-p(2,pl):p(4,pl)=gp:540  470 :g$=" ":g=6:j$(1)="+"g$=" ":g=7 p(2,pl)=p(5,pl):p(1,pl)=p(4,pl):pc=((p(2,pl)/100d)):pc=1pc=4p$(pl)=g$+j$(g)+"("+q$(pl)+") ":450 *p$(pl)=" "+q$(pl)+"+"+j$(6) 4pc=1pc=4p(4,pl)=p(3,pl)  500 &(ptc-200)>.1}L500 Qpc1pc4p$(pl)=" "+t$(pl)+"."+p$(pl)(23):500 Rp$(pl)=p$(pl)(9 )+"("+u$(pl)+") ":p(2,i)=-p(2,i):540 i>9 510 6pc=p(2,i):pc=0o(i)=7:510 Spc<0(p(1,i)>200p(1,i)<0)o(i)=6:510 o(i)=2 i  /u$(pl)(4)=" ECS"t=0:545! t=u$(pl)(4) !)ii=(t/100d):mo=(t-ii*100d) &Xdpt=1000+cl-(60<*ii+mo):pc1pc4dpt>995dpt=995 0p(1,pl)=dpt: :((z/100d)=2up1)((z/100d)=6up6)((z/100d)=5up8)((z/100d)=9 up7)sc=sc+1.5@ N Xep=ep b(ep=9 l$(gp)(2)="85")(ep=6l$(gp)(2)="31")((ep=5ep=7)(l$(gp)(2)="86"l$(gp)(2)="87")) l$ep=7l$(gp)(2)="47" vC(ep=2ep=3ep=8)l$(gp)(1)="4"640 x 660 fz=0:l$(gp)(2)="45"(l$(gp)(3)="474"ư(l$(gp)(5))<47421=)z=1 )(ep=2z=0)sc=sc+1.5@  sc=sc+1:j=4:  j=-1 6i=19 :d$(i)(4)=" "710 Wd$(i)(4)=u$(pl)(4)ư(d$(i)(5))=((p(2,pl)/100d))j=i i j=-1  2700 i=1dp:d$(10 ):i mdest=(d$(10 )(7)):g$=d$(10 )(5):d$(10 )(6)="l"g$=g$+"L ":760  g$=g$+" " d$(10 )=g$+c$(dest) %i=j9 :d$(i)=d$(i+1):i  adp=dp+1:pc=((p(2,pl)/100d)):pc=1pc=4p(2,pl)=0: p(2,pl)=999: _0,0;4;" ARRIVALS";0;14;k$;4;22;"DEPARTURES" %.15~,-2 *M1,0;3;"DOWN F:";0;a$(1)(7):0 /b2,0;a$(2):3,0;"(";a$(3);")":4,0;a$(4) 4D5,0;3;"DOWN S:";0;a$(8)(7) 9d6,0;a$(9 ):7,0;"(";a$(10 );")":8,0;a$(11 ) >20:a=14:a,22;m$(a):a CD5,25;c(9 );"";1;"P9 ";o(9 );"" H$6,24;c(557);"" M^7,23;c(557);"";26;c(8);"";1;"P8 ";o(8);"" R>8,22;c(43+);"";25;c(8);"" W9 ,0;1;"DF";c(502);"";c(46.);"";c(45-);"";c(44,);"";c(43+);" ";c(39');" ";c(7);"";1;"P7 ";o(7);"" \y10 ,4;c(42*);" ";c(41));" ";c(40();" ";c(39');" ";c(7);"" a11 ,0;1;"UF";c(491);"";c(38&);"";c(37%);"";c(36$);"";c(35#);"";c(34");"";c(33!);" ";c(6);"";1;"P6 ";o(6);"" fQ12 ,6;c(32 );" ";c(31);"";26;c(6);"" k13 ,2;2;"NK";c(30);"";c(546);"";c(579);"";c(29);"";c(28);"";c(27);"" ps13 ,11 ;c(26);"";c(25);"";c(5);"";1;"P5 ";o(5);"" u814,7;c(24);" ";c(23);"" z15,0;1;"DS";c(480);"";c(22);"";c(21);"";c(20);"";c(19);"";c(18);"";c(4);"";1;"P4 ";o(4);"" f16,5;c(17);" ";c(16);" ";c(15);" ";c(14);"" 17,0;1;"US";c(47/);"";c(13 );"";2;"HD";c(12 );"";c(535);"";c(524);"";c(513);" ";c(14);"";c(3);"";1;"P3 ";o(3);"" 618,23;c(513);" ";c(2);"" V19,24;c(568);" ";c(2);"";1;"P2 ";o(2);"" %20,25;c(568);"" D21,26;c(1);"";1;"P1 ";o(1);"" 'sb=7:sd=7:g$="":h$=g$ +vp<3vp0sb=6:g$="*" +wp<3wp0sd=6:h$="*" vp=3sb=2 wp=3sd=2 v19,2;0;"SA";2;" ";0;"SB";sb;g$;0;" SD";sd;h$;0;" SE";2;"" "23560\=32 970 (23560\=122z2730 :: $23560\=113q3700t  1070.:j=3 j=01010 2020: %1730:j=01775: 7(i$="p1"i$="p2"i$="p3"i$="p4")n$="us"1040  1060$ s$(17)"5"1060$ 7np=1s$=s$(12 )+"1519202021":1047 s$=s$(12 )+"2020212122" s$=s$+"221747"  1010 $2020: . j=0 L i=0 V"Entry Point ";i$ Xi$=""j=3: Z)i$(1)="u"űi$21720 [.21,0;0;"Entry Point ";i$ `"Exit Point ";n$ a(21,0;" " jn$=""j=3: t)n$(1)="d"űn$21720 yi$="sb"i$="p10" zi$="sd"i$="p11" {n$="sb"n$="p10" |n$="sd"n$="p11" ~i$(1)"p"1170 6np=i$(2):np=0np>11 1720 n$(1)"p"1250 6up=n$(2):up=0up>11 1720 i$"df"1340< up>9 1720 S(cl61320(  s$=s$+"423832292827" $up<5s$=s$+"23":13302 s$=s$+"27":13302 (:s$=s$+"5046":up=9 s$=s$+"4645454444":13302 *s$=s$+"4136363535" 2)s$=s$+r$(up+i):z=a(6):570: 7 <i$"ds"1400x >up>9 1720 FS(cl6s$=s$+"24283131":1390n hs$=s$+"24282727" n*s$=s$+r$(up+i):z=a(13 ):570: s xn$"uf"1460 yi$="p10"i$="p11"1720 zEpc=(p(2,np)/100d):p(1,np)<995j=2: |;pc<0pc3p(2,np)=9991720  i=18:df=np:s$=r$(np+i) &np<5s$=s$+"2023":1440 &np>6s$=s$+"3535":1440 s$=s$+"2626" *np<7s$=s$+"27282932":1450 s$=s$+"36363737" s$=s$+"3849": n$"us"1510 i$="p10"i$="p11"1720 Epc=(p(2,np)/100d):p(1,np)<995j=2: Hpc<0(pc>3pc<9 )p(2,np)=9991720  df=np:i=27:s$=r$(np+i) &np=1s$=s$+"5252":1490 &np<5s$=s$+"1616":1490 $np<7s$=s$+"27":1490  s$=s$+"31" $np<5s$=s$+"535312121347": s$=s$+"28242422221747": n$"nk"1580, np>9 1530 0p(2,np)999xp=21720  1540 K(np=10 vp=0)(np=11 wp=0)xp=2j=2: np=10 1540 9z=p(2,5):z=0z=9991540 wj$=l$(p(3,5))(1):(((z/100d))=1j$"+")(((z/100d))=4j$"2")1540  j=2:  df=np:i=36$:s$=r$(i+np) 6(np<5np=10 )s$=s$+"202327":1560 6(np>6np<10 )s$=s$+"353531":1560 s$=s$+"272728" ,s$=s$+"28295754":xp=1s$=s$+"54": "s$=s$+"30": ,n$"hd"1650r 62(np>4np10 )1720:1600@ 8np=10 1610J @%p(2,np)9991720 J3np=10 (vp=0tp-1)j=2: T df=np:i=47/:s$=r$(i+np) ^*np=1s$=s$+"51515252":1640h `s$=s$+"19191616" hs$=s$+"53531212": ri$"hd"1680 t2tp=-1(up>4up10 )1720 vup=10 1665 zep=(p(2,up)/100d) |`p(2,up)=0(p(1,up)200ep<0ep-1ep-4)1664 ~ 1720 +gp=tp:ep0600X:j=4 vp=3j=2: Ldf=up:i=579:s$="12125353":up=1s$=s$+"52525151":1675 s$=s$+"16161919" s$=s$+r$(i+up): i$"nk"1720 xp=01720 up>9 1700 ep=(p(2,up)/100d) _p(2,up)=0(p(1,up)20ep<0ep-1ep-4)1705  1720 @(vp=3up=10 )(wp=3up=11 )j=2: up11 1706 9z=p(2,5):z=0z=9991706 wj$=l$(p(3,5))(1):(((z/100d))=1j$"+")(((z/100d))=4j$"2")1706  j=2: .gp=n(xp):ep0600X:j=4 #xp=1s$="3054":1710 xp=2s$="5454" 8s$=s$+"57292828":up<5s$=s$+"2723":1715 &up<7s$=s$+"2727":1715 'up<10 s$=s$+"3135":1715 'up=10 s$=s$+"2723":1715 s$=s$+"2727" %df=up:i=67C:s$=s$+r$(i+up):  j=1:  j=0 \i=1272:(s$(4)="1212"s$(4)="5454")i=1i=5 *s$(4)="3054"i=1i=3 /n=(s$(ii+1)):c(n)=2j=2 i  i=1272 'n=(s$(ii+1)):c(n)=2:i <a=-1:i=16:o$(i)(4)=" "a=i i a=-1  i$(1)="p"s(np)=4 i$(1)"p"1830&  np>9 1826" !rp(2,np)>0p(2,np)<999p(1,np)1000p(1,np)=1000-1/3 "6np>9 p(1,np)=1000-1/3 &@i$="df"a(1)=-up:p$(up)=" Arrival Signalled " (@i$="ds"a(8)=-up:p$(up)=" Arrival Signalled " i$"hd"i$"nk"2010 0i$="hd"yp=up:hp=1:hdo=tp:2000 ^xp=1nkno1=n(1):n(1)=-1:qp=up:mp=1:xp=0:2000 Rxp=2nkno2=n(2):n(2)=-1:rp=up:op=1:xp=1 _o$(a)=s$:f(a)=df:p(1,up)=-7/3:up<10 p$(up)=" LE"+p$(up)(4)  o$(a)=s$:f(a)=-df: 2j=121,0;"INVALID ROUTE " 4j=221,0;"ROUTE NOT AVAILABLE" 4j=421,0;"INCORRECT LOCO TYPE" $sc=sc+.5:1.5@,-2 +21,0;" ": zp>0zp=7  &a(zp+1)=-100d2200  Pcl H#a(zp+1)02130R Ja$(zp+4)="HELD ON APPRCH":a(zp+2)=a(zp+2)+1/3:a$(zp+2)(4)" ECS"sca=sca+1/3 L R'(a(zp+3))>.1}L2170z \Fa(zp+3)=cl+1:i=16:f(i)=a(zp+1)a=i fi p f(a)=-f(a) zPa(zp+3)-cl>.1}La$(zp+4)="SET TO PLAT "+((a(zp+1))): 2350. : ja$(zp+4)=" ":a(zp+4)=a(zp+4)+1:zp=02650Z :2205  2720 a(zp+3)=0 Ei=1a(zp+4):x$,a(zp+5),y$,x5,z$,a(zp+6):i x5=0x5=1 %x$<630vx$=(x$+1000) %z$<630vz$=(z$+1000) Ca$(zp+6)=z$+" departure":a$(zp+3)="stock "+z$+" dep" Pa(zp+5)=480zp=0a$(zp+3)=" ECS-Edge Hill":8010J Pa(zp+5)=67Czp=0a$(zp+3)=" ECS -Allerton":8010J ,v$=c$(x5)(4):x5=9 v$="Crwe" x5=4v$="Wign" x5=7v$="ManV" ma(zp+1)=0:y$="E"a$(zp+2)=" ECS-Edge Hill":a$(zp+5)=" ECS-Edge Hill":2280 Vy$="A"a$(zp+2)=" ECS -Allerton":a$(zp+5)=" ECS -Allerton":2280 Vy$="L"a$(zp+2)=" ECS-Longsight":a$(zp+5)=" ECS-Longsight":2280 [y$(1)<"3"a$(zp+2)=y$+"dep ex"+v$:a$(zp+5)=x$+"arr ex"+v$:2280 &a$(zp+2)=y$:a$(zp+5)=y$ Jy$="R"a$(zp+2)=" ECS -Red Bank":a$(zp+5)=" ECS -Red Bank" "a$(zp+1)=l$(a(zp+5)) kar=60<*x$(2)+x$(34):a=1+(*10 ):a>5a=0:2300 *a=-(1+(*10 ))+(*10 ) 8a$(zp+2)(4)=" ECS"a=0:2310 `((a(zp+6)/100d)=1ź(a(zp+6)/100d=4))a<-3a=-3 Ha(zp+2)=ar+a:a(zp+2)-cl<3a(zp+2)=cl+3 =i=(a(zp+2)/60<):mo=(a(zp+2)-i*60<) ^a$(zp+7)=(100d*i+mo):a(zp+2)<600Xa$(zp+7)="0"+a$(zp+7) $ 2060  .pl=a(zp+1):q$(pl)=a$(zp+5):t$(pl)=a$(zp+3):u$(pl)=a$(zp+6):p(1,pl)=-4/3:p(5,pl)=-a(zp+6) 8ap(3,pl)=a(zp+5):a(zp+1)=-100d:q$(pl)(4)" ECS"tna=tna+1 =l(a(zp+6)/100d)=1ź(a(zp+6)/100d)=4p(4,pl)=195:2368@ >p(4,pl)=198 ?9zp=0a(5)=480p(4,pl)=152 @ Vtdn=0:tna=0::cl=390.05Cff-1/3:sca=0:scd=0:sc=0:a(1)=-100d:a(8)=-100d:b(3)=8:b(2)=14:b(1)=9 [|d(3)=-1:d(2)=35#:d(1)=29:s$="":dp=1:n(1)=-1:n(2)=-1 `Ji=19 :o(i)=7:s(i)=2:p(1,i)=200:i e&i=10 13 :s(i)=2:i j 2920h *2690 :i=129:c$(i):i yhp=0:yp=0:tp=-1:mp=0:op=0:qp=0:rp=0:xp=0:vp=3:wp=2 *i=(*4):i=0shn=532 i=1shn=615g i=2shn=846N i=3shn=939 [d$(1)="06336L Sheffield":d$(2)="06501 Wigan":d$(3)="07032L Scarboro" Yd$(4)="07055L Euston":d$(5)="07107L Poole":d$(6)="07144 Warrngton" Xd$(7)="07201 Wigan":d$(8)="07261 Manchster":d$(9 )="07314 Crewe" %i=1579:c(i)=6:i zp(1,7)=115s:p(2,7)=-900:p$(7)=" Euston Sleeper+"+l$(36$)(6) Tt$(7)=" ECS-Edge Hill":u$(7)=t$(7):p(3,7)=36$ p(1,3)=980:p(2,3)=171:p(3,3)=82R:p(4,3)=82R:p$(3)=" "+l$(82R)(6)+"(0650 departure) ":u$(3)="0650" p(1,6)=997:p(2,6)=600X:p(3,6)=16:p(4,6)=15:p$(6)=" "+l$(15)(5)+"+0633 departure."+l$(16)(6):u$(6)="0633" p(1,8)=965:p(2,8)=500:p(3,8)=38&:p(4,8)=37%:p$(8)=" "+l$(37%)(5)+"+0705 departure."+l$(38&)(6):u$(8)="0705" *2580 :i=178N:r$(i):i y"201915515601","201918140202","201918140303","201918180404","262625250505","262625250606","343433330707","343439390808" y"444355550909","191915515601","191918140202","191918140303","191918180404","262625250505","262625250606","353433330707" y"353439390808","354043550909","010156511519","020214141819","030314141819","040418181919","050505052525","060606062525" y"070733333434","080839393434","095543434040","010156565151","020214141819","030314141819","040418181919","050525252626" y"060625252626","070733333435","080839343535","090955434035","010156511519","020214141819","030314141819","040418181919" y"050525252626","060625252626","070733333434","080839393434","090955434040","100314141819","110525252626","010101015656" B"020214141818","030314141818","040404041818","0","0","0","0","0" "`"100314141818","565656560101","181814140202","181814140303","181818180404","0","0","0","0","0" $y"181814140310","201915515601","201918140202","201918140303","201918180404","262625250505","262625250606","343433330707" &="343439390808","404355550909","201918140310","262625250511" P Z"0635",24,"E",0,"0710",700,"0648",579,"A",0,"0714",400,"0700",17,"E",0,"0738",600X,"0717",32 ,"E",0,"0749",700,"0721",502,"0630",9 ,"0731",452 \"0742",39',"E",0,"0810",500,"0806",58:,"0640",26,"0814",400,"0812",18,"0622",12 ,"0845",600X,"0818",40(,"E",0,"0900",500,"0824",26,"L",0,"0856",700 ^"0827",513,"0735",9 ,"0833",453,"0854",59;,"A",0,"0915",400,"0858",27,"E",0,"0920",700,"0909",19,"0523",18,"0945",600X,"0916",41),"E",0,"0956",500 `"0919",33!,"E",0,"1015",800 ,"0924",524,"0835",9 ,"0938",454,"0949",28,"E",0,"20",700,"9",20,"0640",18,"45",600X,"18",535,"0927",9 ,"30",455 b"29",42*,"0750",6,"125",500,"49",7,"0840",20,"215",800 ,"109",21,"0712",1,"145",600X,"113",491,"0530",27,"200",400,"123",546,"1034",9 ,"138",456,"130",43+,"0850",6,"300",500 d"209",22,"1022",12 ,"245",600X,"215",557,"1126",9 ,"237",400,"232",480,"Parcels stock",0,"320",900,"243",34","0705",24,"410",700,"305",44,,"1020",6,"420",500 f"309",23,"1122",12 ,"345",600X,"325",568,"1235",9 ,"337",400,"335",67C,"Parcels DMU",0,"340",400 r"Cleethrps","Preston","Dover","Wigan","Newcastle","Euston","Manchster","Warringtn","Crewe","Paignton","Carlisle" s"Sheffield","Weymouth","Scarboro","Rhyl","Penzance","St.Helens","Hull","Blackpool","Llandudno","Yarmouth","Leeds" ?"Glasgow","Portsmth","Poole","ManP","Plym","York","Lancaster" "07386l1","07453l2","07497l3","07501x4","08032l5","08105l6","08101x7","08144x8","08201x4","08334x9","08407l10","08413l11","08456l12","08501x4","08567l13" "09005l6","09032l14","09154x15","09207l16","09201x17","09384x9","09401x7","09456l18","09501x4","09553l19","09565l6","10032l14","10158l20","10207l10","10201x17","10304x9" "10401x7","10456l21","10501x4","10553l19","11031x22","11201x17","11255l6","11384x9","11403l2","11431x7","11456l1","11501x4","12004x16","12032l14" "12158l20","12201x4","12374x9","12401x7","12456l12","12501x4","13005l6","13031x22","13201x17","13374x9","13401x7","13453l23","13456l12" @"13501x4","14032l14","14107l24","14200l6","14200x17","14340x9" "0641",1,"E",0,"0703",200,"0706",68D,"0616",4,"0720",172,"0710",60<,"A",0,"0726",163,"0718",45-,"E",0,"0745",300,,"0729",69E,"0639",4,"0750",173,"0738",2,"L",0,"0803",200 "0749",61=,"0649",7,"0810",164,"0808",70F,"0716",4,"0820",174,"0819",25,"0718",7,"0840",700,"0825",11 ,"0740",4,"0841",300,,"0832",3,"E",0,"0903",200,"0836",62>,"0733",7,"0940",165 D"0843",71G,"0755",4,"0850",176,"0908",72H,"0816",4,"0920",175,"0913",4,"0650",28,"3",200,"0919",12 ,"R",0,"0955",300,,"0933",73I,"0846",4,"0950",178,"0957",63?,"0902",7,"40",166,"6",74J,"0918",4,"20",177 <"13",30,"0813",22,"103",100d,"19",46.,"R",0,"55",300,,"33",75K,"1004",17,"50",100d,"45",64@,"0950",7,"143",100d,"103",76L,"1016",4,"120",179,"109",13 ,"0930",29,"140",300,,"113",5,"0711",5,"203",200 "133",77M,"1104",17,"150",100d,"148",65A,"1050",7,"240",100d,"208",78N,"1121",4,"220",181,"213",31,"1015",22,"303",100d,"221",47/,"0823",23,"345",300,,"233",79O,"1204",17,"250",100d "245",66B,"1150",7,"340",100d,"303",80P,"1133",19,"320",100d,"313",6,"0953",14,"403",200,"335",81Q,"1304",17,"350",100d  \0,1;3;"LIME STREET";14;0;k$;23;3;"STATION" -0:1,8;"NEXT DEPARTURES" n2,0;d$(1)(4);d$(1)(6);" ";d$(5)(4);d$(5)(6) n3,0;d$(2)(4);d$(2)(6);" ";d$(6)(4);d$(6)(6) n4,0;d$(3)(4);d$(3)(6);" ";d$(7)(4);d$(7)(6) n5,0;d$(4)(4);d$(4)(6);" ";d$(8)(4);d$(8)(6) g$=" ":h$=" " Gi=31-1:b(i)=-1g$=g$+" ":2764 g$=g$+l$(b(i))(6) +d(i)=-1h$=h$+" ":2766 h$=h$+l$(d(i))(6) i O7,0;0;"P9";s(9 );" ";0;5;p$(9 ) O8,0;0;"P8";s(8);" ";0;5;p$(8) O9 ,0;0;"P7";s(7);" ";0;5;p$(7) Z10 ,6;0;"SE ";2;" ";0;5;" Parcels Stock " P11 ,0;0;"P6";s(6);" ";0;5;p$(6) I12 ,6;0;"SD ";s(11 );" ";0;5;h$ P13 ,0;0;"P5";s(5);" ";0;5;p$(5) P14,0;0;"P4";s(4);" ";0;5;p$(4) I15,6;0;"SB ";s(10 );" ";0;5;g$ P16,0;0;"P3";s(3);" ";0;5;p$(3) P17,0;0;"P2";s(2);" ";0;5;p$(2) ^18,6;0;"SA ";2;" ";0;5;" Pilot (08";shn;") " P19,0;0;"P1";s(1);" ";0;5;p$(1) 21,3;0;"NK ";5;" ";7;" ";5;" ";7;" HD ";5;" ":0 Jn(1)-121,7;5;l$(n(1))(5) Kn(2)-121,15;5;l$(n(2))(5) ;tp-121,25;5;l$(tp)(5) "23560\,0 '"z"2855' (""2856( ,23560\,0: hi=110 il(i)=1+(*70F) j9i1z=0:8000@:z=12921i ki li=110 mFl(i)>502l(i)=l(i)-502:l(i)=l(i)+47400(:2927o nl(i)=l(i)+45100, oi p$i=110 :l$(i)=l(i):i ri=14 sl(i)=21+(*72H) t9i1z=0:8000@:z=12931s ui v<i=11 14:l$(i)=(47400(+l(i-10 )):i wi=19 xl(i)=5+(*64@) y9i1z=0:8000@:z=12936x zi {<i=1523:l$(i)=(31400z+l(i-14)):i |i=16 }l(i)=36$+(*26) ~9i1z=0:8000@:z=12941} i i=16 [a=1+(*10 ):a>4i2i3l(i)=l(i)+86200(\:2947 l(i)=l(i)+47500 l$(i+23)=l(i) i i=12 l(i)=1+(*502) 9i1z=0:8000@:z=12951 i i=12 ,l$(i+29)="+"+(150100+l(i)):i i=12 l(i)=2+(*39') 9i1z=0:8000@:z=12957 i i=12 'l$(i+31)=(85000&+l(i)):i i=12 l(i)=4+(*41)) 9i1z=0:8000@:z=12963 i i=12 'l$(i+33!)=(47600+l(i)):i i=19 l(i)=1+(*35#) 9i1z=0:8000@:z=12969 i i=19 Ga=1+(*10 ):a>8l(i)=l(i)+86200(\:2976 .a>6l(i)=l(i)+86400(:2976 l(i)=l(i)+87000) l$(i+35#)=l(i):i i=13 l(i)=18+(*18) 9i1z=0:8000@:z=12978 i i=13 'l$(i+44,)=(47500+l(i)):i "l(1)=2+(*13 ) (l$(480)=(810004+l(1)) #l(1)=41)+(*15) )l$(491)=(253000w+l(1)) i=17 l(i)=27+(*9 ) 9i1z=0:8000@:z=12988 i i=17 (l$(i+491)=(304000p+l(i)):i i=12 l(i)=20+(*6) 9i1z=0:8000@:z=12994 i i=12 (l$(i+568)=(108200ST+l(i)):i !l(1)=1+(*5) )l$(59;)=(101200E+l(1)) i=17 l(i)=1+(*14) 9i1z=0:8000@:z=13003 i i=17 (l$(i+59;)=(142000 +l(i)):i #l(1)=10 +(*11 ) )l$(67C)=(127900y+l(1)) i=115 l(i)=1+(*15) 9i1z=0:8000@:z=13011 i i=115 (l$(i+67C)=(108200ST+l(i)):i  li=16 vf(i)03250 2o$(i)(4)=" "f(i)=0:3250 g$="":y=128 o$(i)(y)" "g$=g$+o$(i)(y) y g$43220 Lg$="1212"f(i)=0:o$(i)="":tp=hdi:c(535)=6:3250 `g$="5430"f(i)=0:o$(i)="":n(1)=nki:xp=1:c(546)=6:3250 Kg$="5454"f(i)=0:o$(i)="":n(2)=nki:xp=2:3250 Wj=01:x=(g$(2)):x=12 tp-1tp=-1:3230 -x=546n(2)=-1:3230 !x=30n(1)=-1 g$=g$(3):c(x)=6 j o$(i)=g$ i  Bpl=10 gp=b(vp):b(vp)=-1:vp=vp-1:33804 Bpl=11 gp=d(wp):d(wp)=-1:wp=wp-1:33804 Kpc=p(2,pl):gp=p(4,pl):pc=999pc=9003330 t=(u$(pl)(4)):mo=(t/100d):mo=(t-mo*100d):lp=cl-(60<*(t/100d)+mo):scd=scd+lp:tdn=tdn+1 Mz=(pc/100d):z=(pc-z*100d):lp<30z0l$(z)=l$(gp) pc9993360 cp$(pl)=" ":p(2,pl)=0:p(1,pl)=200:33804 pcd=(pc/100d):(pcd1pcd4)p$(pl)=" "+p$(pl)(23):p(4,pl)=p(3,pl):33804 "@p$(pl)=" ":p(1,pl)=200 49g$="":y=128:o$(a)(y)" "g$=g$+o$(a)(y) 6y 8:t=g$:g$=g$(t-1):s(pl)=2:g$="12"hdi=gp Hg$="30"g$="54"nki=gp R)g$="47"g$="49"pc900680 W'pc=900p(2,pl)=999 \f(a)=-f(a): t7:7: vcl<4503820 ~Hi=19 :g$=u$(i)(4):g$=" ECS"g$=" "3730 0t=g$:mo=(t/100d):mo=(t-mo*100d) |t=60<*(t/100d)+mo:tp=cl-t:tp>0p(2,i)>1p(2,i)999scd=scd+tp:tdn=tdn+1 i s=sc*60</(cl-390)+sca/tna+scd/tdn:xp=(scd/tdn+.5):yp=(sca/tna+.5):g$="Outstanding!":cl<810*g$=" Excellent " s>1.5@g$=" Excellent ":s>2.5 g$=" Good ":s>3g$=" Competent ":s>4g$=" Poor ":s>6g$=" DISASTROUS " +0,10 ;3;"END OF SHIFT" #xp=1h$=" min":3780  h$=" mins" #yp=1k$=" min":3790  k$=" mins" ^3,4;1;"Average delay of departing":4,8;"trains was ";xp;h$ T7,4;"Average delay of arriving":8,8;"trains was ";yp;k$ 812 ,4;0;"Regional Control at Crewe" V13 ,2;"have rated your performance":15,8;4;"as ";g$ 20:20,6;"PRESS THE SPACE BAR" .21,4;"FOR ANOTHER TURN OF DUTY"  " "3850    X:p(1,6)>199p(1,6)<250 ] @ a=2i B l(a-1)=l(i)z=1: Da F J@a$(zp+5)=a$(zp+3):a$(zp+6)=a$(zp+3): !47:7:: 'B7:7:0::23641Y\+256*23642Z\ ҭN 2019155156012019181402022019181403032019181804042626252505052626252506063434333307073434393908084443555509091919155156011919181402021919181403031919181804042626252505052626252506063534333307073534393908083540435509090101565115190202141418190303141418190404181819190505050525250606060625250707333334340808393934340955434340400101565651510202141418190303141418190404181819190505252526260606252526260707333334350808393435350909554340350101565115190202141418190303141418190404181819190505252526260606252526260707333334340808393934340909554340401003141418191105252526260101010156560202141418180303141418180404040418180 0 0 0 0 1003141418185656565601011818141402021818141403031818181804040 0 0 0 0 181814140310201915515601201918140202201918140303201918180404262625250505262625250606343433330707343439390808404355550909201918140310262625250511 9  108215(0650 departure) 31460 Euston Sleeper+87028 87033+0705 departure.87024 stock 0710 dep.86259 у  ECS-Edge Hillԃ  ECS-Edge Hill stock 0710 depՃ  0650 0633 ECS-Edge Hill0705 0710 departureCR45135 47408 45140 45102 45134 45117 45144 45113 47412 45129 47468 47478 47483 47486 31468 31460 31465 31451 31459 31419 31427 31463 31449 86259 47539 47538 86241 47542 86236 +150103+15011185024 85020 47607 47626 87028 87033 87024 86209 86227 86417 87012 87034 87019 47530 47522 47521 81012 253055 304034 304030 304035 304033 304029 304028 304032 108220 108225 101203 142001 142003 142011 142004 142013 142002 142006 127914 108214 108203 108201 108212 108209 108202 108211 108207 108204 108205 108208 108206 108210 108213 108215 N   ĥ 06501 Wigan 07032L Scarboro 07055L Euston 07107L Poole 07144 Warrngton07201 Wigan 07261 Manchster07314 Crewe 07386L Cleethrps07386L Cleethrps) 0650 P3 0703 0705 P8 0710 (P9)D 0  OOvꪣOO{*uUU]s*HUUS{|DR$&R%D! ϭ  CleethrpsPreston Dover Wigan NewcastleEuston ManchsterWarringtnCrewe Paignton Carlisle SheffieldWeymouth Scarboro Rhyl Penzance St.HelensHull BlackpoolLlandudnoYarmouth Leeds Glasgow Portsmth Poole ManP Plym York Lancaster  #108220 ECS -Allertonstock 0714 depEXPECTED 0648 ECS -Allerton0714 departure0648 45135 ECS-Edge Hillstock 0703 depAPP. LIME ST. ECS-Edge Hill0703 departure0641 I9 dnFcc|L z hN% Dt{* n  tkx |L cesX0648YAZ0714VCleeJ86259 gInkNp11S3054572928282727262625250511knoH*GK0637