ZXTape! 0Created with Ramsoft MakeTZXpfm ~~Z v1  62999  7 "pfm" 18,1 "pfm" 18,1 #"pfmg" pfm @`   0       0 ` 0|~B<B@BH@@@@fBbBB@B888x<@88D888x8BBbbbBB|Bp|@||ZBRB@|B0@D<0DD@DDDDDBBRRR@|@~H@@@@B~J~N@|8DB<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<<<88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888889899999999999999999999999988888899999999999888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888999999999999999999999999999999998888888888888888888888888888888888888888888888888888888888888888pfm  > *M\"2~ +# y2Q>=?#~ ,Jy2x2 P P P 8 MMYYL8Wq !v>>BB<DHpHDB@@@@@~BfZBBBBbRJFB"4"76L Md=g$:4000:25 Wg$"u"35# Z,g$="u"5000:c$="41800"7000X _ 35# "P1E110745141042","O1D030810131031","O1D050828131120","P1E130900141201","P1C170800211104","0","0","0","O1C080700311002","O1C160740311038","O1C180812311135","P1M180858311151","P1M040720411045","P1M180752430908","P1M130800411142","P1M140910411252" "O1P320110120359","O1D260204130438","O1D020646130930","0","O1C120115210607","O1C050552210910","O1C100649211034","0","P1E030307340448","O5C660555311119","O1C070630310944","0","P1M030625411011","0" "P1E110745141042","O1D030810131031","O1D050828131120","P1E130900141201","0","P1C170800211104","0","O1C080700311002","O1C160740311038","O1C180812311135","P1M180858311151","0","P1M040720411045","P1M180752430908","P1M130800411142","P1M140910411252","0" "P1E161000131210","O1P091006121252","P1E191100141401","O1D081110131350","P1E261200131416","0","0","O1C211005311325","P1M151106311401","P1E161201341314","O1C491205311525","0","P1M151000431115","P1M171105411449","P1M241250411639","0" "P1E401300141603","O1D111310131550","P1E411400131610","O1P181410121656","P1E481500141801","O1D521510131754","O1D541545131800","0","0","O1C511300311555","P1E261406341520","O1C591410311730","P1M281506311802","0","P1M281400431515","P1M791510411852","0" "P1E491600141901","O1P121605121850","O1D551630131852","P1E561655141940","O1P221705121942","O1D381732131958","P1E581752142052","O1D581757132034","P1E651830132040","O1D611854132150","0","O1C761610211936","O1C791714212046","O5D881846231924" "0","P1E411601341714","O1C771605311910","O1C781705312004","O1E421709341827","O5C851811321853","0","P1M831610411954","P1M881710412056","P1M641810431925","0" "P1E661924142231","O1P302015122336","P1E842100132324","0","O1C851903212241","O5D892144232222","0","P1M641916312207","O5P891953322045","O1C872010312350","P1E652031342148","0","P1M461930412316","O1M302052422154","0" }"O1P252205120101","O1D192305130155","P1E030005130313","0","0","O3C022254310328","P1E842315340030","0","P1M102359410607","0" 7:7:0: 0,9 ;"Status report";1,2;"( End of allocated working )";2,0;"Loco Dep Fuel Since exam Travl";3,0;" mls A B mls":j=1 i=118 ka$=l$(j):0:a$(15)+" "+a$(67)+" ";:n=a$(8):n=2n=6 6n:a$=f(j):a$<10 " ";a$;" ";:3030 )a$<100d" ";a$;" ";:3030 " ";a$;" "; ?a$=((a(j))):t=a(j):t<10 " ";a$;" ";:3040 (t<100d" ";a$;" ";:3040 " ";a$;" "; 4t=b(j):a$=t:t<10 " ";a$;:3050 $t<100d" ";a$;:3050 " ";a$; 5t=n(j):a$=t:t<10 " ";a$;:3060 %t<100d" ";a$;:3060 %t<1000" ";a$;:3060 " ";a$;  lpfd=1 n j=j+1 qi v"Press enter ";a$ x a$="c" { 7:7:0: ]j=1:0,0;"TOPS Listing":a=32 -d$:1:0,a;d$:0 i=421 "v$=w$(j):h$=v$(69 ) _i,0;v$(15)+" ";:0:f=v$(1717):h$" "3540 Mv$(10 )="A"v$(10 )="B"v$(10 )="R"g=f+4:3535 g=f 'i,6;" ";p$(g);:3555 s=v$(16):h$+" "; #h$="0Z00""enrteTO";:3560 Oa$=v$(1822):tt=t(a$)-t(c$):t=15:f=1t=35# +(tt>ttt<0)u$(s)+"-";:3550 "Arr."; u$(f); v$(2831)" "i,19;"Allocatd";i,28;v$(2831):3585 %f$=v$(10 ):f$" "3570 /i,19;"Availble":h$" "3580 3585 f$="F"a$="RefuelOK" f$="A"a$="A ExamOK" f$="B"a$="B ExamOK" f$="R"a$="RepairOK" i,19;a$; $i,28;v$(2427);  j=j+1 i "Press enter ";a$  a$="c"  0:7:7: c0,((32 -s$(d))/2);s$(d);1;2,((32 -d$)/2);d$:0 34,2;"LOCOMOTIVES POSS. WORKINGS" :i=110 :a$=n$(d,i):a$=32 4050 1dest=a$(11 ):h$=t$(dest,15) #0:a$(1)="2"4 a$(1)="4"5  3i+5,17;a$(25);:0 a$(1)="4"5  " ";a$(69 );" ";h$ i  j=1 Xa=617:5:a,0;" ":a:7 i=118 ]k=-1:w$(i)=w$(i):64000:z=(64007)-5:g$=w$(i,6z+5) ;z$(20)="":r$="":h$=g$(22):v$=h$(12 ) v$=32 41506 v$d41506 Si$=h$(1822):e$=h$(13 17):e$-x$>100d41506 z<234095 Ca$=g$(2832 ):t=t(a$)-t(c$):t<2041506 Zr$=w$(i,15)+" ":n=e$:e$>c$r$=r$+"due "+e$(n-3n):4100  r$=r$+"arrvd "+e$(n-3n) $a$=h$(5):a$" "4110  (z$(20)="Available ":41451 $a$="F"z$(20)="Refuel exp " $a$="A"z$(20)="A Exam exp " $a$="B"z$(20)="B Exam exp " $a$="R"z$(20)="Repair exp " Bz$(20)=z$(20,111 )+h$(1922) 1\kwcol=0:z>22z$(20)="Allocated "+g$(2326):kwcol=4 4Cm$(j)=r$:j=j+1:m$(j)=z$(20):j=j+1:k=1 68z>22z=z-22:g$=g$(23):4067 7pfd=1 @i CXa=617:5:a,0;" ":a:7 E l=0 Ji=1j-1 Oj=04210r PGj<14i=0i=1(j>10 ƨz(i)1)4200h T00:5:17,4;"More Y/N" Yg$=:g$=""4185Y [s9990':g$="y"0:5:k=617:k,0;" ":k:l=0:4200h ^g$"n"4185Y c=i=j-1:17,0;" ":4210r h}5:0:m$(i,12)="45"l+6,0;m$(i,15);:m$(i,616):4209q mUm$(i,12)="Al"2:l+6,1;m$(i,15):4209q o-0:l+6,1;m$(i,15) q l=l+1 ri wG0:7:19,0;" Allocate Y/N " |g$=:g$=""4220| 9990':g$="c"  g$="n" g$"y"4220| "Loco no. ";a$ a$=32 a$="99" a$=""a$="99" Ta$5a$=""a$<"45101"a$>"45150"a$=" Invalid loco no.":4900$ C8900":i=-1a$=" Invalid loco no.":4900$ ^pfd=1:4066:pfd=0:k=-1a$=" Loco not here ":4900$ <v$=32 a$=" Loco already allocated":4900$ 5v$da$=" Loco already allocated":4900$ Pt=t(i$)-t(x$):t>60<a$="Loco not availble this time slot":4900$ |0:7:19,0;"Loco Dep Fuel Since exam Travl";20,0;" mls A B mls" <j=i:i=21:pfd=1:3025 :pfd=0:i=j ("Next working ";g$:g$=""4905)  9980& E g$>1Ʊg$<4a$=" Incorrect working":4900$ g$>14350 `w$(i)=w$(i):64000:64007>27a$=" Already allocated":4900$ Ag$"F"g$"A"g$"B"a$=" Incorrect working":4900$ g$="B"4296 @g$="F"f(i)=0a$=" Already refuelled":4900$ (g$="F"f(i)<250sca=sca+1 'a$=w$(i,10 ):a$" "4335 h$=g$:v$=c$:e$>c$v$=e$ ѳ8030^:w$(i)=w$(i,19 )+g$+w$(i,11 22)+r$:e$=w$(i,1822):i$=w$(i,2327):f(i)=0:i$-x$>100dl$(i,8)="2" g$"A"4320  8100 g$"B"4330 8100:8150  4850 $a$="B"(a$="A"g$"B")4340  4300 ,a$=" Incorrect woorking":4900$ ig$>4g$(5)"F"g$(5)"A"g$(5)"B"a$=" Incorrect working":4900$ 8g$>5a$=" Incorrect working":4900$  nw=-1  Gj=110 :g$(14)=n$(d,j,25)nw=j j 8nw=-1a$=" Incorrect working":4900$ An$(d,nw,1)="4"a$=" Already allocated":4900$ :[a$=n$(d,nw,215):z$(18)=a$:g$>4a$=a$+g$(5):4420D ? a$=a$+" " Dz$(17)=a$(14):h$=a$(a$):z$(16)=c$(1)+a$(510 ):c$-z$(16,5)>900z$(16)=(z$(16)+1000000t$) Iz$(15)=a$(11 14):z$(15)ranga$="Sorry, you will run out of fuel":4900$ l+w$(i)=w$(i):64000:z=64007 qn$(d,nw)="4"+z$(18,114):v$=z$(14,1)+z$(15,14):8030^:a$=z$(17,14)+h$+z$(16,17)+z$(14,1)+z$(15,14)+r$:w$(i)=w$(i,1z)+a$:l$(i)=l$(i,17)+"5" vDn(i)=n(i)+rm:f(i)=f(i)+rm:h$="F"f(i)<250sca=sca+1 {jt=t(a$(13 17))-t(a$(610 ))+20:t=(t/60<):a(i)=a(i)+t:b(i)=b(i)+t a$(5)" "f(i)=0 h$"A"4495  8100 h$"B"4850 8100:8150 Sa=1821:a,0;" ":a:4020 $Ga=1821:a,0;" ":a &S0:19,0;a$:2:1,1:sca=sca+1:7 ' 100d )Sa=1821:a,0;" ":a:4215w Tc$=x$:b$=c$(25):cl=c$+300,:v(cl)=300,cl=cl+300, %v(cl)>23597 cl=cl+7600 #x$=cl:cl<10000'x$="0"+x$ gcl=c$:d=(cl/10000'):h=v(cl)/100d:d=u(d):d$=y$(d+1)+" ":h<10 d$=d$+"0" 4i=19 :y$(d+1,i)="Y"5018 i 7d$=y$(d+1,1i)+" ":h<10 d$=d$+"0" 'd$=d$+h+"00 HRS":0:7: c$="41800" b0,7;"PEAK FLEET MANAGER":1:n=(32 -d$)/2:2,n;d$:0 O5:i=416:i,0;" ":i b0:5,6;"MESSAGES FROM CONTROL";7,2;"Awaiting information update" ei=118:w$(i)=w$(i):64000:j=(64007)-5:g$=w$(i,6j+5) v$=g$(22) Na$=v$(1822):a$-x$<100dl$(i)=l$(i,17)+"0" /r$=v$(13 17):c$100dr=100d L5:i=1418:i,2;" ":i 016,5;"Management rating : ";r;"%" "Press enter ";a$ c$="41800"7130 x7::5:1,11 ;" ";2,11 ;" OPTIONS ";3,11 ;" ":7 ˚6,3;"1. Leave the simulation";8,3;"2. Continue";10 ,3;"3. Start at the beginning";16,8;"ENTER OPTION" g$=:g$=""7120 g$"1"7200  6:10 ,7;"END OF SIMULATION":300,:  g$"2"7250R * 25 Rg$"3"7120 \: @-i=110 :d=1+(*18) Ee=1+(*18) Jd=e8005E OWj$=w$(d):w$(d)=w$(e):w$(e)=j$:n=f(d):f(d)=f(e):f(e)=n:n=a(d):a(d)=a(e):a(e)=n P9n=t(d):t(d)=t(e):t(e)=n:n=b(d):b(d)=b(e):b(e)=n:i S T5g$,f(l(i)),a(l(i)):w$(l(i))=w$(l(i),5)+g$: ^h$=" "r$=v$: c#h$="F"st=46.+(*45-) eh$="A"st=150 g.h$="B"st=60<*(11 +(*10 )) m6tt=t(v$)+st+5:td=(tt/1440):tt=y(tt) r:th=(tt/60<):tt=w(tt):tt=10 *(tt/10 ) w#tt=10000'*td+100d*th+tt |+r$="":tt<1000r$="00":8065 }tt<10000'r$="0"  r$=r$+tt  Bas=as+1:tt=a(i):tt<535ast=535-tt:8105 *tt>579ast=tt-579:8105  ast=0 *ast>3ash=ash+1:8110 ast>0asl=asl+1 a(i)=0  Dbs=bs+1:tt=b(i):tt<265 bst=265 -tt:8155 ,tt>285bst=tt-285:8155  bst=0 bst>15bsh=bsh+1 b(i)=0  `a$="":h$=l$(a,67):(h=1h$="OC")(h=3h$="LA")(h=5h$="OC") a$=" Not home depot": :Rfm=f(o):r=a$(9 10 ):s=(r/10 ):f=z(r):rm=m(s,f):m=fm+rm: lRfm=f(i):r=a$(9 10 ):s=(r/10 ):f=z(r):rm=m(s,f):m=fm+rm: ":i=15:o$(i)="":i j=1:oe=0 6i=118:g$=w$(i):j$=g$(69 ) <wlen=491:g$(2831)=" "wlen=27 Vrs=1+(*30):a$=g$(10 ):rs<20oe>1a$="R"8565u! a$"A"8480 ! 6wlen>27g$(69 )" "8480 ! Do$(j)=g$(15)+" defective on examination":j=j+1 dest=g$(17)+4 a$=p$(dest) 1o$(j)="Repairs in progress at "+a$:j=j+1 !oe=oe+1 !at=g$(wlen-4wlen):d=(at/10000'):h=v(at):h=(h/100d)+5+(*8):h>23h=h-24:d=d+1 !a$=d:h<10 a$=a$+"0" !ya$=a$+h+"00":w$(i)=g$(19 )+"R"+g$(11 22)+a$:a$-x$>100dl$(i,8)="2":8475! !l$(i,8)="0" ! 8565u! ! pg$(69 )" "wlen>271+(*4)4rs<28g$(17)="2"8520H! !%Zdest=g$(17):a$=p$(dest):o$(j)=g$(15)+" failed at "+a$:j=j+1 !*<rs=30o$(j)=" Electrical problems":8495/! !+5rs=29o$(j)=" Coolant leak":8495/! !,$o$(j)=" Main generator fault" !/j=j+1:oe=oe+1 !4uat=c$:d=(at/10000'):h=v(at):h=(h/100d)+4+(*4):h>23h=h-24:d=d+1 !9a$=d:h<10 a$=a$+"0" !>a$=a$+h+"00":w$(i)=g$(19 )+"R"+g$(11 22)+a$:f(i)=0:a$-x$>100dl$(i,8)="2":8515C! !@l$(i,8)="0" !C 8565u! !H(g$(69 )=" "8565u! !J0a$="A"a$="B"a$="R"wlen>278565u! !K6rs301+(*4)48565u! !MIrs=1+(*3):rs=1a$="Loss of power on ":8530R! !N,rs=2a$="Gen fault on ":8530R! !O%rs=3a$="Overload fault on " !R6o$(j)=g$(15)+" "+a$+g$(69 ) !WJj=j+1:z$(21)="0Z00":o$(j)="being removed to Toton":j$="3" !aj=j+1:oe=oe+1:a=c$:ad=(a/10000'):ah=(v(a)/100d):ah=ah+6:ah>23ah=ah-24:ad=ad+1 !c a$=ad:ah<10 a$=a$+"0" !d_a$=a$+ah+"30":ed=ad:eh=ah+5+(*8):eh>23eh=eh-24:ed=ed+1 !f r$=ed:eh<10 r$=r$+"0" !kr$=r$+eh+"30":w$(i)=g$(15)+z$(21,4)+"R"+g$(11 16)+j$+a$+r$:l$(i,8)="2":f(i)=0 !ui !vta=0:tb=0:tc=0:i=118:w$(i,610 )=" "ưw$(i,1822)96`n<123{n=n-32 :g$(a)=n &a: ' g$="" 'g$>96`Ưg$<123{ ' a=g$:a=a+32 :g$=a '  '%23641Y\+256*23642Z\ fccsss;$r+m(ank#0se;$^$es[zwcotl o,sf4hle 0s(smgI02148E02148R02148V451501E65 02031340214802148 H1E65F SPnDrbNtmShf ׿ 45102 10000000000 451051C05 00552210091000910 45106 10000000000 45110 30000000000 45112 30043800438 45115 100000000001D02 00646130093000930 45118 30000000000 45122 200000000001C10 00649210103401034 45125 300000000001C07 00630310094400944 45127 40000000000 45131 10032800328 45134 40000000000 45135 40000000000 45137 20000000000 45142 400000000001M03 00625410101101011 45144 30031300313 45146 40000000000 45149 40003000030 ].*" &$]u<7w_NkV2 MONDAY TUESDAY WEDNESDAYTHURSDAY FRIDAY S.Pan Derby Nottm Sheff ] St.Panc Derby Nottham Sheffld Crickwd EtchsPk TotnTMD TinsTMD ]T(̕45102TO045105TO045106TO045110TO045112TO045115TO545118TO045122TO545125TO545127TO045131TO045134TO045135TO045137TO045142TO545144TO045146TO045149TO0] U((((]_ 21E11074514104271D03081013103171D05082813112021E130900141201 21C170800211104 71C08070031100271C16074031103871C18081231113521M180858311151 21M04072041104521M18075243090821M13080041114221M140910411252 ϥ 1 ST.PANCRAS DERBY NOTTINGHAM SHEFFIELD ک ]C00600B0600X00900DMONDAY 0600 HRSJ 20000000000 AP1M140910411252G