ZXTape! 0Created with Ramsoft MakeTZXCREWE [[g-] /0:0:1::0:6 :7,8;" ";0;3;"" :8,8;" ";0;3;"" :9 ,8;" CREWE ";0;3;"" !;10 ,8;" POWER ";0;3;"" #;11 ,8;" BOX ";0;3;"" -;12 ,8;" ";0;3;"" 2813 ,8;3;0;"" 7>15,4;1;1;"  1992 ASHLEY GREENUP" 630v80P <t()<4502 F16,3;0;" ":1000:23674z\,0:23673y\,0:23672x\,0:h<870f502 P\0::z=h*(q/870f):z=(120x-z/5):z>100dz=100d:84T Rz<5z=5 T70,3;2;"RAIL TRAFIC CONTROL CREWE" V68,5;6;"Efficiency Rating ";z;"%" X\20,2;7;"Do you wish to play again ?";21,10 ;"Press y or n" Y="y"1 Z ="n" [ 89Y dE16,3;0;" ":"INPUT: ";i$:i$=""280 n,i$(1)="p"i$="ut"i$="dt"200 x a=-1 "i=18:i$=l$(i)a=i i 6a=-1z$="NOT ALLOWED":q=q+3:250 :a(a)>500z$="NOT ALLOWED":q=q+3:250 Ca(a)>5z$="TOO EARLY TO SET ROUTE":q=q+3:250 X16,5;7;0;1;a$(a,214):z=e(a):300, "EXIT: ";e$:e$=""280 (e$="dt"e$="p9":p=9 :184 *e$="ut"e$="p10":p=10 :184 e$(1)"p"190 Iq$=e$:9900&:zz=1z$="NOT ALLOWED":q=q+3:250 0p>1p=p-2:p>5p=p-1 @p(p,1)>1z$="NOT ALLOWED":q=q+3:250 1850::250 Fi$="ut"p(10 ,1)>1i$="p10":p=10 :220 Ci$="dt"p(9 ,1)>1i$="p9":p=9 :220 *q$=i$:9900&:zz=1225 0p>1p=p-2:p>5p=p-1 !p(p,1)>0230 *z$="NOT ALLOWED":q=q+3:250 Jp(p,1)>300,z$="NOT READY TO DEPART":q=q+3:250 >16,5;7;0;p$(p):z=f(p):300, "EXIT: ";e$:e$=""280 e$(1)"p"246 *q$=e$:9900&:zz=1225 e$=q$ 1850: 416,3;0;" " z$=""280 716,3;0;" " >16,16-z$/2;7;0;1;z$ 1.5@,-2 716,3;0;" " " ,Nz$="862":z>24z$="870":z>42*z$="864":z>524z$="+1501" .Zz>535z$="1501":z>62>z$="476":z>70Fz$="475":z>77Mz$="3040" 0Xz>83Sz$="474":z>88Xz$="580":z>92\z$="560":z>94^z$="561" 2Dz>95_z$="850":z>98bz$="330":z=101ez$="2530" 4z=102fz$="3100" 6z=103gz$="+200" 8z>104hz$="451" @$mo=(f1/2):mo=f1-mo*2 J#mo0z=103gz$="+201" Tz104h360h ^,f1>4z$="472":f1>7z$="471" hf20z=f2z$="3030" r?f30z=f3z$="861":w(f3)=1mo=0z$="871" |"y$=w(z):y$=1y$="0"+y$ >z$=z$+y$:16,18;7;1;0;z$:  :650 %x$=" " 9c$="0930":h=5699:u=0:v=0:q=0  470 i=18 !a(i)=501:l$(i):a$(i)=x$ i ѧb(1)=89Y:b(2)=75K:b(3)=502:b(4)=94^:b(5)=31:b(6)=1:b(7)=11 :b(8)=41) )"sw","ds","df","st","ch","uf","us","mn" i=110 :l(i):i [21,20,19,21,20,19,18,17,17,18 `0:13 ,0;3;"The traffic department reports:-":j=15:e=0  14,1;x$ >i=18:i=2i=6j=19570: yz$="":x=1+(*502):1800:x=502n(i)=20+(*11 ):z$="Severe disruption ":5600 Lx=491n(i)=10 +(*11 ):z$="Engineering work ":5600 Bx=480n(i)=10 :z$="Operational problems ":5600 &%x<480n(i)=0:570: 0M:j,0;3;z$:j=j+1:j,5;t$:j=j+1:e=1 :i D.n(2)=n(1):n(6)=n(5) Nm"Liv","Gla","Car","Blk","Abd","Str","Inv","Ayr","Stl","Bar","Prs","Gar","Wig","Fid","Eus","Bir","Pad","Brs" Oy"Ple","Ptn","Plm","Pts","Pnz","Ble","Wil","Hol","Lld","Chs","Man","Alt","Cdf","Swn","Abw","Pwl","Shw","Stk","Not","Dby" P1"Gra","Skg","Oak","Tot","Crw","PCL","MGR","COY" Xzp$(1)="2H23 Crw-Alt":p(1,1)=315;:k(1)=29:r(1)=944:f(1)=80P Y{p$(2)="2P82 Crw-Dby":p(2,1)=3084:k(2)=37%:r(2)=0937:f(2)=59; Zzp$(3)="1V49 Liv-Ptn":p(3,1)=302.:k(3)=19:r(3)=931:f(3)=24 [|p$(6)="1D27 Crw-Hol":p(6,1)=406:k(6)=25:r(6)=1115[:f(6)=100d l;e=015,7;3;"No problems today" v821,0;7;"Press any key to continue" {=""635{  jf1=1+(*10 ):f2=1+(*18):f3=1+(*10 ):f4=0:f5=0 &720:j=111 :x,y,z )bo=j-1:bo>7bo=bo-7 bo k=xy:w(k)=k-z k  8204 j -1,58:,-3,25,59;,24,43+,81Q,42*,535,102f,524,63?,85U,61=,67C,90Z,42*,71G,91[,63?,73I,101e,44,,75K,103g,17,78N,99c,77M,81Q,103g,58: 2j=122:x,y,z:w(x)=y+(*z)+1 j 77M,86V,13 ,84T,0,19,85U,19,20,86V,39',20,87W,59;,20,88X,79O,13 ,89Y,0,8,90Z,8,9 ,91[,17,9 ,92\,26,9 ,93] <0,491,94^,491,502,95_,-1,36$,96`,1,13 ,97a,14,13 ,98b,27,13 ,99c,0,33!,100d,33!,32 ,101e,40(,15,102f,45-,502,103g,0,99c,104h,0,502 #j=18:x,y:8204 &bo=j-1:bo=8bo=0 bo j  63?,70F,71G,77M,78N,83S,84T,88X,89Y,92\,93],94^,96`,98b,99c,100d #f2>6f2=0:800  @f2=77M+f2:w(f2)=24+12 *(1+(*3))  f3>3f3=0: %Af3=24+(1+(*18)):w(f3)=1+(*3) * 4?i=1100d:c=x-1+(1+(*(y-x+1))) H:d=x-1+(1+(*(y-x+1))):c=d840H R1w(105i)=w(c):w(c)=w(d):w(d)=w(105i) \i f p0:0: zX7:1:0,18;"NORTH END ARR.";0,2;"SOUTH END ARR." 7:1:"SW";1,16;"CH":"DS";2,16;"UF":"DF";3,16;"US":"ST";4,16;"MN" 17,0;"";17,16;"D";18,0;"";18,16;"U";19,0;"9";19,16;"5";20,0;"7";20,16;"4";21,0;"6";21,16;"1" K1:1:i=1721:i,15;" ";i,31;" ":i  jj=0 p6:920:I=187W:n1,n2:n110008*(n1-1000),n2*8+jj:914 n1*8,n2*8 &i:jj=0jj=1:910 1000,16.5,7.5p,0,3,-3,1,0,2,2,5,0,1,-1,1,0,2,2,9.4fff,0 1000,15.5x,7.5p,0,6,-6,18.4333,0,1000,13.5X,.5,0,1,-1,1,0,2,-2,1,0,4,-4,9 ,0,2,2,4,0,3,-3,4.4 ,0 |1000,12.5H,31.9333,0,1000,11.58,31.9333,0,1000,10.5(,31.9333,0 1000,5.50,.5,0,7,7,1000,5.50,1.5@,0,3,3,2,0,2,-2,2,0,2,2,2,0 1031.9,6.5P,-4.5,0,-6,6,1,0,3,-3,3,3,1031.9,15.5x,-9.5,0,-3,-3,1022.5,12.5H,-2,2,-3,0,1017.5~`,13.5X,2.99,0 1000,13.5X,2.5 ,0,1,-1,7,0,1,1,-2,0,5,0,-3,0,1,1,2,0,1005.5{`,16.5,1,-1,1025.50,15.5x,1,1,1,0,1,-1 1020.5 ,9.5,1,-1,1,0,1,1,.9ffff,0,3,-3,1,0,1,-1,1002.5z,6.5P,0,1,1,1,1,0,1011.5|,7.5p,3,0 9 ,16;6;0;"";12 ,16;"";7,15;"";8,15;"";13 ,15;"";14,15;"";6,16;"";15,16;"";10 ,15;"";11 ,15;"" h5699950 Pi=16:n1:(22688X+n1),67C:(22689X+n1),67C:i <301-,77M,239,269 ,335O,113q 0:0   590N j=0x:q$:j  .15~,10 Qh=h+1:mo=(h/60<):mo=h-mo*60<:z$=mo:z$=1z$="0"+z$ .z$=(h/60<)+z$:z$=3z$="0"+z$ c$=z$ Ld=18 V/a(d)=a(d)-1:a(d)5001290  ` a$(d)=x$ jOz$=d$(b(d)):f=q(b(d)):t=u(b(d)):s=v(b(d)):m=x(b(d)):l=y(b(d)):g=z(b(d)) os<900s=s+1000 t<z$="1V07"(f5=1f5=11 )l=99c:1150~ y#z$="1V87"f5>9 l=101e ~Kb(d)=b(d)+1:e(d)=l:t(d)=t:c(d)=g:t$=s:s<1000t$="0"+t$ y$=" " m=0y$="*" Jy$=y$+z$+" ":x=f:960:y$=y$+q$+"-":x=t:960: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 ;x=1+(*10 ):x<7b=0:1190 1x=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 n=4:1230 g=1n=8 m>n+bm=m-b:1240 m=n Bm01+(*10 )<4m=m+1:1260 6m01+(*10 )=1m=m+2 7z$="Due "+t$+" ":b=0q$=" ":1280 &q$=b+" late":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 (Gp(i,1)=499(i=9 i=10 )p(i,1)=299+ 2\p(i,1)=499o(i)1p(i,1)=299++s(i):o(i)>11370Z F1o(i)=1p(i,1)=4961420 P 1390n Z03560 :j=1(o(i)-10 ):z$,x:j d(960:p$(i)=z$+" Crw-"+q$:k(i)=x ni xJ15,21;0;6;1;c$:sf=0:1490  /j=f(i):j=491f(i)=68D:1450 'j=13 f(i)=69E:1450 'j=15f(i)=77M:1450 j5131450 3f4=1f4=11 f(i)=63?:1450 f(i)=70F 'j=63?f(i)=22:1470 'j=72Hf(i)=42*:1470 j64@1470 'f4>9 f(i)=491:1470 f(i)=23 p(i,1)=296(+s(i)  Ui=18:co=1:j=i:JJ=2:i>4j=j-4:jj=18 3a(i)>500a$(i)=a$(i,14)+" Sig " 3a(i)=501a$(i)=a$(i,14)+" Run " ;a(i)51770:a$(i)=a$(i,14)+"App."+z$ Ja(i)4m(i)=0ưa$(i,2)<3sf=0q=q+1 ra(i)2a$(i)=a$(i,14)+" Held ":(a$(i,2)<3a(i)<-8)sf=0q=q+2 Qa(i)>15a(i)<500j,JJ;1;1;x$(14):1570" j,jj;7;1;1;a$(i)(5);6;a$(i)(11 13 );7;a$(i)(1922);6;a$(i)(2425) "i ,Ji=110 :z=2:z$=p$(i,5)+p$(i,10 12 ) @(p(i,1)>501z$=z$+" Sig " Etp(i,1)=501z$=z$+" Run ":sf=0x=18:(22688X+i(p(i,2),x)),70F:x Jp(i,1)=500z$=z$+" Arr ":sf=0x=9 15:(22688X+i(p(i,2),x)),70F:x:p(i,2)=0 TLp(i,1)>496p(i,1)<500o(i)=1z$=z$+" Chg " ^&y$=r(i):r(i)<1000y$="0"+y$ hBp(i,1)>300,p(i,1)<497z$=z$+" d"+y$+" " r(p(i,1)300,z$=z$+" Ready" |Ep(i,1)<300,p(i,1)>2sf=0q=q+1 6p(i,1)=2z$(10 14)=" Dep " p(i,1)=1z$=" ":sf=0x=18:22688X+i(p(i,2),x),70F:x:1691 Rp(i,1)0p$(i)=" ":z$=x$:z=2z$=z$(14) sf=0ƾ(64080P+i)>0x=9 17:22688X+i((64080P+i),x),70F:x:(64080P+i),0 .j=1:(i<4i>8)j=17 l(i),j;1;7;1;z$:p(i,1)300,p(i,1)>2l(i),j+8;3;1;1;"" i   18400  z$=" App "   1830& k=1i:t$:k  &Q"at Weaver Junction","at Weaver Junction","in Chester Area","in Stockport Area" 'G"in Stafford Area","in Stafford Area","at Whitchurch","in Stoke Area" :z$="" ? e$="" @d(e$(1)="p"i$(1)="p")(e$(1)"p"i$(1)"p")q=q+2:z$="BAD INPUT": Ai$(1)="p"1905q D(t(a)=28p=8)((t(a)>24t(a)<28)p8p4)(t(a)=42*p1p6p7p5p2)((p=5p=1p=6p=7p=2)t(a)42*)z$="WRONG PLATFORM":Q=Q+2: mXa$(A)(1)="*"i$(1)"p"p9 p10 z$="PASSES ON THROUGH LINE": nWa$(A)(1)=" "(p=9 p=10 )i$(1)"p"z$="NOT A THROUGH TRAIN": q)I=18:i$=l$(i)1920 vi:1950 }route=g(i,p):route>4route<8(22772X=67Cž22773X=67C)z$="ROUTE CONFLICT":Q=Q+1: Dp(p,2)=route:route=0z$="NOT ALLOWED":Q=Q+1: X=117 ^(22688X+i(route,x))=67Cz$="ROUTE CONFLICT":q=q+2:p(p,1)=0: x x=117 #(22688X+i(route,x)),67C x:p(p,2)=route  2950 )i=18:e$=l$(i)1960 $i:z$="NOT ALLOWED":q=q+1:  6000p route=h(p,i):((route=71Groute=70Froute=579(route>63?route<67C))(22772X=67Cž22773X=67C))z$="ROUTE CONFLICT":q=q+2: 7route=0z$="ROUTE NOT POSSIBLE":q=q+2: \x=317:(22688X+i(route,x))=67Cz$="ROUTE CONFLICT":q=q+2: x x=117 5i(route,x)>022688X+i(route,x),67C x p(p,2)=route i$(1)="p"3260 !c=0:u=0:v=0 D/a(a)>2a(a)=a(a)+500:3150N Fa(a)=502 X1p(p,1)=a(a):y=a(a)-502:3312 -p(p,1)=2:64080P+p,route: z=o(p) 2dh=2:a$(a,1)="*"a$(a,6)="*" 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)  "2H27",29,"2F71",0,"2H21",29,"2J13",33!,"2F73",0,"2F75",0,"2F77",0,"2F79",0,"2D55",27 "2D57",27,"2H25",29,"2H29",29,"2H23",29,"1A42",14,"2J44",34","2J46",34","2E71",39',"2P84",37%,"2E73",38&,"2P86",37%,"2E75",39'  u-(e$="df"e$="ds")k(p)<146035 z;(e$="uf"e$="us")k(p)>13 k(p)<256035 1e$="ch"k(p)>24k(p)<286035 1e$="sw"k(p)>29k(p)<35#6035 #e$="st"k(p)>34"6035 3e$="mn"(k(p)=29k(p)=28)6035 &z$="WRONG EXIT ROUTE":q=q+2:  1962 #(81:0:0::0:6:0 #-#5,9 ;" " #2#6,9 ;" RAIL TRAFFIC " #7#7,9 ;" CONTROL " #<#8,9 ;" POWER BOX " #A#9 ,9 ;" CREWE " #F$10 ,9 ;" " #H 9950& #Ji=0111o:j: #L "a"+i,j #Ni #U7:0 #Z.13 ,4;"Awaiting traffic reports" #_014,3;"from control - Please wait" #d & zz=0 &"q$(1)="p"q$=q$(2) &"zy=q$:zy=0zz=1: &zy>2zz=1: &i=1zy &#q$(i)<"0"q$(i)>"9"zz=1: &i &+p=q$:p<1p>11 zz=1: &+p=2p=3p=8zz=1 & &ޑ94^,82R,82R,82R,82R,82R,94^,0,18,18,210,210,18,18,18,0 &60<,32 ,161,189,36$,36$,60<,0,60<,32 ,161,189,4,4,60<,0 &62>,8,203,203,8,8,8,0,34",34",162,162,34",34",28,0 &J568,36$,162,162,34",36$,568,0 &J16,16,215,215,16,16,16,0 &I120x,8,8,120x,64@,64@,120x,0 &H72H,72H,72H,72H,72H,72H,72H,0 &H24,40(,72H,136,252,8,8,0 &C120x,8,8,8,8,8,8,0 &H60<,36$,36$,60<,36$,36$,60<,0 &E60<,36$,36$,60<,4,4,4,0 '10:7:7:0:0:: Rd4  Ey:z;:c"LhfuvqweftsgmlVgwbnp raR00000001200000M00404050505050qi94+/%#')0*3 !  1<-8:6 =(, 2 ".5;7$&%0 + -!I;! X&0'X'K8# 5 ">3LL (ġg1A276D251M186K561A381A321M051M066D261M201A261V552K661A471G711V572K681A403M072K701V871M532K721G731A371O111M071V721V732K741V053B051A661A412K522K501A451D172K541V811O071A292K202K222K241A432K262K281V071S471F111M491S641F141P181D421D431S571M881D441S591P021F161S741S631D481Z091H111F221S681S691S391P621S843S401M083M141P141M101S617F781P317F461M031M373S011M867F482K831M702K852K871M841D332M687F412M727F452K597F472M742K497F49g,-, + +++-,+, ""#&,&,%-&%,g)()******#$******   **** * * ** g v8)9gxFLU[a'd}EV|B)emw,4<LR\ 1fEXh|>g      LB_ $g+YgZJO,fN-OAN. !OGT?H65@h7UIQRSPQV# e $ 1 %&23'4()`Ca/W"0 _KLbX]8c9:?B<[=];^>=\g  >U3RQPOuWWTSRQuTS210/?>=<;:9876Ut?>=<;:9876UtWtsrq?>=<5TSTSRQ?>=<5TS210/~}|{Z93RQPO~}|{Z9~}\[:~}\[:(IJKLMNPkL-./0`(IJKLMNOP``ab`abkL-./0`&'Hi(IjkL-./0(Ijjkklmn&'Hi`A"'HIJKLMNOP`A"'HIJ+    `A"`A"`A"kL-./0`A"OPQR3:[\]^_PONMLKJI(OPQR3PONMLKJIH'#Ba`OPQR3PONMLKJI(  ++JIH'##Ba`:[\]^_iH'&%$#"! "A`tU6789:[\]^_iH'&%$#"! "A`nmlkjiHH'&%$##"! qrstUW66789QRSTT5QRSTWuu0/.-Lk0/.-Lk/012ST5/012STu/012STu0/.-LkjiH'&%$#"! 0/.-Lk"A`:[\]^_"A`,  !"   +-,*.)//5436012=<;>978:?@BAHGFIECDLKJOMNout"N00000000000000S00000000000000X T1431Q10IstEp9C1430Y1312Z +i  Б  +5 5  ++5 5 ++5 ++5 T