ZXTape! 0Created with Ramsoft MakeTZXifp ]  30:0::0:0,0;" " 0:6:1 '7,7;" " '8,7;" DEPOT MASTER " '9 ,7;" " (10 ,7;" FINSBURY PARK " (11 ,7;" " #(12 ,7;"  1989 A.GREENUP " '(13 ,7;" " 23:0: 77,25;"";8,25;"";9 ,25;"";10 ,25;"";11 ,25;"";12 ,25;"";13 ,25;"" <)14,7;"" F,0:0:0,0;" ":"" Sfp NhOPh  A.GREENUP 1989 fp=0:fp1=0:x5=1:i(502):shuffle=0:ar2=0:move=0:ar=1:neo=1:g(150):l$(95_,15) Ubkd=0:mlp=0:bf=0:b=0:tt=0:q=0:men=0 .25:x=023:a:"a"+x,a:x E0,0,17,17,17,10 ,4,0 I0,68D,255,68D,68D,255,68D,0 I0,0,255,255,255,255,0,0 35#:x=112 9n1:n2:n2<10 r$(n1)(56)="0"+n2:x r$(n1)(56)=n2:x #26,63?,480,79O,502,35#,524,41),557,13 ,579,14,58:,78N,59;,37%,60<,15,66B,513,67C,16,69E,535 $A39':x=114r122z:n1:n2:e$(x)=(n1+(*n2)):x '31201y,3,31247z,2,31172y,2,31124y,2,47002,17,46028̳,12 ,46040س,16,47214n,10 ,47172D,5 ( 60< * n1:n2:n3 ,n1=99c90Z -(n1=8n2=8neo=neo+3 . 70F <20,22,1,20,20,23,16,41),43+,8,8,84T,16,26,92\,5,5,118v,99c,99c,99c Fx=1n1 H_eng=(*n2)+n3:g(eng)=0l$(neo)=e$(eng):neo=neo+1:g(eng)=1:x:42* K 72H Z+X=180P:W$(X)(9 )=" ":X \+l$(59;)=(45001ɯ+(*41))) ]+l$(579)=(45101-+(*502)) ^+l$(58:)=(37001+(*99c)) _"d(2):H=4:M=0 d xx=1 iGX=13:e(xx,x)>0e(xx,x)<255e(xx,x)=0 jX k'xx=xx+1:xx<16105i l20:0:0:0::1650r nC1:6:x=26:x,0;" ":x s7x=16:x,0;" ":x x,x=23:x,19;" ":x },x=13:x,26;" ":x ,x=56:x,26;" ":x 9x=12 14:x,0;" ":x %9 ,17;" : " T0,0;7;1;1;17,15;" WORKINGS " w0,1;6;0;1;"MAINTENANCE SHED ";1,20;"YARD";0,26;"ARRIVE" 4,26;6;0;1;" FUEL ";8,17;"DEPARTURE LINES";11 ,1;"STABLING SIDINGS" U13 ,20;" ";12 ,21;6;0;"HEAD SHUNT" 6:0:X=16:X,18;X:X:2,25;"1";3,25;"2";12 ,18;"1";13 ,18;"2";14,18;"3" f18,5;1;7;0;"04:00";21,24;1;7;" " 190:o=119 locon2:place:x:n$:ti }e(place,x)=locon2:l$(locon2)=n$+l$(locon2):21004:l$(locon2)(1)"!"place9 i(x5)=locon2:x5=x5+1 (f(place,x)/100d),f(place,x)-((f(place,x)/100d)*100d);6;0;1;l$(locon2)(16) %n$="#"ti=ti+10 *(*5) 5ti<1000l$(locon2)(710 )="0"+ti 1ti1000l$(locon2)(710 )=ti o 21,1,1,"!",9999',22,1,2,"!",9999',60<,2,1,"!",9999',68D,3,1,"!",9999',69E,6,1,"!",9999' 23,6,2,"#",1000,24,3,2,"#",1200,25,4,1,"#",1500,17,4,2,"#",1400x,18,1,3,"#",500 19,12 ,1," ",400,20,12 ,2," ",400,38&,8,1," ",400,39',13 ,1," ",400,568,13 ,2," ",400,65A,13 ,3," ",400 x66B,14,1," ",400,67C,7,1," ",400,83S,14,2," ",400 7:0:1 Smove=5.1}L,.1}L:.1}L,.1}L:.1}L,.1}L:1500 a20,0;" LOCOMOTIVE? ":A$:20,0;" ":a$=""1500 XDX=188X:a$=l$(x)(26)locon2=x:610b ]>x:20,0;"BAD LOCO NUMBER":100d:500 bTl$(locon2)(7)=" "20,0;"BAD LOCO NUMBER":100d:500  p1=1 .p=13:e(p1,p)=locon2675 p p1=p1+1:657 N20,0;" WHERE TO ? ":a$:20,0;" " Na$="?"p1=9 20,0;" AFTER SERVICE ":100d:500 na$="?"ư(l$(locon2)(710 ))>23553 20,0;"NOT AVAIL.TODAY":100d:500 ma$="?"ưl$(locon2)(710 )h*100d+m20,0;"AVAILABLE NOW":100d:500 [a$="?"20,0;"AVAILABLE ";l$(locon2)(710 ):100d:500 (a$="MEN"a$="Men"a$="men"2000 ͚718:l$(locon2)(1)="!"(l$(locon2)(1)" "l$(locon2)(1)"V"p1=4)20,1;"CANT BE MOVED":100d:500 a$2726 x=115 }p$(x)=a$(12)q$(x)=a$(12)t$(x)=a$(12)u$(x)=a$(12)place=x:730 x ;20,0;" NO SUCH PLACE ":100d:500 2x=13:e(place,x)=0750 >x:20,0;" FULL UP ":100d:500 ar2=18204 NO=1202:C$(p1)(OO+1)=place800 :500 O @p1>4p1<8place=p1p=2800 :500 ;20,0;" BAD MOVE! ":100d:500  2900T :p1>11 p1<15p=1(e(p1,2)0e(p1,3)0)20,0;"LOCO IN THE WAY":100d:500 !tp1>11 p1<15p=2e(p1,3)020,0;"LOCO IN THE WAY":100d:500 "np1=15p=1e(15,2)>020,0;"LOCO IN THE WAY":100d:500 #(l$(locon2)(1)="#"l$(locon2)(1)="*")(place=15place=11 )20,0;" BAD MOVE! ":100d:500 $j(l$(locon2)(1)="#"l$(locon2)(1)="*")ưl$(locon2)(710 )h*100d+m806& %l$(locon2)(1)" "l$(locon2)(1)""(p1<7p1>9 )20,0;" NOT READY YET ":100d:500 &Rp1=2tt=120,0;" TABLE TURNING ":100d:500 'Mmove=move+1:(place1place6)place=10 1100L (place=11 830> *yar2=0(f(p1,p)/100d),f(p1,p)-((f(p1,p)/100d)*100d);6;1;" ":e(p1,p)=0 4e(place,x)=locon2:(f(place,x)/100d),f(place,x)-((f(place,x)/100d)*100d);6;0;1;l$(locon2)(16):21004 5shuffle=1ar2=1 7&place=2tt=0tt=1 :<ar2=1p1=9 (p1>0p1<7)2500 < >place=11 20,0;"WHICH WORKING?":a$:20,0;" ":O=180P:w$(O)(9 )="*"O:837E @&a$=w$(O)(14)840H CO E;20,0;"NO SUCH WORKING":100d:500 ]7restore=900:o=74Jmlp=1o=75K arestore=907887w b restore fCo$:w$(o)(68)o$restore=restore+1:865a k y=17:O$:penalty p8l$(locon2)(24)=o$q=q+penalty:920 uy w;20,0;"WRONG TRACTION":100d:500 c"DHP","550",0,"474",1,"475",1,"451",1,"0",0,"0",0,"0",0 c"MLP","474",0,"475",0,"550",1,"451",0,"0",0,"0",0,"0",0 a"SLP","314",0,"311",1,"312",1,"0",0,"0",0,"0",0,"0",0 a"ECS","314",0,"311",0,"312",0,"0",0,"0",0,"0",0,"0",0 a"BKD","314",0,"311",0,"312",0,"0",0,"0",0,"0",0,"0",0 a"DCE","314",1,"311",0,"312",0,"0",0,"0",0,"0",0,"0",0 g"RFT","370",0,"450",0,"460",0,"470",0,"471",0,"472",0,"0",0 Bw$(o)(14)="****"bkd1mlp1500 Dw$(o)(14)="****"bkd=1bkd=2:2760 Dw$(o)(14)="****"mlp=1mlp=2:2760 @h4=h:m4=m-30:m4<0m4=m4+60<:h4=h4-1 <h5=h:m5=m+5:m5=60<m5=0:h5=h5+1 @h3=h:m3=m-10 :m3<0m3=m3+60<:h3=h2-1 =h2=h:m2=m-5:m2=-5m2=557:h2=h2-1 3w$(O)(14).520,0;"CREW NOT READY!":100d:500 3W$(O)(14)=h*100d+m2700 pW$(O)(14)=h2*100d+m2ƥ>.520,0;" TOO EARLY ":100d:2700 5W$(O)(14)=h2*100d+m22700 bW$(O)(14)>h*100d+m20,0;" TOO EARLY ":100d:500  500 Vbh2=h:l$(locon2)(1)="."place=10 m2=m+20:(*2)=1m2=m2+5 [4l$(locon2)(1)="."place=10 1130j eXl$(locon2)(1)="*"m2=m+60<+5*(*12 ):l$(locon2)(15)=" " gWl$(locon2)(1)="#"h2=h+11 +(*2)+1:l$(locon2)(15)=" " j8m260<m2=m2-60<:h2=h2+1:1130j lNh2<10 l$(locon2)(710 )="0"+(h2*100d+m2):1137q o1l$(locon2)(710 )=(h2*100d+m2) qplace=10 2205 t Ktt=0:move=0:m=m+5:m=60<h=h+1:m=0 (h9 18,5;"0";h;":" $h>9 18,5;h;":"  m>9 18,8;m $m9 18,8;"0";m (bkd=1mlp=1bf=bf+1 m<.005y# =bkd=0mlp1bkd=1:21,24;0;7;1;"**** BKD" m<.005y# =bkd1mlp=0mlp=1:21,24;0;7;1;"**** MLP" D(1)h*100d+me(11 ,1)>09 ,25;6;1;" ":l$(e(11 ,1))=l$(e(11 ,1))(26):e(11 ,1)=0 $>.99}pfp=0fp=1 fp=1e(10 ,1)=0e(10 ,2)99ce(10 ,1)=99c:5,26;0;6;1;"!!!!!!":3000 fp=1e(10 ,2)=0e(10 ,1)99ce(10 ,2)=99c:6,26;0;6;1;"!!!!!!":3000 D(2)h*100d+me(11 ,2)>09 ,17;6;1;" ":l$(e(11 ,2))=l$(e(11 ,2))(26):e(11 ,2)=0  fp=1fp1h*100d+me(10 ,1)=99cfp=0:e(10 ,1)=0:5,26;6;1;" "  fp=1fp1h*100d+me(10 ,2)=99cfp=0:e(10 ,2)=0:6,26;6;1;" " Af$(1)=h:h<10 f$(1)(12)="0"+h Rf$(1)(34)="0"+m:m10 f$(1)(34)=m @h2=h:m2=m+30:m260<h2=h+1:m2=m2-60< Df$(2)=h2:h2<10 f$(2)(12)="0"+h2 Uf$(2)(34)="0"+m2:m210 f$(2)(34)=m2 3z=1502:o=i(z):o=01580, 6l$(o)(7)="9"l$(o)(7)=" "z:1580, Tl$(o)(1)=" "ưl$(o)(710 )+400>h*100d+Mz:1580, 0l$(o)(1)=""Q=Q+1:z:1580, rl$(o)(1)=" "ưl$(o)(710 )+400h*100d+Mq=q+1:l$(o)(1)="":1574& ml$(o)(710 )>f$(1)ưl$(o)(710 )h*100d+m(r$(ar)(14)=h*100d+mƥ>.5)15928 4l$(r$(ar)(56))=r$(ar)(7)+l$(r$(ar)(56)):a$="AR":ar2=1:locon2=r$(ar)(56):l$(locon2)(710 )="9999":r$(ar)(7)="*"r$(ar)(7)="#"l$(locon2)(15)=r$(ar)(7) 6'720:ar=ar+1:ar2=0 8ar=70F500 :3r$(ar)(14)>h*100d+m500 ; 1583/ ro21,23;6;1;" ";20,23;" ";19,23;" ";18,23;" " sSxx=1:xxx=15:x4=0:O=180P:w$(O)(9 )="*"O: tbxx=xx+1:x4=x4+1:16+xx,xxx;1;0;6;w$(O)(18) u)xx>4xxx=xxx+9 :xx=1 vx4=7 |O  Hmen=320,0;" NO MEN LEFT ":100d:500 Gp1>620,0;" NOT IN SHED ":100d:500 TL$(locon2)(1)=" "20,0;" NOT REQUIRED ":100d:500 g(L$(locon2)(710 ))>23553 20,0;" WASTE OF MEN ":100d:500 Ւmen=men+1:h2=l$(locon2)(78):m2=l$(locon2)(9 10 ):h3=h2-h:m3=m2-m:m360<h3=h3-1:m3=m3-60< h4=h3*100d+m3 (h415m3=m3-5:2050 )h430m3=m3-10 :2050 *h4100dm3=m3-20:2050 *h4200m3=m3-30:2050 m3=m-60< >h3=h3+h:m3=m3+m:m360<h3=h3+1:m3=m3-60< +m3<0h3=h3-1:m3=m3+60< Mh3*100d+m31000l$(locon2)(710 )=(h3*100d+m3)  Qh3*100d+m3<1000l$(locon2)(710 )="0"+(h3*100d+m3) $l$(locon2)(710 )h*100d+ml$(locon2)(710 )=(h*100d+m):l$(locon2)(1)=" ":f(p1,p)/100d,f(p1,p)-(f(p1,p)/100d)*100d;6;1;0;" ";20,0;7;0;1;" AVAILABLE NOW ":100d:500 v20,0;" OK AT ";l$(locon2)(78);":";l$(locon2)(9 10 );" ":100d:500 3 9Jf(place,x)<1000l$(locon2)(11 14)="0"+(f(place,x)): >/l$(locon2)(11 14)=(f(place,x)): z=1502 i(z)=0i(z)=locon2: z -z=1502:i(z)=locon22280 z !z=z502:i(z)=i(z+1) i(z)=0 z place=p1 p=12 ae(place,p)=0e(place,p)=e(place,p+1):shuffle=0shuffle=1:2530 p x=p2 +p1<7q=q+5:move=5 glocon2=e(p1,x+1):e(p1,x+1)=0e(p1,x+1)=255shuffle=0:500 p=x+1:810* x:shuffle=0:500 ) men=0 *;sc=q/10 :h=12 sc=100d-(sc+(5*bf)) +5h>12 sc=.5*(190-sc)+(5*bf) ,v$="DISASTEROUS":sc>502v$=" Poor ":sc>60<v$=" Average ":sc>70Fv$=" Good ":sc>80Pv$=" Excellent ":sc>95_v$="OUTSTANDING" -18,0;" END OF SHIFT ";19,0;"RATING BY OPPERATIONS CONTROLLER";20,0;" ";v$;" ";21,0;" WANT EXTRA SHIFT? PRESS Y OR N " Zfa$:a$="Y"a$="y"z=1821:z,0;" ":z:2670n _a$="N"a$="n" d 2650Z nh=12 z=1821:z,0;" ":z:21,24;7;1;" ":1650r:500 x 1 ?w$(o)(14)h*100d+m2800 :2750 Aw$(o)(14)=h2*100d+m22800 :2750 vw$(o)(14)h3*100d+m3ưw$(o)(14)>h4*100d+m4q=q+1:2800 :2750 rw$(o)(14)h4*100d+m4ưw$(o)(14)>(h-1)*100d+mq=q+3:2750 q=q+5 Uw$(O)(9 )="*":d(x)=w$(o)(14):1620T:2250:810* H21,24;7;1;" ":2250:810* r(o)=0 ;locon2<10 r$(r(o))(56)="0"+locon2:: &r$(r(o))(56)=locon2:: T2*move U5place=15p1>11 p1<15q=q+1 VPLACE>10 ((p1<3e(7,1)>0)(p1>2p1<7e(8,1)>0))20,0;" YARD OCCUPIED ":100d:500 Y((p=1e(p1,2)0e(p1,3)=0)(p=2e(p1,3)>0))p1>11 p1<15place=15e(15,1)=0e(15,2)=013 ,20;0;6;1;l$(e(p1,p))(16);l$(e(p1,p+1))(16);p1,(p-1)*6;" ":3100 :e(15,2)=e(p1,p):e(15,1)=e(p1,p+1):e(p1,p)=0:e(p1,p+1)=0:500 ^place>11 place<15p1=15e(p1,2)>0p=1((x=1e(place,2)=0)(x=2e(place,3)=0))place,(x-1)*6;0;6;1;l$(e(p1,p+1))(16);l$(e(p1,p))(16);13 ,20;" ":3100 :e(place,x+1)=e(p1,p):e(place,x)=e(p1,p+1):e(p1,p)=0:e(p1,p+1)=0:500 hp1>0p1<7((p=1e(p1,2)>0)(p=2e(p1,3)>0))move>020,0;" NO SHUNT CREW ":100d:500 rp1>0p1<7((p=1e(p1,2)>0)(p=2e(p1,3)>0))(e(8,1)0e(7,1)0)20,0;"YARD NOT EMPTY ":100d:500 |place<3(p1=10 p1=11 )e(7,1)020,0;" YARD OCCUPIED ":100d:500 place>2place<7(p1=10 p1=11 )e(8,1)020,0;" YARD OCCUPIED ":100d:500 qplace<7l$(locon2)(1)=" "l$(locon2)=""20,0;"MAI. NOT NEEDED":100d:500  " TIME ON FP " Xh7=h:m7=m+30+(10 *(*3)):m760<h7=h+1:m7=m7-60< fp1=h7*100d+m7: nl$(e(p1,p+1))(11 14)=(f(place,x)):l$(e(p1,p))(11 14)=(f(place,x+1)): &(7:7:0::0: &'x=1142:x;" ";l$(x):x: &80,0;xx:c$(xx):xx=xx+1:9950& 'Bx=115:x;" ";p$(x);" ";q$(x);" ";t$(x);" ";u$(x):x QXXS3456ocooconQlac hmxcccnveY2Frovestorenalt/huffl2 21002130qe7bkl+332djp,28X^d?~Fr x~.(<DPEQ345'8ABSK040026*042070*043087.045088*045571*050027.051054.052072*053058.055073*061036.063501.065040*071502.075542.080528*081057.083503*084004*090082.092529*094061*095530.101562*102505*103063*104506.105043.111044.111574*112055.114575*115507*120508*121076#123577#130045.130509.131046.140031*140532.141010*145033*150047.150548.152034*153511*155079.161012*161535#162059.162541#164084.172049.172513*174085.180514*182078.183037.183515#184050.191086.192064*192580*194081*201051.202516.203552*205053. P 0410 ECS*0430 MLP*0450 SLP 0515 ECS 0530 MLP 0550 RFT 0610 MLP 0630 DCE 0645 RFT 0655 RFT 0700 DHP 0705 DHP 0720 DHP 0725 MLP 0745 MLP 0820 DHP 0825 MLP 0850 MLP 0855 DCE 0915 DCE 0920 DHP 0925 MLP 0950 DCE 0955 DCE 1005 MLP 1010 MLP 1030 MLP 1055 DHP 1115 DHP 1125 MLP 1145 MLP 1205 MLP 1210 SLP 1220 DHP 1225 MLP 1245 MLP 1320 DHP 1325 MLP 1405 MLP 1410 ECS 1420 DHP 1430 DCE 1455 DCE 1505 DHP 1520 DHP 1525 MLP 1530 MLP 1535 SLP 1600 MLP 1620 DHP 1625 MLP 1630 MLP 1655 MLP 1720 DHP 1725 MLP 1730 MLP 1750 DCE 1820 DHP 1840 RFT 1900 MLP 1920 DHP 1935 MLP 1950 DCE 2005 RFT 2015 RFT 2045 MLP 2115 DHP 2140 RFT 2150 DHP 2205 MLP 2220 MLP 2255 DHP 2305 MLP **** BKD **** MLP ŏ5500155002550035500455005550065500755008550095501055011550125501355014550155501655017550185501955020550215502247401474024740347404474054740647407474084740947410474114741247413474144741547416474174741847419474204742147422474234742447425474264742747428474294743047431474324743347434474354751647517475184751947520475214752247523475244752547526475274752847541475424754347544475454754647547475484754947550475514755247553314013140231403314043140531407314083141131183311843118531186311873118831189311903119131214312153121631217312183121931220312213122231223312243122531226312023124831172311244701446028460514722347176 #M1M2M3M4M5M6Y1Y2ARFPDLS1S2S3HS#m1m2m3m4m5m6y1y2ArFpDls1s2s3Hs#@@@@@@@@@@@@@@@@aRfPdL@@@@@@hS#@@@@@@@@@@@@@@@@arfpdl@@@@@@hsO071115000000000000000007111500000000000000000811150000000000000000081115000000000000000008111500000000000000000811150000000000000000010211150800000000000003040506071511000000001000000000000000000000010203040506070800000000000000000000000000001115000000000000000000111500000000000000000011150000000000000000001213140000000000000000P972<4E:;0CB p2'8ABSPQ345̖_55006 55009 55008 55001 55014 55015 55019 55010 55018 55020 55013 55021 55016 55005 55011 5500720450319 5501719100406 5500419100112 5500304001200 5502204001206 !4740699990100 !4741899990106 4740719100606 4741619100306 4741519100400 47419 47408 47411 47414 47405 47410 47404 47420 47401 47403 47417 47412 47409 4740204001300 47413 47421 47425 47516 47525 47552 47427 47432 47435 47431 47542 4752120400219 *4755121000526*+4742421100626 47549 47434 4742304001306 45132 37097 45013 !3140899990200 31401 31405 31402 31407 3140404001312 3141104001400 31403 !3118399990300 !3122699990600 31191 31215 31223 31216 31217 31220 31218 31185 31214 31190 3122420300412 3122520500612 31124 3121904001406 47176 46028 46051 47223 47014 N O474V Excellent A