ZXTape! 0Created with Ramsoft MakeTZXNEWCASTLE rrq't /0:0:1::0:6 97,8;" ";0;3;"" 98,8;" NEWCASTLE ";0;3;"" 99 ,8;" UPON TYNE ";0;3;"" !<11 ,8;" POWER BOX ";0;3;"" #:10 ,8;" ";0;3;"" -:12 ,8;" ";0;3;"" 2713 ,8;3;0;"" 7715,8;1;1;"1991 A.GREENUP" 66080P F21,0;0;" ":1000:23674z\,0:23673y\,0:23672x\,0:h<960502 Pc0::1:Q=Q/H*960:z=(100d-q/5):z>100dz=100d:84T Rz<5z=5 T<0,1;7;"RAIL TRAFFIC CONTROL NEWCASTLE" V68,5;7;"Efficiency Rating ";z;"%" X\20,0;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 ii$="a"i$="p17" ni$(1)="p"200 x a=-1 "i=15: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$="a"e$="p17" e$(1)"p"190 Iq$=e$:9900&:zz=1z$="NOT ALLOWED":q=q+3:250 Np(p,1)>0z$="PLATFORM ALREADY OCCUPIED":q=q+3:250 1850::250 *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;" " " 921,13 ;7;0;1;g$(z):  :650 Ax$=" ":n$="00000000000000":s$=n$ 9c$="1000":h=599W:u=0:v=0:q=0  470 i=15 !a(i)=501:l$(i):a$(i)=x$ i hb(1)=1:b(2)=27:b(3)=64@:b(4)=85U:b(5)=513 "yk","cl","ke","bk","sl" i=111 :l(i):i d19,15,16,17,18,17,16,15,18,19,20  :9 ,0;7;1;"THE TRAFFIC DEPARTMENT REPORTS:-";11 ,0;3;"Engineering Work at Low Fell-";12 ,0;7;"Freights diverted via station";15,0;" ":j=14:e=0  ;6,10 ,164,5,25,175 n(5):i=14 j19570: yz$="":x=1+(*15):1800: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:570: 0\j+1,0;3;z$:j=j+1:j+1,5;t$:j=j+1:e=1 :i N 620l Xp$(4)="1A12 New-KgX":p(4,1)=335O:k(4)=2:r(4)=1035 :f(4)=1:P(4,2)=1 Yp$(10 )="2B07 New-Mid":p(10 ,1)=330J:k(10 )=23:r(10 )=1030:f(10 )=69E:P(10 ,2)=1 Zp$(9 )="2H23 New-Sun":p(9 ,1)=360h:k(9 )=22:r(9 )=1100L:f(9 )=78N:P(9 ,2)=1 [p$(8)="1V64 New-Ply":p(8,1)=464:k(8)=7:r(8)=1244:f(8)=39':P(8,2)=1 bN615g:a=14:N1,N2:x=n1n1+n2:22686X+x,67C:x gH209,1,16,0,241,1,273,1 ia: v821,3;7;"Press any key to continue" {=""635{  =g$(115s,13 ):n4=1:l(159):700  n1:n2:n3 x=n3n1+n3-1 Gjj=n3+(*n2):l(jj)=0l(jj)=1:g$(n4)=f$(jj):670  666 In4<28g$(n4)="43"+g$(n4)(3)+"+43"+g$(n4)(46) Sg$(n4)(1)="7"g$(n4)="157"+g$(n4)(3)+"+157"+g$(n4)(46) pn4>39'n4<43+g$(n4)(1)"6"g$(n4)="37"+g$(n4)(13)+"+37"+g$(n4)(46) n4=113q n4=n4+1:x:660 23,29,1,4,8,30,3,5,38&,2,5,43+,5,10 ,480,1,6,90Z,1,4,66B 3,5,58:,1,3,63?,1,4,66B,13 ,20,70F,3,6,90Z,2,6,96` Ɖ4,4,102f,13 ,14,106j,10 ,11 ,120x,19,21,131,5,5,152 0:0::7:1::0;7;"YK";1,0;"CL";2,0;"KE";3,0;"BK";4,0;"SL" 0:7:1:15,0;"";15,16;"8";16,0;"";16,16;"9";17,0;"";17,16;"";18,0;"";18,16;"";19,0;"7";19,16;"";20,16;"A" C128,0,0,0,0,0,0,1 l6:1:930:i=12782:n1,n2:n1>999n1-1000,n2:929 n1,n2 i 1000,99c,255,0,1000,91[,255,0,1000,83S,4,0,8,8,1000,75K,100d,0,16,-16,23,0,24,24,72H,0,8,8,3,0,1000,59;,12 ,0,16,16,8,0,8,8,568,0,16,-16,32 ,0,8,8,568,0,20,-20 1000,98b,255,0,1000,90Z,255,0,1000,82R,4,0,8,8,1000,74J,100d,0,16,-16,23,0,24,24,72H,0,8,8,3,0,1000,60<,12 ,0,15,15,8,0,9 ,9 ,568,0,16,-16,32 ,0,8,8,568,0,20,-20 _1068,,91[,31,31,12 ,0,1100L,122z,20,0,1092D,114r,28,0,1092D,114r,8,-8,20,0,1128h,106j,60<,0,524,-524,1109U,74J,39',0,8,8,1100L,90Z,8,-8,568,0 N1068,,92\,30,30,1100L,121y,20,0,1092D,115s,28,0,1092D,115s,8,-8,20,0,1128h,107k,60<,0,524,-524,1109U,75K,39',0,8,8,1100L,91[,8,-8,568,0 F1020,75K,8,8,16,0,1044,91[,8,-8,8,8,8,-8,1052,84T,8,-8,1004,99c,8,-8,1044,99c,8,-8,1236,99c,-8,-8,1220,75K,0,-8,8,0 F1020,76L,8,8,16,0,1044,90Z,7,-7,8,8,8,-8,1052,83S,8,-8,1004,98b,8,-8,1044,98b,8,-8,1237,99c,-8,-8,1221,74J,0,-8,8,0 1148|,84T,7,7,1149},84T,7,7,1099K,122z,7,7,12 ,0,1098J,122z,8,8,12 ,0,1235,83S,20,0,1235,82R,20,0 5,15;0;"";6,15;"";7,15;"";8,15;" ";9 ,17;"";10 ,17;"";11 ,17;"";12 ,17;"";13 ,17;"";14,19;"A"  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=15 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 ~Kb(d)=b(d)+1:e(d)=l:t(d)=t:c(d)=g:t$=s:s<1000t$="0"+t$ 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 ;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 g<1000n=4 m>n+bm=m-b:1240 m=n Bm01+(*10 )<4m=m+1:1260 6m01+(*10 )=1m=m+2 7z$="Due "+t$+" ":b=0q$="on time":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=111 :p(i,1)=p(i,1)-1 2^p(i,1)=499p(i,1)=299++s(i):o(i)>1o(i)<100d1370Z <1p(i,1)=0o(i)>100d1420 P 1390n Z%3560 :j=1o(i):z$,x:j d<q$=k$(x):z$(1)="5"p$(i)=z$+" ECS-"+q$:1383g fp$(i)=z$+" New-"+q$ gk(i)=x ni x@7,28;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))   i=15:j=i-1 :a(i)>500a$(i)=a$(i,14)+"Sgnld to station" Xa(i)=501(a(i)=502m(i)0)a$(i)=a$(i,14)+"Running into stn" ;a(i)51770:a$(i)=a$(i,14)+"App."+z$ Ja(i)4m(i)=0ưa$(i,2)<3sf=0q=q+1 xa(i)2a$(i)=a$(i,14)+"Held apprch sigs":(a$(i,2)<3a(i)<-8)sf=0q=q+2 Ka(i)>15a(i)<500j,2;1;1;x$:1570" -j,2;7;1;1;a$(i) "i ,i=111 @Np$(i)(1)="*"p$(i)=p$(i)(25)+"*"+p$(i)(713 ) B7p(i,1)>500z$=p$(i,5)+"Arr.sgnld" C$p(i,1)<5001620T Dasf=0p(i,1)=501x=17:22686X+i(p(i,2),x),70F:x E/x5=15:i>4i<9 x5=14 H\sf=0p(i,1)=500x=8x5:22686X+i(p(i,2),x),70F:x Jp(i,1)=500z$=p$(i,5)+"Arrived ":p$(i)(5)="*"z$(614)="passing":p(i,1)=300,:1645m ^&y$=r(i):r(i)<1000y$="0"+y$ hp(i,1)300,p(i,1)<497z$=p$(i,5)+p$(i,10 12 )+" d"+y$:p$(i)(5)="*"z$(614)=" passing" mVp$(i)(5)="*"p(i,1)299+z$=p$(i,5)+"Held sigs":1651s r_p(i,1)<300,p$(i)(5)"*"z$=p$(i,5)+p$(i,10 12 )+" Ready" |kp(i,1)<300,p(i,1)>3(p$(i,1)="1"P$(I,1)="2")sf=0q=q+1 (64000+i)>0sf=0x=12 18:22686X+i((64000+i),x),70F:x:64000+i,0 "p(i,1)01700 Ap(i,1)=3z$=p$(i,5)+"Departing":1700 p(i,1)=2sf=0z$=p$(i,5)+"Departing":x=111 :22686X+i(p(i,2),x),70F:x:5500| +p(i,1)1z$=" " 8j=17:i=1(i>4i<9 )j=1 l(i),j+14;1;7;1;" ";l(i),j;z$:p(i,1)<300,p(i,1)>5l(i),j+14;4;1;1;"" i   18400 k=1i:z$:k   1830& k=1i:t$:k  &J"at Chester-le-St","at Hexham","at King Edward E. Jc","at Sunderland","" 0L"Low Fell Jc ","Norwood Jc ","Gateshead Dp","Manors ","H.L.B. Jc " :xz$="":p>11 (i$(1)"p"e$(1)"p")(i$(1)="p"e$(1)="p")z$="NOT ALLOWED":q=q+1: ?e$(1)"p"1905q D(t(a)=68Dt(a)=70F(t(a)>21t(a)<30)(t(a)>35#t(a)<480)t(a)<12 t(a)=33!)(e$="p1"e$="p8"e$="p7"e$="p6"e$="p5")z$="NOT ALLOWED INTO THIS PLATFORM":q=q+1: Ip<11 1900l Na$(a,2)"4"A$(A,2)"6"a$(a,2)"0"a$(a,2)"7"a$(a,2)"8"z$="NOT ALLOWED ON THROUGH LINES":q=q+3: l6i=111 :e$(2̱e$)=(i)1905q n6i:z$="NO SUCH PLATFORM/THROUGH LINE":q=q+2: q)i=15:i$=l$(i)1920 vi:1950 aroute=g(i,e$(2̱e$)):p(p,2)=route:route=0z$="NOT ALLOWED":q=q+1: <x=118:i$(1)="p"x<201930 t(22686X+i(route,x))=67Cz$="ROUTE CONFLICT":q=q+2:p(p,1)=0:p(p,2)=0: X x=117 !22686X+i(route,x),67C &x:p(e$(2̱e$),2)=route  2950 +i=15:e$=l$(i)1960 $i:z$="NOT ALLOWED":q=q+1:  6000p `route=h(i$(2̱i$)-6,i):route=0z$="THAT ROUTE NOT ALLOWED":q=q+2: \x=518:(22686X+i(route,x))=67Cz$="ROUTE CONFLICT":q=q+2: x x=218 5i(route,x)>022686X+i(route,x),67C x 95000:p((i$(2̱i$)-6),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)=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)  "1A12",2,"2K10",38&,"5E26",37%,"5N17",37%,"5E54",37%,"2M35",20,"",0,"5N02",37%,"5E29",37%,"5G04",37%,"5E40",37% ]"1A25",2,"2G03",8,"1S74",18,"2J07",31,"5E38",37%,"2H38",22,"2H39",22,"2K16",38&,"1S73",19,"2H25",22,"2H27",30,"2H29",22,"2H31",22,"2H37",22,"2K18",38&,"1M68",9 ,"2H43",22,"2H33",22,"2M37",20,"2C18",14,"1M34",9 ,"5K09",37% "2K12",45-,"2G05",8,"2K14",38&,"1E10",2,"1Z12",2,"1E36",2,"2M39",20,"2H41",22,"1A33",2,"1V55",11 `p(p,1)294&nd<114rf(p)>66Bnd=nd+1:q=q+2:g$(f(p))=g$(nd)  |64000+i,p(i,2) 8p(i,1)=0:p(i,2)=0:1686 ube=(i$(2̱i$))-6 z$e$="yk"k(be)146950& 5e$="cl"(k(be)<14k(be)>21)6950& 5e$="sl"(k(be)<22k(be)>29)6950& 5e$="ke"(k(be)<30k(be)>35#)6950& 5e$="bk"(k(be)<36$k(be)>47/)6950&  1962 &+Q=Q+2:z$="WRONG DEPARTURE ROUTE": #(/0:0::6:1:1 #-5,9 ;" ";9 ,9 ;" POWER BOX ";8,9 ;" ";7,9 ;" UPON TYNE ";6,9 ;" NEWCASTLE ";10 ,9 ;" " #U$1:0:0:7 #Z[13 ,4;"AWAITING TRAFFIC REPORTS";14,4;"FROM CONTROL-PLEASE WAIT" #29110#:i=087W:a:"a"+i,a:i: #f0,24,36$,36$,153,165,36$,24,0,24,36$,36$,157,133,4,4,0,76L,82R,82R,82R,82R,82R,76L,0,68D,68D,68D,68D,68D,68D,68D,0,76L,82R,66B,68D,72H,80P,94^ #0,76L,82R,66B,78N,66B,82R,76L,0,0,68D,76L,84T,94^,68D,68D,0,76L,82R,80P,76L,66B,82R,76L,0,76L,82R,80P,92\,82R,82R,76L,0,24,36$,165,189,36$,36$,36$,0,568,4,4,4,4,4,4 &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 &Jp=q$-6:e$="p"+(q$-6):p<1p>11 zz=1: & '"rtc"1:9999' XW# Z}yz,cLhWuvqefts}ml8gw bnbrp  V x}unM60660000000000R00001111100000out IYKNKgXTYYElsPooStPPlyDurLivTNYCdf HexRavHarGdKStrGirCar SunMidLacTeNHavGdH SdlMdlWilGdDHvH ButHeaMorGraMilEdiLynAbdDunAlnGQSInvDarBriDonCdfThoJarLanGdDSteWorWhiMosThrStDBlDBerLeSOba NewNewNclNewNewp5  [lM.lM./0000lMNOPPPPlMnopppp0123lM.lM./0000lMNOPPPPlMnopppp0123"#lM."#lM./0000"#lMNOPPPP"#lMnopppp"#"#"#"#"#"#0123yxwvuutt3210>>yyxwvvuutt>>>>>>>>>>>>>>>>>>3211ttuvwxystuvwxy??????.Ml.Ml.Ml#"""0/.Ml0/.Ml0/.Ml#""""PONMlPONMlPONMl#""""ponMlponMlponMl#""""#"???#"???#"???#"???#"???321032103210#"01230123???    !"#$%&'()*+, -.=>?@ABCDEFGHIJK89:567234/01LMNOPQRSTUVWXYZ3p01 23456  89:;< =74(.%>>)+&.?+?.&/)@-+%A)%&%$*)3p'FFFFE(%)DF)*+F'),*./FFD) EEFFFEDFEEEEFE$%$FEEDFEE!F"EFFFF 3p *h|7;EG` #( )7p~,FH+b%@) (24nx67W^ b 0f|.LYbg\3pD  9  0w#I9=  / ] 3p,FG.9/0&1 F JJGHI?C2JK(3@N4LDHJGC) 8H+ICJEEL*EEHLIK!CJNID5H"ICLIKJJ66 #$; OM>F9M<BA%73p+  !"#$%&'()*s8X985R031E261N171E512G046S915Z011S171E281N021S200N641S361E296S621S211Z286N521S271S242G041E401N031S281e002J012E362J031E922J052J072J096E652J112J134E306N742E382J176E532E402J195J222J212E402J236E101E952J256N732H186S542J152H202H222B102H262H281E636M412H681e442J062M332J082J106N812J122J142J162J182J200N432J220N642H242J242J262B122J282B142J302H306E701E035M346N576M211O131E052K091E092K111E077Z041E082K131E091E116E742K151E305Z121Z091E125M392K175A337N886N641E13 04206510505005506007509610906204610709911311701419804110208708112315410101915011105201207019505412105801314001911408918616415509411908211612211005307810319615606309011819806700915802713716316515708016617103512618317717418247475 47597 47488 75474775075115643015643115643215643915644256094 56134 56124 56115 56117 56120 56125 56126 56131 56135 60017 50150751150452166822752037203 37004 37255 47533 47489 47580 47625 47588 47017 47301 37303 47361 37009 37031 37059 37107 37114 37178 37238 37262 37358 47014 47186 47284 47290 47297 47377 47802 47809 47818 47847 47849 47418 37104 31467 31106 31208 47331 47352 14360114360514362014361914360214360314360414360614360714360814360914361014361114361214361614361714362114362214361314361414361514361814362314362414362514205014202714251814252210800110800210800310800410800510800610800710800810800910801010801110801210801310801410825710825810825510822915645315650315645047433 47434 31166 15874647627 OIykEp11Qon timeY00X N00000000000000S00000000000000C1000ZT at Sunderland  П  :  : : !!: !S!: s 43195+43054 43156+43063 43090+43118 43164+43155 43042+43065 43198+43067 43075+43096 43012+43070 43198+43041 43081+43123 43102+43087 43121+43058 43109+43062 43111+43052 43019+43114 43099+43113 43122+43110 43082+43116 43154+43101 43013+43140 43055+43060 43089+43186 43103+43196 43009+43158 43163+43165 43027+43137 43166+43171 47597 157750+157751157754+157747156442 156439 56134 56115 56117 56124 56126 47802 47580 60017 37501+37507 37227+37520 37004 47489 47290 37178 37114 37238 47186 37107 47361 47297 47014 47284 47377 37059 37358 47418 47818 47809 47331 31208 143605 143601 143620 143619 143617 143611 143603 143609 143604 143610 143606 143622 143608 143616 143602 143621 143612 143625 142027 143613 143618 142518 143624