ZXTape! 0Created with Ramsoft MakeTZXSCOTRAIL UU+W /0:0:0::0:6 :5,8;" ";0;3;"" :7,8;" SCOTRAIL 47S ";0;3;"" :6,8;" ";0;3;"" #:9 ,8;" ";0;3;"" (<8,8;" FLEET MANAGER ";0;3;"" -;10 ,8;" ";0;3;"" 2811 ,8;3;0;"" 7818,8;1;1;" 1990 A.GREENUP" 4100d pd=a::500:30 x3a$="U"a$="u"1320(:c$="41800"3200 }a$="U"a$="u"40( 45- "proc m" :3,0;"SCOTRAIL CLASS 47 FLEET MANAGER":5,5;d$(7);5,18;C$(25);" HRS";18,8;"THEN PRESS ENTER" XJ=814:J,0;6;1;" ":J 9 ,5;0;6;"Press: T TOPS display";11 ,1;"S Loco Status: L Location data";13 ,3;"U Update: R Report: V Save"  "PROC T" ~:1,0;0;6;"TOPS LISTING ";1,13 ;d$(7);" ";c$(25);"HRS ":j=1 i=217 6h$(19)=h$(j):x$=h$(19)(69 ) 0i,0;h$(19)(15);" " f=(h$(19)(17)) x$" "282 Ky$=h$(19)(10 ):y$="A"y$="B"y$="R"g=f+4:280 g=f i,11 ;p$(g):320@ 0s=(h$(19)(16)):i,6;x$+" " X$(1)"0"300, I,11 ;"en route" F=1I,19;"ED"  F=2I,19;"HA" !F=3I,19;"IS" "F=4I,19;"AB" $ 330J &Aa$=h$(19)(1822):bt=t(a$)-t(c$):t=0 ,F(bt>tbt<0)i,11 ;t$(s)(13)+"-":3106 1&i,11 ;"Arr. ";t$(f):320@ 6i,15;t$(f) @hh$(19)(28)" "i,22;"Alloc";i,28;h$(19)(2832 ):380| J'h$(19)(10 )" "350^ T,i,22;"Avail":x$" "370r: Yx$=" "380| ^(h$(19)(10 )="F"A$="RflOK" _(h$(19)(10 )="A"A$="AexOK" `(h$(19)(10 )="B"A$="BexOK" a(h$(19)(10 )="R"A$="RepOK" hi,22;A$ r-i,28;h$(19)(2428) | j=j+1 i f18,0;6;0;" PRESS ANY KEY ":a$="aa":a$=:a$=1  400 "PROC D" :0,10 ;"STATUS REPORT";1,5;"(End allocated working)":jj=4:2,0;0;6;"Loco DpFuelHours sinceTravel";3,0;" Mile A B Mile " l=1:i=116 (3030 :jj=jj+1:l=l+1 i ]20,0;6;0;" PRESS ANY KEY ":a$=:a$=1  480  !5000:"procs(d%)" c0,11 ;s$(d);2,6;d$(7);2,18;c$(25);" HRS" E4,0;0;6;" LOCOMOTIVES POSS.WORKINGS" &;i=15:a$=w$(d,i):a$(1)=" "575? +#dest=(a$(12 )):e$=t$(dest) 0Aink=7:ink1=7:a$(1)=129ink=2: 53a$(1)=130ink=4:ink1=4 :^i+5,17;ink;a$(36);" ";ink1;a$(710 )+" "+e$(5) ?i l j=1 vW5000:RND=0r$(37%,17):i=116:640 {_I=RND:J=1202:Z$(RND)(15)=R$(J)(15)640 }J  2730 %RND0RND=0:680 i  L=6 i=140(2 L=20R$(I)(15)" "20,0;" ";21,0;" ":"MORE Y/N? ";A$:A$="Y"L=6:770 L=20A$="N"781  6L=20R$(I)(15)" "700 ,R$(I)(16)=" "781  $L,0;0;6;r$(i) !1;6;R$(I+1)  L=L+2:i Fl<20l=l19:l,0;6;" ":l Gl=2021:l,0;" ":l "ALLOCATE? (Y/N) ";A$  a$="n"a$="N" *a$"Y"a$"y"795 4r21,0;" ":;"LOCO NUMBER? ";l$:l$=""űl$5a$="Invalid loco no.":1280 9G(l$)<47460dŰ(l$)>47716da$="Invalid loco no":1280 >:26102 :i=-1a$="Invalid loco no":1280 C837E:j=1 EZ5000:RND3=1:2730 :k=-1a$="loco not here":1280 H6(k$(5))da$="Already allocated":1280 I9Q(I)=491A$="Already fully allocated":1280 J7k$(6)(1)=" "k$(6)="00000" M`t=t(k$(6)(5))-t(g$):t>60<a$="Loco not avail this time slot":1280 R20,0;n$(1):20,10 ;n$(2):l=i:jj=21:20,0;"LOCO DP F/M A B T/M";21,0;" ":3030 \"NEXT WORKING? ";w$(7,9 ):w$(7,9 ,1)=" "20,0;" ";21,0;" ":RND=0:795 f-w$(7,9 ,2)" "1070. h?5000:q(i)27a$="already allocated":1280 kw$(7,9 ,1)"F"w$(7,9 ,1)"A"w$(7,9 ,1)"B"a$="incorrect working":1280 p,w$(7,9 ,1)"B"906 zH=D:A=I:1930 |A$=""909 ~ 1280 Rw$(7,9 ,1)="F"m(i)=0a$="already refuelled":1280 Aw$(7,9 ,1)="F"m(i)<200sca=sca+1 (a$=h$(i)(10 ):a$" "1040 ab$(3)=w$(7,9 ,1):(k$(7))>c$b$(8)=k$(7):920 b$(8)=c$ 2960 :h$(i)(10 )=w$(7,9 ,1):h$(i)(2327)=b$(7)(15):k$(7)=h$(i)(1823):k$(6)=h$(i)(2327):m(i)=0:(k$(6))-(g$)>100dz$(i)(15)=(129) ,w$(7,9 ,1)"A"960 3491 -w$(7,9 ,1)"B"1030 (3491 :3498  1270 =a$="B"(a$="A"w$(7,9 ,1)"B")1050  910 $a$="Incorrect working":1280 .bq$=w$(7,9 )(5):q$" "q$"F"q$"A"q$"B"a$="incorrect working":1280 8 nw=-1 BXj=15:w$(7,9 )(14)=w$(d,j)(36)nw=j Lj Q 4000 V1nw=-1a$="Incorrect Working":1280 `D(130)=w$(d,nw)(1)a$="Already allocated":1280 a$=w$(d,nw)(317):b$(1)=a$:(w$(7,9 ))>4a$=a$+w$(7,9 )(9 ):1180  a$=a$+" " b$(2)=a$(14):b$(3)=W$(7,9 ,5):b$(4)=c$(1)+a$(510 ):(c$)-(b$(4)(15))>900b$(4)=((b$(4))+1E6t$) b$(5)=a$(11 15):(b$(5))<(b$(4)(25))b$(6)=(b$(4)(1)+1):1200 "b$(6)=b$(4)(1) a$=b$(4)(15):t=t(a$)-t(k$(6)(15)):((D=1D=3)t<30)((D=2D=4)T<20)a$="Not available in time":1280 XH=B$(1)(10 ):W$(7,9 ,1)="B"A=I:1930:1220 a$=b$(1):1240 #A$=""a$=b$(1):1240 o=i:1900l d(I<10 n>rang)(I>9 N>RANG+550&)a$="Sorry, you will run out of fuel":1280 DI<10 W$(7,9 ,1)=129SCP=SCP+1 l5000:w$(d,nw)=130+" "+b$(1):b$(8)=b$(6)(1)+b$(5)(16):2950 :a$=b$(2)(14)+b$(3)(1)+b$(4)(7)+b$(6)(1)+b$(5)(14)+b$(7):h$(i)(q(i)+23q(i)+44,)=a$(122)::z$(I)(15)=134 Ml(i)=l(i)+rm:m(i)=m(i)+rm:b$(3)="F"m(i)<200sca=sca+1 gt=t(a$(13 17))-t(a$(610 ))+20:t=t/60<:h(i)=h(i)+t:b(i)=b(i)+t a$(5)" "m(i)=0 &b$(3)(1)"A"1266  3491 &b$(3)(1)"B"1270 3491 :3498  540 RND=0:20,0;" ";21,0;" ":l=(a$):21,(16-l/2);a$:sca=sca+1:100d:21,0;" ":795  590N  (PROC u 2HC$=G$:CL=(C$)+300,:C$(25)="0000"CL=CL+300, F<CL/1E4'-(CL/1E4')>.2359~qCL=CL+7600 P%g$=(cl):cl<10000'g$="0"+g$ Ukd=c$(1)+1:h=c$(25):d$(7)=d$(d)+" ":h<10 d$(7)=d$(d)+"0" Z8d$(7)=d$(7)+(H)+" HRS"::c$="41800" _40,0;"SCOTRAIL CLASS 47 FLEET MANAGER" d92,7;d$(7)+C$(25)+" HRS" x\i=413 :i,0;6;1;" ":i u4,5;6;1;0;" MESSAGES FROM CONTROL";6,3;"AWAITING INFORMATION UPDATE" (5000:I=116 Ej=22:q(i)>5j=44,:Q(I)>27J=66B 'h$(20)=h$(i)(6j+5) y$=h$(20)(23) a$=y$(1822) 3(a$)-(g$)<100dz$(i)(15)=135 3e$=y$(13 17):(c$)<(e$)1600@ 8h$(i)=h$(i)(5)+" "+h$(i)(10 j+5) (c$)<(a$)1600@ "Qh$(i)=h$(i)(9 )+" "+h$(i)(11 j+5):z$(i)(15)=135 @j=221760 JRz$(i)(15)=(134):(h$(20)(2832 ))>c$1760 Tsj=j-22:J=22h$(20)=h$(20)(2347/):h$(i)=h$(i)(15)+h$(20) YeJ=44,h$(20)=h$(20)(2369E):h$(i)=h$(i)(15)+h$(20) z$(i)(15)=129  1510 i Ud=15:i=110 :w$(d,i)(1)=129scd=scd+1 i:d (c$(25)="0000"2530  3900< d=14:i=1 Cw$(7,9 ):w$(7,9 )(1)="0"18400 Vw$(7,9 )(1)="P"w$(d,i)=129+w$(7,9 ):1830& !(w$(d,i)=135+w$(7,9 ) &i=i+1:1810 0i=61860D :j=i5:w$(d,j)="":j Dd N3510 X16,6;"Press T TOPS Display"; 18,1;"S Loco status :L Location data";20,3;"U Update :R Report :V Save" b ldefPROCcf(o%,A$) vfm=m(o):rm=n((a$(9 )),(a$(10 ))):C$(25)="1800"W$(7,9 ,4)="1L51"RM=RM+95_ { n=fm+rm  "DEFPROC HOME" 7A$="":(A<10 H=3)(A>9 H=1) A$="Not at home depot": defPROCd :c$="00600":g$="00900":scp=0:sca=0:scd=0:as=0:bs=0:asl=0:ash=0:bsh=0 RND3=0:RND=0:i$(2,20):b$(10 ,20):k$(9 ,30):z$(19,15):h$(20,71G):s$(4,11 ):d$(7,10 ):t$(4,10 ):p$(8,11 ):w$(7,10 ,491):r$(37%,17):n(5,5):l(18):h(20):b(20):m(20):o$(5,32 ):s(20) Rd$(1)="MONDAY 0600 HRS":s$(1)=" GLASGOW ":S$(2)=" EDINBURGH ":S$(3)=" INVERNESS ":S$(4)=" ABERDEEN ":P$(1)="Glasgow":p$(2)="Edinburgh":p$(3)="Inverness":p$(4)="Aberdeen":p$(5)="Eastfield":p$(6)="Haymarket":p$(7)="Inverness":p$(8)="Ferryhill" zn$(2):n$(1)=" Loco Depot Fuel Hrs since Exam Travel":n$(2)=" Miles A B Miles" a2030:i=112 :r,n:n((r/10 ),10 *(r/10 -(r/10 )))=n:i 12 ,47/,13 ,181,14,155,21,47/,23,188,24,130,31,181,32 ,188,34",108l,41),155,42*,130,43+,108l B2060 :i=15:d$(i):i:D$(7)=D$(1)  B" MONDAY "," TUESDAY "," WEDNESDAY"," THURSDAY "," FRIDAY " )2090*:I=14:t$(i):i *"Gls","Edb","Inv","Abd" rang=550& n=116:bn,rn )l=47400(:n>9 l=l+300, Jl=l+bn+(rn*((*2)+1)):n=11 l=l+(*3)+1  Z$(n)=l )n<10 Z$(n)(67)="IS" (n>9 Z$(n)(67)="ED" N 59;,1,46.,23,136,5,137,13 ,139,39',225,5,239,1,242,0,242,1,0,1,2,0,5,1,7,1,9 ,1,10 ,2,14,1 <i=116:h$(i)(6491),m(i),h(i),s(i) 3I>9 I<15H(I)=16+(*22) 'I=10 H(I)=8+(*7) lI>1I<9 H(i)=6+(*42*)+1:I>9 I<15H(I)=16+(*22) LI<9 b(i)=557*((*5)+1)-5+(*10 )+h(i) YI>9 I<16b(i)=45-*((*5)+1)-(5+(*10 ))+h(i) FI=8H$(8)(2527)=(630v+(*29)) FI=9 H$(9 )(2527)=(715+(*30)) JI=14H$(14)(25)=(7+(*3)):S(I)=2 tI=16H$(16)(25)=(5+(*3)):(H$(16)(25))>5S(16)=2 i B(9 )=223 4"3S37 00345240064000640",260,6,0 4"1H23 00435430074300743",108l,0,0 J" 300000000001T36 00655310102301023",181,0,1 J" 300000000001A44 00605340082800828",108l,0,1 4" 20000000000",188,0,0 2" 20000000000",0,0,0 4" 40000000000",108l,0,0 2" F 10055000000",0,0,0 2" A 30044500000",0,0,0 4"1T06 00530410083900839",155,0,0 4"5A43 00425240081400814",130,0,0 2" 40000000000",0,0,0 2" 20003000030",0,0,0 2" R 10000000000",0,0,0 2" 10000000000",0,0,0 2" B 10000000000",0,0,0 MX=1:Y=9 :28706 :X=10 :Y=7:28706 ei=116:h$(i)=z$(i)(15)+h$(i)(6491):ALREADY USED Z$ -s=s(i):s=0z$(i)(z$(i))=135 %s=1z$(i)(z$(i))=134 %s=2z$(i)(z$(I))=129 I "P1A510725141013","P1A570925141208","O1H090933131320","0","0","O1H050710231120","O2O710736210845","P1A550835241111","0","0","O1A460828341049","0","0","0","0","P1T100700410952","O1H250740430957","O1C680845421130","O1H270905431120","P1T140908411152" 2460 Gi=14:j=15:a$:a$(1)="0"w$(i,j)="" :a$(1)="O"w$(i,j)=135+a$(a$-14̱a$) @a$(1)=80Pw$(i,j)=129+a$(a$-14̱a$) j:i }"0","O3S370345240640","P5A430425240814","0","O1A440605340828","O1T360655311023","0","O1H230435430743","P1T060530410839","0" "P1A510725141013","P1A570925141208","O1H090933131320","0","O1H050710231120","O2O710736210845","P1A550835241111","0","O1A460828341049","0","P1T100700410952","O1H250740430957","O1C680845421130","O1H270905431120","P1T140908411152","0" "P1A591125141413","0","O1H071005231350","O1H111135231540","O1A471245241525","0","O1T201010311344","O1B381035321428","O1A481038341257","O1A501200341412","O1T301230311622","0","P1T221105411352","O1H291117431330","O1M421140421424","P1B321230421516","0" "P1A611325141610","O1H131333131715","P1A631525141813","0","O1S591515241822","O1H211525231910","0","O1A521330341542","O1B341415321807","O1A541502341732","0","P1T261308411552","O1H311325431544","P1T321508411752","O1H331545431758","0" "O2O721714121814","P1A671725142014","O1H151803132151","0","P1A651655241940","O1A731713241955","0","O1T461635312022","O1A581800342011","O1B3618153222154","0","O1B481605421848","P1T381705411952","O1H351755432013","0" "P1A711925142210","P1L512025120020","0","0","O1A602100342311","0","P1T481908412152","P1B422030422320","O3E502035420010","O1H372055432313","0" 5"0","O1H012325230425","0","O1T042340310528","0","0" # 2550 ( 2defPROCfind < i=-1 F;j=116:z$(j)(15)=l$i=j:RND=I UJ Z Ei=15000:defPROCloTOO MANY GOSUB 5000 4k=-1:j$=h$(i)(6q(i)+22):z=j$ Sk$(2)="":k$(3)="":m$=j$(122):k$(5)=m$(12 ) dɰ(k$(5))2860, rk$(6)=m$(1822):k$(7)=m$(13 17):(k$(7))-(g$)>100d2860, z=222800 Ca$=j$(2832 ):t=t(a$)-t(c$):t302860, k$(2)=h$(i)(5)+" ":(k$(7))>(c$)k$(2)=k$(2)(6)+"Due at "+k$(7)(25):2810 Jk$(2)=k$(2)(6)+"Arrived"+k$(7)(26) ?k$(9 )=m$(5):k$(9 )(1)" "2830 .k$(3)=" Available ":2850" 8k$(9 )(1)="F"k$(3)="Refuel Exp.OK " 8k$(9 )(1)="A"k$(3)="A Exam Exp.OK " 8k$(9 )(1)="B"k$(3)="B Exam Exp.OK " 8k$(9 )(1)="R"k$(3)="Repair Exp.OK " :k$(3)=k$(3)(13 )+m$((m$)-3̱m$) "z=222852$ #6k$(3)=" Allocated "+j$(2326)+" " $%K=1:RND3=12860, %hr$(j)=k$(2)(5)+k$(2)(630):j=j+1:r$(j)=k$(3):j=j+1 ,z=22RND3=0: .Wq(i)=q(i)-22:z=z-22:Z=22j$=j$((j$)-21̱(j$)):2745 05Z=44,j$=j$((j$)-43+̱(j$)):2745 6defPROCs J6c=110 :d=((*Y)+1)+(X-1) T1e=((*Y)+1)+(X-1):e=d2900T Y5h$(20)=h$(d):h$(d)=h$(e):h$(e)=h$(20) Z/m(20)=m(d):m(d)=m(e):m(e)=m(20) [/h(20)=h(d):h(d)=h(e):h(e)=h(20) \/s(20)=s(d):s(d)=s(e):s(e)=s(20) ]/b(20)=b(d):b(d)=b(e):b(e)=b(20) ^c:h$(20)="": hdefPROC FNt(A$) r^t(a$+)=(a$(1))*1440+(a$)(23)*60<+(a$(45)) defPROC del 5b$(3)(1)=" "b$(7)=b$(8): <b$(3)(1)="F"s=45-+(*45-)+1 'b$(3)(1)="A"s=150 Eb$(3)(1)="B"s=60<*(8+(*4)+1) ft=t(b$(8)(16))+s+5:td=(t/1440):t=1440*(((t/1440)-td)) 9th=(T/60<):T=(T/60<-(t/60<))*60< !t=10000'*td+100d*th+t Qb$(7)="":t<1E3b$(7)(15)="00"+(t):3020 @t<1E4'b$(7)(15)="0"+(t):3020 #b$(7)(15)=(t)  defPROCst (L%) 6a$=z$(l):ink=7:a$(15)=""ink=6 a$(15)=""ink=2 ;jj,0;ink;a$(5)+" "+a$(68)+" " jj,13 -((m(l)));ink;m(l);jj,18-(((h(l)+.5)));ink;(h(l)+.5);jj,24-(((b(l)+.5)));ink;(b(l)+.5);jj,31-((l(l)));ink;l(l) v : :1,0;"SCOTRAIL CLASS 47 FLEET MANAGER":3,6;d$((C$)(1)+1);" ";c$(25);7,4;"Number of prime workings";8,8;"missed to date: ";scd am=0:ta=as:tb=bs:tah=ash:tbh=bsh:d=(c$)(1)+(C$(25)/2400` )-0.25~:d<.1}L3370* =11 ,3;"Average daily fleet milage: ":N=0 i=116 n=n+l(i) V(I<10 h(i)60<)(I>9 H(I)502)ta=ta+1:tah=tah+1 X(I<10 b(i)300,)(I>9 B(I)>250)tb=tb+1:tbh=tbh+1 i #am=n/16/d:13 ;(am) am=am+tb*20 `r=90Z+(am-450)/5-sca/D-SCP/2/d-scd/d*12.5H:ta=03290 %r=r-asl/ta*30-tah/ta*75K r=r-tbh*10 r<0r=0 r>100dr=100d Ii=1517:i,3;6;" ":i C16,4;6;0;"Management rating : ";r;"%" *521,9 ;0;7;"PRESS ANY KEY" 4A$=:A$=13390> 9 33804 >c$="41800"3480 H Rgi=410 :i,2;6;" ":i:2,12 ;"OPTIONS" \5,3;6;0;"1. Leave the simulation";7,3;"2. Continue";9 ,3;"3. Start at the beginning";12 ,10 ;7;0;"ENTER OPTION" f&a$:a$"1"a$"2"a$"3"3430f ha$="1"3480 ja$="2"3460 la$="3"3470 30 :1 ):11 ,6;"END OF SIMULATION" /x=1100d:x::DEFPROCBERV Nas=as+1:t=h(i):(I<10 T<524)AST=524-T:3495 5(I<10 T>58:)AST=T-58::3495 4(I>9 T<42*)AST=42*-T:3495 4(I>9 T>480)AST=T-480:3495 *ast>3ash=ash+1:3497 ast>0asl=asl+1 &h(i)=0::defPROCbserv OBST=0:bs=bs+1:t=b(i):(I<10 T<265 )BST=265 -T +(I<10 T>285)BST=T-285 *(I>9 T<215)BST=215-T *(I>9 T>235)BST=T-235 BST>15BSH=BSH+1 %B(I)=0::defPROCspan 45000:i=15:o$(i)="":i j=1:oe=0 Ji=116:h$(20)=h$(i):y$=H$(20)(69 ) brs=(*30)+1:a$=H$(20)(10 ):rs<20oe>1a$="R"3820 "DEFECT ON A EXAM" a$"A"3660L %q(i)26y$" "3660L Go$(j)=h$(20)(5)+" defective on examination":j=j+1 (dest=(h$(20)(17))+4  a$=p$(dest) ,o$(j)="Being repaired at "+a$:j=j+1 oe=oe+1 $at=(h$(20)(2327)):d=(at/1E4'):h=(h$(20)(2427)):h=(h/100d)+3+(*8)+1:h>23h=h-24:d=d+1 . a$=(d):h<10 a$=a$+"0" 8a$=a$+(h)+"00":h$(i)=h$(20)(9 )+"R"+h$(20)(11 22)+a$:(a$)-(g$)>100dz$(i)=z$(i)(7):z$(i)(15)=129 =Az$(i)=z$(i)(7):z$(i)(15)=135:3820 L=y$" "q(i)26ť>.75@rs<283740 Vdest=(h$(20)(17))+1:a$=p$(dest-1):o$(j)=h$(20)(5)+" failed at "+a$+" ":j=j+1 `-rs=30o$(j)=" Electrical Problems" b&rs=29o$(j)=" Coolant leak" d.rs<29o$(j)=" Main Generator Fault" jj=j+1:oe=oe+1 t}at=(c$):d=c$(1):h=(c$(23)):h=h+3+(*3)+1:h>23h=h-24:d=d+1 ~ a$=(d):h<10 a$=a$+"0" a$=a$+(h)+"00":h$(i)=h$(20)(9 )+"R"+h$(20)(11 22)+a$:m(i)=0:(a$)-(g$)>100dz$(i)(15)=129:3730 z$(i)(15)=135  3820 y$=" "3820 0a$="A"a$="B"a$="R"q(i)263820 %rs30ť>.75@3820 ?rs=(*3)+1:rs=1a$="Loss of power on "  rs=2a$="Gen fault on " %rs=3a$="Overload fault on " 3o$(j)=h$(20)(5)+" "+a$+y$+" " {j=j+1:l$="0"+H$(20)(79 )+"R"::o$(j)=" Being removed to "+P$((H$(20)(17))+4) j=j+1:oe=oe+1:a=(c$):ad=c$(1):ah=(c$)(23):ah=ah+4:ah>23ah=ah-24:ad=ad+1 "a$=(ad):ah<10 a$=a$+"0" aa$=a$+(ah)+"00":ed=ad:eh=ah+4+(*8):eh>23eh=eh-24:ed=ed+1 "e$=(ed):eh<10 e$=e$+"0" ݃e$=e$+(eh)+"00":h$(i)=h$(20)(5)+l$+h$(20)(11 17)+a$+e$:z$(i)(15)=129:m(i)=0 i L5000:ta=0:tb=0:tc=0:i=116 ih$(i)(610 )=" "ư(h$(i)(1822))4C$(25)="0600"2540 :3920P ?4C$(25)="0900"2550 :3920P @4C$(25)="1200"2560 :3920P B4C$(25)="1500"2570 :3920P D4C$(25)="1800"2580 :3920P E4C$(25)="2100"2590 :3920P F 2530 P defPROCle  d>2 c(d=1w$(7,9 ,4)"0O98")(d=2w$(7,9 ,4)"0O99") G5000:a$=h$(i)(q(i)+18q(i)+22):(c$)>(a$)a$=c$ /nw=5:x=t(a$):d=1x=x+35# 64110:a$=x$:x=t(a$):d=1x=x+60< 4110:b$(1)=x$ Da$=a$(25):b$(1)=(b$(1)(25)) 3d=1w$(d,nw)=" O0O98"+a$+"12"+b$(1): 2d=2w$(d,nw)=" O0O99"+a$+"21"+b$(1)  defPROCtt {x1=(x/1440):x2=x/1440-X1:x3=(X2*24):x4=(X2*24-X3)*60<:x$=(x4):x4<10 x$="0"+x$ %x$=(x3)+X$:x3<10 x$="0"+x$  x$=(x1)+x$  &"HOW LONG IS THE STRING????" fq(18):z=118:q(z)=5:h$(z)(2838&)" "q(z)=27 7h$(z)(50260<)" "q(z)=491 z: P7:0:1:0::23658j\,8:150:45- &&0:7:0:7: ',:x=6400065000:x;" ";(x):x ' $x=118:x;" ";H$(x):x ' x=118:Z$(x):x: '07:1:0::0:45- ccsssndn r+an& J e sar a bthesğannkkdto;lrfg d   s.b scy`Q Y X Work/Alloc:0 Ava:16 Attention: 0E Gls L47546J3S37A00345240064000915M3S37A00345240064000915]C00600G00900-     "47460IS 47492IS 47541IS 47550IS 47617IS 47630IS 47640IS 47642IS 47643IS 47701ED 47703ED 47706ED 47708ED 47710ED 47714ED 47716ED ȑG47460 20000000000 47492 F 10055000652 47541 20000000000 47550 A 30044500728 47617 300000000001A44 00605340082800828 47630 40000000000 47640 300000000001T36 00655310102301023 476421H23 00435430074300743 476433S37 00345240064000640 47701 B 10000000700 477031T06 00530410083900839 477065A43 00425240081400814 47708 R 10000000700 47710 40000000000 47714 20003000030 47716 10000000000 1 GLASGOW EDINBURGH INVERNESS ABERDEEN K MONDAY TUESDAY WEDNESDAY THURSDAY FRIDAY MONDAY - Gls Edb Inv Abd ] Glasgow Edinburgh Inverness Aberdeen Eastfield Haymarket Inverness Ferryhill m  1P1A510725141013 P1A570925141208 O1H090933131320 O1H050710231120 O2O710736210845 P1A550835241111 O1A460828341049 P1T100700410952 O1H250740430957 O1C680845421130 O1H270905431120 P1T140908411152 z% //ll]g ". g~1M>eglllϥ g AP1T140908411152