ZXTape! 0Created with Ramsoft MakeTZXBRISTOL YY|3[ /0:0:1::0:6 :7,8;" ";0;3;"" :8,8;" ";0;3;"" :9 ,8;" BRISTOL TM ";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 F20,0;0;" ":1000:23674z\,0:23673y\,0:23672x\,0:h<900502 Pe0:1::Q=(Q*900)/H:z=(110n-q/4):z>100dz=100d:84T Rz<5z=5 T30,5;2;"BRISTOL T M 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 dE20,0;0;" ":"INPUT: ";i$:i$=""280 n,i$="UT"i$="DT"I$(1)="P"200 x a=-1 "i=14: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 X21,0;7;0;1;a$(a,214):z=e(a):300, "EXIT: ";e$:e$=""280 *e$="UT"e$="P14":p=14:184 *e$="DT"e$="P15":p=15: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 Fi$="UT"p(14,1)>1i$="P14":p=14:220 Fi$="DT"p(15,1)>1i$="P15":p=15:220 *q$=i$:9900&:zz=1225 !p(p,1)>0230 *z$="NOT ALLOWED":q=q+3:250 Jp(p,1)>300,z$="NOT READY TO DEPART":q=q+3:250 >21,0;7;0;p$(p):z=f(p):300, "EXIT: ";e$:e$=""280 e$(1)"P"246 *q$=e$:9900&:zz=1225 e$=q$ 1850: 421,0;0;" " z$=""280 721,0;0;" " >21,16-z$/2;7;0;1;z$ 1.5@,-2 <21,0;0;" " " 721,13 ;7;1;0;W$(Z):  :650 %x$=" " 9c$="1000":h=599W:u=0:v=0:q=0  470 i=114 ,l$(i):i<5a$(i)=x$:a(i)=501 i Sb(1)=1:b(2)=29:b(3)=513:b(4)=73I ="FL","ML","UM","CL","","","","FL","ML","DM","CL","","","" i=115:l(i):i 13 ,13 ,14,14,15,15,16,16,17,17,18,18,19,19,20 W13 ,0;3;"The traffic department reports:-":j=15:e=0  14,1;x$ Bi=14:i=4j=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"","Edb","Gls","Lvp","Mcr","New","Yrk","Lds","Dby","Glc","Wor","Cdf","SvB","Pad","Rdg","Swd","Wey","Pts","Sot" Om"Vic","WsM","Tau","Ext","Plm","Pgn","Pnz","BrW","PCL","Brs","Brs","Brs","Brs","DPL","FLT","COY","SLK","SCN" Yp$(1)="2F06 Brs-SvB":p(1,1)=3040:k(1)=12 :r(1)=1004:f(1)=60<:o(1)=162 Zp$(7)="2O88 Brs-Wey":p(7,1)=328H:k(7)=16:r(7)=1028:f(7)=23:o(7)=139 [p$(9 )="1A38 Brs-Pad":p(9 ,1)=315;:k(9 )=13 :r(9 )=1015:f(9 )=9 :o(9 )=116t \zp$(3)="1E32 Brs-Yrk":p(3,1)=3106:k(3)=6:r(3)=1010:f(3)=47/ l;e=015,7;3;"No problems today" v821,3;7;"Press any key to continue" {=""635{   Qx2=1:j(300,):w$(89Y,6):g$(89Y,3):800   z$,n1,n2,n3 x=1n3 8x1=n1+(*((n2+1)-n1)):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<84T660  "253",1,12 ,8,"253",13 ,43+,14,"155",44,,89Y,21,"150",90Z,107k,2,"47",108l,110n,1,"47",111o,144,7 *"47",145,149,2,"47",151,168,1,"47",169,186,3,"108",187,200,14,"205",201,206,1,"37",207,214,3 4"50",215,217,1,"47",218,231,2,"37",232,239,1,"+37",240,246,1,"31",247,252,1 f p0:1:0: z 7 *7:1:"FL":"ML":"UM":"CL" 13 ,0;"P2";13 ,16;"P1";14,0;"P4";14,16;"P3";15,0;"P6";15,16;"P5";16,0;"P8";16,16;"P7" 17,0;"10";17,16;"P9";18,0;"12";18,16;"11";19,0;"UT";19,16;"13";20,16;"DT" l908:7:0:0:i=615:i,0;"":i jj=1:j3=0 6:920:I=1102f+j3:n1,n2:n110008*(n1-1000),176-(n2*8+jj):914 n1*8,n2*8 6i:jj=1jj=0:j3=j3-24:910 1000,8.5,9.5,0,1,1,1,0,2,2,7,0,1,-1,8,0,2.4,2.4,1000,9.5,7.5p,0,1,1,4,0,1,1,16,0,2.4,2.4 1000,10.5(,10.5(,0,1,1,8,0,1,1,9 ,0,2.4,2.4,1002.5z,8.5,1,-1,1,0,1,-1,1,1,1,0,1,1,1,0,1,1,3,0,-1,0,1,1,7,0,1,-1,4,0,1,-1,1,0,1,-1,1,0,1,-1,1.43333,0 1012.5} ,8.5,8,0,-1,-1,1,1,1,0,-1,1,2,0,-3,3,-2.5 ,0 1010.5|,10.5(,2,0,2,-2,4,0,3,3,-2,0,3,0,1,1,1,0,1,1,1013.5}`,11.58,6,0,1007.5{,9.5,5,0,1,-1,6,0,1,1,1021.5`,9.5,10.4&fff,0,1020.5 ,10.5(,11.46fff,0 1023.5,9.5,1,-1,2,0,1,1,1000,7.5p,10.5(,0,1000.5z ,7.5p,1,-1,1000,6.5P,11.58,0,2,2,2.5 ,0,1005.5{`,6.5P,1,-1,1000,11.58,8.5,0,-1,1,2.5 ,-2.5 ,1004.5{ ,11.58,1,1,1006.5{,10.5(,2.5 ,-2.5 u1025.50,6.5P,1,1,2.5 ,0,1028.5,10.5(,1,-1,1.43333,0 d4,15;6;0;"";4,17;"";5,15;"";5,17;"";6,16;"";7,15;"";7,17;"";8,15;"";8,17;"";9 ,15;"";9 ,17;"";10 ,15;"";10 ,17;"";11 ,15;"";12 ,15;"" h599W950 ,22673X,67C:22674X,67C ,22705X,67C:22706X,67C ,22801Y,67C:22802Y,67C ,228331Y,67C:228342Y,67C ,22670X,67C:22671X,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=14 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)) ~Bb(d)=b(d)+1:e(d)=l:t(d)=t:c(d)=g:s=s+1000:t$=s 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=115:p(i,1)=p(i,1)-1 2^p(i,1)=499p(i,1)=299++s(i):o(i)>0o(i)<100d1370Z F1p(i,1)=1o(i)>100d1420 P 1390n Z%3560 :j=1o(i):z$,x:j d(960:p$(i)=z$+" Brs-"+q$:k(i)=x e.Z$(1)="5"p$(i)=z$+" ECS-"+q$:k(i)=x f=K(I)=X:1388l:Z=113 :y,x:O(I)=YO(I)=X gZ l2,163,3,173,5,164,6,165,11 ,120x,13 ,142,15,121y,18,143,19,122z,21,141,22,145,23,168,26,117u ni xH5,6;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))  i=14:co=1 :a(i)>500a$(i)=a$(i,14)+"Sig. to Station " :a(i)=501a$(i)=a$(i,14)+"Run. into Platfm" ;a(i)51770:a$(i)=a$(i,14)+"App."+z$ Ta(i)4m(i)=0ưa$(i,2)<3sf=0I<7q=q+1  8a(i)3a$(i)=a$(i,14)+"Checked on App. " a(i)1a$(i)=a$(i,14)+"Held at App Sigs":(a$(i,2)<3a(i)<-8)I4sf=0q=q+2 Ci=4a(i)3a$(i)=a$(i, 14)+"Ready to Leave " }(i=4a(i)>3A(I)<500)(a(i)>15a(i)<500)I-1,2;1;1;x$:1570" Sa(i)>15a(i)<500i-1,2;1;1;x$:1570" 5i-1,2;7;1;1;a$(i) "i ,vi=115:z=2:z$=p$(i,5)+p$(i,10 12 ):i=2Z$=" PARCELS VANS ":1710 @p(i,1)>500z$=z$+" Sig ":sf=0p(i,1)=501x=18:(22656X+i(p(i,2),x)),70F:x Jp(i,1)=500z$=z$+" Arr ":sf=0x=9 17:(22656X+i(p(i,2),x)),70F:x:p(i,2)=0 ^&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" |Ep(i,1)<300,p(i,1)>2sf=0q=q+1 6p(i,1)=2z$(10 14)=" Dep " p(i,1)=1z$=" ":sf=0x=19 :22656X+i(p(i,2),x),70F:x:1691 Rp(i,1)0p$(i)=" ":z$=x$:z=2z$=z$(14) sf=0ƾ(64080P+i)>0x=10 19:22656X+i((64080P+i),x),70F:x:(64080P+i),0 /j=2:(i/2)i/2j=18 l(i),j;1;7;1;z$:p(i,1)300,p(i,1)>2l(i),j+8;3;1;1;"" i   18400 k=1i:z$:k:   1830& k=1i:t$:k  &6"at Stapleton Rd","in Bath","in Western Suburbs"," " 02" D R Days Jc","N Somerset J"," Pylle Hill "," " :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 BqA$(A)(2)<3ưA$(A)(2)5(P=14p=15)Z$="GOES INTO PLATFORM":q=q+2: CeA$(A)(2)>2ưA$(A)(2)5P<6Z$="GOES ON THROUGH LINE":q=q+2: D(p=1t(a)29t(a)11 t(a)17)(a$(a)(2)"3"p=13 )(a$(a)(2)="3"p13 )((A$(A)(2)=4ŰA$(A)(2)>6)P14p15)z$="WRONG PLATFORM":Q=Q+2: N(e(a)<23(e(a)>45-e(a)<579))(((a>2ƺ(p/2)=p/2))(a<3ƺ(p/2)p/2)(((P/2)P/2(e(a)=35#(e(a)>68De(a)<72H)))))q=q+2:z$="FAR END OF PLATFORM ONLY": St(P/2)P/2(e(a)=35#(e(a)>68De(a)<72H))q=q+2:z$="FAR END OF PLATFORM ONLY": mYa$(A)(1)="*"i$(1)"P"p14p15z$="PASSES ON THROUGH LINE": q)I=14:i$=l$(i)1920 vi:1950 Rroute=g(i,p):p(p,2)=route:route=0z$="NOT ALLOWED":Q=Q+1: _route=579((f(p)>22F(P)<46.)(f(p)>59;f(p)<74J))Route=102f _route=61=((f(p)>22f(p)<46.)(f(p)>59;f(p)<74J))Route=103g X=119 ^(22656X+i(route,x))=67Cz$="ROUTE CONFLICT":q=q+2:p(p,1)=0: x x=119 #(22656X+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 route=h(p,i) 9route=0z$="ROUTE NOT POSSIBLE":q=q+2: \x=319:(22656X+i(route,x))=67Cz$="ROUTE CONFLICT":q=q+2: x x=119 !22656X+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)  "3A12",14,"2F08",12 ,"5C20",26,"1E33",6,"2F09",12 ,"2F10",12 ,"5C26",26,"2F11",12 ,"5V49",26 "2F12",12 ,"5C16",26,"2O92",18,"5V70",26,"1A46",13 ,"5C26",26,"5C75",26,"5V80",26,"5V74",26,"5C34",26,"2B15",9 "2C18",21,"2C22",21,"2C27",21,"2C36",20,"5C73",26,"1A44",13 ,"2B11",9 ,"2O89",16,"1M70",8,"1A53",13 ,"2O91",16,"1A63",13  u#e$="FL"k(p)<13 6035 z1e$="ML"k(p)>12 k(p)<206035 1e$="DM"k(p)>19k(p)<266035 #e$="CL"k(p)=266035 &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 ;" BRISTOL T M " #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>15zz=1: & &ޘ0,60<,32 ,161,189,36$,36$,60<,0,60<,4,133,157,4,4,60<,0 &60<,4,133,133,4,4,4,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 &J60<,36$,165,189,36$,36$,60<,0 &H24,40(,72H,136,252,8,8,0 &J46.,42*,170,170,42*,42*,46.,0 &J36$,36$,165,165,36$,36$,36$,0 &J46.,34",162,174,40(,40(,46.,0 &G60<,36$,165,189,4,4,4,0 '10:7:7:0:0:: ' 880p:xx:X=119:0,0;0;"i(";xx;",";x;")":i(xx,x):22656X+i(xx,x),67C:x:9995 ' ' ,X=119:X;" ";I(46.,X):X xwJ#   y fcLhWuvqeft sml:gwgbnpraR00000001200000M00404050505050ġg1V383A122O112F256C342C202O121V392F261V401V422O131V462F287C082C262O141V482F292O151V491V502O166C112F302C362O172X221C162V682V691C182V701C221C242V711C263C752V732C331C301V802V742V751C342V772V781C382V791X002C651E408B172C671M098B191S712C681A491S646M292A281S352C704B102B131A571M001M566S552C731E363B125A445B115O895M705A533A715O915A631M861M741X116D406M526D631X116H528L588L608L624L406H636H388L686H391X112K597F472M742K497F49g $               #!"%-&%,g              * ** g%1;x;]dg"/qvBKOd 7ozQ`9i1@X6X2gzO >g%4)   M 8 '   /22$g9=QE>71?NF@2MAG J !S"#.$%B&'(K,3L4C5P)DO-60RH:I*8;+ !BDFCWRXPEHYH ;^>=\g  v w &outDN00000000000000S00000000000000 ,)*+,-.234567  !"#$%&'(-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ     C!"#$%&'()*+,-./0123456789:;<=>?@AB +DEFGHIJKLMNOPQRSTU%.>[hpqrst !#$.4$/:[gef}<`iuy 5:Q  >Iz F(n>]]\[ZYXXWVUU4>]\\[ZYXWVVU44321>]\[ZYXWVU432100/._~~ttsrq_~ttsrqpon_~_~_~_~_~_~~_~_~yxwvvUU44yxwwvU44321yyxwvU43210/.tssrqtsrqponjkL-./012jjkL--./jklmnopqrjklmmnojkllMNOPQjkL-./012jkL--./jklmnopqrjklmnmo4UVVWXYZ[[\]>>4Uvwwxy12334Uvvwxyz{{|}^??1234Uvwwxy210/.-Lkj210/.-Lkj./01234UVVWXYZ[\]>./01234Uvwxy/.-Lkj/.--Lkjqrsttuvwxxyyz{|}^^?qrsstuvvwxyrqponmrqponmnopqrsstuvwxyz{|}^?noqpqrstuvwxyonmonmmyz{||}^^?yz{|}^?yz{|}}^^??yz{|}^?yyz{|}^???yz{|}^?yyz{|}^??PQRSSTuvwwxyz{|}^^?./01234Uvwxyz{|}^^?1 % !"#$'()*+-,./0&1789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdeIP5ECLQ 7 lateY00X C1000Tin Western Suburbs}  NN! NNNN,Y25304625305225305025304225305525304425305325305125301125300625300525301725300725300325301625303025303925303325301025303425303825301815534315532415532715530615530715531315533015531915531115533915534615532115532915534515532215532615530315533115534015534115534415027315027647500 47828 47829 47819 47804 47831 47807 47803 47508 47432 47849 47458 47558 47626 108973108960108976108398108965108962108966108969108961108963108399 Y046052050042055044053051011006005017007003016030039033010034038018343324327306307313330319311339346321329345322326303331340341344273276500828829819804831807803508432849458558626973960976398965962966969961963399 Z108