ZXTape! 0Created with Ramsoft MakeTZXfpark XERZ v1.0  7 "" 18,1 "" Pfps @Bm)`   0       0 ` 0B<|B||<|D@|BBB>B<@B@DfB@@B@b@BBBDBBBH888x<@88D888x8BBbbbB<~|BZB<|B|R<|BB(BBBp0@D<0DD@DDDDDBBRRR@B@BB~@|@JBB||~|H8DB<|B<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<<<88888888888888888888888888888888888888888888888888888888888888888888888888898888888888888888888888888888889899999999999999999998888888888888899999999999999999999999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888fpg [d[&]dZl$(84T,5):l(84T):w$(8,8):r$(3,6):x(10 ) dy(2):y$(2,6):s(3):s$(9 ,6):a$(70F,7):m(6) bt(40():m$(18,6):f$(2,6):h$(2,6):p$(2,6)  d(8) 2$8000@:420::900 36$l<62>)z=1: [(v$="DHP"l<33!)(v$="MLP"l<37%)(v$="7*F"(l>14l<33!))z=1 ~(v$="MLF"((l>14l<37%)l=73Il=74J))((l>36$l<62>)(v$="TRF"v$="ECS"v$="KDP"))z=1 f(v$="CLF"(l>61=l<67C))(v$="PUF"l>66Bl<73I)(v$="SHN"l>74J)z=1 z=0 2d$=q$(4):90Z:dt>5z=2 ](dt=5ƺ(*2)=1)(dt=0ƺ(*4)=1)z=3:q=q-1 Qdt<-10 q=q+1:dt<-30q=q+3:dt<-60<q=q+5 Id(w)=-1:(v$="DHP"l>11 )(v$="MLP"l>32 )q=q+5  clk=(c$(2))*60<+(c$(3)):clok=clk+t(lo):t(lo)>200021,0;1;"Heavy Repair":320@ *mo=(clok/60<):mo=clok-mo*60< " z$=mo:mo<10 z$="0"+z$ ,6z$=((clok/60<))+z$:clok<600Xz$="0"+z$ 6,21,0;1;"Time O.K. ";z$ @i=1300,:i J&21,0;" ": Tm(n)-m=0380| ht=t+5:m$(lo-9 )=m$(lo-8):l(lo)=l(lo+1):t(lo)=t(lo+1):m(n)-m=2m$(lo-8)=m$(lo-7):l(lo+1)=l(lo+2):t(lo+1)=t(lo+2):m$(lo-7)=" ":l(lo+2)=0:t(lo+2)=0:q=q+10 rdm(n)-m=1m$(lo-8)=" ":l(lo+1)=0:t(lo+1)=0:q=q+5 |Gm(n)-m=0m$(lo-9 )=" ":l(lo)=0:t(lo)=0 "m(n)=m(n)-1:t=t+1: Pl(lo)=0:y$(lo-5)=" ":y(lo-5)=0:t(lo)=0: 3307 ,3308 ,3309 ,3310 ,3311 ,3312 ,3331 ,3332 ,3692l,3693m,3704x,3705y,3706z,3707{,3710~,3711,3712,3713,3714,3715,3716,3717,3718 -3722,3723,3724,3725  :418 c$="0400":fp=0:hs=0:p=0:dp=0:t=0:q=0:r=0:bf=0:na=0:mn=0:f=0 i=127:l(i):i "ii=76L:i=75K84T l(i)=1+(*27) 8100:z428 a=l(i) l$(i)="D"+(l(a)) i  ii=2:i=111 l(i)=(*22) 8100:z437 z$="D90":8150 i "ii=13 :i=12 14 l(i)=66B+(*28) 8100:z447 z$="D1":8150 i "ii=16:i=1532 l(i)=(*31) 8100:z457 z$="D15":8150 i )i=33!:l(i)=37%+(*18) z$="D2":8150 5i=34":l(i)=70F+(*17):8150 )i=35#:l(i)=45-+(*12 ) z$="D3":8150 5i=36$:l(i)=85U+(*13 ):8150  i=37%:l(i)=(*20) z$="D55":8150 "ii=39':i=38&61= l(i)=1+(*81Q) 8100:z487 H(l(i)>15l(i)<39')(l(i)>546l(i)<71G)487 z$="D56":8150 i "ii=63?:i=62>66B l(i)=502+(*23) 8100:z497 z$="D50":8150 i "ii=68D:i=67C68D l(i)=25+(*3) 8100:z507 z$="D80":8150 i "ii=70F:i=69E70F l(i)=45-+(*5) 8100:z517  8150  i  "ii=72H:i=71G72H l(i)=37%+(*7) 8100:z527 z$="D82":8150 i "ii=74J:i=73I74J l(i)=(*12 ) 8100:z537 z$="D68":8150 i $%i=140(:l(i)=0:i &)i=17:w$(i):i:wk=7 0Zr$(1)=l$(15)+"A":l(1)=15:890z:i=19 :x(i):i :,i=120:c=1+(*9 ) D(d=1+(*9 ):c=d580D N2x(10 )=x(c):x(c)=x(d):x(d)=x(10 ):i Xy(1)=1:y(2)=1:l(6)=x(1):y$(1)=l$(x(1))+" ":l(7)=x(2):y$(2)=l$(x(2))+" ": ]s(1)=3:s(2)=2:s(3)=2:l(30)=x(3):l(31)=x(4):l(32 )=x(5):l(33!)=x(6):l(34")=x(7):l(36$)=x(8):l(37%)=x(9 ) bs$(1)=l$(x(3))+" ":s$(2)=l$(x(4))+" ":s$(3)=l$(x(5))+" ":s$(4)=l$(x(6))+" ":s$(5)=l$(x(7))+" ":s$(7)=l$(x(8))+" ":s$(8)=l$(x(9 ))+" " l"i=14:x(i),a$(i):i v+i=18:c=1+(*4) (d=1+(*4):c=d640 gx(10 )=x(c):x(c)=x(d):x(d)=x(10 ):a$(70F)=a$(c):a$(c)=a$(d):a$(d)=a$(70F):i ~m(1)=2:m(2)=1:m(3)=2:m(4)=2:m(6)=2:d$=a$(1):90Z t(17)=dt+5*(1+(*12 )):d$=a$(2):90Z:t(19)=dt+5*(1+(*12 )):d$=a$(3):90Z zt(20)=dt+5*(1+(*12 )):d$=a$(4):90Z:t(26)=dt+5*(1+(*12 )) l(17)=x(1):l(19)=x(2):l(20)=x(3):l(26)=x(4):m$(8)=l$(x(1))+"B":m$(10 )=l$(x(2))+"B":m$(11 )=l$(x(3))+"B":m$(17)=l$(x(4))+"B" i=15:x(i):i ,i=110 :c=1+(*5) (d=1+(*5):c=d700 2x(10 )=x(c):x(c)=x(d):x(d)=x(10 ):i t(10 )=5000:t(11 )=5000:t(13 )=5000:t(16)=5000:t(25)=5000:l(10 )=x(1):l(11 )=x(2):l(13 )=x(3):l(16)=x(4):l(25)=x(5) ڡm$(1)=l$(x(1))+"B":m$(2)=l$(x(2))+"B":m$(4)=l$(x(3))+"B":m$(7)=l$(x(4))+"B":m$(16)=l$(x(5))+"B" )860\:i=169E:a$(i):i  >"0410 KDP","0420 7*F","0440 KDP","0445 PUF","0510 ECS","0515 KDP","0525 ECS","0540 KDP","0630 SHN","0645 DHP","0650 ECS","0750 MLP","0810 MLP","0845 CLF" @"0900 DHP","0910 MLP","0915 CLF","0925 7*F","0940 SHN","1000 DHP","1005 SHN","1100 MLP","1110 MLF","1115 TRF","1135 MLF","1200 MLP","1300 SHN" B"1305 SHN","1310 SHN","1330 TRF","1415 KDP","1435 MLF","1445 KDP","1450 PUF","1500 DHP","1510 KDP","1520 KDP","1535 MLP","1540 MLF","1545 SHN" D"1550 KDP","1555 SHN","1600 DHP","1625 DHP","1710 MLP","1805 PUF","1830 DHP","1850 TRF","1910 SHN","1920 DHP","1925 7*F","1930 TRF","1935 CLF" F"1940 MLF","1945 MLP","1950 TRF","1955 MLF","2000 SHN","2010 7*F","2015 CLF","2020 MLF","2035 MLF","2040 TRF","2215 DHP","2220 MLF","2235 DHP","2245 MLP","2320 MLP","2350 MLF","2355 MLF" \"040015A","041035A","042501B","043009F","050075F","052012A","052534A","053062A","055016A","055517B","060538A","061547B","062013A","062502A","063556B","070574A","071018B","072519A","073503A" ^"075037A","081076F","083077F","090539A","091078A","094548A","102040A","110020A","111072A","112057A","112521A","114579F","115049A","115580F","125522A","130510A","135523A","141567A","142081F","143082F","151024A" `"152025A","153006A","153563A","160041A","161064A","161507A","162026A","162542A","170004A","172083F","173084F","174036A","175011A","182027F","183573F","185065B","185514A","193058B" bo"193569B","194008A","194528A","195050B","201043B","202059B","202533A","203029A","235500A","235500A","235500A" z30,44,,45-,513,524,535,546,60<,70F,31,"0620",46.,"1225",66B,"0640",5,"1320",32 ,557,61=,68D,71G /0,4;4;"FINSBURY PARK TMD" :3:2,4;"MAINTENANCE SHED ARRIVALS" 6,24;"FUEL PT." /9 ,6;"YARD DEPARTURE LINES" !11 ,20;"HEAD SHUNT" &13 ,4;"STABLING SIDINGS" 17,19;"WORKINGS" 61:i=16:2+i,22;i:i .i=13:13 +i,22;i:i 010 ,12 ;"1":11 ,12 ;"2" 0:5 Ci=16:2+i,0;" : : ":i 6i=13:2+i,24;" ":i <7,24;" ":8,24;" " <10 ,4;" ":11 ,4;" " &10 ,17;" : " &12 ,17;" : " Di=13:13 +i,0;" : : ":i  :6:1:0,27;c$:5:0 i=13 &r$(i)=""r$(i)=" ":1020 =x$=r$(i):120x:2+i,25;z$;r$(i)(5) i i=12 *t(i+3)>0z$="!":1050 x$=f$(i):120x +6+i,25;z$;f$(i)(5):i $Ui=12:t(i+5)<-180l(i+5)0z$="^":1070. )x$=y$(i):120x .*9 +i,5;z$;y$(i)(5):i 8i=05 BOj=13:k=3*i+j:t(k+9 )>3000 z$="!":1100L DB(t(k+9 )>0t(k+9 )<35#)z$="+":1100L FBt(k+9 )<-180l(k+9 )0z$="^":1100L Hx$=m$(k):120x L>3+i,1+7*(j-1);z$;m$(k)(5):j Vi `Wi=12:t(i+27)<-180l(i+27)0z$="^":1130j ex$=h$(i):120x j412 ,33!-i*8;z$;h$(i)(5):i ti=02 ~fj=13:k=3*i+j:t(k+29)<-180l(k+29)0z$="^":1160 x$=s$(k):120x ?14+i,1+7*(j-1);z$;s$(k)(5):j i Hi=12:10 ,33!-i*8;" ";p$(i)(5):i 7:1 Di=13:17+i,15;w$(i);" ";w$(i+4):i 921,15;w$(4);" ";1;w$(8)  t52290 "Locomotive ? ";i$ i$=""2290 &i$(1)="d"i$="D"+i$(2) i$=4i$=i$+" " ;l=-1:i=184T:i$=l$(i)l=i:1270 i +l=-1z$="INVALID LOCO":2310 ;lo=-1:i=140(:l=l(i)lo=i:1300  i -lo=-1z$="NOT AVAILABLE":2310 121,0;1;i$:" Move to ? ";n$  n$=""2290 "6n$="?"lo>9 lo<28270:1230 (8(n$="men"n$="MEN")lo>9 lo<2813302 * 1340< 2>m$(lo-9 )(6)=" "z$="ALREADY SERVD.":2310 7#2740 :z=02340$ 8.z$="MEN NOT AVAIL.":q=q+4:2310 <n$="fp"n$="FP"1345A > 1400x Alo>32300 F+fp=2z$="FUELLER FULL":2310 Pfp=fp+1:l(fp+3)=l:l(lo)=0:a$(lo)="":f$(fp)=r$(lo):t(fp+3)=20:(*5)=0f$(fp)(6)="F"t(fp+3)=t(fp+3)+5 ZWi=lo68D:a$(i)=a$(i+1):a$(i+1)=" ":i:lo=31390n d9i=lo2:r$(i)=r$(i+1):l(i)=l(i+1):i nCr$(3)=" ":l(3)=0:t=t+1:2340$ xn$22300 z-n$(1)="y"n$(1)="Y"1410 | 1570" >n$(2)="1"n$(2)="2"sy=n$(2):1415  2300 /y(sy)>0z$="YARD OCCUPIED":2310 #lo4lo51460 +t(lo)>0z$="NOT READY":2310 y(sy)=1:y$(sy)=f$(lo-3):l(sy+5)=l:t(sy+5)=t(lo):lo=4l(4)=l(5):f$(1)=f$(2):t(4)=t(5):f$(1)=""f$(1)=" " fl(5)=0:f$(2)=" ":t(5)=0:fp=fp-1:t=t+1:2340$ $lo<6lo>292300 lo>271520 #lo=6lo=71550 +t(lo)>0z$="NOT READY":2310 :mo=((lo-10 )/3):mo=(lo-10 )-mo*3 Nm=mo+1:n=((lo-10 )/3)+1:m(n)-m=01500 +t0z$="NO SHUNT CREW":2310 Hy(1)=1y(2)=1z$="YARD NOT EMPTY":2310 ;(sy=1n>2)(sy=2n<3)2300 cy(sy)=1:y$(sy)=m$(lo-9 ):l(sy+5)=l:t(sy+5)=t(lo):340T:2340$ /y(sy)=1z$="YARD OCCUPIED":2310 2lo-27hsz$="LAST IN-1st OUT":2310 y(sy)=1:y$(sy)=h$(hs):l(sy+5)=l:h$(hs)=" ":l(lo)=0:t(sy+5)=t(lo):hs=hs-1:t=t+1:2340$ )sy+5=loz$="RUBBISH":2310 y(sy)=1:y$(sy)=y$(lo-5):t(sy+5)=t(lo):y(lo-5)=0:y$(lo-5)=" ":l(sy+5)=l(lo):l(lo)=0:t=t+1:2340$ "-n$(1)="m"n$(1)="M"1580, $ 1780 ,%(lo<4lo>7)2300 .lo>51620T 6+t(lo)>0z$="NOT READY":2310 @q$=f$(lo-3) J 1630^ Tq$=y$(lo-5) ^-n$(2)<"1"n$(2)>"6"2300 `m=n$(2) hhlo<6(m<3y(1)=1m>2y(2)=1)z$="YARD OCCUPIED":2310 r2q$(6)=" "z$="NO MAINT REQD.":2310 |/n=m(m):n=3z$="ROAD FULL":2310 ;(m<3lo=7)(m>2lo=6)2300 n=n+1:m(m)=n:o=3*(m-1)+n:m$(o)=q$:l(9 +o)=l:x=1+(*10 ):m$(o)(6)"A"1720 Dt(o+9 )=80P:y=0:x=5y=5:1700 #x=6y=10 :1700 #x=7y=15:1700 #x=8y=30:1700 #x=9 y=45-:1700 x=10 y=60< l<12 y=y-10  1740 Ft(o+9 )=600X:y=0:x=5y=15:1730 #x=6y=30:1730 #x=7y=45-:1730 #x=8y=60<:1730 #x=9 y=90Z:1730 x=10 y=120x l=1y=y-120x @t(o+9 )=t(o+9 )+y:lo>5400:1770 ylo=4f$(1)=f$(2):l(4)=l(5):t(4)=t(5):f$(1)=""f$(1)=" " Zl(5)=0:f$(2)=" ":t(5)=0:fp=fp-1:t=t+1 t=t+1:2340$ n$="hs"n$="HS"1790  2000 .hs=2z$="HEAD SHUNT FULL":2310 #lo=6lo=71810  $lo>9 lo<281830&  1940 )y$(lo-5)(6)=" "1820 z$="NOT SERVICED":2310 rhs=hs+1:h$(hs)=y$(lo-5):l(hs+27)=l:t(hs+27)=t(lo):400:t=t+1:2340$ &+t(lo)>0z$="NOT READY":2310 0:mo=((lo-10 )/3):mo=(lo-10 )-mo*3 2Nm=mo+1:n=((lo-10 )/3)+1:m(n)-m=01910v :Am(n)-m>1m(n)-m=1t(lo+1)>02300 D_(n<3y(1)=1)(n>2y(2)=1)z$="YARD OCCUPIED":2310 N.hs>0z$="NOT ENOUGH ROOM":2310 Xfh$(2)=m$(lo-9 ):l(29)=l:t(29)=t(lo):m$(lo-9 )=" ":l(lo)=0 bh$(1)=m$(lo-8):l(28)=l(lo+1):t(28)=t(lo+1):m$(lo-8)=" ":l(lo+1)=0 l+hs=2:m(n)=m(n)-2:2340$ v_(n<3y(1)=1)(n>2y(2)=1)z$="YARD OCCUPIED":2310 [hs=hs+1:h$(hs)=m$(lo-9 ):l(hs+27)=l:t(hs+27)=t(lo):t=t+1 340T:2340$ %lo<30lo>38&2300 :mo=((lo-30)/3):mo=(lo-30)-mo*3 Wm=mo+1:n=((lo-27)/3):s(n)-m+hs>1z$="NO ROOM":2310 m=s(n)hs=hs+1:l(27+hs)=l(lo):t(hs+27)=t(lo):h$(hs)=s$(lo-29):s(n)=s(n)-1:l(lo)=0:s$(lo-29)=" " !(m=s(n)-1)hs=2:l(28)=l(lo+1):l(29)=l(lo):h$(1)=s$(lo-28):h$(2)=s$(lo-29):s(n)=s(n)-2:t(28)=t(lo+1):t(29)=t(lo):l(lo)=0:l(lo+1)=0:s$(lo-29)=" ":s$(lo-28)=" "  p=p+1 t=t+1:2340$ -n$(1)="s"n$(1)="S"2010  2080  '(lo<28lo>29)2300 -n$(2)<"1"n$(2)>"3"2300 s=n$(2) Rn=s(s):n=3(n=2lo=28hs=2)z$="ROAD FULL":2310 xn=n+1:s(s)=n:o=3*(s-1)+n:s$(o)=h$(hs):l(29+o)=l(hs+27):t(o+29)=t(hs+27) 8l(27+hs)=0:h$(hs)=" ":hs=hs-1  hs=1lo=28n=n+1:s(s)=n:s$(o+1)=h$(1):l(29+o+1)=l(28):t(o+30)=t(28):h$(1)=" ":l(28)=0:hs=0 t=t+1:2340$  n$="dl"n$="DL"2085% " 2300 %.dp=2z$="DEP. LINES FULL":2310 *#lo>5lo<82130R 4%lo<30lo>38&2300 >:mo=((lo-30)/3):mo=(lo-30)-mo*3 @Zm=mo+1:n=((lo-30)/3)+1:ms(n)z$="END LOCO ONLY":2310 H 2140\ R)y$(lo-5)(6)=" "2140\ Tz$="NOT SERVICED":2310 \0"Which working ? ";q$:q$42300 f w=-1 p,i=18:q$=w$(i)(4)w=i zi:w=-12300  q$=w$(w) "150:z=12220 -z=0z$="WRONG LOCO TYPE":2310 'z=2z$="TOO EARLY":2310  z=3z$="CREW NOT READY" (21,0;3;1;z$ i=1150:i  2320 tdp=dp+1:l(dp+38&)=l:t(dp+38&)=t(lo):l(lo)=0:lo<8p$(dp)=y$(lo-5):400  t=t-1 Qlo>9 p$(dp)=s$(lo-29):s$(lo-29)=" ":s(n)=s(n)-1 /w=8w$(8)=" ":2280 C830>:i=w6:w$(i)=w$(i+1):d(i)=d(i+1):i Ad(7)=0:wk=wk+1:i=1wk:w$(7):i t=t+1:2340$ '21,0;" ": z$="BAD INSTRUCTION" Iq=q+1:21,0;2;1;z$:1.5@,-2 %21,0;" "  1220 $<21,0;" ":990:1210 ..15~,10 8Wcl=(c$)+5:mo=(cl/100d):mo=cl-mo*100d:mo=60<cl=cl+40( B$c$=(cl):cl<1000c$="0"+c$ G(6:1:0,27;c$ Lk2670n :i=140(:t(i)=t(i)-5:i<6i=8i=9 l(i)=02400` Vt(i)<-180r=r+1 `i j5i=12:t(i+3)02450 tf$(i)"!!!!!!"2440 ~t(4)=t(5):f$(1)=f$(2):l(4)=l(5):f$(2)=" ":l(5)=0:t(5)=0:fp=fp-1 /f$(i)(6)="F"f$(i)=f$(i)(5)+" " i Ni=10 27:t(i)0m$(i-9 )=m$(i-9 )(5)+" " i i=17:d(i)=0:i:dp=0:l(39')=0:l(40()=0:p$(1)=" ":p$(2)=" ":t=0:w$(8)(1)="*"q=q+2 =z=1+(*100d):z502bf=22540 1z=(*2):z=1c$<"0830"2540 (bf=bf+1:bf=2z=3-f /z=0w$(8)="**** MLP":2530 w$(8)="**** BKD" f=z 1z=1+(*30):z5fp0 Xfp=1:f$(1)="!!!!!!":t(4)=30+5*(1+(*6)): 7: i=17 nd$=w$(i)(4):90Z:dt<-10 q=q+1:dt<-30q=q+3:dt<60<q=q+5 i (Ecl=60<*c$(2)+c$(34):sc=p+q+(r/6) -4c$="1230"sc=100d-sc+10 *bf:2607/ .)sc=0.5*(190-sc)+10 *bf /\z$="DISASTROUS":sc>95_z$="Poor":sc>60<z$="Average":sc>70Fz$="Good" 0=sc>80Pz$="Excellent":sc>95_z$="OUTSTANDING!" 2Dc$="1230"q$="SHIFT":v$="Do you want a 2nd. Shift ?":2630F <.q$="DUTY":v$="Do you want to start again ?" F60,4;4;"SHEDMASTER FINSBURY PARK" H_5,7;1;"END OF ";q$;" RATING":7,4;"BY OPERATIONS CONTROLLER" J9 ,11 ;3;z$ L21,0;0;v$ N=""2638N P="n"Ŧ="N" R="y"Ŧ="Y"2645U S 2638N Umn=0:c$="1230" V ni=13 d$=a$(i)(4):90Z w(dt=0ƺ(*2)=1)dt<0l(i)=a$(i)(56):r$(i)=l$(l(i))+a$(i)(7):2720 l(i)=0:r$(i)=" " i  $z=0:mn>2z=1: ȿt(lo)>14t(lo)=t(lo)-5:t(lo)>29t(lo)=t(lo)-10 :t(lo)>59;t(lo)=t(lo)-20:t(lo)>119wt(lo)=t(lo)-30:t(lo)>239t(lo)=t(lo)-60< mn=mn+1:270: @M:1:1,8;"DEE-KAY SYSTEMS":3,12 ;"PRESENT" E;6:3:6,6;" " J)7,6;" SHEDMASTER " L)8,6;" " O)9 ,6;" FINSBURY PARK " T*10 ,6;" " Y>7:15,5;4;" DEE-KAY SYSTEMS 1989" r  z=0 a=iii  l(i)=l(a-1)z=1: a  -l$(i)=l(i):l(i)<10 l$(i)="0"+l$(i) l$(i)=z$+l$(i): '"i=184T:l$(i),i:i: '7:0: ̩T D3725D3706D3715 T   lmxyz{~ E  5  ;  F !(q    +C0400ptqrfNTLzNN