ZXTape! 0Created with Ramsoft MakeTZX bgreen ^K ` v1.0  7 "bgs" 18,1 "bgg" Nbgs @^`   0       0 ` 0B<@B@DfB@@BBBBbD@BB@@b888x<@88D888x8BBbbbB<~|BZB<|B|BBRB<@B||R0@D<0DD@DDDDDBBRRR@B@BB~@|BBBJBN|@@J8DB<8@<Bx~~D<<<~B<D@@HBD@D@@f@B||pB(<(<|Z<B@@>H~@BD@@DBBB@BBBx~~BB<<~B<<88888888888888888888888888888888888888888888888888888888888888888888888888<<<88<<<<<<<88888888888888888888<8888<<8888<88888888888888888888<8888<<8888<88888888888888888888<8888<<8888<88888888888888888888<8888<<8888<88888888888888888888<<<<<<<88<<<88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888889899999999999999999998888888888888899999999999999999999999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888????????????????????????????????8888888888888888888888888888888888888888888888888888888888888888o%bgg ,kW\y .k 9000(# n$(10 ,13 ):s$(7,23):t$(7,23):u$(7,23):d$(10 ,5):m$(9 ,2) am(41),11 ):p(10 ):d(8):w(9 ):e(11 ):s(7):g(10 ) 170:1670 ($1760:4230:1060$ F.2170z:j=-14110:40( K(mo=(b/1440):mo=b-1440*mo $mo=4203420\ :40( 70F  dy=-1:l$=" ":q=0:aw=0:e1=0:e2=0:e3=0:wf=0:sc=0:ps=0:pp=0 i=19 :p(i):i =980:i=18:d(i):m(d(i),7)=p(i):i i=19 :p(i):i "C980:i=18:m(d(i),8)=43000+p(i):i 6i=19 :p(i):i JH980:i=16:d(i):m(d(i),7)=p(i):w(i)=p(i):i rEw(7)=p(7):w(8)=p(8):w(9 )=p(9 ) |i=19 :p(i):i _980:i=16:y=43000+p(i):m(d(i),8)=y:w(i)=100d*y+w(i):i >i=79 :w(i)=100d*(43000+p(i))+w(i):i !i=19 :p(i)=w(i):i i=16:d(i):i ^i=16:y=p(i):85004!:m(d(i),7)=mo:m(d(i),8)=(y/100d):i i=19 :p(i):i '980:i=14:d(i):i 7i=14:m(d(i),7)=p(i):w(i)=p(i):i !i=59 :w(i)=p(i):i :i=19 :p(i):i N_980:i=14:y=43000+p(i):m(d(i),8)=y:w(i)=100d*y+w(i):i b>i=59 :w(i)=100d*(43000+p(i))+w(i):i l!i=19 :p(i)=w(i):i v'980:i=14:d(i):i ^i=14:y=p(i):85004!:m(d(i),7)=mo:m(d(i),8)=(y/100d):i i=19 :p(i):i 8980:i=19 :w(i)=43000+p(i):i pc=w(1) j=03010 di=110 :k=i+j:z,i$,y,x,w$:m(k,9 )=z:n$(i)=i$:m(k,10 )=y:m(k,11 )=x qm(k,1)=1440*(w$(1))+60<*(w$(23))+(w$(4))+1440*j/10 :i 8015O:j \.f=1+(*4):f2890z fi=4+(*4)*10 :m(i,8)=43086N+(*8):m(i,9 )=4:sn=8+(*2)*14:f=4sn=sn+1 pm(i,7)=sn z.f=1+(*4):f2920 i=7+(*4)*10 :m(i,8)=43110f+(*4):m(i,9 )=5:sn=3+(*2)*21:f=4sn=sn+1 m(i,7)=sn  ,c=110 :d=1+(*6) *ee=1+(*6):ee=d950 2s(7)=s(d):s(d)=s(ee):s(ee)=s(7):c  ,c=110 :d=1+(*9 ) +ee=1+(*9 ):ee=d1000 4p(10 )=p(d):p(d)=p(ee):p(ee)=p(10 ):c  -c=110 :d=1+(*10 ) ,ee=1+(*10 ):ee=d1040 4e(11 )=e(d):e(d)=e(ee):e(ee)=e(11 ):c  $4:5:0,0;"FERME PARK RECEPTION" &)1,0;"Set No.Sch Ar.Status" B1320(:33804  3 10 ,0;"S1":12 ,0;"S2":14,0;"S3":16,0;"S4":18,0;"M1":20,0;"M2" 79 ,0;2;" SERVICING SHED " z=2:2070  0 5i=16:i*2+9 ,0;m$(i) i p17,26;m$(7);29;m$(8):a=b:1620T:0,28;4;a$(2) 1550: ($fp=1:nw=0:na=0 <,n=dy*10 +1dy*10 +10 F<fp=6m(n,4)>5bm(n,1)+20x$=" Fuel":m(n,4)=2 n]m(n,4)=2x$=" Fuel":b>m(n,1)+40(x$="Avail":m(n,4)=3 x"m(n,4)=3x$="Avail" 1m(n,4)=4x$=" Wash":nw=nw+1 cm(n,4)=4x$=" Wash":b>m(n,2)x$=" Wait":m(n,4)=5:nw=nw-1 1m(n,4)=5x$=" Wait":na=na+1 Ta=m(n,1):1620T:y$=m(n,7)+"(":m(n,7)<10 y$=" "+y$ z=m(n,9 ):4441Y:y$=y$+z$+")":z=m(n,11 ):4444\:y$=y$+z$+" "+a$(25)+" "+x$:fp+1,0;5;y$:fp=fp+1 n fp=61540 En=fp5:n+1,0;5;" ":n  J10 ,26;2;"REPAIR":11 ,27;2;"SHOP" ~13 ,25;s$(7)(7):14,25;t$(7)(7):15,25;u$(7)(7) " T(mo=(a/1440):mo=a-mo*1440 ^qd=(a/1440):h=mo:o=(h/60<):o=h-o*60<:h=(h/60<):s=o+100d*h+10000'*d:a$=s c i=140( L(i=1i=9 )1+(*10 )>5m(i,11 )=2 Jm(i,9 )11+(*5)=5m(i,11 )=2 -m(i,9 )=1i>10 1730 g1+(*7)=7m(i,11 )=m(i,11 )+4:m(i,1)=m(i,1)+20 i  pdy=dy+1:b=1440*(dy+1)+1240:e1=0:e2=0:e3=0:q=0:aw=0 <sc=0:se=0:pp=0:ps=11800 Eps=-1-(*5):1+(*10 )>6ps=1 )8030^:i=110 :e(i):i 0@1020:i=16:s$(i)=l$:t$(i)=l$:u$(i)=l$:i Xs$(7)=" ":t$(7)=s$(7):u$(7)=s$(7):s(1)=0:s(2)=0:s(3)=513:s(4)=524:s(5)=535:s(6)=546 l930:i=16:s(i)=0sc=01+(*8)=8s(i)=557:s$(i)="Rep work on charter stk":sc=10 :1980 +z=s(i):z<513z>5461980 z=513z$="1S792050" z=524z$="1S082210" z=535z$="1S772230" z=546z$="1L002240" 6s$(i)="Stock "+z$(4)+" due dep "+z$(5) i dy=0b$="MONDAY" dy=1b$="TUESDAY" dy=2b$="WEDNESDAY" dy=3b$="THURSDAY" 4b$=b$+" NIGHT SHIFT":i=110 :d$(i):i !i=16:m$(i)=" ":i $m$(7)="M":m$(8)="M": G0:i=16:8+i*2,2;5;s$(i) !z=2q$=t$(i):2078  q$=u$(i) (9 +i*2,2;5;q$  i H[ps=1s$(7)=" PC ":t$(7)=" "+pc:u$(7)=" avail ":2130R MFs$(7)=" No PC ":t$(7)=" spare ":u$(7)=" avail " R1550: z"Set no.";z$ z$>22310 i=1̱z$ !z$(i)<"0"z$(i)>"9"2310 i z$=""3020 : 3z$>480Űz$=0q=q+2:2170z  n=-1 ,i=dy*10 +1dy*10 +10 z$=(m(i,7))n=i i %n=-1q=q+2:2170z 4ns=m(n,4):ns<3ns=42310  2340$ @20,27;"NOT":21,25;"AVAILBL" 1.5@,-2 820,27;" ":21,25;" "  2170z $"Instruction ";i$ .pi$="w"ns=3nw=0na<2m(n,4)=4:m(n,2)=b+30:1320(:2170z 3#ns=3ns=42440 8'ns5ns=ns-5:2660d B=i$"s1"i$"s2"i$"s3"i$"s4"i$"m1"i$"m2"2440 LLi$="s1"s(1)=0m(n,4)=6:s(1)=n:2470 VLi$="s2"s(2)=0m(n,4)=7:s(2)=n:2470 `Li$="s3"s(3)=0m(n,4)=8:s(3)=n:2470 jLi$="s4"s(4)=0m(n,4)=9 :s(4)=n:2470 tMi$="m1"s(5)=0m(n,4)=10 :s(5)=n:2470 ~Mi$="m2"s(6)=0m(n,4)=11 :s(6)=n:2470 @20,27;"NOT":21,25;"ALLOWED" 1.5@,-2 820,27;" ":21,25;" " 2170z Kns=m(n,4)-5:sn=1+(*5):ns>12 2440 :mo=(m(n,11 )/4):mo=m(n,11 )-mo*4 m(n,2)=b+180-(60<*e(ns)+.5):m(n,3)=0:mo=2m(n,3)=90Z-(30*e(ns)+.5):ns<5m(n,3)=m(n,3)+30 #m(n,11 )<52600( 1ns<5m(n,3)=m(n,3)+120x (m(n,6)<0sn=-m(n,6) [sn=1t$(ns)="electrical prob":m(n,3)=m(n,3)+30:m(n,6)=sn [sn=2t$(ns)="coolant leak ":m(n,3)=m(n,3)+90Z:m(n,6)=sn \sn=3t$(ns)="turbo problems ":m(n,3)=m(n,3)+120x:m(n,6)=sn \sn=4t$(ns)="traction fault ":m(n,3)=m(n,3)+180:m(n,6)=sn \sn=5t$(ns)="alternator prob":m(n,3)=m(n,3)+240:m(n,6)=sn (t$(ns)="PC"+(m(n,8))+" "+t$(ns) (Ya=m(n,2)+m(n,3):1620T:m(n,11 )>4ns<5q=q+10 4q=q+2 F,y$="HST":m(n,7)<10 y$=y$+" " Py$=y$+(m(n,7))+"(":z=m(n,9 ):4441Y:y$=y$+z$+")":z=m(n,11 ):4444\:y$=y$+z$+" estOK "+a$(2):s$(ns)=y$:1320(:z=2:2070:2170z d5m(n,11 )>4(i$="ps"i$="pa")2880@ n1dp=-1:i=110 :i$=d$(i)dp=i si$42690 xi$=d$(i)(4)dp=i i 2dp=-1ns>95_q=q+2:2440 7s(ns)0d$(dp)=" "q=q+5:2440 +s(ns)=-999q=q+5:2310 $mo=(dp/2):mo=dp-mo*2 :mo=1m(n,9 )1q=q+5:2440 :mo=0m(n,9 )=1q=q+5:2440 G(dp=6dp=8dp=10 )m(n,9 )3q=q+5 Ȅx$=d$(dp,5):y$=d$(dp)(4):ti=60<*y$(2)+y$(34)+1440*(dy+2):x$"k"2800 =(ti-b)<90Zq=q+5:(ti-b)<60<q=q+10 2820 >(ti-b)<120xq=q+5:(ti-b)<90Zq=q+10 'x=m(n,9 ):x=14450b d$(dp)=" ":s$(ns)=s$(ns)(12 )+" aloc. dep":t$(ns)=l$:s(ns)=-999:m(n,4)=100d+dp:aw=aw+1:m$(ns)="MM"m$(7)="M":m$(8)="M" m$(ns)=" "2860, "=m$(ns)=" ":m$(7)=" "m$(7)="M ":2860, 'm$(8)="M " ,9 +ns*2,0;" ":17,26;m$(7);29;m$(8):z=2:2070:33804 :2170z @i$="ps"ps=1m(41),8)=pc:pc=m(n,8):m(n,8)=m(41),8):ps=-100d:t$(ns)="Replacement PC attached":pp=n:m(n,5)=-998:2900T J 2920h T$m(n,6)<3q=q+10 ^ 2970 hi$="pa"ppnt$(ns)=" Only one PC operative ":u$(ns)=t$(ns):m(n,5)=-999:m(n,6)=-m(n,6):2940| r 2960 {Zmo=((m(n,2)+m(n,3))/1440):mo=m(n,2)+m(n,3)-mo*1440 |'ps=1mo<420q=q+10 2970 2440 nt=m(n,2):nt502an<568)3150N 0-b<(m(an,2)+m(an,3))3150N :_s(i)=-an:s$(i)=s$(i)(9 )+" Available":t$(i)(5)" O"t$(i)=l$:3150N D u$(i)=t$(i) Ni Xi=16 ](mo=(b/1440):mo=b-mo*1440 b5mo>1250s(i)=513s(i)=0:s$(i)=l$ l5mo>13302s(i)=524s(i)=0:s$(i)=l$ v5mo>1350Fs(i)=535s(i)=0:s$(i)=l$ 5mo>1360Ps(i)=546s(i)=0:s$(i)=l$ i i=110 d$(i)=" "3270 i$=d$(i,4):ti=60<*i$(2)+i$(3)+1440*(dy+2):ti-b<20d$(i,5)="k"d$(i)=" ":q=q+20:7900:33804 :3270 Jti-b<502d$(i,5)"k"d$(i)=" ":q=q+20:33804 i fp13330 (mo=(b/1440):mo=b-1440*mo i=16:i<5e1=0s(i)=0mo>270e1=1:s(i)=513:s$(i)="Parcl stock examination" li<5e2=0s(i)=0mo>370re2=1:s(i)=524:s$(i)="Nwspapr van examination" li>4e3=0s(i)=0mo>330Je3=1:s(i)=535:s$(i)="Parcl stock maintenance" i Fj=-1:i=16:s(i)>0s(i)<502j=1 i <mo=(b/60<):mo=b-mo*60<:mo=03690j .i=110 :d$(i)" "j=1 i j=-1 z=2:2070: 447:1:1,20;"HST DIAGRAMS" 5 3 6O2,21;"BN";28;"NL":5,21;"BN*";28;"ML" 7 0 853,20;d$(1);27;d$(2) 954,20;d$(3);27;d$(4) :56,20;d$(5);27;d$(6) ;57,20;d$(7);27;d$(8) <68,20;d$(9 );27;d$(10 ) > \ 4205m 1 5,14;"0700" /7,0;"Handover to day production" 18,0;"manager to complete work and" 29 ,0;"liase with Divisional Control" .10 ,0;"at York over outstanding" *11 ,0;"allocation problems." =i=110 :d$(i)" "q=q+10 :7950 i en=10 *dy+110 *dy+10 :m(n,4)>100dm(n,9 )13650B "m(n,4)<63560 Zmo=((m(n,2)+m(n,3))/1440):mo=m(n,2)+m(n,3)-mo*1440 mo<4503580 ;m(n,11 )<5m(n,5)=-9993580 5m(n,5)=-999:m(n,6)=-m(n,6) ?i=19 :g(i)=1j=i:g(i)=0:i=9 i  8031_ $i=1j:y$:i 8y$=y$(4):4450b Bn LH4620 :20,0;0;"Press any key for next nights" N$21,0;0;"work." P=""3664P Q%i=110 :g(i)=0:i R j mc=0 ~-i=16:m$(i)="M"mc=mc+1 m$(i)="MM"mc=mc+2 i *ps=ps+2-mc:ps>1ps=1 !i=16:m$(i)=" ":i "m$(7)="M":m$(8)="M" 4i=16:9 +2*i,0;" " i 17,26;"M M" (mo=(b/1440):mo=b-mo*1440 j=-1mo=420 Gi=16:n=s(i):n>40(n=0u$(i)=l$:38902 0m(n,5)=-999n<138902 :n<1m(n,5)-999u$(i)=l$:38902 01+(*10 )<7+e(i)3860  m(n,3)=m(n,3)+30:u$(i)="Work progressing slowly":a=m(n,2)+m(n,3):1620T:s$(i)=s$(i)(19)+a$(2):38902 !u$(i)=" Work on schedule " rm(n,11 )>4s(i)>0s(i)<5021+(*20)=20m(n,5)=03880( # 38902 (m(n,3)=m(n,3)+600X:u$(i)=" Major PC defects ":t$(i)=u$(i):a=m(n,2)+m(n,3):1620T:s$(i)=s$(i)(19)+a$(2):m(n,5)=-998 2i <z=3:2070 Fj=12 Z "Men ?",i$ di$=""j=2:4080 n q=q+1 x=i$="s1"i$="s2"i$="s3"i$="s4"i$="m1"i$="m2"3970 } 3930Z i$="s1"m=1 i$="s2"m=2 i$="s3"m=3 i$="s4"m=4 i$="m1"m=5 i$="m2"m=6 (s(m)<1s(m)>40(3930Z $m$(m)=" "m$(m)="M ":4000  m$(m)="MM" 0m$(7)="M "m$(7)=" ":4010 m$(8)=" " 5i=16:9 +i*2,0;m$(i) i 617,26;m$(7);29;m$(8) Tn=s(m):(m(n,2)+m(n,3))-b>40(m(n,3)=m(n,3)-20 L(m(n,2)+m(n,3))-b>90Zm(n,3)=m(n,3)-20 ea=m(n,2)+m(n,3):1620T:s$(m)=s$(m)(19)+a$(2):z=3:2070 j z=2:2070   4205m 6Waa=b:1620T:c$=a$(2):5,4;1;"HST work completed ";c$ hc4620 :0:20,0;"Press any key for next nights":21,0;"work." i=""4201i j%i=110 :g(i)=0:i k mH7:7:2::0,5;"BOUNDS GREEN HST DEPOT" oco=(32 -b$)/2 p1,co;b$ r F4205m:3:3,2;"LISTING OF EXPECTED ARRIVALS" >4,0;4;"ARR SET WORK ARRIVAL DAYS" G5,0;4;"TIME SHED REQD WORKING MILES":1 %j=110 :i=10 *dy+j a=m(i,1):1620T (j+5,0;a$(25) /co=5:m(i,7)<10 co=6 j+5,co;m(i,7) 3z=m(i,9 ):4441Y:j+5,7;z$ Ez=m(i,11 ):4444\:j+5,10 ;z$;14;n$(j) 4co=28:m(i,10 )<1000co=29 j+5,co;m(i,10 ) j X16,4;3;"SHIFT SUPERVISORS REPORT":nv=0:nu=0:0 .i=16:s(i)=5574390& bi<5e(i)=017+nu,1;"Maint. crew on S";i;" understaffed":nu=nu+1 ji>4e(i)=017+nu,1;"Maint. crew on M";i-4;" understaffed":nu=nu+1 &@s(i)=557nv=i:v$="S"+i:i>4v$="M"+(i-4) 0i :Rnu=017+nu,0;"All maint. crews fully staffed":nu=nu+1 ?nv=04430N D717+nu,1;"Line ";v$;" unavailable due to" I618+nu,0;"repair work on charter stock." N;21,2;5;"Press any key to begin shift" S=""4435S X Y 7000X \ 7010b b#y$="0350"w=11 :4510 d#y$="0800"w=19:4510 f#y$="0500"w=22:4510 h#y$="0730"w=23:4510 jy$="0750"w=28 +w=10 *dy+w:w>40(w=w-40( Mm(w,7)=m(n,7):m(w,8)=m(n,8):m(w,11 )=2 (mo=(b/1440):mo=b-mo*1440 mo=4204570 !y$="0350"y$="0800"4560 :mo=(m(n,11 )/4):mo=m(n,11 )-mo*4 mo=1q=q+5  4570 #mo=2m(w,11 )=1 ڀm(n,6)0(y$="0500"y$="0750")m(w,6)=0:m(w,10 )=185:a=1+(*15):4600 :f=1+(*7):m(n,6)04600 (mo=(b/1440):mo=b-mo*1440 'f=7:mo420q=q+10 f=7m(w,11 )=m(w,11 )+4:m(w,1)=m(w,1)+20:m(n,6)<0m(w,6)=m(n,6)   :ef=0:se=0:i=16:ef=ef+e(i):i *1ef<5se=5:ef<4se=10 ,(mo=(b/1440):mo=b-mo*1440 /[sl=((mo-420)/10 ):q=q-sc-se-sl:fi=100d-q:fi<4*awfi=4*aw 4fi>100dfi=100d CBwf=wf+fi:15,6;3;"Management rating ";fi;"%" \N17,0;3;"Cumulative weeks rating ";(wf/(dy+1));"%" dy3 :21,0;0;"Do you wish to play again ?"  ="y"  ="n"  4781 Xz=1z$="BN" Yz=2z$="NL" Zz=3z$="ML" [z=4z$="EC" \z=5z$="HT" ] bz=1z$="ENV": cz=2z$="AEX": dz=5z$="E/R": e z$="A/R": Ai$="0350"i$="0500"i$="0730"i$="0750"i$="0800"g(i)=1  Ud$(i)="0350k"d$(i)="0500k"d$(i)="0730k"d$(i)="0750k"d$(i)="0800k"g(i)=1  @R10 ,13 ,14,15,16,17,26,30,31 AD1,2,3,8,9 ,12 ,13 ,18 BT41),42*,579,62>,74J,80P,85U,106j,115s CR38&,39',40(,41),42*,43+,45-,46.,480 D55,6,10 ,15,16,20 EZ38&,45-,491,60<,73I,116t,121y,155,162 F725,26,30,35#,36$,40( GO1,2,7,18,19,27,32 ,35#,36$ H#4,7,14,17 IV47/,557,64@,71G,77M,152,157,193,196 J%24,27,34",37% KV513,524,67C,69E,83S,122z,123{,159,198 O31,"1E151435ED-KX",948,1,"12010" P31,"1A271745LD-KX",902,2,"12050" Q31,"1E171535ED-KX",998,2,"12110" R32,"1E181400AB-KX",892|,1,"12210" S33,"1E301830SH-SP",735,1,"12230" U33,"1E321930SH-SP",804$,1,"12310" V32,"1E201735ED-KX",998,1,"12330" W31,"1A291943BR-KX",884t,2,"12350" X41,"1E211600AB-KX",1058",1,"20010" Y33,"1E332040SH-SP",856X,1,"20040" ^b1,1,1,1.333*v,1.333*v,.667*,.667*,.333*~,0,0 _Q"0350k","0757h","0800k","0804k","0500k","0600s","0730k","0700s","0750k","0745s" !4(mo=(y/100d):mo=y-100d*mo: #(1:1:7: #-,3,9 ;1;" " #2,4,9 ;1;" SHEDMASTER " #<,5,9 ;1;" " #A,6,9 ;1;" BOUNDS GREEN " #F,7,9 ;1;" " #P912 ,7;1;6;" Please Wait " #ZC20,3;7;3;"  DEE-KAY SYSTEMS 1987 " #d %a=140( %! :"a= ",a %&b=111 %+m(a,b) %0b %5 0 %:a %? '0:7:7: '%23641Y\+256*23642Z\ q d yX!Fk(zxW20040fb @ahos  w mIVS4BTHURSDAY NIGHT SHIFTI0745XsY0745Q ZA50700C0700· Ӧ Ԧ զ 7    ) 5 +0 : &5 L \