ZXTape! 0Created with Ramsoft MakeTZX2r Class 50 Fleet ManagerDee-Kay Systems1986English SimulationUnknownNoneOriginalTZXed by Paul Webbclass50fm CCAE  7 "c50s" 18,1 "c50g" c50s @o`   0       0 ` 0<@<<<~<~@~~BB<B@B@@@F@@@@fBbBB@B888x<@88D888x8BBbbbB@@B<<|J|@||ZBRB@|B0@D<0DD@DDDDDBBRRR@@@~R@@@@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<<<88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888899999999999999999999999999999888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888)c50g qcY q 65535 z(r3)=(((r/10 )*10 )-r):t(a$)=a$(1)*1440+a$(23)*60<+a$(45):x(r)=(((r/1000)*1000)-r) u(r)=(((r/7)*7)-r):y(rs)=(((r/1440)*1440)-r):w(r)=(((r/60<)*60<)-r):v(r+)=(((r/10000')*10000')-r) Ou$(7,3):w$(15,491):a(15):b(15):y$(5,9 ):t$(5,6):p$(7,11 ):f(15):l$(15,8):m$(30,20):m(5,5):n(15):n$(4,5,15):o$(5,32 ):s$(4,11 ):z$(21,20):t(15) pfd=0:9000(# 7:7:0: 0,5;"CLASS 50 FLEET MANAGER":1:i=(32 -d$)/2:3,i;d$:0:12 ,13 ;"PRESS:-";14,9 ;"T Tops display";16,9 ;"S Loco status";18,8;"L Location data";20,7;"U Update :R Report" #g$=:g$=""35# ( 9990' 2g$="r"7000X <g$="s"3000 :25 Ag$="t"3500 :25 Fg$"l"87W K:0,4;"CLASS 50 FLEET MANAGER";4,12 ;"PRESS:-";6,8;"1) Paddington";8,8;"2) Birmingham";10 ,8;"3) Plymouth";12 ,8;"4) Penzance" Lg$=:g$<"1"g$>"4"76L Md=g$:4000:25 Wg$"u"35# Z,g$="u"5000:c$="41200"7000X _ 35# "O1F140850150950","P1C270940141550","O1F160950151050","0","0","0","0","0","O2C680823341058","0","0","0","P1S710730421412","O1E910853431111","O1E250918431135","P1A530932411604" "O1F040325150500","O1F060400150537","O1M100550120903","O1E540650120951","0","O1V100645210946","0","O3C240300340559","O3A270615311328","0","0" "O1F140850150950","P1C270940141550","O1F160950151050","0","0","O2C680823341058","0","P1S710730421412","O1E910853431111","O1E250918431135","P1A530932411604","0" "P1C311027141638","0","P1V761130241810","O1V811202241824","0","O1C111027341251","0","P1M831024421647","P1A601050411722","O5C021120431329","O2C851135431400","O3S151200431501","0" }"O1F221310151412","O1C441340131749","O1F261450151550","0","P1V901540242245","0","O2C721500341725","0","O1C821354431621","0" "O1F301610151716","O1F381730151920","O1M611740122026","0","0","O2C741635341913","O1V851730341950","0","P1A851615412244","O1C851815432053","0" }"O1F521903152007","O3M152050120005","0","O1V161917212239","O1V192059210015","0","0","O1A011922410420","P1A022135410805","0" G"O1C762225140640","P1C020005140854","O1C040030140709","0","0","0","0" 7:7:0: 0,9 ;"Status report";1,2;"( End of allocated working )";3,0;"Loco Dep Fuel Since exam Travl";4,0;" mls A B mls":" ":j=1 i=115 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=519 "v$=w$(j):h$=v$(69 ) _i,0;v$(15)+" ";:0:f=v$(1717):h$" "3540 Ff=4(v$(10 )="F"v$(10 )="R")g=7:3535 3f=2v$(10 )="F"g=6:3535 g=f 'i,6;" ";p$(g);:3555 s=v$(16):h$+" "; #h$="0F70""enrteOC";:3560 #h$="0F77""enrteLA";: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" 9i=15: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=115 "r$="":h$=w$(i):v$=h$(17) v$=32 41506 1d=2(v$=2Űv$=6)4080 1d=4(v$=4Űv$=7)4080 v$=32 41506 v$d41506 Si$=h$(2327):e$=h$(1822):e$-x$>100d41506 *h$(2831)=" "4095 Ca$=h$(33!37%):t=t(a$)-t(c$):t<2041506 Xr$=h$(15)+" ":n=e$:e$>c$r$=r$+"due "+e$(n-3n):4100  r$=r$+"arrvd "+e$(n-3n) %a$=h$(10 ):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$(2427) 1nkwcol=0:h$(2831)" "z$(20)="Allocated "+h$(2831):kwcol=4 6pfd=1 8r$=""4160@ ;8m$(j)=r$:j=j+1:m$(j)=z$(20):j=j+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)="50"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$<"50001"a$>"50050"a$=" Invalid loco no.":4900$ D8900":i=-1a$=" Loco not here ":4900$ Ypfd=1:4067:pfd=0:r$=""a$=" Loco not here ":4900$ Nw$(i,2831)" "a$=" Loco already allocated":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 Ag$"F"g$"A"g$"B"a$=" Incorrect working":4900$ g$"B"4290 )a=i:h=d:8200 :a$=""4296  4900$ g$"A"4293 3w$(i,17)="1"w$(i,17)="3"4293 +a$=" Incorrect working":4900$ @g$="F"f(i)=0a$=" Already refuelled":4900$ (g$="F"f(i)<250sca=sca+1 /g$="F"(d=2d=4)sca=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$ Ot=t(i$)-t(x$):t>60<a$="Loco unavailable this time slot":4900$  nw=-1  Fj=15:g$(14)=n$(d,j,25)nw=j j 8nw=-1a$=" Incorrect working":4900$ An$(d,nw,1)="4"a$=" Already allocated":4900$ !xk=115:w$(k,69 )=g$(14)w$(k,2831)=g$(14)nw=-1 &k 08nw=-1a$=" 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$) Ehh$="A"(a$(10 )"1"a$(10 )"3"a$(10 )"5")a$=" Incorrect working":4900$ F=h$="F"(a$(10 )="2"a$(10 )="4")sca=sca+1 Iz$(15)=a$(11 14):z$(15)ranga$="Sorry, you will run out of fuel":4900$ l&n$(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,127)+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$(12 )="5"4850 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: f0,5;"CLASS 50 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" i=115:g$=w$(i) <wlen=491:g$(2831)=" "wlen=27 j=wlen Na$=g$(2327):a$-x$<100dl$(i)=l$(i,17)+"0" /a$=g$(1822):c$100dr=100d L5:i=1418:i,2;" ":i 016,5;"Management rating : ";r;"%" "Press enter ";a$ c$="41200"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 \: z=a$(34) .z=4j$="1F130653510914":td=141 .z=6j$="1F110710510902":td=112p .z=14j$="1F291030511202":td=92\ .z=16j$="1F311140511312":td=92\ .z=22j$="1F411625511757":td=92\ .z=26j$="1F451730511905":td=95_ .z=30j$="1F471835512007":td=92\ .z=38&j$="1F492130512302":td=92\ /z=524j$="1F512305510120":td=135 h$=a$(5):z$(17)=j$(4):z$(16)=c$(1)+j$(510 ):c$-z$(16,5)>900z$(16)=(z$(16,7)+1000000t$) z$(15)=j$(11 14):z$(15,4)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=115: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) 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 ) !Wj=j+1:j$=g$(1617):j$="12"j$(2)="5"j$(2)="1"z$(21)="0F70":o$(j)="being removed to old oak":j$="1":8545a! !\fj$="42"j$(2)="4"j$(2)="3"z$(21)="0F77":o$(j)="being removed to Laira":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=115: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\ PadBrmPlmPnzOxf 150001 100000000001E54 00650120095100951500051A02F00000410080500910 500101C02 00005140085400854 50016 00000 40000000000 50018 00000 40000000000 50021 00000 40000000000 50024 00000 40000000000 500271M10 00550120090300903 50032 300000000003A27 0061531013280132850033 200000000001V10 0064521009460094650037 A 30050000730 50040 10000000000 50042 10000000000 50045 1500515005151F13 0065351009140091450050 1500552005521F11 00710510090200902N  ,/'"4NEf a?q2 MONDAY TUESDAY WEDNESDAYTHURSDAY FRIDAY #Padd Birm Plym Penz Oxfd R Old Oak Birm NS Laira Penznce Oxford Saltley Longrck N1P11P}50001LA550005LA050010LA050016LA050018LA050021OC050024OC050027LA050032OC550033OC550037OC050040OC050042LA050045LA550050LA5] 1A,P1,PAN371F14085015095021C27094014155071F160950151050 72C680823341058 21S71073042141271E91085343111171E25091843113521A530932411604 ϥ 1 PADDINGTON BIRMINGHAM PLYMOUTH PENZANCE ک NfC00600B0600X00900ccsssDMONDAY 0600 HRS;$r3mAanR#.JLA;$AP1A530932411604^$G