ZXTape! 0Created with Ramsoft MakeTZXKINGS X LLQN &0:0::0:6 :5,8;" ";0;3;"" :6,8;" RAILWAY ";0;3;"" :7,8;" TRAFFIC ";0;3;"" #:8,8;" CONTROL ";0;3;"" (<9 ,8;" KINGS CROSS ";0;3;"" -;10 ,8;" ";0;3;"" 2811 ,8;3;0;"" 7818,8;1;1;" 1990 A.GREENUP" 66071G <t()<4502 F~21,0;" ":1000:23674z\,0:23673y\,0:23672x\,0:h<900502 G$h<660t=0::88X I%t=(300,/(h-600X)):q=q*t P3:z=120x-q:n(2)0z=z+10 Q$z>100dz=100d:84T Rz<5z=5 T>0,0;6;"RAIL TRAFFIC CONTROL KINGS CROSS" V?8,5;6;1;"Efficiency Rating ";z;"%" XC21,2;6;1;"Do you wish to play again ?" Y="y":1 Z ="n" [ 89Y d<21,0;" ":"INPUT: ";i$:i$=""280 ni$(1)="p"200 x a=-1 "i=12: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 a21,0;0;7;0;1;a$(a,214):z=e(a):300, "EXIT: ";e$:e$=""280 e$(1)"p"190 Iq$=e$:9900&:zz=1z$="NOT ALLOWED":q=q+3:250 Fe$="p9"p(9 )>1p(12 )<1e$="p12":p=12 He$="p10"p(10 )>1p(13 )<1e$="p13":p=13 He$="p11"p(11 )>1p(14)<1e$="p14":p=14 8p(p)>0z$="NOT ALLOWED":q=q+3:250 1850::250 q$=i$ 9900& 3i$="p9"p(12 )>1i$="p12":p=12 4i$="p10"p(13 )>1i$="p13":p=13 4i$="p11"p(14)>1i$="p14":p=14 zz=1225 p(p)>1230 *z$="NOT ALLOWED":q=q+3:250 Fp(p)>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: *21,0;" " z$=""285 521,0;" " >21,16-z$/2;0;7;1;z$ 1.5@,-2 521,0;" " " , 395 ;21,13 ;7;0;1;f$(z): :bo=0:650 Ax$=" ":n$="00000000000000":s$=n$ 9c$="1000":h=599W:u=0:v=0:q=0  470 i=12 /a(i)=501:l$(i):b(i)=1:a$(i)=x$ i )b(1)=32 :b(2)=1  "uf","us" i=114:l(i):i |7,8,9 ,10 ,12 ,13 ,14,15,17,18,19,17,18,19 W13 ,0;7;"THE TRAFFIC DEPARTMENT REPORTS:-":j=15:e=0  14,1;x$ )I=12:I=2570: nX=(*3):t$="IN DONCASTER AREA":X>0T$="NORTH OF GRANTHAM":X>1T$=" AT PETERBOROUGH " rz$="":x=1+(*20):x=20n(1)=20+(*11 ):z$="SEVERE DISRUPTION":5600 Rx=19n(1)=10 +(*11 ):z$="ENGINEERING WORK":5600 Hx=18n(1)=10 :z$="OPERATIONAL PROBLEMS":5600 & x<18n(1)=0 0aN(1)0j,(32 -Z$)/2-1;z$:j=j+1:j,7;t$:e=1 5 580D :X=(*5)+1:X=5Z$="DELAYS TO SUBURBAN ARRIVALS":T$=" ":N(2)=4+(*16)+1:5600 DI N"Inv","Abd","Gls","Edb","New","Hrg","Bdf","Lds","Hul","Gth","Cam","Cam","Roy","Pet","Hun","Let","PCL","ECS","Kgx","KgX","KgX","Hor" Xrp$(4)="1S28 KgX-Edb":p(4)=481:k(4)=4:r(4)=1300:f(4)=37% Yrp$(5)="1S36 KgX-Abd":p(5)=331K:k(5)=2:r(5)=1030:f(5)=45- Zrp$(6)="1S21 Kgx-Edb":p(6)=361i:k(6)=4:r(6)=1100L:f(6)=38& [rp$(7)="1S20 KgX-Edb":p(7)=301-:k(7)=4:r(7)=1000:f(7)=46. \rp$(8)="1D49 KgX-Lds":p(8)=3117:k(8)=8:r(8)=1010:f(8)=535 ]p$(10 )="2P16 KgX-Pet":p(10 )=341U:k(10 )=14:r(10 )=1040:f(10 )=1:o(10 )=127 dp$(11 )="1P44 KgX-Hun":p(11 )=316<:k(11 )=15:r(11 )=1015:f(11 )=2:o(11 )=124| fp$(14)="1L02 KgX-Cam":p(14)=3128:k(14)=12 :r(14)=1011:f(14)=3:o(14)=123{ l;e=015,7;7;"NO PROBLEMS TODAY" v818,3;7;"PRESS ANY KEY TO CONTINUE" {=""635{  %j(90Z):neo=1:800   n1,n2,n3 x=1n1 n1=99c812, ]eng=(*n2)+n3:j(eng)=0f$(neo)=b$(eng):neo=neo+1:j(eng)=1:775  765 x  725  35#,42*,1,1,6,43+,8,15,491,7,12 ,64@,1,1,76L,8,10 ,77M,99c,99c,99c , 4'bo=bo+1:bo>7bo=0 >?i=1100d:c=x-1+(1+(*(y-x+1))) H:d=x-1+(1+(*(y-x+1))):c=d840H R1w(130)=w(c):w(c)=w(d):w(d)=w(130) \i f z&0:0::1:7 :2,12 ;"ARRIVALS";4,0;"UF":"US" K0,0;6;1;0;"KINGS CROSS STATION CONTROL" 27:0:0:7,31;"1" 8,31;"2";9 ,31;"3";10 ,31;"4";12 ,31;"5";13 ,31;"6";14,31;"7";15,31;"8";17,31;"9";18,31;"";19,31;"" 0:6:1 6I=719:I=11 I=16935 I,1;x$ I 0:0   590N j=1x: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$ +i=114:n$(i)="0"1060$ y=n$(i)-1:n$(i)=y $i .+i=114:s$(i)="0"1090B 8y=s$(i)-1:s$(i)=y Bi Ld=12 V/a(d)=a(d)-1:a(d)5001290  `-a$(d)=x$:8100:D=18200 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$=" " 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<3b=h+3-s z$=" " m21240 /n=5:g>524g<100dn=25 !g>0g<21n=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$="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 'i=114:p(i)=p(i)-1 2lp(i)=497(o(i)=0o(i)>20)p(i)=297)+s(i):o(i)>20o(i)<100d1370Z <)p(i)=0o(i)>100d1420 K%p(i)=496p(i)=296(+s(i) P 1390n Z03560 :j=1(o(i)-20):z$,x:j d 960:p$(i)=z$+" KgX-"+q$ e%z$="1N22"p$(i)=z$+" PCL-"+q$+" " f%z$="5C23"p$(i)=z$+" ECS-"+q$+" " g=k(i)=x:1388l:z=112 :y,x:o(i)=yo(i)=x hz l21,120x,22,119w,23,130,24,129,25,122z,26,133,27,126~,28,125},31,128,33!,132,34",131,37%,134 ni xI0,28;6;0;1;c$:sf=0:1490  ,mo=(r(i)/100d):mo=r(i)-mo*100d !z=60<*(r(i)/100d)+mo +h-z<30f$(o(i)-100d)=f$(f(i))   i=12:J=I+4 :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$ ^a(i)3a$(i)=a$(i,14)+"Checked on aprch":a(i)2sf=0q=q+1 a(i)1a$(i)=a$(i,14)+"Held apprch sigs":sf=0q=q+1:(i=2m(i)>5)(i=1m(i)>25)m(i)=m(i)-1 Aa(i)>15a(i)<500j-1,2;x$:1570" 5j-1,2;7;0;0;a$(i) "i ,i=114 6"i>8z=2:1600@ 8 z=1 @`p(i)>500z$=p$(i,13 )+"Arrival signalled":z=2z$=z$(5)+"Arr.sgnld" Jop(i)500p(i)>497z$=p$(i,13 )+"Arrvd in platform":z=2z$=z$(5)+"Arrived " T+p(i)<497p(i)>4991630^ YBo(i)=1z$=p$(i,13 )+"Loco on run round":1630^ [Do(i)>1o(i)<21z$=p$(i,13 )+"Changing Loco " ^&y$=r(i):r(i)<1000y$="0"+y$ c(y$>c$p(i)=300,p(i)=301- hxp(i)>300,p(i)<498z$=p$(i)+"Due depart "+y$+" ":z=2z$=z$(5)+z$(10 12 )+" d"+y$ rhp(i)300,z$=p$(i)+"Ready to depart ":z=2z$=z$(5)+z$(10 12 )+" Ready" |Gp(i)<300,p(i)>2p$(i,1)"5"sf=0q=q+2 ^p(i)=1z$=p$(i,13 )+"Departing station":z=2z$=z$(5)+"Departing" Jp(i)0p$(i)=" ":z$=x$:z=2z$=z$(14) -j=1:i>8i<12 j=16 'l(i),j;0;6;1;z$ i  0 n$07 1,0;"":0 s$07 1,31;""  z$="Holloway "   1799 j=2o(i):k,l:j ,mo=(r(i)/100d):mo=r(i)-mo*100d !z=60<*(r(i)/100d)+mo h-z<30w(k)=w(f(i)) f(i)=l  ,3,10 ,130,40(,130,11 ,15,120x,40(,122z,557,3,579,108l,130,4,122z,112p,130,114r,22,113q,113q,15,4,557,130,568,130,579,130,22 :z$="" ? e$="" Di$"uf"1950 N+t(a)=21e$"p1"e$"p8"2950 X*e$="p1"m$="00000000020001":2960 b2e$="p2"e$="p3"m$="00000000220001":2960 l2e$="p4"e$="p5"m$="00000002220001":2960 v*e$="p6"m$="00000220000011":2960 *e$="p7"m$="00202020000011":2960 *e$="p8"m$="20202020000011":2960  2950 i$"us"2060  8t(a)=20(e$="p12"e$="p13"e$="p14")2950 3e$="p9"e$="p12"m$="20220000000100":2055 Fe$="p10"e$="p11"e$="p13"e$="p14"m$="02020000000100":2960  q=q+1 *e$="p8"m$="20220000000100":2055 *e$="p7"m$="00220000000100":2960 *e$="p6"m$="00022200000100":2960 2e$="p5"e$="p4"m$="00022202000100":2960 :e$="p3"e$="p2"e$="p1"m$="00000020200110":2960  2950 &n$(3)"0"m$="22020000000100"  2960  %i$"p1"i$"p2"i$"p3"2110>  3340  *e$="df"m$="00000010100020":2980 **e$="ds"m$="00000010102220":2980 4 2950 >i$"p4"i$"p5"2160p H 3340 R*e$="df"m$="00000111000020":2980 \*e$="ds"m$="00011101002200":2980 f 2950 pi$"p6"2210 z 3340 *e$="df"m$="00000110000020":2980 *e$="ds"m$="00011100002200":2980  2950 i$"p7"2260  3340 *e$="df"m$="00101010000020":2980 *e$="ds"m$="00110000002200":2980  2950 &i$"p8"i$"p9"i$"p12"2320 )i$="p9"p(12 )>02950  3340 *e$="df"m$="10101010000020":2980 *e$="ds"m$="11000000002000":2980  2950 1i$"p10"i$"p11"i$"p13"i$"p14"2950 K(i$="p10"p(13 )>0)(i$="p11"p(14)>0)2950 $ 3340 .*e$="ds"m$="01000000002000":2980 8 2950 !z$="NOT ALLOWED":q=q+3: r=1:3000 r=2:3000 r=5:3000 r=6 3020 "mo=(r/4):mo=r-mo*4 =(mo=1u=1)(mo=2v=1)31200 : 4z$="CONFLICTS WITH OTHER SET ROUTE":q=q+4: Bc=0:u=0:v=0:r=2r=63080 5i=114:n$(i)="0"m$(i)="0"3050 c=1 i c=0u=1 r=1r=5 @c=0:i=114:s$(i)="0"r$(i)="0"3090 c=1 i c=0v=1 & 0r>43260 D/a(a)>2a(a)=a(a)+500:3150N Fa(a)=502 Nr=13200 P*(r=3r=4)a(a)=a(a)-1 XAp(p)=a(a):y=a(a)-502:r=3y=y+3:3170b Zr=4y=y+1 b+i=114:r$(i)="0"3190v lx=y+r$(i):r$(i)=x vi r=23270 Ap(p)=a(a):y=a(a)-502:r=4y=y+3:3220 r=3y=y+1 +i=114:m$(i)="0"3240 x=y+m$(i):m$(i)=x i 3270 p(p)=1 !r=1r=53480 !r=2r=63520 r>4 #y$=" ":a$(a,1)="#"y$="#" |p$(p)=a$(a)(25)+y$+a$(a)(714):f(p)=e(a):r(p)=d(a):s(p)=m(a):k(p)=t(a):o(p)=c(a):3330  L(k(p)<12 e$="ds")(k(p)>11 k(p)<17e$="df")q=q+1  i=114 y=n$(i)+m$(i):n$(i)=y i  i=114 y=s$(i)+r$(i):s$(i)=y i  "2R21",16,"1L40",11 ,"1P45",15,"1L04",12 ,"2R08",13 ,"1P17",14,"2R22",16,"1L42",11 A"1P46",15,"2L06",12 ,"2R09",13 ,"1P18",14,"2R23",16,"1L44",11 ,"1P47",15,"1L08",12 ,"2R10",13 ,"1P19",14,"2R24",16,"1L46",11 ,"1P48",15,"1L10",12 ,"2R11",13 ,"1P20",14,"2R25",16,"1L48",11 ,"1P49",15,"1L12",12 m"2R12",13 ,"1P21",14,"2R26",16,"1D01",9 ,"1D37",8,"5C23",22,"1S27",3,"1D39",8,"1S24",1,"1D74",8,"1D38",8,"1N03",5,"1S29",3,"1D40",8,"1N22",5,"1S30",2,"1N04",5,"1D41",8,"1N05",5,"1S31",3,"1D42",7,"1S32",2,"1N06",5,"1D43",8 #"2R55",13 ,19,10 ,10 ,4,21,"1E57",11 ,19,17,18,5,22,"1B39",15,20,24,513,6,23,"1E21",12 ,19,35#,36$,7,24,"2R71",16,19,38&,12 ,8,25,"1B24",14,20,47/,535,9 ,26,"2R56",13 ,19,110n,10 ,10 ,27,"1E58",11 ,19,117u,18,11 ,28,"1B40",15,20,124|,513,12 ,29 /"1E22",12 ,19,135,36$,13 ,30,"2R72",16,19,138,12 ,14,31,"1B25",14,20,147,535,15,32 ,"2R57",13 ,19,210,10 ,16,33!,"1E59",11 ,19,217,18,17,34","1B41",15,20,224,513,18,35#,"1E23",12 ,19,235,36$,19,36$,"2R73",16,19,238,12 ,20,37%,"1B26",14,20,247,535,21,38& /"2R58",13 ,19,3106,10 ,22,39',"1E60",11 ,19,317=,18,23,40(,"1B42",15,20,324D,513,24,41),"1E24",12 ,19,335O,36$,25,42*,"2R74",16,19,338R,12 ,26,43+,"1B27",14,20,347[,535,27,44,,"2R59",13 ,19,410,10 ,28,45-,"1E61",11 ,19,417,18,29,46.,"1B43",15,20,424,513,30,47/ "1E25",12 ,19,435,36$,31,480,"2R75",16,19,438,12 ,32 ,491,"1B28",14,20,447,535,33!,502,"2R60",13 ,19,510,10 ,34",513 "1A09",5,19,3,30,524,524,"1A10",7,19,7,63?,546,535,"1B23",14,19,15,27,35#,546,"1A11",5,19,28,62>,39',557,"1A12",10 ,19,41),149,557,568,"1A13",5,19,524,68D,47/,579,"5D74",18,19,114r,33!,568,58:,"1A14",6,19,120x,502,480,59; )"1E01",4,19,138,524,40(,60<,"1E02",4,19,207,83S,41),61=,"1A15",8,19,239,91[,579,62>,"5E22",17,21,245,148,36$,63?,"1A16",5,19,255,65A,42*,64@,"1E03",3,19,3073,83S,491,65A,"1A17",8,19,335O,95_,58:,66B,"1E04",4,19,350^,100d,43+,67C,"1E05",2,19,356d,64@,502,68D "1A18",8,19,440,70F,59;,69E,"1E06",3,19,450,70F,513,70F,"1E07",2,19,500,90Z,44,,71G,"1A19",8,19,532,535,60<,72H #($0:0:0:6 #-:5,8;" ";0;3;"" #2:6,8;" RAILWAY ";0;3;"" #7:7,8;" TRAFFIC ";0;3;"" #<:8,8;" CONTROL ";0;3;"" #A:9 ,8;" KINGS CROSS ";0;3;"" #F;10 ,8;" ";0;3;"" #K811 ,8;0;3;"" #P818,8;1;1;" 1990 A.GREENUP" #U0:0:7 #Z.13 ,4;"AWAITING TRAFFIC REPORTS" #_.14,4;"FROM CONTROL-PLEASE WAIT" #` 8100 #a<i=1524:d$(i),q(i),u(i),v(i),x(i),y(i),z(i):i #b 9950& #d &zz=0:q$=q$(2): &"zy=q$:zy=0zz=1: &Bzy>1q$"10"q$"11"q$"12"q$"13"q$"14"zz=1: &+p=q$:p<1p>14zz=1: &+p=q$:p<1p>14zz=1: & &zz=1: & 9960& &&i=087W:a:("a"+i),a:i &0,126~,66B,90Z,90Z,66B,126~,0,0,78N,74J,78N,74J,74J,78N,0 &0,230,41),201,47/,41),233,0,0,238,42*,206,42*,42*,238,0 &0,134,137,137,175,233,41),0,0,142,138,142,170,234,46.,0 &0,76L,82R,82R,82R,82R,76L,0,0,68D,68D,68D,68D,68D,68D,0 &G0,76L,82R,68D,72H,80P,94^,0 &H255,127,63?,31,15,9 ,6,1 &Q255,254,252,246,240,224,192,128 & ' %x=1100d:x;" ";f$(x):x '(7:0:0::7: '*x=6300065000:x;" ";(x):x a c%h gwcLhWuvqefts_m;l6g5wVbnpr31733131733231733331733431733531733631733731733831733931734031734131734231734331734431734531734631734731734831734931735031735131735231735331735431735531735631735731735831735931736031736131736231736331736431736531736631736731736831736931737031737131737247421 47433 47435 47455 47463 47465 254001254002254003254004254010254013254030254014254015254017254020254029254034254033254032254040254041254006254007254008254009254011254012254022254024254025254038254035#91001#91002#91003#91004#91005#91006#91007#91008#91009#91010 47443 47444 47448 47475 47488 47401 47406 47407 47469 47478 47483 47663108564150125253042253047254036254043 47500110403110411101454101456101462 O|F)cccnQe=31735831736031733631735431736731735731736831733131736231735331737231734931733431736431735631733231734731733331734131737131736331734231735531733731736131735131734831734631736931733531734331735031734031735231735947433 254003254014254030254002254001254033254017254032254007254024254008254040254041254038254009254035#91009#91002#91004#91008#91003#91007#91006#91005 ]Z R00000000220001Ip7EdsM00110000002200QHulY1011 IKi-7U<8A  1S28 KgX-Edb 1S36 KgX-Abd 1S21 Kgx-Edb 1S20 KgX-Edb 1D49 KgX-Lds 2P16 KgX-Pet 1P44 KgX-Hun 1L02 KgX-Cam  I I ufus  ILI  I|{ e I%-&.52R551E571B391E212R711B242R561E581B401E222R721B252R571E591B411E232R731B262R581E601B421E242R741B272R591E611B431E252R751B282R601A091A101B231A111A121A135D741A141E011E021A155E221A161E031A171E041E051A181E061E071A19              #&/nu|6=DOR[)4rx3O^d 3$ 5 3$ 5 3$ 5 3$ 5 3$ 5 ?>D!24S[AS_d@FFZ5  !"46#'7/80()9$*1:+2;3,< !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHZX N00000000000000S00000000000000C1000ZDELAYS TO SUBURBAN ARRIVALST _