ZXTape! 0Created with Ramsoft MakeTZXOLD OAK = 30:0::0:0,0;" " 0:6:1 '7,7;" " '8,7;" DEPOT MASTER " '9 ,7;" " (10 ,7;" OLD OAK COMMON " (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;" ":"ooc" :ooc tfJ vf  A.GREENUP 1989 x5=1:i(502):shuffle=0:s1=600X+5*(*12 ):ar2=0:move=0:ar=1:neo=1:g(150):l$(85U,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=111 9n1:n2:n2<10 r$(n1)(56)="0"+n2:x r$(n1)(56)=n2:x #9 ,40(,13 ,2,18,1,21,38&,24,74J,36$,75K,491,77M,513,4,546,3,557,76L,568,32 ( 60< * n1:n2:n3 ,n1=99c90Z -n2=12 neo=neo+4 . 70F < 16,33!,1,17,17,34",16,23,513,5,13 ,74J,9 ,16,87W,3,5,103g,3,13 ,108l,8,10 ,121y,2,12 ,135,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 \Fx=131133:l$(x-535)=e$(x):x:l$(81Q)="31158" ]8l$(84T)="08634":<.5l$(84T)="08947" ^-l$(85U)=(43136+(*14)) _Nd(2):H=4:M=0:x=3133!:l$(x)(2)="O":x d xx=1 iHX=110 :e(xx,x)>0e(xx,x)<255e(xx,x)=0 jX k'xx=xx+1:xx<13 105i l20:0:0:0::1650r nC1:6:x=26:x,0;" ":x s3x=10 14:x,0;" ":x x,x=25:x,26;" ":x }-x=713 :x,26;" ":x ,x=18:x,16;" ":x 4x=10 11 :x,13 ;" ":x 8,2;" " 6x=1416:x,13 ;" ":x T0,0;7;1;1;17,15;" WORKINGS " f14,25;6;0;1;"DL";15,25;"D2";16,25;"D1" f18,5;1;7;0;"04:00";21,24;1;7;" " =1,0;6;1;0;"TN";9 ,0;"TS";1,26;"FY";6,26;"AR";0,16;"FA";1,22;"L";2,22;"7";3,22;"6";4,22;"5";5,22;"4";6,22;"3";7,22;"2";8,22;"1" 9 ,13 ;6;1;0;"SERVICE SHED";10 ,25;"3";11 ,25;"2";12 ,25;"1";7,4;"TT";13 ,14;"DEPARTURES";12 ,13 ;0;6;1;" C L O S E D" 190:o=128 locon2:place:x:n$ ~e(place,x)=locon2:l$(locon2)=n$+l$(locon2):21004:l$(locon2)(1)"!"place12 i(x5)=locon2:x5=x5+1 (f(place,x)/100d),f(place,x)-((f(place,x)/100d)*100d)-1;6;0;1;l$(locon2)(16):l$(locon2)(710 )="0400" -n$="!"l$(locon2)(710 )="9999" On$="*"l$(locon2)(710 )="05"+(10 +(10 *(*4))) n$="#"l$(locon2)(710 )=(10 +(*3))+"00":locon2=25l$(locon2)(710 )=(12 +(*5))+"00" -n$="."l$(locon2)(710 )="9999" ^n$="+"l$(locon2)(710 )="0420":>.5l$(locon2)(710 )="0425" o 16,12 ,1,".",43+,12 ,2,".",14,5,1,"*",502,6,1,"+",33!,6,2,"+" 23,1,1," ",26,1,2," ",37%,1,3," ",39',1,4," ",70F,1,5," ",71G,1,6," " 24,3,1," ",12 ,3,2," ",15,3,3," ",44,,3,4," ",45-,3,5," ",47/,3,6," " C557,10 ,1," ",27,4,1,"!",85U,4,2,"!",28,4,3,"!",84T,4,4,"!",25,4,5,"#",29,4,6,"!",480,4,7,"!",42*,4,8,"#",491,11 ,1,"!",63?,11 ,2,"!" 7:0:1 a20,0;" LOCOMOTIVE? ":A$:20,0;" ":a$=""1500 XDX=183S: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=110 :e(p1,p)=locon2675 p p1=p1+1:657 N20,0;" WHERE TO ? ":a$:20,0;" " Oa$="?"p1=12 20,0;" AFTER SERVICE ":100d:500 [a$="?"l$(locon2)(7)="9"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 ͏l$(locon2)(1)="!"(l$(locon2)(1)" "l$(locon2)(1)"V"p1=4)20,1;"CANT BE MOVED":100d:500 ,x=112 :a$2726 }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 3x=110 :e(place,x)=0750 >x:20,0;" FULL UP ":100d:500 ar2=18204 Hmove=520,0;" FIVE MOVES! ":100d:500 NO=112 2:C$(p1)(OO+1)=place800 :500 O @p1>4p1<8place=p1p=2800 :500 ;20,0;" BAD MOVE! ":100d:500  place>4place<8x=1e(place,2)>0e(place,2)locon220,0;" MOVE UP LOCO ":100d:500 !(place=7s1>0)(place>4place<8e(place,2)>0e(p1,p)locon2)20,0;" BAD MOVE! ":100d:500 "place=10 l$(locon2)(23)"56"(locon2<557locon2>69E)20,0;" FREIGHT ONLY ":100d:500 #rp1>4p1<8p=2e(p1,1)>020,0;" BAD MOVE! ":100d:500 $Pl$(locon2)(1)="#"ưl$(locon2)(710 )h*100d+m806& %l$(locon2)(1)" "l$(locon2)(1)""p1>4p1<8placep120,0;" NOT READY YET ":100d:500 &Rp1=2tt=120,0;" TABLE TURNING ":100d:500 'Umove=move+1:(place>4place<8p1place)place=41100L (place=8830> *ar2=0(f(p1,p)/100d),f(p1,p)-((f(p1,p)/100d)*100d)-1;6;1;" ":e(p1,p)=0 4e(place,x)=locon2:(f(place,x)/100d),f(place,x)-((f(place,x)/100d)*100d)-1;6;0;1;l$(locon2)(16):21004 5shuffle=1ar2=1 7&place=2tt=0tt=1 8op1>7p1<11 e(p1,2)>0place=p1:x=1:locon2=e(p1,2):p=2:810* 9/p1=1p1=3p1=12 2500 :%ar2=1p1=12 2500 < >place=820,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=75Kmlp=1o=76L arestore=916887w 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 ]"ICA","500",0,"0",0,"0",0,"0",0,"0",0,"0",0,"0",0 c"ICB","500",0,"474",1,"475",1,"476",1,"0",0,"0",0,"0",0 c"ICC","474",0,"475",0,"476",0,"500",1,"0",0,"0",0,"0",0 a"ICD","474",0,"475",0,"476",0,"0",0,"0",0,"0",0,"0",0 ]"NSA","500",0,"0",0,"0",0,"0",0,"0",0,"0",0,"0",0 c"NSB","500",0,"474",1,"475",1,"476",1,"0",0,"0",0,"0",0 c"NSC","474",0,"475",0,"476",0,"500",1,"0",0,"0",0,"0",0 ]"PCA","500",0,"0",0,"0",0,"0",0,"0",0,"0",0,"0",0 c"PCB","500",0,"474",1,"475",1,"476",1,"0",0,"0",0,"0",0 c"PCC","474",0,"475",0,"476",0,"500",1,"0",0,"0",0,"0",0 g"RFT","470",0,"471",0,"472",0,"474",5,"475",5,"476",5,"0",0 ]"WST","560",0,"0",0,"0",0,"0",0,"0",0,"0",0,"0",0 c"LTR","314",0,"5O0",0,"311",5,"312",5,"0",0,"0",0,"0",0 c"DCE","311",0,"312",0,"314",1,"5O0",1,"0",0,"0",0,"0",0 c"BKD","314",0,"311",0,"312",0,"5O0",0,"0",0,"0",0,"0",0 i"MLP","500",0,"474",0,"475",0,"476",0,"470",5,"471",5,"472",5 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 eDh2=h:l$(locon2)(1)="*"m2=m+90Z+5*(*12 ) f|(locon2=30locon2=46.)place>4place<8l$(locon2)(7)="9"l$(locon2)(1)=".":1129i gKl$(locon2)(1)="#"place=4h2=h+11 +(*2)+1 iMl$(locon2)(1)="."m2=m+20:(*2)=1m2=m2+5 j8m260<m2=m2-60<:h2=h2+1:1130j lNh2<10 l$(locon2)(710 )="0"+(h2*100d+m2):1137q o1l$(locon2)(710 )=(h2*100d+m2) qplace42205 t Ktt=0:move=0:m=m+5:m=60<h=h+1:m=0 ^s10h*100d+m>s1s1=0:12 ,13 ;1;6;" " (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(8,1)>014,19;6;1;" ":l$(e(8,1))=l$(e(8,1))(26):e(8,1)=0 D(2)h*100d+me(8,2)>014,13 ;6;1;" ":l$(e(8,2))=l$(e(8,2))(26):e(8,2)=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, 6l$(o)(7)="9"l$(o)(7)=" "z:1580, Tl$(o)(1)=" "ưl$(o)(710 )+600X>h*100d+Mz:1580, 0l$(o)(1)=""Q=Q+1:z:1580, rl$(o)(1)=" "ưl$(o)(710 )+600Xh*100d+Mq=q+1:l$(o)(1)="":1574& ml$(o)(710 )>f$(1)ưl$(o)(710 ).5)l$(r$(ar)(56))=r$(ar)(7)+l$(r$(ar)(56)):a$="AR":ar2=1:locon2=r$(ar)(56):l$(locon2)(710 )="9999":720:ar=ar+1:ar2=0 4ar=58:500 63r$(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 _(P1>7P1<5)p1420,0;" NOT IN SHED ":100d:500 TL$(locon2)(1)=" "20,0;" NOT REQUIRED ":100d:500 TL$(locon2)(1)="!"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-1;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=19 ae(place,p)=0e(place,p)=e(place,p+1):shuffle=0shuffle=1:2530 p x=p9 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: S34565TNTTTSFAS3S2S1DLD2D1FYAR@@ttssfas1s2s3dld1d2fyaruP 0410 PCC 0425 NSB 0430 NSA 0450 NSC 0455 NSC 0500 ICD 0505 ICB 0510 RFT 0515 NSB 0545 LTR 0615 LTR 0715 NSB 0745 ICD 0805 ICA 0830 RFT 0840 DCE 0845 ICC 0850 RFT 0855 WST 0900 RFT 0905 DCE 0935 ICA 0940 ICA 1045 ICD 1140 LTR 1210 ICA 1225 NSB 1255 RFT 1300 RFT 1345 RFT 1350 DCE 1430 LTR 1440 LTR 1450 PCC 1455 RFT 1510 ICB 1515 RFT 1525 ICB 1530 ICA 1535 ICB 1540 LTR 1545 ICB 1550 NSB 1555 NSC 1600 NSB 1605 NSB 1610 ICB 1615 NSC 1620 ICB 1625 ICB 1655 NSC 1700 ICB 1720 LTR 1730 RFT 1750 PCC 1755 NSC 1805 LTR 1840 PCC 1845 RFT 1920 WST 1950 RFT 2005 PCB 2025 PCC 2035 ICC 2045 PCC 2050 RFT 2055 ICB 2120 PCC 2125 ICA 2205 PCA 2330 NSB 2350 DCE 0005 RFT 0035 ICB **** BKD **** MLP ocoocon lac 0200000000000000 0103080910110000 02000000000000 110000000000000 02000000000 020000000000 02000000000 0209100000000000 020800000000000 02080900000000000 040200000000000 0506070000000000 hmx500015000250003500045000550006500075000850009500105001150012500135001450015500165001750018500195002050027500285002950041500425004350044500455004650047500485004950050500215002250023500245002550026500305003150032500335003450035500365003750038500395004047477474844750047501475084750947512475134751547609476114761247613476184762047621476224762347624476254762647627476284755547556475574755847559475634756447567476754758947592475944759747256472574725847282472834728447285472864714247143471444714547079470884708947091470084705247054470614708547187471884718947190471914719247193471944719547196471974719847199314013140231403314043146431465314663146731468314693127831279312805604256043560445604556046560475604856049560345603656054560555605631158 cccneT] %'FG ,-/2!7+] -3Y_#MSyu=i1Z`TNG;g/#7A 041078* 052064* 060506* 061056* 070511* 071083. 074068. 074581. 091540. 092546# 093036* 093505. 094002. 094520* 095057. 095521* 100008. 101001. 103035* 104531. 105538. 111022* 112065. 113574. 115080. 120058. 120567. 121013. 122017* 122509. 123507. 124073. 125059. 130072. 131034. 131575. 132018. 133030# 143060* 154553. 160579. 161519* 162052. 163082. 163569. 164066. 170061* 172541* 173077. 174554. 175504. 184010* 184551. 193503. 194076. 203032. 204562. 999999999999 rov tntttsfas3s2s1dld2d1fyar 40TtTsFa@@@@@@Dl@@@@FyAr tNtTtSfA@@@@@@dL@@@@fYaRestorenalt/hufflX2 04050435qe# bkl ͒P  3$1768V OUTSTANDINGO500A22!%'FG ,-/7U50013 50010 50011 50042 50028 50009 50014 50046 50049 50001 50004 5002904001007 50008 *5004105201014 5004404001101 .5000299990727 50026 50023 50030 50040 50039 50033 5002404000201 5003804001001 50032 5002204000207 !50037 50031 50034 50021 5O035 5O036 +5O02504251120 47621 47625 47508 4762004000301 47512 4761804000307 47624 47613 47628 .4750999990827 4762204001107 4762704001201 47477 4751304001207 47626 47515 +4759204201114 47589 47556 47563 47567 4725604001620 47283 47284 47144 47286 47285 47145 47143 47257 47061 47085 47008 47197 47187 47192 3146504000401 3146604000407 31404 31468 31464 31467 31402 31401 31278 31279 31280 31158 56044 56048 08947 43136 N!