ZXTape! 0Created with Ramsoft MakeTZX$PBORO YYaF[ /0:0:1::0:6 :7,8;" ";0;3;"" :8,8;" ";0;3;"" :9 ,8;" PETERBOROUGH ";0;3;"" !;10 ,8;" POWERBOX ";0;3;"" #;11 ,8;" ";0;3;"" -;12 ,8;" ";0;3;"" 2813 ,8;3;0;"" 7<15,6;1;1;"1992 ASHLEY GREENUP" 66080P <t()<4502 F16,3;0;" ":1000:23674z\,0:23673y\,0:23672x\,0:h<900502 Pg0:1::Q=(Q*900)/H:z=(110n-(q/5)):z>100dz=100d:84T Rz<5z=5 T30,5;2;"PETERBOROUGH POWERBOX" V68,5;6;"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 dE16,3;0;" ":"INPUT: ";i$:i$=""280 nP(i$(1)="P"i$="UT"i$="DT"I$="GL"I$="FI"I$="P3A"I$="P3B")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 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$="P3A"e$="P2":p=2:184 (e$="GL"e$="P7":p=7:184 (e$="FI"e$="P6":p=6:184 (e$="DT"e$="P9":p=9 :184 (e$="UT"e$="P8":p=8:184 (e$="P2"e$="P1":p=1:184 )e$="P3B"e$="P3":p=3:184 e$(1)"P"190 Iq$=e$:9900&:zz=1z$="NOT ALLOWED":q=q+3:250 @p(p,1)>1z$="NOT ALLOWED":q=q+3:250 1850::250 Ci$="UT"p(8,1)>1i$="P8":p=8:220 Ci$="DT"p(9 ,1)>1i$="P9":p=9 :220 Di$="P3A"p(2,1)>1i$="P2":p=2:220 Di$="P3B"p(3,1)>1i$="P3":p=3:220 Ci$="FI"p(6,1)>1i$="P6":p=6:220 Ci$="GL"p(7,1)>1i$="P7":p=7:220 *q$=i$:9900&:zz=1225 p=2p=1:I$="P1" !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;" " " 716,18;7;1;0;W$(Z):  :650 %x$=" " 9c$="1000":h=599W:u=0:v=0:q=0  470 i=114 ,l$(i):i<8a$(i)=x$:a(i)=501 i ђb(1)=85U:b(2)=42*:b(3)=66B:b(4)=33!:b(5)=1:b(6)=19:b(7)=89Y I"FL","DM","MR","UH","UF","US","WY","FL","UM","MR","DH","DF","US","WY" i=19 :l(i):i R20,18,19,20,19,18,17,17,21 W13 ,0;3;"The traffic department reports:-":j=15:e=0  14,1;x$ Vi=17:i=1i=6i=7j=19n(i)=0:570: 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 Np"","Kgx","LBf","Inv","Abd","Gls","Edb","New","Hrg","Lds","Hul","Spl","Blk","Liv","Dby","Brm","Mts","PkF","WBt" O["Rat","Lws","Ips","Har","Nor","Yar","Cam","RpL","Wtm","Dgm","PWY","Flt","Pet","Pet","Pet" Yzp$(1)="5A51 New-Kgx":p(1,1)=303/:k(1)=1:r(1)=1002:f(1)=86V l;e=015,7;3;"No problems today" v821,0;7;"Press any key to continue" {=""635{   Qx2=1:j(300,):w$(89Y,6):g$(89Y,3):800   z$,n1,n2,n3 x=1n3 6x1=n1+(*(n2-n1))+1:j(x1)=1665 >j(x1)=1:w(x1)<10 g$(x2)="00"+w(x1):760 /w(x1)<100dg$(x2)="0"+w(x1):760 g$(x2)=w(x1) !w$(x2)=z$+g$(x2):X2=X2+1 x x2<89Y660  "317",1,42*,6,"101",43+,62>,5,"101",63?,68D,1,"156",69E,97a,21,"91",98b,103g,5,"254",104h,137,24 *"47",138,153,3,"58",154,203,7,"56",204,216,4,"37",219,230,1,"37",231,237,1,"37",238,254,1 4"47",256,276,2,"37",277,278,1,"91",279,282,3,"47",283,288 ,1,"31",289!,300,,3 R,>.5W$(83S+*3)="89001" f p0:0: zX7:1:0,18;"NORTH END ARR.";0,2;"SOUTH END ARR." 7:1:"FL";1,16;"UH":"DM";2,16;"UF":"MR";3,16;"US":4,16;"WY" +17,0;"GL";17,16;"UT";18,0;"FI";18,16;"3A";19,0;"P5";19,16;"3B";20,0;"P4";20,16;"P2";21,0;"DT";21,16;"P1";21,18;1;6;1;" PARCELS " l908:7:0:0:i=615:i,0;"":i  jj=0 p6:920:I=178N:n1,n2:n110008*(n1-1000),n2*8+jj:914 n1*8,n2*8 'i:jj=0jj=-1:910 Z1000,11.58,31.9333,0,1000,10.5(,31.9333,0,1000,9.5,31.9333,0,1000.5z ,10.5(,1,1,1,0,1,-1,1,0,1,-1,1,0,1,-1,5,0,1,-1,5,0,1,1,12.4Ffff,0 1007,13 ,2.5 ,2.5 ,1,0,1,-1,6,0,2,-2,1,0,2,-2,1,0,1,-1,1,0,1,-1,1,0,1,-1,2,0 1008,13 ,1.5@,1.5@,1,0,3,-3,1,1,17.4 333,0,1011.5|,11.58,2,2,5,0 1011.5|,14.5h,6,0,1,-1,1012.5} ,11.58,-1,-1,-1,0,1,-1,1,0,1,-1,5,0,1,1 K1013.5}`,8.5,1,-1,1018.5~,8.5,-1,-1,1028.5,12.5H,-1,-1,1027.5p,10.5(,-1,-1,1001,6,2,2,1002,6,2,2,1002.5z,6.5P,0,1,1014.5},7.5p,1,-1,2,0 1011.5|,14.5h,2,-2,2,0,1006,12.9Nfff,3,0,1002,8.1,3,0 9 ,16;6;0;"";8,15;"";10 ,16;"";14,16;"";11 ,15;"";12 ,15;"";15,16;"";7,15;"";13 ,15;"" h599W950 ,22991Y,67C:22992Y,67C ,23024Y,67C:23025Y,67C 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=17 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 6i=19 :p(i,1)=p(i,1)-1 (Fp(i,1)=499(i=9 i=8)p(i,1)=299+ 2^p(i,1)=499p(i,1)=299++s(i):o(i)>1o(i)<100d1370Z F1p(i,1)=1o(i)>100d1420 P 1390n Z03560 :j=1(o(i)-10 ):z$,x:j d(960:p$(i)=z$+" Pet-"+q$:k(i)=x e.Z$(1)="5"p$(i)=z$+" ECS-"+q$:k(i)=x f<K(I)=X:1388l:Z=16:y,x:O(I)=YO(I)=X gZ ls11 ,108l,12 ,109m,13 ,110n,14,111o,16,105i,17,106j ni xI7,28;0;6;1;c$:sf=0:1490  ?z=(r(i)/100d):z1=r(i)-(z*100d):z=(z*60<)+z1 +h-z<30w$(o(i)-100d)=w$(f(i))  Ui=17:co=1:j=i:JJ=2:i>3j=j-3:jj=18 3a(i)>500a$(i)=a$(i,14)+" Sig " 4a(i)=501a$(i)=a$(i,14)+" Run " ;a(i)51770:a$(i)=a$(i,14)+"App."+z$ Ta(i)4m(i)=0ưa$(i,2)<3sf=0I<7q=q+1  2a(i)3a$(i)=a$(i,14)+" Chk " |a(i)1a$(i)=a$(i,14)+" Hld ":(a$(i,2)<3a(i)<-8)I7sf=0q=q+2 ((i=1i=7)a(i)>3A(I)<500)(a(i)>15a(i)<500)j,JJ;1;1;x$(14):1570" 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 ,Ii=19 :z=2:z$=p$(i,5)+p$(i,10 12 ) @p(i,1)>500z$=z$+" Sig ":sf=0p(i,1)=501x=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 Tap(i,1)>300,p(i,1)<497(i=6i=7)z$=z$+" Loop ":1710 ^&y$=r(i):r(i)<1000y$="0"+y$ h>p(i,1)>300,p(i,1)<497z$=z$+" d"+y$ r(p(i,1)300,z$=z$+" Ready" |Yp(i,1)<300,p(i,1)>2sf=0I6I7q=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=2:(i<4i=8)j=18 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  &C"","in London Area","at March","at Stamford","at Doncaster","","" :z$="" ? e$="" @f(e$(1)="P"i$(1)="P")(e$(1)"P"i$(1)"P")q=q+2:z$="BAD INPUT": Ai$(1)="P"1905q BvA$(A)(2)<3ưA$(A)(2)5P>5A$(A)(1)"*"Z$="GOES INTO PLATFORM":q=q+2: CbA$(A)(2)>2ưA$(A)(2)5P<6Z$="GOES TO LOOP/THRU":q=q+2: D=(t(a)31p=2)(t(a)32 p=3)(t(a)>19t(a)<29p=6)(T(A)=29P7P9 )(t(a)=31p2)(t(a)=32 p3)(t(a)=33!p5)(p5p4t(a)>19t(a)<29ưA$(A)(2)<3)z$="WRONG PLATFORM":Q=Q+2: mWa$(A)(1)="*"i$(1)"P"p9 p8z$="PASSES ON THROUGH LINE": q)I=17:i$=l$(i)1920 vi:1950 route=g(i,p):(route=1ƾ22796 Y=67C)(route=6ƾ22797 Y=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 7i=814:e$=l$(i)i=i-7:1960 $i:z$="NOT ALLOWED":q=q+1:  6000p Xroute=h(p,i):route=32 ƾ22858JY=67Cz$="ROUTE CONFLICT":q=q+2: 9route=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)  "2K16",11 ,"2K20",11 ,"2K24",11 ,"2K26",11 ,"2K30",11 ,"1B25",1,"1B26",1,"1B27",1,"1B28",1 "1B29",1,"2L10",25  u"e$="UM"k(p)<36035 z0e$="DF"k(p)>2k(p)<12 6035 1e$="DH"k(p)>11 k(p)<206035 1e$="MR"k(p)>19k(p)<296035 #e$="WY"k(p)=296035 #e$="FL"k(p)=306035 &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 ;" PETERBOROUGH " #F$10 ,9 ;" " #H 9950& #Ji=0119w: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>9 zz=1: & &ޘ0,62>,32 ,189,161,32 ,32 ,32 ,0,28,8,235,235,8,8,28,0 &240,16,18,117u,21,23,245,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 &J120x,8,11 ,123{,64@,64@,120x,0 &K240,16,22,117u,23,21,246,0 &H24,40(,72H,136,252,8,8,0 &O240,136,139,243,136,136,240,0 &J60<,32 ,161,173,36$,36$,60<,0 &B32 ,32 ,167,167,32 ,32 ,60< &C128,0,0,0,0,0,0,1 '10:7:7:0:0::  , yfcLhXuvqe2ftsmlCgwbnpraR00000001200000M00404050505050ġg1A081A311A101E011E021A121A291E031A141E041E051A161A151E061A181E261A192S332K131L571L582K172K211L841L611L822K231L622K251L652K294X111L561L591L606E156M991L631L641L671X111P141D351S221S201P151D491S361D016M461S191P161D371S211S241P171D381S401S281P181D391S291S301P191X111M551M696E996M331M701M316M701M821M566M342E071M391M736M121M546E311M861M741X116D406M526D631X116H528L588L608L624L406H636H388L686H391X112K597F472M742K497F49g        %-&%,g              !  * ** g 9o6Q`} X#?HXHPX.iory/2@ZX !';m,8JcX6X2gzO >g  /22$g)*'+-"/1S23%45&6" ?@   KQ$78T9:G;U<=(,>#.0OIAJM LN !BDFCWRXPEHYH ;^>=\g t>Umnop A""gHH)**KKlA""gHH)**KLLMMNOPrQPO10/>=<rqqpo>=<rQQPO>=<`(IJKLMNOP``ab`abkL-./0`&'Hi0/.-     kkJIIhh##BBBkkJIhh##BBBopqrPONMLK*))Hgg""BBBOPQrOPQr<=>><=>>ONMLKJI(PONMLKJIH'#Ba`PONLKJIH'#Ba`OPQR3PONMLKJI(  ++JIH'##Ba`:[\]^_iH'&%$#"! "A`tU6789:[\]^_iH'&%$#"! "A`nmlkjiHH'&%$##"! qrstUW66789QRSTT5QRSTWuu0/.-Lk0/.-Lk/012ST5/012STu/012STu0/.-LkjiH'&%$#"! 0/.-Lk"A`:[\]^_"A`outN00000000000000S00000000000000  !"#$%&'()@  #),KLMNOPQRSTUVWXYc[\]^_``bcdefghijklmnonqqst35678:;?ABCDFHLNQstX  !"#%, +Anox~  !"#$%&'()*+,-./012*6:;<=>?@AFNginxz{|}/7?GW_ecef}<`iuy 5:Q  >Iz ZIDMEP2&%4_ . 6D40 Flt-WBt Due 1008 1P14 Kgx-Pet Due 1003 3 late 1M55 Har-Blk Due 1004 33 late 1L56 Brm-Nor Due 1028 1A08 Hul-Kgx Due 1015 2K13 Spl-Pet Due 1026 *6H52 PWY-Flt Due 1050 1 lateЃ 5A51 New-Kgx &V+C"Z0 0 !FLDMMRUHUFUSWYFLUMMRDHDFUSWY&  &0 0 &/ & 0 &&B)C0 V,Y31735531733431735231737231736031733310105410107610106710105910105810100715641615640315642715641415642115640715640415642515640915642015641515642815641015642615641315640215640615641815642215641115642991003 91004 91005 91002 91006 25403225401525402025401025401825400325402725402525403125402425402925403425403025404425403725403325401925403525401425401225400425400225401325400847622 47471 47577 58013 58017 58039 58009 58021 58020 58010 56065 56070 56058 56054 37686 37893 37047 47214 47256 37216 91009 89001 91008 47585 31181 31196 31219 Y355334352372360333054076067059058007416403427414421407404425409420415428410426413402406418422411429003004005002006032015020010018003027025031024029034030044037033019035014012004002013008622471577013017039009021020010065070058054686893047214256216009010008585181196219X C1000T1050Q 1 lateY00Z g