ZXTape! 2u Mid-Day Scot, TheDee-Kay Systems R. Pointon1986English Simulation?NoneOriginalTZXed by Guy Bearman+mds [ The Mid-day Scot Copyright  DKS 1986  53199 :7:7:7 18,0 # "mdss" (18,0 -"mdsa" 65000 218,0 7"mdsb" 53200 <18,0  A "mdsc" :)mdss @d2 `   0       0 ` 0B~B>xx<<<<@|BBB>B<B@fDDBD@BB888x<@88D888x8BBbbbB~|ZBBB(<@B0@D<0DD@DDDDDBBRRR@B@BB>B~@B8DxxB<<<8x 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<<<888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888988888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888883)mdsa  <!@!X!@!X*K\*=[~( w# #V#"=[ P P P P P 3/MMXXL8Wq !v ><<<<<<<<<<<<xDBBDx0mdsb  v`Crewe Station158.060560098012020!182.23158.3Warrington Crewe North Junction158.811Crewe Coal Yard159.5190Approaching Coppenhall16111Coppenhall162.411Minshull Vernon164.2-4001Approaching Winsford165.2511Winsford166.611Winsford Junction168.411Approaching Hartford168.901 169.63601Hartford170.501Hartford Junction171.25-4401@o171.25171.5Approaching Acton Bridge172.2501Acton Bridge173.25-3301Approaching Weaver Junction173.7511*60174.25Weaver Junction174.75160 175.25190Birdswood176.8-1801Preston Brook177.25-5671Norton178.411/178.9178.8Moore178.9090^Moore Water Troughs179.1611End of Moore Water Troughs179.211 179.91351Acton Grange180.511 180.5-1601*70181Walton New Junction181.4-13570*60181.65@s181.65181.9`Warrington Bank Quay181.90595000021-46060(182.23Next stop Wigan1!193.99182.5Wigan10080593Leaving Warrington182.94001Dallam18401Winwick Quay185.46391Winwick Junction186.21321Approaching Golbourne187.761561Golbourne Junction187.764731@o187.76188.75Golbourne190.5-4171Bamfurlong190.501&1911%1192Springs Branch Junction192.47051*50192.9Approaching Wigan193.41150@s193.41193.7`Wigan North Western193.7061200002111(193.99Next stop Preston1!209.12194.1Preston10210610Leaving Wigan194.5611 195.810490Boars Head196.93661Standish198.12421 198.41191Coppull Hall199.4-2451Coppull200.2-2461@o200.2200.2 201.9-1141Balshaw Lane203.401Euxton Junction203.8-4321Approaching Leyland204.7511Leyland206.2-3141Farington Junction207.4-1101Farington Curve Junction208-2561Approaching Preston2083971*20208.54 208.5424020@s208.54208.7`Preston208.7063700002111(209.12Next stop Lancaster1!230.13209.44Lancaster10420635Leaving Preston209.811Greenbank Sidings210.150390Oxheys212.211Broughton213.501Barton214.511Approaching Brock216-6441Brock216.401/216.9216.9^Brock Water Troughs217.1511End of Brock Water Troughs21811Garstang21911Grizedale221.411@o221.4221.4Scorton22211Forton22411&2242Bay Horse224.511%2225.5Calgate226.511Oubeck2287361*60228Approaching Lancaster228.511Lancaster Old229.55160@s229.55229.55 229.94-981`Lancaster229.94066400002101(230.13Next stop Oxenholme1!249.13230.2Oxenholme10640662Leaving Lancaster231.5-4001Morecambe South Junction232-46990Approaching Hest Bank232.811Hest Bank23301/233.5233.5^Hest Bank Water Troughs233.7511End of Hest Bank Water Troughs234.111Bolton-Le-Sands235.64601@o235.6235.6Approaching Carnforth236-3691Carnforth23711 238.261341Yealand239.511 240.5-2931#Oxenholme240.5Burton and Holme24201Approaching Grayrigg Bank242.811*80243.3Milnthorpe24417380Climbing to Oxenholme245.411Hincaster Junction246.51931*70246.5Climbing to Oxenholme2473921 248.5511170@s248.55248.9`Oxenholme248.906930000211781(249.13Next stop Carlisle2!267.3249.6Shap Summit10850691Peat Lane250.81041 251.61241Hay Fell2541311Lambrigg255.641061*60256.14Grayrigg Summit256.14-20460$256.4Approaching Lowgill25711 257.67771#Tebay257.6Low Gill25811Approaching Dillicar258.711 260.2-42580Dillicar260.6301/261.13261.13^Dillicar Water Troughs261.3811End of Dillicar Water Troughs261.411Approaching Tebay261.81461@b261.8262Tebay26211)263.211020718Start of Shap Incline2657590@o265265Scout Green266.211Shap Wells266.611Approaching Shap Summit267.311!280.5267.3Penrith11120730Shap Summit267.301$267.7*80268.2Approaching Shap Station269.3-10680Shap Station271.2-1421Leaving Shap Station271.2-1421Harrison's Sidings271.5-1251*60272Appoaching Thrimby273160Thrimby Grange27411Strickland27511 276190Clifton and Lowther277.211*70277.7Eden Valley Junction278.4170Approaching Penrith279.101 279.5-1931@o279.5279.6*60280.1Eamont Junction280.519160!299.17280.5Carlisle11250745Penrith281.8-6161Leaving Penrith282.6090Approaching Plumpton283.45391 285.2-1861 285.701Plumpton287.111Approaching Calthwaite288-1141Calthwaite289.5-1721Approaching Southwaite291.5-2281Southwaite292.811Approaching Wreay293.3-1841*70293.8Wreay294.6170 295.3-13190Brisco296.511Approaching Upperby297.511Upperby Bridge Junction298.1711Upperby298.2601*20298.57@c298.57298.76Approaching Carlisle298.79-11020 298.9201Carlisle Station299.1511)299.1511430763++9999,mdsc qokqThe The Midday Scot Copyright  1986 DKS Written By R.Pointon Thanks to L.P.D.S  Version 5.5  53199::1 $:240:2330 :190 ,740:1250:o>130 ,780 :1290 :o>130 830>:13302 890z:1390n o120 o10 (60<:a$="y"a$="Y" 2 7 procend < r=gd-((pt+30)/60<):260:8,0;" ";6,2;"Arrived at Carlisle, waiting";7,2;"for engine to be uncoupled." Az=pt Fkfpt=pt:19,16;:2190:x=1150:x:pt=pt+1:pt<(z+20)70F K1s=70F-(sy/10 ):s<0s=0 PYs=s+((15+(63E4/(cv*e*0.01z# =)))-(cu/141.11 ()):r<0120x Z'l=10 -(r):l<0l=0 d:s=s+l::6,8;"END OF SIMULATION":100d n:2,8;"INSPECTORS REPORT";6,7;t$''n$(5)'" + ";nc;" coaches"''"Drivers rated performance ";(s);"%"'''"Coal consumption ";(cu/141.11 ();" lbs/mile"'"of ";v$;" grade coal." r&"Do you want another run(Y or N)";a$ s: xe<95_r=r+1 cv<13E32r=r+1 &pw1=1pw2=1r=r+2 q>1r=r+1 %ent=0tr=0r=r+1 r>0r=0  Procscreen 7:0:0 ?:1;7;0,(16-((t$)/2));t$: 0;7;4,0;"Gradient :":620l:1,7;"Line Speed : ";sp;" mph":2,0;"Location :";4;3,(16-((l$)/2));l$:2,15;"Mile Post :";(d):5,0;"Comments:";c$ =1;7;10 ,9 ;" Engine Status ":11 ,0;"Speed :":3092 :11 ,14;"Boiler Pres.: ";bp:12 ,0;"Regul. :":1190:12 ,14;"Firing Rate :":1210:13 ,0;"Cut Off:":1200:13 ,14;"Water Scoop :":1220 ҿ14,0;"Brake :":1160:14,14;"Tender water: ";(t*2.5E-2{L);"%":15,2;"Engine in ";m$;" condition.":16,0;"Status indicators :" f19,9 ;"Time : ";:fpt=pt:2190:6;20,(15-((n$)/2));n$: Procinit u$(1,32 ):l(11 ):e$(8,27):r$(10 ,4):svo=0:dam=0:ww=0:cu=0:w=0:mm=0:nd=158.06\):g=0:sp=20:o=0:x=111 :l(x):x:x=19 :r$(x):x d=158.06\):od=158 vv=0:fmt=0:qs=0:sd=0:enr=0:pw1=0:pw2=0:ii=0:ac=0:di=0:den=0:air=0:sfs=0:sts=0:sig=0:rss=0 Gfil=0:rlb=0:fmr=0:fmg=0:fme=0:fmv=0:pws=0:ti=1:d$="Crewe":l$=d$+" Station":den=0:dt=158.06\):as=0:rtm=0:dtw=0:whs=0:owt=0:lbp=0:sy=0:lbw=0:bl=0:sv=0:tr=0:pw1=0:pw2=0 rot=0:bdo=0:btb=0:bot=0:pub=0:23357=[,208:23358>[,207:ov=-0.1}L:bc=1:fls=0  k6,0;" ";7,0;" ": , Procupdate 6Ml$=u$(1)(165100L):nd=u$(1)(165100L) @l$(1)="*"650: Jl$(1)="!"530: Tl$(1)="@"690: Yl$="$"4200h: ^l$(1)="/"540: c l$(1)="#"4000: hl$="&"500: rl$(1)="%"470: |l$=")"550&: l$="("3150N : l$(1)="`"l$=l$(2):z$=u$(1)(165100L):sz=u$(1)(165100L):zz=u$(1)(165100L):tr=zzzz=2660 ul$(1)="^"l$=l$(2):sd=d:owt=1:dtw=0:8,2;" " l$(1)="+"o=1: tg=u$(1)(165100L):tsp=u$(1)(165100L):l$" "3,0;" ";4;3,(16-((l$)/2));l$ rtsp1sp=tsp:1,20;sp;" ":sp=asas=0:di=1:260:rtm=03170b tg1g=tg:620l   procpws @(pw1=1l$(2)="1"pw2=1l$(2)="2")  tp=sp:l$(2)="1"sp=p1 l$(2)="2"sp=p2 sd=d:sm=0.25~+((*3)*0.25~):pws=1:260:5,9 ;c$;6,9 ;"Permanent Way Slack";7,0;" Speed limit ";sp;" mph ";sm;" miles":  procpwarn Xs=u$(1)(165100L):(pw1=1s=1pw2=1s=2)  l$="*":s=1l$=l$+(p1) s=2l$=l$+(p2)  650:  procnewd {fr=dt:dt=(l$(2)):f$=d$:d$=u$(1)(165100L):di=1:rtm=0:550&:den=1:  procwwt dtw=1:8,2;"Distance to troughs 880 yards":puw=0:nts=0:tef=0:eot=0:sd=(l$(2)): ! procrun &0k$=u$(1)(165100L):k$=" " 0Rrtm=1:ii=pt:mm=((pt+30)/60<):tr=1gd=(k$(5)) 5 tr=0gd=(k$(4)) 7rot=0:1 :M(gd-mm)=05,9 ;"Running on time";:0:" ": D3(gd-mm)>1ƽ(gd-mm)<10 k$="minutes " I!(gd-mm)=1k$="minute " K (gd-mm)>9 k$=" mins " N (gd-mm)<0k$=k$+"late " S (gd-mm)>0k$=k$+"early" X/(gd-mm)>5sy=sy+10 :rot=1 b85,9 ;"Running ";(gd-mm);" ";k$:0: g Procgrad l0g=04,12 ;"Level ": vg<0g$="Down" x g>0g$="Up " '4,12 ;"1 in ";g;" ";g$:  procwarn 260:.2~L,9 :1:5,9 ;"Advance Warning";:0:" ";6,0;"Line speed reduction to ";l$(2);" mph";7,8;"at milepost ";((d+0.5)*10 )/10 :as=(l$(2)): procst sig=1rss=1: tr=1z=(z$(4)) tr=0z=(z$(4)) sts=1:pbt=0:agu=0:dwr=0:bko=0:260:gd=10 +(*40():pt((z-sz)*60<)ss=(*30): +ss=(30*)-(pt-((z-sz)*60<)):  procsig sts=0:sgc=0:sig=0:rss=0:nsy=0:sta=0:nsr=0:air=0:sfs=0:sic=0:sir=0:rip=0:sos=0:stc=0:sd=(l$(3)):l$(2)="@c"sta=1:sig=1: :l$(2)="@s"tr=1sta=1:sig=1: dl$(2)="@b"btb=1bot=0l$(2)="@s"bot=0btb=1sig=1: qs=2 ˋrr=:rr>0rr(0.2~L+(0.2~L*rot))sig=1:qs=qs+1:rr=:rr>(0.5+(0.2~L*rot))rr1stc=1  Procal r=0psa=0 Ar0psa=(bp*0.5)*(1+(0.125}*r))-5 fd=(f*600X)*0.024{D:x=(5+(c*5))*0.01z# =:s=r*x*0.125}:fdffff=((((0.95s333-(4*ti*0.05|L))-(s*0.1}L))*ff)+(((0.05|L+(4*ti*0.05|L))+(s*0.1}L))*fd)) fd0.26Rm=m-(0.05|L*ti*4) 2m<1r0m=m+(0.05|L*ti*4) spd=((k1*ff)/(1+(85E-4z C*ff)))*m:cu=cu+(((ff*41.25%)*2.78E-4uD)*4*ti):ws=((1.05fff*spd)*2.78E-5qi4 )*ti*4:ww=ww+ws:t=t-ws:v=0psa=0sc=1000 [(psa=0v=0)sc=((p*v*x*psa*0.001wn)-(v*200)+8000@)*0.9ffff  3000 :  ~sc>36000lbw=0sv=01;2;18,16;"Low boiler water":lbw=1:sy=sy+100d Psc<36000lbw=118,16;" ":lbw=0 em0.26Rbl=0sv=0dam=05;17,10 ;"Blower on":bl=1 fm>0.26Rbl=1sv=1r=0dam=017,10 ;" ":bl=0  Y(spd-sc)<0sv=1svo=018,19;" ":sv=0 "B(spd-sc)<0sv=1svo=1sv=0:svo=0 %sv=0ddtt=0 &:sv=1ddtt<60<f=0r=03100 (^dam=1f0r017,10 ;" ":dam=0:ddtt=0 )tsv=1dam=1r0f017,10 ;" ":sv=0:svo=0:ddtt=0 *,sc<36000q=1E-7iV:mb=1E7 /4sc36000mb=mb*36000/sc:q=1/mb 49sv=0bp=bp*(1+((spd-sc)*q*ti*4)) 93000 : >pbppbmbp=pbm:sv=05;18,19;"Valves Lifted":sv=1 M?((bp)-obp)111 ,28;(bp);" ":obp=(bp) Pd((t*2.5E-2{L)-owp)114,28;(t*2.5E-2{L);"% ":owp=(t*2.5E-2{L) R te=((psa/(pbm-5))*((aa*x)-(bb*v)+(v*v*ee)+cc))*e*0.01z# =:temtwhs=116,20;" ":whs=0 \#owt=1w=1te=0 f{te>mtlbw=0b=0te=mt*0.1}L:whs=02;1;16,20;"Wheel Slip":whs=1 pdv>20n=((v)/10 )+1:lres=l(n)+((l(n+1)-l(n))*0.1}L*(v-(n*10 ))) uv20lres=9 w3000 : {cres=2.4+(v*0.05|L)+(v*v*1E-3wn):tres=((lres*enw)+(cres*nc*35#*bc))*1E-3wn:g=0gc=0 >g0gc=((enw+25+(nc*bc*35#))*2.24\()/g v<0tres=-tres )v<502bf=0.016{n*(502-v) v502bf=0 Gbf=(bf+1.25 )*1.6L:fb=-(bf*b*0.2~L):v<0fb=-fb Eac=(((te-tres-gc)*9.7403D)/(enw+25+(nc*bc*35#)))+fb !v=0b>0ac=0 9(tres)>(gc+te)v>-0.05|Lv<0.05|Lac=0 3000 : procdistance (dt-d)<0  6,0;"Distance: To ";d$;:k=112 -(d$):" ";:k:6,27;(dt-d);" ";6,30;"M" v7,9 ;"From ";f$;:k=112 -(f$):" ";:k:7,27;(d-fr);" ";7,30;"M" di=0:  Prockey ="" $,="z"b>0b=b-1:1160: .*="x"b<5b=b+1:1160 3; v>0.1}Lr>0b>0r=0:1190: 8,="l"r<8r=r+1:1190: B,="k"r>0r=r-1:1190: L,="n"c>1c=c-1:1200: V-="m"c<13 c=c+1:1200: `N="v"f<9 fme=0fmg=0w=0f=f+1:1210: j,="c"f>0f=f-1:1210: t="w"w=w:1220: v*="p"0.25~,20:3130: : y@="r"65000:pmc=0:2452 ::65050: ~  Procbra "b0b5a$=b+"/5 " b=0a$="Off " b=5a$="Full"  14,9 ;a$:  Procreg $12 ,9 ;r$(r+1):  proccut .13 ,9 ;(c*5)+5;"% ":  Procfir %12 ,28;f*10 ;" ":  Procsco w=0a$="Up " w=1a$="Down" 13 ,28;a$:  Proccheck *bpsp+9 es=1:1950: sfs=11830& Yv<0rlb=02;1;17,20;"Rolling back":rlb=1 Grlb=1v017,20;" ":rlb=0   v>-0.1}Lsss=0 Uv-0.1}Lsss=sss+4:sy=sy+4:sss>20o=5:2050: Uff<5fil=02;1;17,0;"Fire low":fil=1 Cfil=1ff517,0;" ":fil=0 'ff<0.1}Lo=6:2050: (1t*2.5E-4un<0o=7:2050: - 2f>515906 7"f5vv>01630^ <vv0fmt=1vv0fme=1vv0fmv=1vv0fmr=118,0;" ":fmv=0:fmr=0:fme=0:fmt=0 F6v=0sv=1sfs=0sy=sy+(ti*4) Z"v>sp+3sy=sy+(ti*4) dBrtm=1pt>(ii+20)as=03170b :rtm=0 i n`bdo=1pt>(ii+20)8,0;" ":bdo=0 ;w=1owt=0dtw=0es=2:1950 pws=11480 ,w=1f0f=0:1210 Wv<25sig=1as0v>as+10 owt=1dtw=1ti=1: 5((pt/2)-(pt/2))0pt=pt+1 ti=2: procpw [d>sd+smenr=0260:7,9 ;"End of Restriction":enr=1:sp=tp Fd>(sd+sm+0.1}L)as=0:enr=0:pws=0:260  procwt v>20w=1d71Gdsd+0.48u[owt=0 "\d>sd+0.28\(eot=08,0;" ":eot=1 , 1 procfireman 6vv=vv+(ti*4):vv>(12000./((f*10 )-502))fmt=02;18,0;"Fireman tired":fmt=1:f=f-1:1210 @vv>(15000:/((f*10 )-502))fmv=02;18,0;"F'man very tired":fmv=1:f=f-1:1210 Jvv>(18000PF/((f*10 )-502))fme=02;18,0;"F'man exhausted ":fme=1:vv=450:f=0:1210:sy=sy+200 T Yprocrfireman ^vvv=vv-(ti*4):vv<400fmv=1fmr=04;18,0;"F'man recovering":fmr=1 h m procsignal rnsy=0sm=0.4L w6nsy =1sm=1:sta=1sm=0.6 |dtt=(((sd+sm)-d)*1760):dtt0nsy=0dtt=1056 :nsy=1:nsr=1:sta=1dtt=352 ` 2dtt<0nsr=1o=3:2050: Xnsy=0sic=08,4;"Signal at ";6;"CAUTION":sic=1 Y nsr=1sir=08,4;" Signal at ";2;"DANGER":sir=1 dtt<((*100d)+300,)stc=1sos=0nsy=1sgc=08,5;" Signal ";4;"CLEARED ":sgc=1:nsr=0 <nsr=1nsy=08,22;dtt;" yards " ‚sta=1dtt<350^rip=0nsr=1air=1:260:6,5;"Running into Platform":rip=1 Ldtt35#dtt<300,v<0.1}Lnsr=1sos=01802  g sos=1v>0.1}L7,4;" ":sos=0:di=1 Xdtt<35#v<0.1}Lnsr=1air=0:sig=0:rss=1660 cdtt<35#v<0.1}Lnsr=1rss=0stc=0sta=0btb=0sfs=1 stc=1d>(sd+1)sts=0:sig=0:rss=0:nsy=0:sta=0:nsr=0:air=0:sfs=0:di=1 Ysig=08,0;" ":sfs=11810 =sig=0rss=0sfs=0btb=11821 #o=1sig=0o=10   procstop   rip=0260  L7,5;"Stopped Short of signal":sos=1:sy=sy+100d:  procsigset bbu=0:fgb=0:sgc=0:wfs=0:fnr=0:z=pt:gd=(*80P)+40(:gd>90Zrot=0k$="signal failure" 0gd90Zrot=1k$="pathing problems"  260:  procbset 4100:260:sfs=1:fgb=0:sgc=0:fnr=0:wfs=0:bbu=0:z=pt:gd=(*10 )+30: ! procsigst &wfs=06,4;"Awaiting signal to clear":wfs=1:btb=17,0;"and banker to buffer up to train" +2v>0.1}Lsgc=0o=2:2050: 0fgb=0pt>(z+20)btb=06,0;"Signal at ";2;"RED";7;" fireman gone to"'" box":fgb=1:f=0:1210:fmg=1 :vfnr=0pt>(z+40()btb=0260:6,0;"Fireman reports ";k$:fnr=1:fmg=0 ?bbu=0btb=1pt>(z+25)7,0;" ";1;"Banker buffered up to train";0;" ":o$=c$:c$="Banker attached":3170b :bbu=1:bot=1 DRpt>(z+gd)sgc=0260:7,9 ;"Signal Cleared":sgc=1 NPd>(sd+1.1 )260:sfs=0:di=1:btb=1btb=0 X ] procsts bpbt=06,4;"Passengers boarding train";7,5;"Starting signal not set";8,4;"Due to depart at ";:fpt=z*60<:2190:pbt=1 lpt>((z*60<)-ss)agu=06,4;" Starting Signal Set ";7,4;"Awaiting guards right away";8,4;" ":agu=1 qbtb=1bot=0agu=1bko=08,1;"Banker buffered up to train.":bot=1 :bko=1:4100:o$=c$:c$="Banker attached":3170b vppt>((z*60<)-ss)+gddwr=0260:7,2;"Right away. Depart when ready.":dwr=1 2v>0.1}Ldwr=0o=2:2050: |v>0.1}L260:sts=0:di=1:bko=18,1;" ":btb=0  65000:sy=sy+200:2:7:7::2,4;"OFFICIAL REPRIMAND"'':(v-sp)>25es=1o=4:2050: Fes=1"You have exceeded the line"'"speed by ";(v-sp);" mph." 7es=2"Lowered scoop outside permitted"'"area." Res=3"Exceeding speed limit over water"'"troughs while picking up water." t''"An official reprimand will be"'"entered on your disciplinary"'"record. The simulation will"'"recommence with "; les=1"your speed reset"'"to the line speed.":v=sp:ov=v-0.1}L:c=2:r=0:b=0 2es=2"the water scoop raised.":w=0 Ies=3"your speed reset"'"to 60 mph.":v=60<:ov=v-0.1}L 7 1:''"Press space bar to continue..";:0  " "2035 ]0:7:0::65050:1200:1190:1160:1220:  procrep2 O7:7:2::4,1;"MAJOR BREACH OF REGULATIONS" ''  Bo=2"Starting without nessacary permission." ,o=3"Over-running signal at danger"  <o=4"Exceeding line speed limit by"'(v-sp);" mph." */o=5"Allowing train to roll backwards" 4' o=6"Allowing fire to go out" >$o=7"Running out of water." H)o=8"Running into buffer stops." R.o=9 "Incompetent management of loco." \''"You have been relieved of the"'"controls by your fireman, and"'"are suspended from duty"'"pending an appearance before a"'"disciplinary tribunal."'':1:"Press space bar to continue..";:0 a" "2145a f fntime Gh=fpt*2.7778E-4u :mi=(h-(h))*60<:s=((mi-(mi))*60<) h<10 "0"; (h);":";:mi<10 "0"; (mi);":";:s<10 "0"; s:  Procset 4:0:0 E:6,8;"THE MID-DAY SCOT"''''6;" Copyright  DKS 1986":200::4,0;"Which train do you want to drive"'''"1. 'The Mid-day Scot'"'" - Non stop Crewe to Carlisle"''"2. 0920 Crewe-Carlisle"'" - calling at Warrington,"'" Wigan,Preston,Lancaster"'" and Oxenholme." >"Choose which one (1 or 2) ? ";a$:a$"1"a$"2"2334 a$="2"6020 !a$="1"6010z $t$,c$,nc,v,r,c,b,f,t,m,pt )a$="2"tr=1 V >0.5nc=nc+1 `a:4;16,0;"Which type of engine ?"''"1. 8P (Duchess)"'"2. 7P (Rebuilt Scot)" e#"Choose which one (1 or 2) ? ";a$ ja$"1"a$"2"2405e oa$="1"a$="8P":ent=1 qa$="2"a$="7P":ent=0 t!n$=a$+" ":a$="8P"6030 ya$="7P"6040 ~aa,bb,cc,enw,pbm,p,ee,gg::4;6,0;"Engines avaiable are :":x=18:e$(x):x+8,1;x;". ";e$(x):x $"Choose which engine (1 to 8)?";a$ a$>"8"a$<"1"2440 )(a$)>8Ű(a$)<12440 ^x=a$:g$=e$(x):k=(e$(x))1-1:e$(x)(kk)" "g$=e$(x)(1k):k=1 2k:n$=n$+g$:2560 :pmc=1:2452 `ff=(f*600X)*0.024{D:bp=pbm-10 :obp=bp-1:owp=(t*2.5E-2{L)-1: Procros ^:7;2;0,8;" Roster Notices ";1,16-((t$)/2);t$ 4 Rtr=0"London Euston to Glasgow Central"'" calling at Crewe and Carlisle." Qtr=1" Calling at Warrington,Wigan,"'"Preston,Lancaster and Oxenholme." "Allocated:"'" ";n$(5)'" + ";nc;" coaches"'"The motive power department"'"reports ";n$(59 );" to be in ";m$'"condition and the grade of coal"'"supply to be ";v$;"." !5;"Weather report : ";w$ M'" Special Restrictions :":pw1=0pw2=0"No PWS works today" 4pw1=1"PWS works MP 191 limit ";p1;" mph" 4pw2=1"PWS works MP 224.5 limit ";p2;" mph" _pmc=1'"The simulation will commence"'"with one minute to go before"'"departure time." pmc=0''' 91:6;'"Press space to continue..":0 " "2525 7: Proceff rr= 1rr>0rr0.5e=100d:m$="good" 7rr>0.5rr0.75@e=95_:m$="well run" 8rr>0.75@rr0.9ffffe=105i:m$="ex-works" (4rr>0.9ffffrr1e=87W:m$="run down" 2=rr=:rr>0rr0.57v$="average":cv=13E32 <6rr>0.57rr0.73:Gv$="bad":cv=12E3. F4rr>0.73:Grr1v$="good":cv=14E36 PA>0.75@pw1=1:p1=25+(5*((4*))) Z@<0.5pw2=1:p2=25+(5*((4*))) \?rr=:rr>0rr0.5w$="dry and fine":mt=33! _:rr>0.5rr0.75@w$="heavy rain":mt=29 b<rr>0.75@rr1w$="mist & drizzle":mt=26 d"k1=(cv*41.25%)/1206: 1030:uu=v:v=v+(ac*ti) 2v<0.05|Lv>-0.05|Lac=0v=0 )d=d+((uu+(ti*ac))*(ti*2.7778E-4u )) dnd3106 .uu0Ƽ(uu)ɼ(v)ac=0:v=0 (v-ov)0.1}L3092 2(pt/20)-(pt/20)=0di=1 ^(d-od)0.1}L2,26;(d*10 )*0.1}L;" ":od=(d*10 )*0.1}L pt=pt+ti:4300 ? owt=0dtw=0pub=0sig=0di=0 owt=11510 Ndtw=1(sd-d)>08,22;((sd-d)*1760);" yards " pub=14050 sig=11650r o>1 Sden=1as=0sts=0air=0sfs=0di=11000  < (v-(v))<0.1}L11 ,9 ;(v);".0 ":ov=v: < (v-(v))<0.1}L11 ,9 ;(v);".0 ":ov=v: 711 ,9 ;(v*10 )*0.1}L;" ":ov=v:  procdamp vddtt=ddtt+(4*ti):ddtt>8dam=05;17,10 ;"Damper On":dam=1:bl=0: &@ddtt60<18,19;" ":svo=1 0 :"o"3130: D0.25~,20: I proccom Nrk$=u$(1)(165100L):kx=u$(1)(165100L):tr=kxkx=2c$=k$:3170b X ] procpcom bC5,9 ;" ";5,9 ;c$;:  procbank bot=1 |sd=d:pub=1:8,15-((l$+21)/2);"Press B for banker at ";l$(2):0.25~,20: procb ="b"btb=1 ]d>sd+0.5btb=18,0;" ":pub=0   procbanksel #ent=1bc=5/8: bc=4/7: ^ procbankd hbot=0 rhbc=1:8,0;"Banker dropping back from train":bdo=1:bot=0:ii=pt:c$=o$ |rtm=03170b   proctime Bh=pt*2.7778E-4u :mi=(h-h)*60<:s=((mi-mi)*60<) '19,22;:s<10 "0"; s:s0 (19,19;:mi<10 "0"; mi:mi0 '19,16;:h<10 "0"; h: pc9 ,9 ,9 ,10 ,12.5H,15,19,24,30,37%,44, u9"Shut","1/8","1/4","3/8","1/2","5/8","3/4","7/8","Full" z"'The Mid-day Scot'","Non-stop to Carlisle",15,0,0,9 ,2,1,4000,0.25~,58740t "0920 Crewe-Carlisle","Next stop Warrington",14,0,0,9 ,2,1,4000,0.25~,33540 #502,0.13~R,8.8 ,150,250,9993.4%,0.17E-3t2B ,502,"46220 Coronation","46225 Duchess of Gloucester","46229 Duchess of Hamilton","46231 Duchess of Atholl","46234 Duchess of Abercorn","46238 City of Carlisle","46239 City of Chester","46257 City of Salford" 41),0.11}aG,7.3i,129,250,8295.45,0.14E-3t,31.25z,"46100 Royal Scot","46102 Black Watch","46113 Cameronian","46115 Scots Guardsman","46124 London Scottish","46146 The Rifle Brigade","46155 The Lancer","46161 King's Own" % 267.7Summit Shap Summitroughss : H%,46100 Royal Scot 46102 Black Watch 46113 Cameronian 46115 Scots Guardsman 46124 London Scottish 46146 The Rifle Brigade 46155 The Lancer 46161 King's Own - Shut1/8 1/4 3/8 1/2 5/8 3/4 7/8 Full va Q<)y{wVٙgZo~ dffm nwweiftisilmmmmw @tthwbbodtou? lT'The Mid-day Scot'v? rc bft`mffjn)}aGinbpͥtzN7P 46113 Cameronian~p`e_Mwell runVgood6Wmist & drizzleomGmpTԯbwZphQlsskTӦp/sӷ'n:iL<¯FzbgwkXsdtqiVԭffs9ore7re^ /reP+CngstsiiiotuteotbgfnZ06930000CNext stop CarlisleAUp GUp F Shap SummitDPenrithK minutes earlyL$