ZXTape! 0Created with Ramsoft MakeTZXdriver   [ Ex=121:x,0;" ":x |1:145,160:24,0:40(,-40(:44,,0:0,-16:-44,,0 2a-32 ,-32 :76L,0:0,-16:-76L,0:40(,-40( <-24,0:-40(,40(:-44,,0:0,16:44,,0:32 ,32 :-76L,0 F80,16:76L,0:-40(,40( dj0:7,1;"LOCODRIVER";9 ,3; "SIDE 2";11 ,1;"PRESTON TO GLASGOW" 0:7 Ȣ118v,0:14,6:6,6:4,0:8,8:12 ,-6:502,0:-2,6:-10 ,0 Ґ12 ,6:4,10 :6,12 :-4,2:-6,-8:-6,6:2,6:-2,6 ܗ-10 ,6:10 ,2:-10 ,16:-2,16:-12 ,16:10 ,6:-8,0:22,20 0,8:-18,2:-8,-2:18,14:-6,4:-18,-8:-6,-16:2,-4 -6,-4:2,-8:8,6:-6,-6:0,-4:-8,-10 :12 ,8:-10 ,-12 10 ,-2:-10 ,-10 :0,-8:10 ,0:0,-4:-2,0:0,-8:-2,0 0,-6:4,-4:-2,-4:-6,6:-10 ,0:-12 ,-12 :10 ,2:4,-10 -14,-16:12 ,-2:8,2:12 ,6:-14,-16:-8,2:-12 ,-10 :-26,-16:2,0 1,0;" " X 7  1100L x=039':f  "a"+x,f LD0,0,0,0,240,15,0,0 QD0,0,0,0,0,0,240,15 VD0,0,0,15,240,0,0,0 [D0,15,240,0,0,0,0,0 `K0,60<,126~,126~,126~,126~,60<,0 jx ""driver6"62990,2250  (3050 +(*6)) a:b:c:d 63147,a 63225,b 63900,c 63855o,d !0,0,3,3 !4,0,3,3 !0,0,3,5 !0,0,5,3 !5,0,3,0 !4,0,5,3 (3150N +((*6))) + a:b:c:d 064288 ,a 164332L,b 264528,c 364542,d N!0,5,3,0 O!3,0,0,5 P!5,0,4,3 Q!3,5,0,0 R!0,3,5,0 S!5,0,3,4 B64733,5:>.564913,3:4000 64913,5  "driver2" p"driver"1 u 600X z""driver6"62990,2250 ('fabcddriver6 XQOJLEMJKJM 2n  IZ$ d n .   di'     'xM   qn rp w 5 v tuz vqn_K o n bWn i d_n w ' x X$  S sr|{‹ x{ "  n s ($- wx p r q_oPn~Fr<uonnFqorr quoqn  2  o{tK,—z?  yxu |   - # 1  # 4  +  -  #,):/8   4    .  /  " 1 8 -4zdriver2 {! 9200# ?ds=0:sy2=0:a101=0:p=0:ls2=0 62>,79O:31,0:0,-2:-14,-5:0,-10 :-3,0:0,10 :-14,5:0,2 10 ,29;6;"0 ";11 ,29;" ";12 ,30;" ";13 ,30;" ";14,30;" " rd=015 9026B#:9042R#:2000:brf=3:ds=ds-1:thr=5:n=0:mph=0:brf3=0:4010:sy2>4800sy2=4780:3053 a803053 2:10 ,23;"";0;9 ,23;"O";8,23;"O";7,23;"O":0:(a8=0a14=1)rd=14:8,23;"":0:10 ,23;"O" -3,14;":";3,17;":" 180,124|:15,0:0,-40(:-15,0:0,40(:185,84T:0,-24:5,0:0,24 cls91[20 18,21;"MAX125" &15,3;0;"AWS" 14,91[:-1,0:0,4:-8,0:0,-32 :8,0:0,12 :1,0 a34=1rd=1(pws=0(pws>0yds>100d))9 ,7;" ";10 ,7;" ";11 ,7;" ";8,7;" ";12 ,7;" ":1:17,7;ls:0:4600 1 2000 2"uv=(61000H+(mp*10 )) 3#uv1=(61001I+(mp*10 )) 4uv2=(mp*10 ) 5(mp=209s<10 )a3=1((61010R+uv2)>10 ƾ(61011S+uv2)=0ƾ(61009Q+uv2)=0)9000(# 6ma5=1((61009Q+uv2)=0ƾ(61010R+uv2)=5ƾ(61011S+uv2)=0)9100# 7(mp=209s=0)((uv>9 uv<195)((uv1>0uv1<10 )(uv1>0uv1=194)))(mp>339Smp<349]ƾ(59600+uv2)>0)4000 8uv2=3486 uv2=2091+uv2=2287uv2=2632H uv2=2801 uv2=3489 uv2=3802uv2=3813uv2=38313500 9((60999G+uv2)=0((61000H+uv2)>0ƾ(61000H+uv2)<5)ƾ(61001I+uv2)=0)a8=(61000H+uv2):a7=mp:a8=3cls=91[a8=0:a7=0 :2mp=209uv>194a8>03000 <pws=0((61024`+uv2)=0ƾ(61025a+uv2)=5ƾ(61026b+uv2)=0)pws=20+(5*((*8)+1)):1,0;" PWS (";pws;"mph) AT MP ";2.5 +(uv2/10 )," " =Quv2=3000 a44=1lsn=60<:a44=0:yds=502:90135# A{a33=1((61009Q+uv2)=10 ƾ(61010R+uv2)>10 ƾ(61011S+uv2)=0)a33=1:9000(# E7mph<017,11 ;mph;" ":79O F2mph<10 17,11 ;" ";mph;" " H=(mph10 ƺmph<100d)17,11 ;" ";mph K)mph100d17,11 ;mph O's60<s=s-60<:m=m+1 Q%10 >s3,18;"0";s R!s10 3,18;s T'm60<m=m-60<:h=h+1 U%m<10 3,15;"0";m V!m10 3,15;m W!h10 3,12 ;h X%h<10 3,12 ;"0";h Y s=s+2 Z]mph>ls+5mphls+10 c$="EXCEEDED LINE SPEED BY"+(mph-ls)+"MPH":8000@ ]Nmph>max+515,6;"EXCEEDING MAXIMUM SPEED ":a21=2 ^hmphmax+10 c$="EXCEEDED MAXIMUM SPEED BY "+(mph-ls)+" MPH":8000@ i@(s=2mp=209)rd=13600+(cls*40() j@(s=2mp=209)rd=14100+(cls*40() k0rd=15,16-(a$/2);a$ lrd=1rd=0 ncls91[7569 yth=5-thr zbr=5-brf {grad=0grad=1500 }fa50=1mph>515,6;" ":1,0;s$(xstops) ~\a50=1mph>151,0;" ":a50=0 *mph=mph+(th/((5-(cls/100d)))) 3mph=mph-(2*((br+1)))-(70F/grad) &mph0brf<5mph=0 grad=1500grad=0 =mph>20ph=mph/270:grad<0ph=ph/2 'mph>20ph.2~Lph=.2~L mph>20mph=mph-ph 9mph<-2c$="ROLLING BACK EXCESSIVELY":8000@ 464+ds:a$:g OgǺ(mp*10 )a40=mp:5,0;" " EgǺ(mp*10 )5,16-(a$/2);a$:ds=ds+1 ,3="k"thr=thr-1:4100+(cls*40() 63="o"thr=thr+1:4100+(cls*40() @3="a"brf=brf+1:3600+(cls*40() J3="q"brf=brf-1:3600+(cls*40() O="h"0 P="h"335O U((sy2>900sy2<1200cls=91[)(sy2>21004sy2<2400` )(sy2>3300 sy2<3600)(sy2>4500sy2<4800))Ʀ="p"awsb=1:15,3;"AWS" _wa8>0brf>0a70=1a70=0:awsb=1:15,3;"AWS " `6((sy2>1200sy2<1600@cls=91[)(sy2>2400` sy2<2800 )(sy2>3600sy2<3900<))awsb=0a70=019,1;" ";20,0;" ";21,0;"____":brf=0:a70=1:15,6;" EMERGENCY BRAKE ":3600+(cls*40() c~((sy2>1600@sy2<21004cls=91[)(sy2>2800 sy2<3300 )(sy2>4200hsy2<4500))awsb=0 hbrf<5th>0brf3=brf3+10 -(th+brf):brf3>100d15,6;" BRAKES OVERHEATING ":a71=1 jda71=1brf=5a71=0:brf3=0:15,6;" " l3brf3>200c$="BRAKES BURNT OUT":8000@ r 491 "BROCK",2164t "PRESTON STATION",2090* "LEAVING PRESTON",2093- "OXHEYS",21059 "CADLEY",2124L #"BARTON AND BROUGHTON",2138Z "MYERSCOUGH",2152h "BROCK",2164t "CLAUGHTON",2175 "GARSTANG",2185 +"BETWEEN GARSTANG AND SCORTON",2200 "SCORTON",2218 s$(xstops),2232 "BAY HORSE",2243 "GALGATE",2258 "OUBECK",2270 %"LANCASTER OLD JUNCTION",2287 "LANCASTER CASTLE",2299  "LEAVING LANCASTER",2303 '"MORECOMBE SOUTH JUNCTION",2318 "HEST BANK",2331 "BOLTON LE SANDS",2344( $"APPROACHING CARNFORTH",23564 "CARNFORTH",2362: ."CLIMBING TOWARDS BURTON & HOLME",2377I "BURTON AND HOLME",2407g "WHASSET",2422v "MILNTHORPE",2436 "HINCASTER JC",2454 )"CLIMBING TOWARDS OXENHOLME",2468 *"OXENHOLME-THE LAKE DISTRICT",2490  "LEAVING OXENHOLME",2493 #"CLIMBING TO GREYRIGG",2500 "HAY FELL",2526 "LAMBRIGG",2545 "MOSEDALL HALL",2555 "GREYRIGG",2561 "LOW GILL",2580 "LUNE GORGE",2595# "TEBAY",2620< !"CLIMBING SHAP FELL",2635K "SCOUT GREEN",2652\ &"CLIMBING TO SHAP SUMMIT",2665i !"SHAP SUMMIT 916 FT",2673q #"DESCENDING SHAP FELL",2680x "SHAP VILLAGE",2696 #"DESCENDING SHAP FELL",2711 "THRIMBY GRANGE",2731 #"DESCENDING SHAP FELL",2741 ""CLIFTON AND LOWTHER",2769 #"EDEN VALLEY JUNCTION",2778 ""APPROACHING PENRITH",2790 "EAMONT JUNCTION",2801 "PENRITH",2812 +"BETWEEN PENRITH AND PLUMPTON",2820 "PLUMPTON",2860, ."BETWEEN PLUMPTON AND CALTHWAITE",28739 "CALTHWAITE",2882B  %"DESCENDING TO CARLISLE",2897Q  "SOUTHWAITE",2917e  ,"FOLLOWING THE RIVER PETTERILL",2932t  "WREAY",2942~  ,"FOLLOWING THE RIVER PETTERILL",2957 "CARLISLE",2969 "UPPERBY BRIDGE",2978 '"CARLISLE CITADEL STATION",2990 "LEAVING CARLISLE",2995 "KINGMOOR",3011 "ROCKCLIFFE",3032 /"BETWEEN ROCKCLIFFE AND FLORISTON",3042 "FLORISTON",3051 ."APPROACHING THE SCOTTISH BORDER",3065 "SCOTLAND",3073 "GRETNA JUNCTION",3076 "QUINTINSHILL",3092 "SCOTLAND",3105! "KIRKPATRICK",31200 )"FOLLOWING THE RIVER KIRTLE",3135? "KIRTLEBRIDGE",3158V +"CLIMBING TOWARDS ECCLEFECHAN",3173e "ECCLEFECHAN",3192x  s$(xstops),3207 !"CASTLEMILK",3217 "/"BETWEEN CASTLEMILK AND LOCKERBIE",3232 #"LOCKERBIE",3248 $ "LEAVING LOCKERBIE",3258 %"ANNANDALE",3267 &"NETHERCLEUGH",3277 '"ANNANDALE",3290 ("DINWOODIE",3307 )"ANNANDALE",3322 *"WAMPHRAY",3335 +,"BETWEEN WAMPHRAY AND BEATTOCK",3350 ,"BEATTOCK",3387; -%"CLIMBING BEATTOCK BANK",3395C ."GRESKINE",3445u /*"CLIMBING TO BEATTOCK SUMMIT",3460 0%"BEATTOCK SUMMIT 1016FT",3496 1&"DESCENDING TO ELVANFOOT",3500 2"ELVANFOOT",3515 3("FOLLOWING THE RIVER CLYDE",3530 4"CRAWFORD",3543 5("FOLLOWING THE RIVER CLYDE",3555 6"ABINGTON",3568 7("FOLLOWING THE RIVER CLYDE",3582 8"LAMINGTON",3622& 9'"SKIRTING THE TINTO HILLS",36375 :"SYMINGTON",3659K ;"THANKERTON",3675[ <"LEGGATFOOT",3690j ="PETTINIAN",3708| >"CARSTAIRS JC",3720 ?"CARSTAIRS",3725 @-"BETWEEN CARSTAIRS AND CLEGHORN",3731 A"CLEGHORN",3753 B"LONGHILL",3764 C"CRAIGENHILL",3775 D"BRAIDWOOD",3799 E"CARLUKE",3810 F"CASTLEHILL",3819 G!"APPROACHING LAW JC",3820 H"LAW JUNCTION",3830 IS$(xstops),3838 J"WISHAW",3855 K"SHIELDMUIR",3862 L"FLEMINGTON",3873! M!"MOTHERWELL STATION",3884, N!"LEAVING MOTHERWELL",3887/ Os$(xstops),38979 P"DOUGLAS PARK",3907C Q"FALLSIDE",3918N R"UDDINGSTON",3929Y S"NEWTON",3947k T"CAMBUSLANG",3963{ U"RUTHERGLEN",3982 V"POLMADIE",3992 W"EGLINTON STREET",4003 X!"CROSSING THE CLYDE",4012 Y"GLASGOW CENTRAL",4010 Z"END OF THE LINE",4025 pcls91[18,18;ln;" MAX";max:136,40(:0,-10 :-18,0:0,10 :18,0:104h,20:-7,0:104h,17:-5,0:104h,14:-3,0:104h,11 :-7,0:104h,8:-3,0:104h,5:-5,0 cls*10 +200 x=137%  j:k:l 5j1000j-1000,k-1000:1150~  +l>0l2000j,k,l:1150~ j,k &l=2000cls*10 +300, $1000,1016,0,8,8,0,16,23,0,207,0,0,16,-23,0,8,-8,0 %1008,1024,0,239,0,0,29,36$,7,45-,36$,7,61=,36$,7,77M,36$,7 &99c,36$,13 ,1000,1000,0,32 ,0,0,12 ,8,0,480,0,0,12 ,-8,0,28,0,0,-3,24,2000 .1000,1016,0,8,8,0,16,23,0,207,0,0,16,-23,0,8,-8,0 /1008,1024,0,239,0,0,29,36$,7,45-,36$,7,68D,36$,13 099c,36$,13 ,1000,1000,0,32 ,0,0,12 ,8,0,480,0,0,12 ,-8,0,28,0,0,-3,24,2000 V1016,1047,0,127.5,0,0,0,-24,0,-128.5,0,0,0,24,0,24,41) W4,24,31,4,36$,41),4,480,41),4,99c,35#,13 ,120x,41),4,1055,1031,0,25,0,0,0,9 ,0,-25,0,0,0,-9 ,0 X1016,1039,0,-8,0,0,-8,-8,0,1144x,1039,0,103g,0,0,8,-8,0,1000,1000,0,32 ,0,0,16,16,0,524,0 Y'0,0,-16,0,524,0,0,0,16,0,71G,0,0,16,-16,0,16,0,0,1132l,1045,0,8,0,0,0,-20,0,-8,0,0,0,20,2000 ~x 70:62>,23:22,0:0 M1:62>,23:44,,0:0:rd=110  1900l s1:96`,480:8,0:96`,22:8,0:0:17,7;"" 1280:x=19 apt U34",38&,42*,46.,68D,64@,124|,116t,120x  Tapt,29:4,0:0,-4:-4,0:0,3 x:rd=110 l 1950:x=146. qpos:ls1:ls2 v%cls=91[(61000H+pos),ls2 w6cls=91[ls2>0(60999G+pos),10 xcls=91[1950 {(61000H+pos),ls1 2114B,0,125},2275,75K,0,2285,85U,110n,2335 ,0,125},2483 ,90Z,100d,2494 ,105i,115s,2511 ,90Z,0 2523 ,85U,110n,2538 ,95_,0,2564 ,80P,90Z,2581 ,90Z,105i,2592 ,100d,120x,26124 ,105i,125},2671o ,90Z,95_ 2687 ,100d,115s,2708 ,95_,100d,2723 ,80P,0,2746 ,110n,125},2796 ,95_,0,2806 ,75K,0,2802 ,0,110n *2816 ,110n,125},2922j ,105i,0,2935w ,95_,0,2946 ,105i,0,3030 ,0,125},3114* ,95_,105i,31255 ,100d,125},3161Y ,95_,105i,3200 ,100d,115s,3247 ,110n,0 *3258 ,0,125},3360 ,90Z,105i,3438n ,95_,0,3484 ,90Z,95_,3495 ,95_,0,3515 ,90Z,105i,3576 ,105i,115s,3612,90Z,105i,3625),100d,110n,3686f,110n,125} 3710~,90Z,105i,3755,95_,0,3772,90Z,0,3860,95_,100d,3880(,80P,90Z,3901=,90Z,0 x  9350$ 0:6 ]mp=mp+(mph/1850:):10 ,29;mp:11 ,29;".";((mp-mp)*10 ) 0:7: ` Ohs=0uv>195hs=uv-195:ms=uv1-195:a7=mp:a8=1 Ja8=4cls91[sy2=(1760*(mp-a7))+1200:3021 %a8=3a16=1:3020 a8=43020 1uv=0a8=0sy2=-1:3042 $rd=0sy2=1760*(mp-a7) e(4800-sy2304800-sy20mph=0)a101=1a101=1:3200 ц(a8=4ƥ>.9ffffsy2>21004)(sy2<3200 a8=4)3401I :awsb=0:sy2=-1:a8=0:3399G ((4800-sy2>3600)cls=91[):6:1:7,23;"";9 ,23;"":0:;0;8,23;"O";10 ,23;"O";12 ,25;"in";13 ,25;(1200-sy2);" ";14,25;"yds" (4800-sy2>2400` )(4800-sy2<3600):6:7,23;"";9 ,23;"";0;8,23;"O";10 ,23;"O";12 ,25;"in";13 ,25;(2400` -sy2);" ";14,25;"yds" Grd=10:12 ,25;"in";14,25;"yds" (4800-sy2>1200)(4800-sy2<2400` )6:9 ,23;"";0;7,23;"O";8,23;"O";10 ,23;"O";13 ,25;(3600-sy2);" " ((sy2>900sy2<1200cls=91[)(sy2>21004sy2<2400` )(sy2>3300 sy2<3600)(sy2>4500sy2<4750))awsb=015,3;1;6;0;"AWS";7:.1}L,12 :.1}L,12 (4800-sy2<1200)(4800-sy20)2:10 ,23;"";0;9 ,23;"O";8,23;"O";7,23;"O":0:mp>21013 ,25;(4800-sy2);" " 2a8=03401I :a8=0:awsb=0 hss=hs:mss=ms :4800-sy2<0c$="OVER RUN LIGHTS":8000@ y4800-sy2>30mph=0mp209a100=1:15,6;0;" ADVANCE TO SIGNAL! " pa100=1mph>50:15,0;" AWS ":a100=0  d(h>hs(hhsmms-2)):mss=m+2:hss=h:mss60<mss=mss-60<:hss=hss+1 0:0: a16=14800-sy230mph=0m9=m9+1:m9>20ƥ>.9ffffm9=0:15,6;" ROAD AHEAD CLEAR ":3401I :awsb=0:a50=1:a101=0:a8=0:a16=0: na16=14800-sy230mph=015,0;" AWS AWAITING CLEAR ": 5a101=1mp401.25H100d:8000@ hs>0a14=015,0;" AWS AWAITING CLEAR ":ms<10 1,5;"DUE TO DEPART ";hs;":0";ms;":00":3216 Khs>0a14=01,5;"DUE TO DEPART ";hs;":";ms;":00" Yhs>0a101=1ƺmph>2c$="MOVING WHILE PASSENGERS BOARDING":8000@ *mss60<mss=0:hss=h+1  a14=0(hhssmmss)0:awsb=0:3401I :15,6;0;"AWAITING GUARDS SIGNAL ":a14=1 Ba14=115,6;0;"AWAITING GUARDS SIGNAL" a14=1ƥ>.9ffff15,6;0;"GUARDS BELL-DEPART. ":.25~,9 :.25~,9 :.25~,9 :a8=0:sy2=-1:a14=0:hs=0:a50=1:a101=0:xstops=xstops+1 G 0 H I4:8,23;"":0:7,23;"O";9 ,23;"O";10 ,23;"O";12 ,25;" ";13 ,25;" ";14,25;" ": 3489 ,-99c,3831,-99c,3813,-99c,2801 ,191,2287,-98b,3802,-98b,2632H ,75K,2091+,101e,3486 ,835C @3500 :x=19 :f:g:uv2=fgrad=g:4010 x:4010 (uv=10 uv1=1grad=0 5grad1=uv:grad2=uv1:grad2=194grad2=0 ^(grad110 grad1<100d)(grad20grad2<10 )grad=(grad1*10 )+grad2 7grad1=10 grad2=1grad=0:1:32 ,72H:0,5:32 ,94^:0,-5:0:10 ,2;" ";11 ,1;" L ";12 ,2;" ":14,91[:18,0:0,-2:0,-14:-17,0:4500 8grad1>100dgrad=(100d-grad1)*10 -grad2 4mp>339Smp<349]grad=(59600+uv2) grad>010 ,2;"";12 ,2;"":32 ,94^:0,-16:1:32 ,72H:0,5:0 grad<04100 Egrad<100dgrad>011 ,1;grad;" ":4500 &grad>011 ,1;grad  4500 grad<010 ,2;"";12 ,2;"":32 ,88X:0,-16:1:32 ,94^:0,-5:0 Ggrad0grad>-100d11 ,1;-grad;" ":4500 'grad011 ,1;-grad a20=0: 65A,85U:0,12 :6,0:0,-12 :65A,91[:6,0:74J,85U:0,12 :6,0:0,-6:-6,0:82R,97a:7,0:85U,97a:0,-12 n58:+18,92\-18:0,-5:61=+18,92\-18:0,-5 c59;,91[:18,18:18,-18:-18,-18:-18,18  0:6:6: 13,1;" LOCODRIVER 1987 A.GREENUP" )5,4;"PLEASE SELECT YOUR TRAIN";8,5;t$(1);10 ,5;t$(2);13 ,5;t$(3);15,5;t$(4);8,2;"1.";10 ,2;"2.";13 ,2;"3.";15,2;"4.";11 ,7;"(10:35 EX MANCHESTER)" &19,8;"THEN PRESS ENTER" <stops:502::stops>4stops<16001q #stops=2l$="n":6069 8,6;"ARE YOU CONTINUING A";10 ,7;"DRIVE FROM SIDE 1?";16,3;"TYPE Y FOR YES OR N FOR NO";18,8;"THEN PRESS ENTER":l$:15 ;(l$="y"a112=1)(l$="Y"a112=1):6075 l$="n"l$="N":6069 l$="y"l$="Y":6070  6062  6500d l$"n"7,10 ;"PLEASE TYPE";9 ,3;"THE NUMBER OF YOUR TRACTION";11 ,8;"THEN PRESS ENTER":ln::cls=(ln/1000) ln=3700014 (ln87001)ln87035))(ln86101(*ln86103(+)(ln86204(^ln86254(w)(ln86401(ln86431(π)6075  6500d cls=370rmax=125} cls=86Vmax=100d cls=87Wmax=110n )stops=2l$="n"l$="N"6099 5,10 ;"PLEASE TYPE";7,2;"THE HOUR AT WHICH YOU ARRIVED";9 ,11 ;"AT PRESTON";11 ,8;"THEN PRESS ENTER" %h:h>24h<06080 Ę5,10 ;"PLEASE TYPE";7,0;"THE MINUTE AT WHICH YOU ARRIVED";9 ,11 ;"AT PRESTON";11 ,8;"THEN PRESS ENTER" %m:m>59;m<06084 :2,2;"IS THIS INFORMATION CORRECT?";7,5;t$(stops);10 ,12 ;ln;13 ,6;"ARRIVED PRESON AT ";h;":";m;18,2;"TYPE Y FOR YES OR N FOR NO."  ="n"Ŧ="N"6001q ="y"Ŧ="Y"6099  6090 7:7: <cls=91[cls=370r(6380+stops):6305 (6350+stops) s$(13 ,32 ) x=613 :p p=99c6375 m$:s$(x)=t$(p+4)+m$ j1,"10:27",2,"10:43",3,"11:10",4,"11:33",6,"12:47",7,"13:05",99c Ё1,"11:33",2,"11:50",3,"12:16",4,"12:40",8,"13:01",5,"13:43",6,"14:02",7,"14:24" J1,"13:17",2,"13:33",4,"14:18",7,"15:44",99c j1,"18:39",2,"18:56",3,"19:22",4,"19:45",6,"20:54",7,"21:17",99c x cls=370rcls=91[ j1,"10:12",2,"10:26",3,"10:50",4,"11:04",6,"12:04",7,"12:21",99c 1,"11:30",2,"11:44",3,"12:08",4,"12:22",8,"12:45",5,"13:17",6,"13:32",7,"13:49",99c J1,"12:54",2,"13:08",4,"13:43",7,"15:00",99c j1,"18:12",2,"18:26",3,"18:50",4,"19:04",6,"20:04",7,"20:21",99c <cls=370rcls=91[(6395+stops):6391 (6391+stops) dx=14:hs:ms:mss=ms:hss=hs:l$="n"l$="N"stops=2h=hs:m=ms-1:l$="n" 10 ,10 11 ,16 13 ,2 18,23 9 ,58: 11 ,16 12 ,40( 17,58:  d(h>hs(hhsmms-2)):mss=m+1:hss=h:mss60<mss=mss-60<:hss=hss+1 stops=4stops=364288 ,0:64332L,0:64528,0:64542,0:stops=364733,0:64913,0 Fcls=91[cls=370r64733,0:64913,0 2 1000 da112=16510n e5,3;"PLEASE CHOOSE YOUR TRACTION";7,13 ;"370001";9 ,11 ;"87001-035";11 ,11 ;"86101-103";13 ,11 ;"86204-231";15,11 ;"86401-431";17,8;"THEN PRESS ENTER":ln:cls=(ln/1000):  6071 brf0brf=0 brf5brf=5 Rbrf<51:8,20:17,(-3*brf)-3:0 Rbrf>01:8,20:17,(-3*brf)+3:0 )8,20:17,-3*brf   7040 Mbrf0brf=0 Rbrf5brf=5 _brf>01:38&-((3*brf)-3),20-((brf*3)-3):5,0:38&-((3*brf)-4),20-((3*brf)-4):5,0:0 `brf<51:38&-((3*brf)+2),20-((brf*3)+2):5,0:38&-((3*brf)+3),20-((3*brf)+3):5,0:0 a39'-(3*brf),20-(brf*3):4,0:39'-(3*brf),20-((3*brf)-1):4,0 b(40(,20:-16,-16 c(41),20:-16,-16 f ythr0thr=0 ~thr5thr=5 _thr51:125},20:-17,(-3*(5-thr))-3:0 _thr01:125},20:-17,(-3*(5-thr))+3:0 6125},20:-17,-3*(5-thr)  thrthrtn4=0 thr=5n=0 ;thr=3n4=0n>0n=n-2:n4=1 $thr=4n>0n=n-2 1thr=1n4=0n=n+2:n4=1 thr=0n=n+2 n38&n=38& Sthrt=thr:th=n/7.6s333:mph<20n>0th=th+((15-mph)/15) ,n>9 17,15;n:122z %17,15;"0";n:122z  7540t ithr0thr=0 nthr5thr=5 s'107k,20:0,-16 xthr>01:105i,5+((thr*3)-3):4,0:105i,5+((3*thr)-4):4,0:0 }thr<51:105i,5+((3*thr)+3):4,0:105i,5+((3*thr)+2):4,0:0 '107k,20:0,-16 n105i,5+(thr*3):4,0:105i,5+((3*thr)-1):4,0  J6:6: O@mp401.3Hffmph=08,9 ;"GLASGOW CENTRAL" Pmp401.3Hffmph=012 ,5;"DUE TO ARRIVE AT ";hs;":";ms;":00";14,3;"ACTUALY ARRIVED AT ";h;":";m;":";s:8020T Q#8,9 ;"YOU ARE FIRED!" R'14,16-((c$)/2);c$ TR20,5;"Type Y for another try";21,8;"or N to end game." Y ^ ="n" c="y"rd=1:8045m h 8025Y m70:7:7::a112=1:1000 #)Dmp209a3=0lsn=(61010R+uv2):a3=1:a4=mp #+'a33=110 ,12 ;"APT" #3a3=1yds=1760-((mp-a4)*1760):11 ,12 ;lsn;13 ,12 ;yds;" ";12 ,12 ;"in";14,12 ;"yds" #5yds<100dyds010 ,12 ;" ";11 ,12 ;" ";12 ,12 ;" ";13 ,12 ;" ";14,12 ;" ":ls=lsn:a3=0 #7yds<100dyds0a33+a3429 ,7;" ";10 ,7;" ";11 ,7;" ";8,7;" " #8yds<100da33=1a34112 ,7;" ":a3=0:17,7;1;ls;0:a34=1:a33=0:4600 #;va33=1yds<100dyds0a33=0:17,7;"";17,7;1;ls;0: #<=yds<100dyds0pws=0a34=a33:a33=0 #>Ccls=91[yds<100dpws=017,7;"" #?pws>09026B# #@yds<100dyds0ƾ(60999G+(mp*10 ))=012 ,7;" ":76L,72H:-14,5:0,2:31,0:0,-2:-14,-5 #Blsf=(ls/10 ) #D>ls0lss=ls/10 -(ls/10 ):lss=lss*10 #F(ls100dyds<100dlss=0)(rd=1a34=0lss=0ls100d)(a34=1pws>0yds<100dlss=0)79O,102f:3,3:10 ,0:3,-3:0,-18:-3,-3:-10 ,0:-3,3:0,18:82R,101e:1,1:8,0:1,-1:0,-16:-1,-1:-8,0:-1,1:0,16:9040P# #Hd(lss=5yds<100d)(rd=1a34=0lss=5)(a34=1pws>0yds<100dlss=5)79O,105i:16,0:0,-3:-13 ,0:0,-7:13 ,0:0,-14:-16,0:0,3:13 ,0:0,8:-13 ,0:0,13 #Kls105i9040P# #Myds<100d64@,102f:3,3:8,0:3,-3:0,-18:-3,-3:-8,0:-3,3:0,18:59;,105i:3,0:0,-24:-3,0:0,24:67C,101e:1,1:6,0:1,-1:0,-16:-1,-1:-6,0:-1,1:0,16: #P6mp=209(yds<100dyds0)9042R# #Q #R9050Z#+lsf #Sx=1502 #T ls1:ls2 #Uls1=99c #V;ls1>10001000-ls1,1000-ls2:9048X# #W ls1,ls2 #Xx #[d1061%,1105Q,3,0,0,-24,-3,0,0,24,99c #\1061%,1105Q,16,0,0,-13 ,-13 ,0,0,-8,13 ,0,0,-3,-16,0,0,14,13 ,0,0,7,-13 ,0,0,3,99c #]1061%,1105Q,16,0,0,-24,-16,0,0,3,13 ,0,0,8,-10 ,0,0,3,10 ,0,0,7,-13 ,0,0,3,99c #^ 1061%,1105Q,3,0,0,-10 ,3,0,0,5,3,0,0,-5,7,0,0,-3,-7,0,0,-11 ,-3,0,0,11 ,-6,0,0,13 ,99c #_1061%,1105Q,16,0,0,-3,-13 ,0,0,-7,13 ,0,0,-14,-16,0,0,3,13 ,0,0,8,-13 ,0,0,13 ,99c #`&1061%,1105Q,16,0,0,-6,-3,0,0,3,-10 ,0,0,-7,13 ,0,0,-14,-16,0,0,24,1064(,1092D,10 ,0,0,-8,-10 ,0,0,8,99c #a1061%,1105Q,16,0,0,-24,-3,0,0,21,-13 ,0,0,3,99c #bE1063',1100L,1,1,8,0,1,-1,0,-4,-1,-1,-8,0,-1,1,0,4,1063',1089A,1,1,8,0,1,-1,0,-4,-1,-1,-8,0,-1,1,0,4,1063',1105Q,10 ,0,3,-3,0,-6,-3,-3,3,-3,0,-6,-3,-3,-10 ,0,-3,3,0,6,3,3,-3,3,0,6,3,3,99c #c1061%,1105Q,16,0,0,-24,-3,0,0,11 ,-13 ,0,0,13 ,1064(,1102N,10 ,0,0,-7,-10 ,0,0,7,99c #d1083;,1100L,1,1,6,0,1,-1,0,-16,-1,-1,-6,0,-1,1,0,16,10808,1101M,3,3,8,0,3,-3,0,-18,-3,-3,-8,0,-3,3,0,18,1064(,1101M,3,3,8,0,3,-3,0,-18,-3,-3,-8,0,-3,3,0,18,1059#,1104P,3,0,0,-24,-3,0,0,24,1067+,1100L,1,1,6,0,1,-1,0,-16,-1,-1,-6,0,-1,1,0,16,99c #e1060$,1105Q,3,0,0,-24,-3,0,0,24,1070.,1105Q,3,0,0,-24,-3,0,0,24,99c #f1060$,1105Q,3,0,0,-24,-3,0,0,24,1070.,1105Q,3,0,0,-24,-3,0,0,24,99c #i #a5=0a4=mp:a5=1:ls3=ls:a9=0:1,0;" ":6:7,23;"";9 ,23;"":0:8,23;"O" #yds=1760-((mp-a4)*1760):yds>100d10 ,12 ;"PWS";11 ,12 ;pws;13 ,12 ;yds;" ";12 ,12 ;"in";14,12 ;"yds" #Iyds<-1760a5=0:a9=0:ls=ls3:pws=0:sy2=-1:12 ,7;" ":62>,79O:32 ,0:0,-2:-14,-5:62>,79O:0,-2:14,-5:0:7,23;"O";9 ,23;"O":4:8,23;"":0 #(a9=0a5=0)(yds<-1760(yds<100dyds0))a9=1:10 ,12 ;" ";11 ,12 ;" ";12 ,12 ;" ";13 ,12 ;" ";14,12 ;" ";9 ,7;" ";10 ,7;" ";11 ,7;" ";8,7;" ":yds<-1760a34=112 ,7;" ":1:17,7;ls:0:4600 #yds<-17609026B# #Gyds<100da5=112 ,7;5;" PWS ":7 #/yds<100dyds>0ls=pws:9020<# # $T 6000p &C5x2=0:cls=91[cls=370rx2=64@ & 9970& &Ox=((stops*16)+65085=+x2)((stops*16)+65099K+x2)2 &ds:sh=x:sm=(x+1) &ds=ds-27 &Wsh=0sm=0(61000H+ds),0:(61001I+ds),0:9975& &>(61000H+ds),195+sh:(61001I+ds),195+sm &Y2299,2490 ,2813 ,2991 ,3248 ,3725,3884,,4013 &x ' 2 nhr11= 1S47 07:30 EUSTON-GLASGOW 1S49 11:16 PRESTON-GLASGOW1S57 THE ROYAL SCOT LTD 1S83 15:30 EUSTON-GLASGOW DUE LANCASTER (MP230) AT DUE OXENHOLME (MP249) AT DUE PENRITH (MP281) AT DUE CARLISLE (MP299) AT DUE CARSTAIRS (MP372.5) ATDUE MOTHERWELL (MP388) AT DUE GLASGOW (MP401.3) AT DUE LOCKERBIE (MP324.8) ATtop4 l[a}p (s(s h m'jklo(#@NGypra103314ss 1742iwss%s2hd10w5rrf7sstopvv*scradradg-ds}pxrfCOVER RUN LIGHTSӥ DUE LANCASTER (MP230) AT 12:54 DUE OXENHOLME (MP249) AT 13:08 DUE CARLISLE (MP299) AT 13:43 DUE GLASGOW (MP401.3) AT 15:00 M15:00LnALEAVING PRESTON