ZXTape! 0Created with Ramsoft MakeTZXSTRATFORD ~, 30:0::0:0,0;" " 0:6:1 &7,7;" " &8,7;" DEPOTMASTER " &9 ,7;" " '10 ,7;" STRATFORD " '11 ,7;" " #'12 ,7;" 1991 A.GREENUP " ''13 ,7;" " 23:0: 77,24;"";8,24;"";9 ,24;"";10 ,24;"";11 ,24;"";12 ,24;"";13 ,24;"" <(14,7;"" F/0:0:0,0;" ":"rtc" rtc ?sWMTAs$br2=8::23658j\,8 -DEPOTMASTER STRATFORD  ASHLEY GREENUP 1991 fp=0:fp1=0:x5=1:i(502):shuffle=0:ar2=0:move=0:ar=1:neo=1:g(150):l$(95_,23) 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=13 Cn1:n2:n2<10 r$(n1)(56)="0"+n2:x:35# r$(n1)(56)=n2:x #732 ,77M,61=,78N,64@,71G (%neo=1:g(140):60< * n1:n2:n3 ,n1=99c80P . 70F <8,8,1,10 ,16,9 ,16,19,25,8,22,44,,14,34",66B,4,11 ,100d,22,26,111o,8,22,44,,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 PEx=35#42*:l$(x)(1621)="/"+l$(x+480):x UBR=1:b(502):89Y:x=1142:b$,b(x/2):l$(b(x/2))=" "+l$(b(x/2))(5)+B$+" "+L$(B(X/2))(1621):x Yo"0400",11 ,"0930",1,"0940",66B,"1040",41),"1130",3,"1310",16,"1500",34" Z+X=180P:W$(X)(9 )=" ":X _"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<14105i l20:0:0:0::1650r n1:6:x$=" ":3,0;x$;5,0;x$;8,0;x$;9 ,0;x$;10 ,7;x$(6);12 ,12 ;x$(6):x=13 15:x,0;x$+" ":x s&x=24:x,19;x$:x x&x=78:x,19;X$:x }(x=10 11 :x,19;x$:x (x=1415:x,19;x$:x T0,0;7;1;1;17,15;" WORKINGS " 1,0;6;0;1;"B EXAMINATION";2,0;"RECEPTION";4,0;"RELEASE";7,0;"A EXAMINATION" }11 ,0;6;0;1;"STABLING LINES";1,19;"ARRIVALS";6,19;"FUEL POINT" Q9 ,19;6;0;"YARD HEAD";13 ,20;"DEPARTURES" 6:0:3,13 ;"1";5,13 ;"2";8,13 ;"1";9 ,13 ;"2";10 ,13 ;"3";12 ,18;"1";13 ,18;"2";14,18;"3";15,18;"4" f18,5;1;7;0;"04:00";21,24;1;7;" " 190:o=111 locon2:place:x:n$:ti ~e(place,x)=locon2:l$(locon2)=n$+l$(locon2):21004:l$(locon2)(1)"!"place10 i(x5)=locon2:x5=x5+1 (f(place,x)/100d),f(place,x)-((f(place,x)/100d)*100d);6;0;1;l$(locon2)(16):LOCON2=35#14,12 ;0;6;1;l$(locon2)(1722):e(8,3)=35# %n$="#"ti=ti+10 *(*5) 5ti<1000l$(locon2)(710 )="0"+ti 1ti1000l$(locon2)(710 )=ti o 70F,3,1,"*",415,480,4,1,"*",430,579,5,1,"*",450,75K,11 ,1,"+",410,9 ,6,1," ",400 30,7,1," ",400,31,7,2," ",400,35#,8,2," ",400,76L,8,1," ",400,81Q,9 ,1," ",400 (82R,9 ,2," ",400 7:0:1 ?move=520,0;" FIVE MOVES! ":1500 a20,0;" LOCOMOTIVE? ":A$:20,0;" ":a$=""1500 XDX=182R: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>520,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"2000 a$2726 x=113 /p$(x)=a$(12)place=x:730 x H20,0;" NO SUCH PLACE ":q=q+1:100d:500 2x=13:e(place,x)=0750 5x:20,0;" FULL UP ":q=q+1 x:100d:500 ar2=1810* L$(locon2)(1)" "l$(locon2)(1)""p1<620,0;" NOT READY ":q=q+2:100d:500 mL$(locon2)(1)="+"p1=11 20,0;" NOT READY ":q=q+2:100d:500 L$(locon2)(17)="/"((place<5X=2)(place=5place=6)(place>6place<10 X=3))20,0;"NOT ENOUGH ROOM":q=q+2:100d:500 NO=1182:C$(p1)(OO+1)=place800 :500 O J20,0;" BAD MOVE! ":q=q+1:100d:500  p16P1<9 p=2e(p1,2)e(p1,3)e(p1,3)0e(p1,3)25520,0;"LOCO IN THE WAY":q=q+2:100d:500 !p16P1<9 p=1e(p1,2)e(p1,1)e(p1,2)0e(p1,2)25520,0;"LOCO IN THE WAY":q=q+2:100d:500 "(l$(locon2)(1)=" "L$(locon2)(1)="")(place=3place=4place=5)20,0;" NOT REQUIRED! ":q=q+2:100d:500 #(l$(locon2)(1)="#"(place=3place=4place=5)(l$(locon2)(1)="*"place=1)((l$(locon2)(1)="#"l$(locon2)(1)="*")place=13 ))20,0;" BAD MOVE! ":q=q+2:100d:500 $j(l$(locon2)(1)="#"l$(locon2)(1)="*")ưl$(locon2)(710 )h*100d+m806& %l$(locon2)(1)" "l$(locon2)(1)""p1=13 20,0;" EXAM REQUIRED ":100d:q=q+2:500 &l$(locon2)(710 )>h*100d+mp1=11 20,0;" BEING FUELLED ":q=q+2:100d:500 'Mmove=move+1:(place3place5)place=11 1100L (place=13 830> *ar2=0(f(p1,p)/100d),f(p1,p)-((f(p1,p)/100d)*100d);6;1;" ":90102#:e(p1,p)=0 ,l$(locon2)(17)="/"e(place,x)=locon2:(f(place,x)/100d),f(place,x)-((f(place,x)/100d)*100d);6;0;1;l$(locon2)(16)+l$(locon2)(1722):9000(#:21004:8215 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 ;place=19020<# 2p1<5)2500 = >place=13 20,0;"WHICH WORKING?":a$:20,0;" ":O=180P:w$(O)(9 )="*"O:837E @&a$=w$(O)(14)840H CO EH20,0;"NO SUCH WORKING":q=q+2:100d:500 ]7restore=900:o=76Lmlp=1o=77M arestore=911887w b restore fCo$:w$(o)(68)o$restore=restore+1:865a kn3,n4,n5,n6,n7,n8 p locon2n3locon2n4920 rG((locon2n5locon2n6)(locon2n7locon2n8))q=q+1:920 wG20,0;"WRONG TRACTION":q=q+2:502:500 ;"ICC",1,8,19,34",43+,568 ;"NSE",1,8,19,34",43+,568 ;"PCE",1,8,43+,60<,43+,60< ;"FLT",19,42*,1,568,1,568 ;"AGG",19,42*,1,568,1,568 :"PET",9 ,18,1,568,1,568 ;"SLK",43+,568,1,568,1,568 ="PCL",579,60<,579,82R,579,82R ="DCE",61=,82R,579,82R,579,82R :"RFT",1,568,1,568,1,568 ="BKD",579,82R,579,82R,579,82R 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=11 m2=m+20:(*2)=1m2=m2+5 [4l$(locon2)(1)="."place=11 1130j eel$(locon2)(1)="*"h2=h+1:m2=m+502+5*(*4):l$(locon2)(15)=" " gel$(locon2)(1)="#"place=1h2=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=11 2205 t ?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 n<.0035xe`Abkd=0mlp1bkd=1:21,24;0;7;1;"**** BKD" n<.0035xe`Abkd1mlp=0mlp=1:21,24;0;7;1;"**** RFT" D(1)h*100d+me(13 ,1)>014,19;6;1;" ":l$(e(13 ,1))=l$(e(13 ,1))(26):e(13 ,1)=0 $>.99}pfp=0fp=1 fp=1e(11 ,1)=0e(11 ,2)99ce(11 ,1)=99c:7,19;6;0;1;"!!!!!!!!!!!!!":3000 fp=1e(11 ,2)=0e(11 ,1)99ce(11 ,2)=99c:8,19;0;6;1;"!!!!!!!!!!!!!":3000 D(2)h*100d+me(13 ,2)>015,19;6;1;" ":l$(e(13 ,2))=l$(e(13 ,2))(26):e(13 ,2)=0 fp=1fp1h*100d+me(11 ,2)=99cfp=0:e(11 ,2)=0:8,19;6;1;" " fp=1fp1h*100d+me(11 ,1)=99cfp=0:e(11 ,1)=0:7,19;6;1;" "  e(1,1)>03,0;6;1;" ":l$(e(1,1))=l$(e(1,1))(223):B(BR2)=e(1,1):br2=br2+1:e(1,1)=0 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, l$(o)(1)=" "l$(o)(7)"9"ưl$(o)(11 12 )>11 ƥ<.001wnl$(o)(1)="#":L$(O)(710 )="9999":1574& 6l$(o)(7)="9"l$(o)(7)=" "z:1580, Tl$(o)(1)=" "ưl$(o)(710 )+800 >h*100d+Mz:1580, 0l$(o)(1)=""Q=Q+1:z:1580, rl$(o)(1)=" "ưl$(o)(710 )+800 h*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=182R: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=220,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 ~e(place,p)=0e(place,p+1)255e(place,p)=e(place,p+1):shuffle=0shuffle=1:2530 p x=p2 F(P1=3P1=4)P=1E(P1,2)0Q=Q+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/2: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:: T ::2*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)): @'B(BR)=0:LEAVE B EXAM STACK J(L$(B(br))(710 ).5))e(2,1)=0locon2=b(br):br=br+1:place=2:ar2=1:a$="B2":l$(locon2)(710 )=F$(1):720:2205:ar2=0:500 O #(:place>2place9 e(place,x+1)=locon2 #- #2l$(locon2)(17)="/"(f(p1,p)/100d),f(p1,p)-((f(p1,p)/100d)*100d);6;1;" ":P1>2P1<10 P<3e(p1,p+1)=0 #7 #Nh2<10 l$(locon2)(710 )="0"+(h2*100d+m2):9026B# #@1l$(locon2)(710 )=(h2*100d+m2) #B>L$(LOCON2)=" "+L$(LOCON2)(222):2250: &(7:7:0::0: '$x=186V:x;" ";R$(x):x '$x=186V:x;" ";L$(x):x S3456ocooconR  lac  hmxcccn2e[R9(2rovestorenalt0huffl 2 04100440qebklK040537*041565.042012*045013#050073*052008*052561*060047.061562.064025*070005.070554.071028.071539*073068.074546.075019*080052.080506.081050*081522.091014*095002#095559.100579.101040*102015*111004*111543*114527.115056.115577*123523.124017*131063*132042*133072.133560*134049.142558.143510*144074.150020.150567*154064.155069.161538#163024*164021.164536*165053.165555.171051.172007*172518#173544.181033*183032*184529.192045*193578*194526*201080.203571.220001.220151.220216. P 0405 DCE 0420 FLT 0430 DCE 0440 PET 0455 DCE 0525 DCE 0540 AGG 0630 SLK 0650 PCL 0710 FLT 0715 PET 0750 SLK 0815 ICC 0835 SLK 0840 DCE 0850 DCE 0855 PET 0910 FLT 0930 SLK 0940 FLT 0945 DCE 0950 PCE 0955 FLT 1000 NSE 1010 DCE 1020 FLT 1045 DCE 1125 PCE 1140 FLT 1155 SLK 1225 DCE 1240 PET 1245 FLT 1300 PCL 1305 PCE 1340 FLT 1345 SLK 1355 DCE 1405 SLK 1410 FLT 1420 PCE 1425 FLT 1440 PET 1500 DCE 1510 DCE 1535 SLK 1545 PCL 1550 AGG 1620 PET 1640 DCE 1715 FLT 1740 PET 1745 PCL 1800 SLK 1815 FLT 1830 SLK 1845 PET 1850 SLK 1900 PET 1910 SLK 1920 FLT 1940 DCE 1945 FLT 2000 PCE 2010 DCE 2015 FLT 2030 DCE 2050 SLK 2115 FLT 2120 PCE 2130 DCE 2140 FLT 2150 DCE 2210 PET 2235 DCE **** BKD **** RFT 2p1,2 & x~?3_47572475734757447576475794758047581475853770537706377073770837887378883788937890378913789237893473244732847357473674737447005470074700847009470144701647054470964709947101471054710847112471134711447116471214712347124370103701437043370473704837052370533705437055370573707537087370913709437104371163713337144372113721637218372194720747209472114721347214472154721747219472204722547226472314723447236472374723847241472454724947258472704728347284472854728647287472884728947290472924729347296472974729831412312163141831421314383144231443314483145031459314623110631119311283113531141311493116531170311733118131198312123122331124311273114031149311503116431168311723118931305313093131131323  B1B2A1A2A3S1S2S3S4ARFPYHDL 040500000000000000120000000000000000120000000000000000120000000000000000120000000000000000121300000000000000121300000000000000121300000000000000121300000000000000110000000000000000120000000000000000010304050607080913R9R F09 L##QRKrV Good Z =@ODCEAAR2F09K #LQR̎_ 475720930 47579 475761130 47574 47573 47585 47581 47580 3770504001212 37891 473670400 37707 37889 47328 37892 377061310 47324 47374 47096 47016 47116 47005 47114 47101 47105 47113 47124 47007 47121 4700804001300 4712304001306 47009 47054 470141500 3710404001406 /37087 37043 /37133 37057 /37216 37054 /37075 37010 /37091 37094 /37048 370141040 /37055 37144 /37053 47234 47249 47285 47237 47258 *4729204300900 47238 47207 47209 47289 47214 47236 47231 47245 *3141804501006 31438 31450 31443 31311 31149 31140 31181 31127 311350940 31168 31173 31141 *3117004150800 31165 31323 31189 31106 +3130904100719 3111904001400 31128 31164 31223 31305 3121204001500 3115004001506 37087 37133 37216 37075 37091 37048 37055 37053 2 B)"B1500 X N