(GG!?<!6D:\E8 45119 1 0 45123 3 0 45124 2 01C10 00649210103401034 45128 3 01C07 00630310094400944 45130 30043800438 45134 1 01D02 00646130093000930 45136 1 0 45137 2 0 45141 4 0 45145 4 0 45147 3 0 45149 10032800328 ]$ &. " *]w4}532 MONDAY TUESDAY WEDNESDAYTHURSDAY FRIDAY S.Pan Derby Nottm Sheff ] St.Panc Derby Nottham Sheffld Crickwd EtchsPk TotnTMD TinsTMD ](T̕45102TO045103TO045108TO045110TO045112TO545117TO045119TO045123TO045124TO545128TO545130TO045134TO545136TO045137TO045141TO045145TO045147TO045149TO0]45103 due 0910 Available 45119 arrvd 0000 Available 45128 due 0944 Available 45134 arrvd 0000 Allocated 1D02 45136 arrvd 0000 Available 45149 arrvd 0328 Available t U ( (((][_ 21E11074514104271D03081013103171D05082813112021E130900141201Z 21C170800211104 71C08070031100271C16074031103871C18081231113521M180858311151Z 21M04072041104521M18075243090821M13080041114221M140910411252Z ϥ 1 ST.PANCRAS DERBY NOTTINGHAM SHEFFIELD ک } Available ]  C00600B0600X00900DMONDAY 0600 HRSJ 30031300313 H 10032800328V1I00328E00328R45149 arrvd 0328A G22 #` [28 [28 _ȵ ŵu3 *149 10032800328 պ MM'77MlM32ձ3`.))``"Rv>> _*M\"2~ +# y2Q>=?#~ ,Jy2x2 P P P 8 MMYYL8Wq !v>>BB<DHpHDB@~BfZBBBBbRJFB1Ʊ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)+10t$) 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 Jr+m(an#0se ;$Ces[zwcot.l o,sf4hle 0s(smgF SPnDrbNtmShf ׿ 45102 30031300313 451031C05 00552210091000910 45108 4 0 45110 40003000030 45112 4 01M03 00625410101101011 45117 4 0 &|~5DD8D8D"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:30