ZXTape! 0Created with Ramsoft MakeTZXNWFLEET n4bM =23658j\,8::0:7:1:0:  1960 140 -a$:a$="r"a$="R"3200 <,a$="s"a$="S"420:30 F,a$="t"a$="T"180:30 K.a$="V"a$="v""scot"5020:3200 Za$"L"a$"l"120x d:8,5;"Press:1)HHD,BNG,LLD. ";9 ,11 ;"2)Crewe ";10 ,11 ;"3)Cardiff ";11 ,11 ;"4)Manchester" n#a:a<1a>4100d pd=a::500:30 x3a$="U"a$="u"1320(:c$="41800"3200 }a$="U"a$="u"40( 45- "proc m" :3,0;"NORTH WALES 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 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$)<47001Ű(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;"NORTH WALES 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) Yd$(1)="MONDAY 0600 HRS":s$(1)="HHD,BNG,LLD":S$(2)=" CREWE ":S$(3)=" CARDIFF ":S$(4)="MANCHESTER ":P$(1)="HHD,BNG,LLD":p$(2)="CREWE":p$(3)="CARDIFF":p$(4)="MANCHESTER":p$(5)="HOLYHEAD":p$(6)="CREWE DIESEL":p$(7)="CARDIFF CANTON":p$(8)="GATESHEAD" 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 ,105i,13 ,243,14,124|,21,105i,23,138,24,31,31,243,32 ,138,34",169,41),124|,42*,31,43+,169 B2060 :i=15:d$(i):i:D$(7)=D$(1)  B" MONDAY "," TUESDAY "," WEDNESDAY"," THURSDAY "," FRIDAY " )2090*:I=14:t$(i):i *"HHD","CRE","CDF","MAN" rang=550& n=116:bn,rn l=47000 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 *399,12 ,437,4,449,4,450,15,451,36$,530,25,581E,12 ,586J,24,626r,10 ,435,8,405,16,479,6,47/,3,110n,4,145,77M,288 ,14 <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"1A04 00115120032400324",105i,6,0 4"1V01 00204230051000510",138,0,0 4"1D02 00250210054200542",105i,0,0 2"1A25 00605120082300823",0,0,0 4"1M68 00607320090100901",105i,0,0 4"1V03 00515120073000730",105i,0,0 4" 40000000003",269 ,0,0 2" 20000000004",0,0,0 2" F 10000000005",0,0,0 2" 10000000008",0,0,0 2" 10000000002",0,0,0 2" 20000000002",0,0,0 2" 20000000007",0,0,0 2" 20000000008",0,0,0 2" 40000000009",0,0,0 2" A 30000000010",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 "P4L860630120936","O1V050714120923","O1E080817141454","O1A450856121128","0","P4D520712211003","O1V030800231055","0","0","0","O1M700745341225","0","0","0","0","O1D340742411016","O1M530751411215","0","0","0" 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 "O1A040115120324","O1V030515120730","P4G660538120812","O1A250605120823","P4H590613120848","0","O1V010204230550","O1D020250210542","0","O1M680607320901","0","P6M430145410507","0" "P4L860630120936","P6E360722141130","O1V050714120923","O1E080817141454","O1A450856121128","0","P4D520712211003","O1V030800231055","0","O1M700745341225","0","O1D340742411015","O1M530751411215","O1M580820411349","0" "O1E991114141345","0","O1D330937211159","O1V050953231243","O1V061135231424","O1D421143211343","O1D431158211358","0","0","O1M631055411620","0" "O1A561245121450","O1E531300141723","O1A521300121507","O1E191516141923","0","O1D481347211610","0","O1M861300311834","0","O1M261255411829","O1V071412431751","0" "O1A781625121855","O1E931703142149","O1G561710121945","P4K591756122029","0","P4D581649212013","P4D591708212028","0","O1M751535321828","O1M011735312255","0","0" "O1J311853142136","O1K892020122255","0","O1D661831212046","P4D622025212313","O1D712103212337","O1V112109230008","0","O1M822002322315","0","1M802000410150","0" #"0","O1D840015210229","0","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;"NORTH WALES 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- C00600G00900cccsssndn-     "47411IS 47445IS 47453IS 47465IS 47487IS 47580IS 47605IS 47634IS 47636IS 47451ED 47422ED 47485ED 47053ED 47118ED 47299ED 47316ED ȑG474111V01 00204230051000510 474451A04 00115120032400324 474531V03 00515120073000730 474651A25 00605120082300823 474871M68 00607320090100901 47580 F 10000000717 476051D02 00250210054200542 47634 20000000652 47636 40000000003 47451 10000000008 47422 20000000007 47485 A 30000000710 47053 20000000908 47118 20000000002 47299 40000000009 47316 10000000002 47316 10000000002 1 HHD,BNG,LLD CREWE CARDIFF MANCHESTER K MONDAY TUESDAY WEDNESDAY THURSDAY FRIDAY MONDAY - HHD CRE CDF MAN ] HHD,BNG,LLDCREWE CARDIFF MANCHESTER HOLYHEAD CREWE DIESECARDIFF CANGATESHEAD m  1P4L860630120936 O1V050714120923 O1E080817141454 O1A450856121128 P4D520712211003 O1V030800231055 O1M700745341225 O1D340742411016 O1M530751411215 z% i|i|]g(!,& %$g+Jcu.Mgiiii ϥ g r+an& lԸx y J d e sfgX Y A: