ZXTape! 0Created with Ramsoft MakeTZX dfm LLNN v1.0  7 "dfm" 18,1 "dfmg" dfm @f`   0       0 ` 0x~@><~@~~BB<D@@B@@@@fBbBB@B888x<@88D888x8BBbbbBB|@@|@||ZBRB@|B0@D<0DD@DDDDDBBRRR@B@@@@@@@B~J~N@|8D<@~~~BBBB<~B8x 8<<8D~<<< <@<BB<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<<<88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888899999999999999999999999988888899999999999888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888999999999999999999999999999999998888888888888888888888888888888888888888888888888888888888888888dfmg P 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(r@ )=(((r/1440)*1440)-r):w(r)=(((r/60<)*60<)-r):v(r+)=(((r/10000')*10000')-r) [u$(7,3):z(11 ):w$(22,491):a(22):b(22):y$(7,9 ):t$(7,6):p$(7,11 ):f(22):l$(22,8):l(8):m$(35#,20):m(7,7):n(22):n$(4,8,15):o$(7,32 ):s$(4,11 ):z$(20,20) pfd=0:9000(# 7:7:0: 0,6;"DELTIC 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,5;"K,L,N,E Location data";20,7;"U Update :R Report" #g$=:g$=""35# ( 9990' 2g$="r"7000X <g$="s"3000 :25 Ag$="t"3500 :25 F)g$="k"d=1:4000:25 K)g$="l"d=2:4000:25 P)g$="n"d=3:4000:25 U)g$="e"d=4:4000:25 Wg$"u"35# Z,g$="u"5000:c$="72100"7000X _ 35# jP1,3,7,9 ,12 ,15,18,20," F 40204602140",1000,6," F 10203302120",1000,9 ,"1S32F01600140221902310",1393q,7,"1E20F01600410224602340",1393q,14.5h,"1E35A02020411055510830",1393q,1005," 50000000853",0,0 t*" 50000000725",0,0 ~2,5,8,11 ,14,17,"1N08A01900130233610210",1r68,1000.1zff,"1E14F01415410211202200",1393q,13.5X,"1L18 01845120214302143",186,9 ,"1N05A01700130213810010",1454,1000.1zff," 30000000335",0,0 J4,6,10 ,13 ,16,19,21,22," 10194002025",0,7," F 20203602130",1000,15,"1S34A01800141003310310",1393q,1001,"1A40 02025311034010340",268 ,10 ," 40000000453",0,0," 40000000635",0,0 "O1S702215140453","O1S722230140635","O1N112245130325","O1L222250120259","O1S772335140654","O1S792350140725","O1N122355130601","O1A412200210356","P1D620043260508","0","0","0","0","0","O1L322220320230","O1A452310310443","O1S022336340206","0","0","0","0" c"O1E392230410626","O1E402250410703","O1E422315410716","O1E432359410725","O1E480025410750","0","0" k"O1N000100130625","O1L000115120526","O1L010405120910","0","O1A000545210941","0","0","O1E510106430338","0" "P1S120745141350","O1L020755121056","P1S140800141437","P1N010900131321","O1L030910121225","0","P1A060720511043","P1A030730211035","O1N320748231035","O1A100830211206","O1S180845241308","O1A120930211337","0" "O1S080700340949","P1A090725311136","O1S160830341104","P1A110830311300","P1A130920311342","0","P1E050755411413","O1E060800431053","P1E070945411602","0" "P1S201000141558","O1L051010121355","O1N021045131513","O1S211100141728","O1L071125121413","O1N031145131608","P1S241210141816","0","O1A141030211400","O1A161130211539","O1A171230211548","0" u"O1A181050311558","0","O1E081030411744","O1E091125411831","O1S111140471443","O1E111203411845","O1E131240411949","0" "O1S281300141950","O1L091305121638","O1S301400142029","O1L111410121758","O1N041500131951","P1L131555121839","0","O1A201330211800","O1A251525211928","0","O1S221420341639","O1A261548312022","0","P1E141345412036","O1E171445412113","0" "P1S321600142202","O1L141605151936","O1N051610132123","P1S331700142300","O1L161704122010","P1N061800132154","O1L171804122117","0","O1A271730212041","O1A301815212229","0","O1S291737342009","0","P1E201600412233","P1E211700412315","O1E251755422216","0" ("O1N081900132330","O1L211940122304","O1S602000140338","O1S662015140449","0","0","O1A402030310340","0","O1E261920432151","O1E352020410546","0" 2"O1S702215140453","O1S722230140635","O1N112245130325","O1L222250120259","O1S772335140654","O1S792350140725","O1N122355130601","0","O1A412200210356","P1D620043260508","0","O1L322220320230","O1A452310310443","O1S022336340206","0" <_"O1E392230410626","O1E402250410703","O1E422315410716","O1E432359410725","O1E480025410750","0" P"O1S702215140453","O1S722230140635","O1N112245130325","O1L222250120259","O1S772335140654","O1S792350140725","O1N122355130601","O1L000030120521","0","O1A412200210356","0","O1L322220320230","O1A452310310443","O1S022336340206","0" U_"O1E392230410626","O1E402250410703","O1E422315410716","O1E432359410725","O1E480025410853","0" Z#"0","O1N320524230843","0","0","0" d}"O1L030910121307","O1S500950141659","0","O1A100800211223","O1A120915211320","O1S110930241539","0","O1A110836311422","0","0" n"O1S201000141719","O1L051010121401","O1N021100131540","O1S521145141849","O1S241200141903","0","O1A141040211443","0","O1A181030311554","O1S191225341539","0","O1E071000411732","O1E091100411759","O1E111200411905","O1E121220411940","0" x"O1S281300142002","O1L091310121709","O1S301400142046","O1L111410121738","O1N041500131951","O1L121510121852","0","O1A201350211754","O1A221450211845","0","O1A261545312033","0","O1E131330412050","O1E141415412112","0" "O1S321600142219","O1N051700132138","O1L161710122036","O1S341800140033","O1L181845122143","0","O1A251650212028","O1A301800212207","0","O1A361710312238","0","O1E201600412246","0" "O1N081900132336","O1L211940122303","O1S602000140338","O1S662015140449","0","O1A341925212256","0","O1A402025310340","0","O1E352020410555","0" 7:7:0: 0,0;"Status report":a=32 -d$:1:0,a;d$;0;2,0;j$;3,0;k$:j=1 i=421 7w$(j,69 )="1D00"j=j+1:3020 чa$=l$(j):0:a$(15)+" "+a$(67)+" ";:n=a$(8):n:a$=f(j):n=a$:n<3h$=a$:3030 h$=a$(n-2n) )a$>1000"("+h$+")";:3045 &a$=1000" (0)";:3045 #a$=0" 0 ";:3045 (h$<10 " "+h$+" ";:3045 )h$<100d" "+h$+" ";:3045 " "+h$+" "; %a(j)=0t=0:3100 +a(j)=1000t=1000:3100 `a$=w$(j,127):h$=a$(2327):a(j)>1000h$=a$(1822) a$=h$:c$>h$a$=c$ ;n=x(a(j)):a(j)=-1n=a(j):n=x(n):n=0-n t=(t(a$)/60<-n) 3v$=t:a(j)>1000a$="("+v$+")":3110& $t=1000a$="(0)":3110& t=0a$="0 ":3110& "#t<10 a$=v$+" ":3110& $ a$=v$+" " &i,(20-a$);a$ +%b(j)=0t=0:3160X 0+b(j)=1000t=1000:3160X 5`a$=w$(j,127):h$=a$(2327):b(j)>1000h$=a$(1822) :a$=h$:c$>h$a$=c$ =;n=x(b(j)):b(j)=-1n=b(j):n=x(n):n=0-n ?t=(t(a$)/60<-n) X4v$=t:b(j)>1000a$="("+v$+")":3170b Z$t=1000a$="(0)":3170b [ t=0a$="0 ":3170b ] a$=v$+" " b6i,(26-a$);a$:a$=n(j):i,(31-a$);a$ lpfd=1 n j=j+1 qi v"Press enter ";a$ x a$="c" { 7:7:0: rj=1:0,0;"TOPS Listing":a=32 -d$:1:0,a;d$:0:2,0;q$ i=421 Fv$=w$(j):h$=v$(69 ):h$="1D00"j=j+1:3515 _i,0;v$(15)+" ";:0:f=v$(1717):h$" "3540 6g=f:f=1l$(j,67)="FP"g=5 0f=1v$(10 10 )="R"g=5 'i,6;" ";p$(g);:3555 is=v$(16):h$+" ";:a$=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=18: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 ׬d=2b$="0600"ưc$<7000014,18;"1A06 departs";15,18;"from Bradford";16,21;"at 0720";17,18;"allow 30 mins."  j=1 Xa=617:5:a,0;" ":a:7 i=122 9r$="":h$=w$(i):v$=h$(17):d14074 v$=32 41506 %v$=1Űv$=54080  41506 v$=32 41506 v$d41506 Ii$=h$(2327):e$=h$(1822):e$>x$41506 *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)="55"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$<"55001"a$>"55022"a$=" Invalid loco no.":4900$ li=a$-55000:pfd=1:4067:pfd=0:r$=""a$=" Loco not here ":4900$ Nw$(i,2831)" "a$=" Loco already allocated":4900$ =0:7:19,0;j$;20,0;k$ <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$=""4300  4900$ Rg$="F"(f(i)=0f(i)=1000)a$=" Already refuelled":4900$ '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)=1000 g$"A"4320  8100 g$"B"4330 8100:8150  4850 a$"F"4345 (g$="A"g$="B")4300 .a$=" Already being refuelled":4900$ a$="A"g$="B"4300 ,a$=" Invalid allocation":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=18:g$(14)=n$(d,j,25)nw=j j 8nw=-1a$=" Incorrect working":4900$ An$(d,nw,1)="4"a$=" Already allocated":4900$ !xk=122:w$(k,69 )=g$(14)w$(k,2831)=g$(14)nw=-1 &k 08nw=-1a$=" Already allocated":4900$ 5"g$(14)="1D62"q1=i 7"g$(14)="1S11"q2=i :[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 ):z$(16,15)rangm<1000a$="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" 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, c$="72100" %v(cl)>23597 cl=cl+7600 ox$=cl:cl=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: d0,6;"DELTIC 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" Fi=122:g$=w$(i):g$(69 )="1D00"5210Z <wlen=491:g$(2831)=" "wlen=27 q1=-15065 q1ib$"0600"5065 uw$(i)=g$(15)+" "+g$(33!491)+"1A04"+g$(32 )+c$(1)+"065061"+c$(1)+"1030" Ĺv$=c$(1)+"1030":h$=w$(i,32 ):8030^:w$(i)=w$(i,144,)+r$:n(i)=n(i)+71G:f(i)=f(i)+71G:l$(i)=l$(i,17)+"5":q1=-1:5210Z q2=-15100 q2ib$"1200"5100 Ӈw$(i)=g$(15)+g$(2831)+" "+g$(33!491)+"1E28"+g$(32 )+c$(1)+"164074"+c$(1)+"1928" دv$=c$(1)+"1928":h$=w$(i,32 ):8030^:w$(i)=w$(i,144,)+r$:n(i)=n(i)+130:f(i)=f(i)+130:l$(i)=l$(i,17)+"5":q2=-1 Wa(i)=0a(i)=1000a(i)=((t(w$(i,11 15))-20)/60<) Wb(i)=0b(i)=1000b(i)=((t(w$(i,11 15))-20)/60<)  5210Z j=wlen Da$=g$(2327):a$1000f(i)=1000 "a(i)>1000a(i)=1000 #b(i)>1000b(i)=1000  /a$=g$(2327):c$i=122:w$(i,69 )="1D00"7035{ v m=m+n(i) {i am=(m/18/d):am Ur=(90Z+(am-650)/5-sca/d-scd/d*12.5H):as=07055 (r=(r-asl/as*20-ash/as*502) rang=450r=r+5 bs=07070 "r=(r-bsl*2.5 -bsh*5) r<0r=0 r>100dr=100d L5:i=1418:i,2;" ":i 016,5;"Management rating : ";r;"%" "Press enter ";a$ c$="72100"7130 x7::5:1,11 ;" ";2,11 ;" OPTIONS ";3,11 ;" ":7 6,3;"1. Leave the simulation";8,3;"2. Save the current state";10 ,3;"3. Continue";12 ,3;"4. Start at the beginning";16,8;"ENTER OPTION" g$=:g$=""7120 g$"1"7150 6:10 ,7;"END OF SIMULATION":300,: g$"2"7200  ;:10 ,6;1;" ASSEMBLING DATA ";0  9900&  25  g$"3"7250R * 25 Rg$"4"7120 \: @i=1b:l(i):i Ec=110 J5d=1+(*b):e=1+(*b):d=e8010J Ol=l(d):l(d)=l(e):l(e)=l:c P 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 gh$="B"st=600X 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<10000'r$="0"  r$=r$+tt  `a(i)=a(i)+1000:as=as+1:n=x(a(i)):a(i)=-1n=a(i):n=x(n):n=0-n Att=t(e$)/60<-n:ast=0:tt<24ast=24-tt tt>28ast=tt-28 ,ast>2.5 ash=ash+1:8125 ast>0asl=asl+1  0b(i)<0b(i)=b(i)-1000:8160 b(i)=b(i)+1000 Jbs=bs+1:n=x(b(i)):b(i)=-1n=n(i):n=x(n):n=0-n Ctt=t(e$)/60<-n:bst=0:tt<240bst=240-tt  tt>260bst=tt-260 +bst>12 bsh=bsh+1:8185 bst>0bsl=bsl+1  `a$="":h$=l$(a,67):(h=1h$="FP")(h=3h$="GD")(h=4h$="HA") 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=17:o$(i)="":i j=1:oe=0 Fi=122:g$=w$(i):g$(69 )="1D00"8565u! <wlen=491:g$(2831)=" "wlen=27 brs=1+(*40():a$=g$(10 ):rs<28rs>30oe>2a$="R"8565u! a$"A"a$"B"8480 ! 6wlen>27g$(69 )" "8480 ! Do$(j)=g$(15)+" defective on examination":j=j+1 0dest=g$(17):dest=1dest=5 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)+2+(*4):h>23h=h-24:d=d+1 !a$=d:h<10 a$=a$+"0" !Ga$=a$+h+"00":w$(i)=g$(19 )+"R"+g$(11 22)+a$ ! 8565u! ! Sg$(69 )" "wlen>271+(*3)38520H! !%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 !4hat=c$:d=(at/10000'):h=v(at):h=(h/100d)+4:h>23h=h-24:d=d+1 !9a$=d:h<10 a$=a$+"0" !>ia$=a$+h+"00":w$(i)=g$(19 )+"R"+g$(11 22)+a$:a(i)=1000:f(i)=1000 !C 8565u! !H(g$(69 )=" "8565u! !J,g$(10 )="B"wlen>278565u! !M.rs=28a$="low engine oil":8530R! !N7rs=29a$="traction motor problems":8530R! !O)rs=30a$="running on one engine" !RRo$(j)=g$(15)+" "+a$:dest=g$(17):dest=1dest=5 !Wa$=p$(dest):j=j+1:o$(j)="Rectify on arrival at "+a$:j=j+1:oe=oe+1:a=w$(i,1822):ad=(a/10000'):ah=(v(a)/100d):ah=ah+1:ah>23ah=ah-24:ad=ad+1 !\ a$=ad:ah<10 a$=a$+"0" !a_a$=a$+ah+"00":ed=ad:eh=ah+4+(*7):eh>23eh=eh-24:ed=ed+1 !f r$=ed:eh<10 r$=r$+"0" !krr$=r$+eh+"00":w$(i)=g$(19 )+"R"+g$(11 17)+a$+r$:f(i)<1000f(i)=f(i)+1000 !p'a(i)<1000a(i)=a(i)+1000 !ui !z<oe=0o$(1)="No out of course events reported" !7,0;o$(1);8,0;o$(2);10 ,0;o$(3);11 ,0;o$(4);13 ,0;o$(5);14,0;o$(6) ! ! a=0 !$a=a+1:d$(a)"Y"8605! !a=a+9 :d$=d$(1a) ! #(1960 #2q1=-1:q2=-1:c$="02100":b$="2100":x$="10000":sca=0:scd=0:as=0:bs=0:asl=0:bsl=0:ash=0:bsh=0 #<d$="SUNDAY 2100 HRS":s$(1)="KINGS CROSS":s$(2)=" LEEDS ":s$(3)=" NEWCASTLE ":s$(4)=" EDINBURGH " #Fp$(1)="Kings X":p$(2)="Holbeck":p$(3)="Gateshd":p$(4)="Haymkt":p$(5)="Fins Pk":p$(6)="Hull":p$(7)="Aberdn" #Pr$=" 1A06 departs from Bradford at 0720 allow 30 mins":j$="Loco Dep Fuel Since exam Travl":k$=" mls A B mls " #ZB9060d#:i=119:r,m:m((r/10 ),z(r))=m:i #di12 ,186,13 ,268 ,14,393,21,186,23,105i,24,230,26,268 ,31,268 ,32 ,105i,34",125},41),393,42*,230,43+,125},47/,260,61=,197,62>,71G,74J,130,15,202,513,202 #n)9080x#:i=17:y$(i):i #xH"SUNDAY","MONDAY","TUESDAY","WEDNESDAY","THURSDAY","FRIDAY","SATURDAY" #)9100#:i=17:t$(i):i #u$(1)="KgX":u$(2)="Lds":u$(3)="Nwc":u$(4)="Edn":u$(5)="Brd":u$(6)="Hul":u$(7)="Abd" #7"KingX","Leeds","Newc","Edinb","Bradf","Hull","Abrdn" #r7:7:0::15,6;"Do you wish to load";16,5;"previously saved data ?" #21,7;" DEE-KAY SYSTEMS";6;1;2,5;" ";3,5;" DELTIC FLEET MANAGER ";4,5;" " #=""9115# #g$=:9990' #g$="n"9200# #g$"y"9120# #0:7:15,6;" ";16,5;" ":10 ,7;1;" START THE TAPE ";0:7 #q$=" ":d$=" ":c$=" ":b$=" ":x$=" ":add1=620000:"delsave" #0:15,6;" ";16,5;" ":10 ,7;1;" ASSEMBLING DATA ";0;19,9 ;"STOP THE TAPE" #\2:a=122:b=1491:w$(a,bb)=¾add1:add1=add1+1:b:a #[7:a=122:b=18:l$(a,bb)=¾add1:add1=add1+1:b:a #6:a=15:c$(a)=¾add1:add1=add1+1:a:a=14:b$(a)=¾add1:add1=add1+1:a:a=15:x$(a)=¾add1:add1=add1+1:a #za=132 :q$(a)=¾add1:add1=add1+1:a:a=19 :d$(a)=¾add1:add1=add1+1:d$(a)"Y"a #Gi=a+1a+9 :d$(i)=¾add1:add1=add1+1:i:8600! #s5:a=14:b=18:c=115:n$(a,b,cc)=¾add1:add1=add1+1:c:b:a #Y4:a=122:n(a)=add1+256*(add1+1):add1=add1+2:a #Y3:a=122:a(a)=add1+256*(add1+1):add1=add1+2:a #}2:a=122:x=add1:add1=add1+1:b(a)=add1+256*(add1+1):x=1b(a)=0-b(a) #add1=add1+2:a #Y1:a=122:f(a)=add1+256*(add1+1):add1=add1+2:a #Y0:a=111 :z(a)=add1+256*(add1+1):add1=add1+2:a #ܸ7:q1=z(1):q2=z(2):sca=z(3):scd=z(4):as=z(5):asl=z(6):ash=z(7):bs=z(8):bsl=z(9 ):bsh=z(10 ):rang=z(11 ) #423639W\,64950:23640X\,64951 # #Z15,5;" ";16,4;" " #0:7:13 ,7;"Select loco range";14,8;"Normal (460 mile)";15,6;"Extended (560 mile)";16,11 ;"Enter N/E" #=""9205# #6g$=:9990':g$="n"rang=460:9220$ #g$"e"9205# $rang=5600 $0:13 ,7;" ";14,8;" ";15,6;" ";16,11 ;" ":10 ,7;1;" PREPARE TO PLAY ";0 $Ni=122:l$(i)=(55000+i):w$(i)=(55000+i)+" ":i $ -q$="550":2410j :b=8:8000@ $cw$(l(1))=w$(l(1),15)+"1D00":l$(l(1))=l$(l(1),5)+"FP" $i=28:8020T:l$(l(i))=l$(l(i),5)+"FP0":i<7b(l(i))=20-(*8)*23-(*24) $i $,l$(l(6))=l$(l(6),7)+"2" $b=6:8000@ $"\w$(l(1))=w$(l(1),5)+"1D00":l$(l(1))=l$(l(1),5)+"GD" $'i=26:8020T:l$(l(i))=l$(l(i),5)+"GD0":i<6b(l(i))=20-(*8)*23-(*24):i $,Xl$(l(2))=l$(l(2),7)+"2":l$(l(5))=l$(l(5),7)+"2" $1b=8:8000@ $6w$(l(1))=w$(l(1),5)+"1D00":l$(l(1))=l$(l(1),5)+"HA":w$(l(2))=w$(l(2),5)+"1D00":l$(l(2))=l$(l(2),5)+"HA" $;i=38:8020T:l$(l(i))=l$(l(i),5)+"HA0":i<7b(l(i))=20-(*8)*23-(*24) $=i $@Xl$(l(5))=l$(l(5),7)+"2":l$(l(6))=l$(l(6),7)+"2" $E>i=122:w$(i,69 )"1D00"9295O$ $Ji<10 q$=q$+"0" $Lq$=q$+i+"/" $Oi $T'q$=q$(14)+" Doncaster wks N/A" $Y 2460 $^Di=14:j=17:a$:a$=480n$(i,j)="" $`0a$=79On$(i,j)="7"+a$(215) $b0a$=80Pn$(i,j)="2"+a$(215) $cj:i $h 2530 $j9a=122:l$(a,8)=""l$(a,8)="7" $la $m &z(1)=q1:z(2)=q1:z(3)=sca:z(4)=scd:z(5)=as:z(6)=asl:z(7)=ash:z(8)=bs:z(9 )=bsl:z(10 )=bsh:z(11 )=rang &m2:add1=620000:a=122:b=1491:add1,w$(a,bb):add1=add1+1:b:a &Z6:a=122:b=18:add1,l$(a,bb):add1=add1+1:b:a &5:a=15:add1,c$(a):add1=add1+1:a:a=14:add1,b$(a):add1=add1+1:a:a=15:add1,x$(a):add1=add1+1:a &ni=q$:a=1i:add1,q$(a):add1=add1+1:a:i=d$:a=1i:add1,d$(a):add1=add1+1:a &r4:a=14:b=18:c=115:add1,n$(a,b,cc):add1=add1+1:c:b:a &z3:a=122:add1,n(a)-256*(n(a)/256):add1+1,(n(a)/256):add1=add1+2:a &z2:a=122:add1,a(a)-256*(a(a)/256):add1+1,(a(a)/256):add1=add1+2:a &G1:a=122:add1,0:b(a)<0add1,1 &sadd1=add1+1:add1,b(a)-256*(b(a)/256):add1+1,(b(a)/256):add1=add1+2:a &z6:a=122:add1,f(a)-256*(f(a)/256):add1+1,(f(a)/256):add1=add1+2:a &z0:a=111 :add1,z(a)-256*(z(a)/256):add1+1,(z(a)/256):add1=add1+2:a &464950,23639W\:64951,23640X\ &+7:"delsave"620000,3000 & &Ia=1̱g$:n=g$(a):n>96`n<123{n=n-32 :g$(a)=n &a: ' g$="" 'g$>96`Ưg$<123{ ' a=g$:a=a+32 :g$=a '  'Ea=14:b=18:n$(a,b);" a=";a;" b=";b:b:a '%23641Y\+256*23642Z\ KgXLdsNwcEdnBrdHulAbd: ;1 qqD SUNDAY MONDAY TUESDAY WEDNESDAYTHURSDAY FRIDAY SATURDAY /KingX Leeds Newc Edinb Bradf Hull Abrdn R Kings X Holbeck Gateshd Haymkt Fins Pk Hull Aberdn q̵ +#  i  i}}Gq  1 KINGS CROSS LEEDS NEWCASTLE EDINBURGH ڕ fC02100B2100X10000ccssssDSUNDAY 2100 HRSRB 1A06 departs from Bradford at 0720 allow 30 minsJ Loco Dep Fuel Since exam TravlK mls A B mls #r3mG =