EXTENDED CPC DSK File Disk-Info SamDisk 2.1.1*Track-Info  N Track-Info  N DISK KCITY DISK CITY BAK]CITY T$ !"#$CITY E%&'()*+,-./01234CITY EX56789:;<=>?CITY R7@ABCDEFMOV JGPLUS3DOS :"city" DxD DD BBxBBx100ds=100d n :2,8;"INSPECTORS REPORT":1:5,15-t$/2;" ";t$;" ":0:''n$(5)'" + ";nc;" coaches" p''"Drivers rated performance ";(s);"%"''"Number of reprimands ";rep ''"Coal consumption ";(cu/110.6]333);" lbs/mile"'" of ";v$;" grade coal." r"Another run(Y or N)";a$ s: xe<95_r=r+1 cv<13E32r=r+1 &pw1=1pw2=1r=r+2 qs>1r=r+qs*2 %ent=0tr=0r=r+6 r>0r=0  7:0:0::1;7;0,(15-((t$)/2));" ";t$;" ":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*100d/tc);"%":15,2;"Engine in ";m$;" condition.":16,0;"Status indicators :" 4 9 ,0;5;s$;20,0;s$ ܍19,9 ;"Time : ";:fpt=pt:2190:6;21,(15-((n$)/2));n$:s$=" ": u$(1,32 ):l(11 ):e$(8,27):r$(10 ,4):svo=0:dam=0:ww=0:cu=0:w=0:mm=0:g=0:o=0:x=111 :l(x):x:x=19 :r$(x):x ]d=0:nd=d:sp=15:od=d-1:d$="Paddington":dt=d:rep=0:acb=0 l65098J,208:65099K,207:65156,1:s$="":x=132 :s$=s$+"":x 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 *fil=0:rlb=0:fmr=0:fmg=0:fme=0:fmv=0:pws=0:ti=1:l$=d$+" Station":den=0: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 sos=0:rot=0:rel=0:bdo=0:btb=0:bot=0:pub=0:ov=-0.1}L:bc=1:fls=0:sm=0:nsy=0:nsr=0 +ck=2.7778E-4u :ck2=60<:rr= : +6,0;s$;7,0;s$: 6Ml$=u$(1)(165100L):nd=u$(1)(165100L) @l$(1)="*"650: Jl$(1)="!"530: Tl$(1)="@"690: ^l$(1)="/"540: 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;s$;4;3,(16-((l$)/2));l$ rtsp1sp=tsp:1,20;sp;" ":sp=asas=0:di=1:260:rtm=03170b tg1g=tg:620l  @(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~Track-Info  N +((*3)*0.25~):pws=1:260:5,9 ;c$;6,9 ;"Permanent Way Slack";7,0;" Speed limit ";sp;" mph ";sm;" miles": Xs=u$(1)(165100L):(pw1=1s=1pw2=1s=2)  l$="*":s=1l$=l$+(p1) s=2l$=l$+(p2)  650: {fr=dt:dt=(l$(2)):f$=d$:d$=u$(1)(165100L):di=1:rtm=0:550&:den=1: dtw=1:sm=0:8,2;"Distance to troughs 880 yards":puw=0:nts=0:tef=0:eot=0:sd=(l$(2)): &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 ":rel=0 S-(gd-mm)>0k$=k$+"early":rel=1 XK(gd-mm)>2sta=0(gd-mm)<-3sy=sy+10 :rot=1 b85,9 ;"Running ";(gd-mm);" ";k$:0: l0g=04,12 ;"Level ": vg<0g$="Down " x g>0g$="Up " '4,12 ;"1 in ";g;" ";g$: 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)): sig=1rss=1: tr=1z=(z$(4)) tr=0z=(z$(5)) sts=1:pbt=0:agu=0:dwr=0:bko=0:260:gd=10 +(*60<)+(rot*40():pt((z-sz)*60<)ss=(*30): +ss=(30*)-(pt-((z-sz)*60<)): sm=0.4L:sts=0:sgc=0:sig=0:rss=0:nsy=0:sta=0:nsr=0:air=0:sfs=0:sir=0:rip=0:sos=0:stc=0:sd=(l$(3)):l$(2)="@c"sta=1:sig=1:720 Cl$(2)="@s"tr=1sta=1:sig=1:720 qs=2rot=0 ˋ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  X 8,4;"Signal at ";6;"CAUTION";7;" 704 yards":sic=1: Procal r=0psa=0 Ar0psa=(bp*0.5)*(1+(0.125}*r))-5 fd=(f*600X)/gg:x=c*0.05|L: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-.2~L #m<1r0m=m+.2~L 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 Ksc<36000lbw=118,16;s$(16):lbw=0 em0.26Rbl=0sv=0dam=05;17,10 ;"Blower on":bl=1 gm>0.26Rbl=1sv=1r=0dam=017,10 ;s$(9 ):bl=0  W(spd-sc)<0sv=1svo=018,19;s$(13 ):sv=0 "B(spd-sc)<0sv=1svo=1sv=0:svo=0 %sv=0ddtt=0 &:sv=1ddtt<60<f=0r=03100 (dam=1f0r017,10 ;s$(10 ):dam=0:ddtt=0:svo=1svo=0:sv=0 *,sc<36000q=1E-7iV:mb=1E7 /4sc36000mb=mb*36000/sc:q=1/mb 45sv=0bp=bp*(1+((spd-sc)*q*ti*4)) 93000 : >|bppbmbp=pbm:sv=05;18,19;"Valves Lifted":sv=1 M?((bp)-obp)111 ,28;(bp);" ":obp=(bp) Pd((t*100d/tc)-owp)114,28;(t*100d/tc);"% ":owp=(t*100d/tc) R te=((psa/(pbm-5))*((aa*x)-(bb*v)+(v*v*ee)+cc))*e*0.01z# =:temtwhs=116,20;s$(10 ):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 Hbf=(bf+1.25 )*1.11z:fb=-(bf*b*0.2~L):v<0fb=-fb ex=enw+25+(nc*bc*35#):ac=((te-tres-gc)*9.7403D/x)+fb:acb=(-tres-gc)*9.7403D/x .v=0b>0ac=0:acb=0 F(tres)>(gc+te)v>-0.05|Lv<0.05|Lac=0:acb=0 3000 : (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 :b=0ac=acb: .*="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>2c=c-1:1200: V-="m"c<14c=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: ~ "b0b5a$=b+"/5 " b=0a$="Off " b=5a$="Full"  14,9 ;a$: $12 ,9 ;r$(r+1): $13 ,9 ;c*5;"% ": %12 ,28;f*10 ;" ": w=0a$="Up " w=1a$="Down" 13 ,28;a$: *bpsp+9 es=1:1950: sfs=11830& sig=11650r Yv<0rlb=02;1;17,20;"Rolling back":rlb=1 Frlb=1v017,20;s$(12 ):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 Efil=1ff517,0;s$(8):fil=0 'ff<0.1}Lo=6:2050: ('t/tc0o=7:2050: - 2f>515906 7"f5vv>01630^ <vv0fmt=1vv0fme=1vv0fmv=1vv0fmr=118,0;s$(17):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;s$:bdo=0 ;w=1owt=0dtw=0es=2:1950 pws=11480 ,w=1f0f=0:1210 hv<25sig=1as0v> as+10 owt=1dtw=1ti=1:65156,ti: A((pt/2)-(pt/2))0pt=pt+1:4300 ti=2:65156,ti: procpw ]d>(sd+sm)enr=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 "Ad>(sd+0.28\()eot=08,0;s$:eot=1 , 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 ^vvv=vv-(ti*4):vv<400fmv=1fmr=04;18,0;"F'man recovering":fmr=1 h rdtt=(((sd+sm)-d)*1760):dtt0nsy=0dtt=1056 :sm=1:nsy=1:nsr=1:sta=1dtt=352`:sm=0.6 2dtt<0nsr=1o=3:2050: s nsr=1sir=08,4;" Signal at ";2;"DANGER";7;" ";dtt;" yards":sir=1 dtt<((*100d)+300,)stc=1sos=0nsy=1sgc=08,5;" Signal ";4;"CLEARED";s$(10 ):sgc=1:nsr=0 ‚sta=1dtt<350^rip=0nsr=1air=1:260:6,8;"Running into Platform":rip=1 Ldtt35#dtt<300,v<0.1}Lnsr=1sos=01802  H sos=1v>0.1}L7,0;s$: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 ;sig=08,0;s$:sfs=11810 =sig=0rss=0sfs=0btb=11821 #o=1sig=0o=10    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)+557+(rot*40():gd>90Zrot=0k$="signal failure" %gd90Zrot=11817  260: 'k$="pathing problems":rot =0  k$=k$+" due to running "  rel=1k$=k$+"early":  k$=k$+"late": &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 ";2;"RED";7;" fireman gone to box":fgb=1:f=0:1210:fmg=1 :vfnr=0pt>(z+502)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 D^pt>(z+gd)sgc=0260:7,9 ;"Signal ";4;"CLEARED":sgc=1 NPd>(sd+1.1 )260:sfs=0:di=1:btb=1btb=0 X 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,0;s$: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 6 (v)>0.1}Ldwr=0o=2:2050: `v>0.1}L260:sts=0:di=1:bko=18,0;s$:btb=0  65000:sy=sy+200:rep=rep+1:2:Track-Info  N 7:7::2,6;"OFFICIAL REPRIMAND"'':(v-sp)>25es=1o=4:2050: Oes=1" You have exceeded the line"'" speed by ";(v-sp);" mph" Ces=2"Lowered scoop outside permitted"'" area" Res=3"Exceeding speed limit over water"'" troughs while picking up water" |''" An official reprimand will be"'" entered on your disciplinary"'" record. The simulation will"'" recommence with "; oes=1" your speed"'" reset to the line speed.":v=sp:ov=v-0.1}L:c=2:r=0:b=0 7es=2" the water"'" scoop raised.":w=0 Les=3" your speed"'" reset to 60 mph.":v=60<:ov=v-0.1}L C 1:1:''" Press space bar to continue... ";:0  " "2035 ]0:7:0::65050:1200:1190:1160:1220: M7:7:2::4,2;"MAJOR BREACH OF REGULATIONS" ''  Co=2" Starting without necessary permission" -o=3" Over-running signal at danger"  Jo=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 temporarly suspended from"'" duty pending an appearance"'" before a disciplinary tribunal."''':1:1:" Press space bar to continue... ";:0 a" "2145a f 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: $4:0:0:1 T:6,9 ;"THE INTER CITY"''''6;" Copyright  SRS 1988":200::4,0;"Which train do you want to drive"'''"1. 'The Inter city'"'" - Non stop Paddington to"'" Birmingham."''"2. 09:10 Paddington-Birmingham"'" - Calling at High Wycombe,"'" Bicester, Banbury and"'" Leamington Spa." /''"Choose which one (1 or 2) ? ";1;" " !a$=:a$"1"a$"2"2335 a$="2"6020 !a$="1"6010z $t$,c$,nc,v,r,c,b,f,t,m,pt ) 4300:a$="2"tr=1 V >0.5nc=nc+1 `X:4;8,0;"Which type of engine "''"1. King (8P)"'"2. Castle (7P)" e0'' "Choose which one (1 or 2) ? ";1;" " j!a$=:a$"1"a$"2"2410j o*a$="1"a$="8P":ent=1:6030 q*a$="2"a$="7P":ent=0:6040 ~n$=a$+" ":aa,bb,cc,enw,pbm,p,ee,gg,tc,aw::4;6,0;"Engines avaiable are :":x=18:e$(x):x+8,1;x;". ";e$(x):x 3'' "Choose which engine (1 to 8) ? ";1;" " !a$=:a$>"8"a$<"1"2445 `: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 Off=(f*600X)/gg:bp=pbm-10 :obp=bp-1:owp=(t*100d/tc): f:7;2;0,8;" Roster Notices ";1,15-((t$)/2);" ";t$;" " 4 xtr=0"London Paddington to Birmingham"'" Calling at High Wycombe"'1;"No stop at High Wycombe today." Qtr=1"Calling at High Wycombe,Bicester"'" Banbury and Leamington Spa." "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$;"." pmc=0 !5;"Weather report : ";w$ /'" Special Restrictions :":pmc=0 5pw1=0pw2=0'" No PWS works today" 4pw1=1"PWS works MP 19.9 limit ";p1;" mph" 4pw2=1"PWS works MP 91.3 limit ";p2;" mph" bpmc=1'" The simulation will commence"'" with one minute to go before"'" departure time." pmc=0tr=1' >6;" ";1;"Press space to continue..":0 " "2525 7: 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$=Track-Info  N "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=22 _:rr>0.5rr0.75@w$="heavy rain":mt=20 b<rr>0.75@rr1w$="mist & drizzle":mt=18 d<mt=(mt*aw*0.0224{74m):k1=(cv*41.25%)/1206: O1030:uu=v:v=v+(ac*ti):v<.05|Lv>-.05|Lac=0v=0 :d=d+((uu+(ti*ac))*(ti*2.7778E-4u )):dnd3106 ;uu0Ƽ(uu)ɼ(v)ac=0:v=0:acb=0 ((v-ov).1}Lv=03092 2(pt/20)-(pt/20)=0di=1 [(d-od).1}L2,26;(d*10 )*.1}L;" ":od=(d*10 )*.1}L Npt=pt+ti:tst=65160:owt=0dtw=0sig=0di=0 owt=11510 @sig=1sd+sm-d <0sig=1v=01650r ~dtw=1sig=1nsy=0sig=1nsr=1sd+sm-d >08,22;((sd+sm-d)*1760);" " iden=1as=0sts=0air=0sfs=0di=1o=0sos=01000  ; (v-(v))<.1}L11 ,9 ;(v);".0 ":ov=v: 611 ,9 ;(v*10 )*.1}L;" ":ov=v: vddtt=ddtt+(4*ti):ddtt>8dam=05;17,10 ;"Damper On":dam=1:bl=0: &>ddtt60<18,19;s$(13 ):svo=1 0 :"o"3130: D0.25~,20: Nrk$=u$(1)(165100L):kx=u$(1)(165100L):tr=kxkx=2c$=k$:3170b X b75,9 ;s$(23);5,9 ;c$;: ^h=pt*ck:mi=(h-h)*ck2:s=((mi-mi)*ck2):65150~,(h):65151,mi:65152,s: 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 Inter City'","Non-stop to Birmingham",12 ,0,0,9 ,2,1,4000,0.25~,32340T~ "09:10 Paddington-Birmingham","Next stop High Wycombe",12 ,0,0,9 ,2,1,4000,0.25~,32940 43+,0.12}u[,7.7vfff,130,250,9770.1ff,0.15E-3tIQ,34.3 333,4000,67.5,"6000 King George V","6001 King Edward VII","6005 King George II","6007 King William III","6011 King James I","6015 King Richard III","6020 King Henry IV","6024 King Edward I" 35#,0.09}8Q,6.6S333,120x,225,8792.8 c33,0.12E-3s{h,29.4k333,4000,58.9k,"4079 Pendennis Castle","4082 Windsor Castle","5022 Wigmore Castle","5026 Criccieth Castle","5046 Earl Cawdor","5063 Earl Baldwin","5070 Sir Daniel Gooch","5097 Sarum Castle" % 17.2oaching Gerrards Crosshs : H%,6000 King George V 6001 King Edward VII 6005 King George II 6007 King William III 6011 King James I 6015 King Richard III 6020 King Henry IV 6024 King Edward I - Shut1/8 1/4 3/8 1/2 5/8 3/4 7/8 Full va4]#5wgo~~ d\R ZTec~۷Xmnww|u@GeiftisilmmmmwtthwbbooedtounylL̮ssu k<1T09:10 Paddington-BirminghamCNext stop High Wycombe vnyrcbftL6mffhjh s~n+}u[vfffnbpfftIQ 333N8P 6000 King George VedMgoodVbad.W dry and fine!M9P=mQ\ʢgЉѯbwQpS scEQp:2wM὿o*4Z05500540z&bgwkssdtqiVԭF PaddingtonD High WycombeK s/NӬrenrere3S%qk1nAOff uteTrack-Info  N oGUp gtiitiLApproaching Gerrards CrossGrr1v$="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=22 _:rr>0.5rr0.75@w$="heavy rain":mt=20 b<rr>0.75@rr1w$="mist & drizzle":mt=18 d<mt=(mt*aw*0.0224{74m):k1=(cv*41.25PLUS3DOSN`Paddington Station00550054012015!26.50.59High Wycombe Royal Oak0.94176025Subway Junction1.25160Westbourne Park2.2511Approaching Old Oak2.7512041Old Oak Common2.811*403.3Old Oak West Junction3.3140 3.63-4251 3.8133490North Acton4.211Approaching Park Royal4.72141Park Royal5.3501Hanger Lane5.9-2641Approaching Perivale6.6801Perivale7.211Approaching Greenford7.652641Greenford8.8411Northolt9.9611South Ruislip10.501Ruislip Gardens11.754301Ruislip and Ickenham11.801/12.312.3^Ruislip Water Troughs12.5611End of Ruislip Water troughs12.811Approaching Haresfield13.22251 13.4-2251South Haresfield13.911 14.62251Denham1511 15.51751Denham Golf Club16.211@o16.216.25Approaching Gerrards Cross17.211Gerrards Cross17.62641 19.42541&19.91%119.9Seer Green20.811Approaching Beaconsfield21.201 21.5-4601Beaconsfield21.9511 23.38-2251White House Tunnel23.511Approaching Tylers Green23.88-7501Tylers Green24.611Approaching High Wycombe24.93001 25.401*3525.9High Wycombe25.92135@s25.9226.3`High Wycombe Station26.3058500002111(26.5Next stop Bicester1!53.426.6Bicester05720583Leaving High Wycombe26.81411 26.93801 27.301 2817990*4528.5West Wycombe29.340045Approaching Saunderton31.3416490Saunderton32.211Approaching Princes Risborough32.501 32.881641*6033 33.38-1001 33.6160 34.3-8890Princes Risborough34.3-1611*7534.8 35.1075 36-2001Approaching Ilmer36.25090 37.2-1761Ilmer38.411Approaching Haddenham39.9101Hadenham40.42641 40.701Chearsley41.7-2001Approaching Ashendon Junction42.82251 42.8801@o42.8843.86Ashendon Junction44.811Approaching Orton45.12511Orton46.32001Brill Tunnel46.4-2001Approaching Brill47.211Brill and Ludgers Hall47.8-2701Approaching Blackthorn49.2-2001 50.24501Blackthorn51.601Approaching Bicester52.822001@s52.8253.2`Bicester Station53.206200000212641(53.4Next stop Banbury1!67.553.4Banbury05980618 53.51641Leaving Bicester54.31921Climbing to Ardley55.72091 56.952001Ardley57.25631@o57.258.2Ardley Summit58.501 59.69-2001Ardley Tunnel60.8511Soulden60.8511*6061.35Aynho Park61.8160/62.362Aynho Junction62.311^Aynho Water Troughs62.56090End of Aynho Water Troughs62.911Approaching Kings Sutton63.23211 63.9401Kings Sutton64.411 64.93861Approaching Banbury66.410771*7566.92@s66.9267`Banbury Station670642000031175(67.5Next stop Leamington Spa1!86.267.5Leamington06150639 68.239090Leaving Banbury68.63041Banbury Junction69.211Approaching Cropredy69.501 71.13301Cropredy71.311 72.51791Approaching Claydon73.201Claydon73.83351Approaching Fenny Compton75.101 76.23-2391Fenny Compton78.6-2511Leaving Fenny Compton80.2101@o80.2180.42Greaves Sidings81.2111Southam Road81.36-2601*8081.86Harbury Tunnel82.3-14380Approaching Fosse Road83.62-1871Fosse Road84.8190Approaching Leamington Spa85.2-2531 85.6-5121 85.62-3251@s85.6286`Leamington Spa Station86066900003111(86.2Next stop Birmingham2!110.686.2Birmingham06350666 86.401Leaving Leamington Spa86.7-2401*4087.2Approaching Warwick87.3040 87.7190 88.4-1091 89.21141Warwick89.601 89.91871Climbing to Hatton90.2951 90.81081&91.32%291.3 91.91031 93.201Hatton93.201*5093.7Hatton North Junction94.517750Approaching Lapworth94.7090 95.25-1681 95.4-2001/95.995.9^Lapworth Water Troughs96.101End of Lapworth Water Troughs96.311Approaching Lapworth97.32311 97.66391Lapworth98.92581Approaching Dorridge99.52711 100.21831 10.83501Knowle and DorridgeTrack-Info  N         101.301Bently Heath102.211Widney Manor102.5711@o102.57103.57Solihull104.211 104.7-2251 105.3901Olton105.6-2231 105.762671*75106.36Acocks Green106.7075 107.2-3351Tyseley108.39090Small Heath108.3911*60108.89 108.89160*50109.1Bordesley109.41171Approaching Snow Hill109.6-10750 109.8401*25110@c110110Snow Hill Tunnel10.34451Birmingham Snow Hill110.58025)110.5806600702++9999PLUS3DOSkk ]g The Inter City Copyright  1988 SRS Written By R.Pointon Thanks to L.P.D.S  Spectrum Version 2.2  553199::::240:2330 :190 8740:1250:1030:o>130 8780 :1290 :1030:o>130 [830>:13302:1030:890z:1390n:1030:o120 o10 (60<:a$="y"a$="Y" 2 < r=gd-((pt+30)/60<):260:8,0;s$;6,2;"Arrived at Birmingham, 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=60<-(sy/10 ):s<0s=0 Pas=s+((15+(502*14E36/(cv*e*0.01z# =)))-(cu/110.6]333)):r<0120x Z'l=20-(r):l<0l=0 dTs=s+l::6,8;"END OF SIMULATION":200:s>100ds=100d n :2,8;"INSPECTORS REPORT":1:5,15-t$/2;" ";t$;" ":0:''n$(5)'" + ";nc;" coaches" p''"Drivers rated performance ";(s);"%"''"Number of reprimands ";rep ''"Coal consumption ";(cu/110.6]333);" lbs/mile"'" of ";v$;" grade coal." r"Another run(Y or N)";a$ s: xe<95_r=r+1 cv<13E32r=r+1 &pw1=1pw2=1r=r+2 qs>1r=r+qs*2 %ent=0tr=0r=r+6 r>0r=0  7:0:0::1;7;0,(15-((t$)/2));" ";t$;" ":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*100d/tc);"%":15,2;"Engine in ";m$;" condition.":16,0;"Status indicators :" 4 9 ,0;5;s$;20,0;s$ ܍19,9 ;"Time : ";:fpt=pt:2190:6;21,(15-((n$)/2));n$:s$=" ": u$(1,32 ):l(11 ):e$(8,27):r$(10 ,4):svo=0:dam=0:ww=0:cu=0:w=0:mm=0:g=0:o=0:x=111 :l(x):x:x=19 :r$(x):x ]d=0:nd=d:sp=15:od=d-1:d$="Paddington":dt=d:rep=0:acb=0 l65098J,208:65099K,207:65156,1:s$="":x=132 :s$=s$+"":x 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 *fil=0:rlb=0:fmr=0:fmg=0:fme=0:fmv=0:pws=0:ti=1:l$=d$+" Station":den=0:as=0:rtm=0:dtw=0Track-Info  N         :whs=0:owt=0:lbp=0:sy=0:lbw=0:bl=0:sv=0:tr=0:pw1=0:pw2=0 sos=0:rot=0:rel=0:bdo=0:btb=0:bot=0:pub=0:ov=-0.1}L:bc=1:fls=0:sm=0:nsy=0:nsr=0 +ck=2.7778E-4u :ck2=60<:rr= : +6,0;s$;7,0;s$: 6Ml$=u$(1)(165100L):nd=u$(1)(165100L) @l$(1)="*"650: Jl$(1)="!"530: Tl$(1)="@"690: ^l$(1)="/"540: 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;s$;4;3,(16-((l$)/2));l$ rtsp1sp=tsp:1,20;sp;" ":sp=asas=0:di=1:260:rtm=03170b tg1g=tg:620l  @(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": Xs=u$(1)(165100L):(pw1=1s=1pw2=1s=2)  l$="*":s=1l$=l$+(p1) s=2l$=l$+(p2)  650: {fr=dt:dt=(l$(2)):f$=d$:d$=u$(1)(165100L):di=1:rtm=0:550&:den=1: dtw=1:sm=0:8,2;"Distance to troughs 880 yards":puw=0:nts=0:tef=0:eot=0:sd=(l$(2)): &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 ":rel=0 S-(gd-mm)>0k$=k$+"early":rel=1 XK(gd-mm)>2sta=0(gd-mm)<-3sy=sy+10 :rot=1 b85,9 ;"Running ";(gd-mm);" ";k$:0: l0g=04,12 ;"Level ": vg<0g$="Down " x g>0g$="Up " '4,12 ;"1 in ";g;" ";g$: 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)): sig=1rss=1: tr=1z=(z$(4)) tr=0z=(z$(5)) sts=1:pbt=0:agu=0:dwr=0:bko=0:260:gd=10 +(*60<)+(rot*40():pt((z-sz)*60<)ss=(*30): +ss=(30*)-(pt-((z-sz)*60<)): sm=0.4L:sts=0:sgc=0:sig=0:rss=0:nsy=0:sta=0:nsr=0:air=0:sfs=0:sir=0:rip=0:sos=0:stc=0:sd=(l$(3)):l$(2)="@c"sta=1:sig=1:720 Cl$(2)="@s"tr=1sta=1:sig=1:720 qs=2rot=0 ˋ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 sig=0 X 8,4;"Signal at ";6;"CAUTION";7;" 704 yards":sic=1: Procal r=0psa=0 Ar0psa=(bp*0.5)*(1+(0.125}*r))-5 fd=(f*600X)/gg:x=c*0.05|L: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.26RTrack-Info  N         m=m-.2~L #m<1r0m=m+.2~L 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 Ksc<36000lbw=118,16;s$(16):lbw=0 em0.26Rbl=0sv=0dam=05;17,10 ;"Blower on":bl=1 gm>0.26Rbl=1sv=1r=0dam=017,10 ;s$(9 ):bl=0  W(spd-sc)<0sv=1svo=018,19;s$(13 ):sv=0 "B(spd-sc)<0sv=1svo=1sv=0:svo=0 %sv=0ddtt=0 &:sv=1ddtt<60<f=0r=03100 (dam=1f0r017,10 ;s$(10 ):dam=0:ddtt=0:svo=1svo=0:sv=0 *,sc<36000q=1E-7iV:mb=1E7 /4sc36000mb=mb*36000/sc:q=1/mb 45sv=0bp=bp*(1+((spd-sc)*q*ti*4)) 93000 : >|bppbmbp=pbm:sv=05;18,19;"Valves Lifted":sv=1 M?((bp)-obp)111 ,28;(bp);" ":obp=(bp) Pd((t*100d/tc)-owp)114,28;(t*100d/tc);"% ":owp=(t*100d/tc) R te=((psa/(pbm-5))*((aa*x)-(bb*v)+(v*v*ee)+cc))*e*0.01z# =:temtwhs=116,20;s$(10 ):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 Hbf=(bf+1.25 )*1.11z:fb=-(bf*b*0.2~L):v<0fb=-fb ex=enw+25+(nc*bc*35#):ac=((te-tres-gc)*9.7403D/x)+fb:acb=(-tres-gc)*9.7403D/x .v=0b>0ac=0:acb=0 F(tres)>(gc+te)v>-0.05|Lv<0.05|Lac=0:acb=0 3000 : (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 :b=0ac=acb: .*="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>2c=c-1:1200: V-="m"c<14c=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: ~ "b0b5a$=b+"/5 " b=0a$="Off " b=5a$="Full"  14,9 ;a$: $12 ,9 ;r$(r+1): $13 ,9 ;c*5;"% ": %12 ,28;f*10 ;" ": w=0a$="Up " w=1a$="Down" 13 ,28;a$: *bpsp+9 es=1:1950: sfs=11830& sig=11650r Yv<0rlb=02;1;17,20;"Rolling back":rlb=1 Frlb=1v017,20;s$(12 ):rlb=0   v>-0.1}Lsss=0 Uv-0.1}Lsss=sss+4:Track-Info  N         sy=sy+4:sss>20o=5:2050: Uff<5fil=02;1;17,0;"Fire low":fil=1 Efil=1ff517,0;s$(8):fil=0 'ff<0.1}Lo=6:2050: ('t/tc0o=7:2050: - 2f>515906 7"f5vv>01630^ <vv0fmt=1vv0fme=1vv0fmv=1vv0fmr=118,0;s$(17):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;s$:bdo=0 ;w=1owt=0dtw=0es=2:1950 pws=11480 ,w=1f0f=0:1210 hv<25sig=1as0v> as+10 owt=1dtw=1ti=1:65156,ti: A((pt/2)-(pt/2))0pt=pt+1:4300 ti=2:65156,ti: procpw ]d>(sd+sm)enr=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 "Ad>(sd+0.28\()eot=08,0;s$:eot=1 , 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 ^vvv=vv-(ti*4):vv<400fmv=1fmr=04;18,0;"F'man recovering":fmr=1 h rdtt=(((sd+sm)-d)*1760):dtt0nsy=0dtt=1056 :sm=1:nsy=1:nsr=1:sta=1dtt=352`:sm=0.6 2dtt<0nsr=1o=3:2050: s nsr=1sir=08,4;" Signal at ";2;"DANGER";7;" ";dtt;" yards":sir=1 dtt<((*100d)+300,)stc=1sos=0nsy=1sgc=08,5;" Signal ";4;"CLEARED";s$(10 ):sgc=1:nsr=0 ‚sta=1dtt<350^rip=0nsr=1air=1:260:6,8;"Running into Platform":rip=1 Ldtt35#dtt<300,v<0.1}Lnsr=1sos=01802  H sos=1v>0.1}L7,0;s$: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 ;sig=08,0;s$:sfs=11810 =sig=0rss=0sfs=0btb=11821 #o=1sig=0o=10    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)+557+(rot*40():gd>90Zrot=0k$="signal failure" %gd90Zrot=11817  260: 'k$="pathing problems":rot =0  k$=k$+" due to running "  rel=1k$=k$+"early":  k$=k$+"late": &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:2050Track-Info  N         : 0fgb=0pt>(z+20)btb=06,0;" Signal ";2;"RED";7;" fireman gone to box":fgb=1:f=0:1210:fmg=1 :vfnr=0pt>(z+502)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 D^pt>(z+gd)sgc=0260:7,9 ;"Signal ";4;"CLEARED":sgc=1 NPd>(sd+1.1 )260:sfs=0:di=1:btb=1btb=0 X 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,0;s$: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 6 (v)>0.1}Ldwr=0o=2:2050: `v>0.1}L260:sts=0:di=1:bko=18,0;s$:btb=0  65000:sy=sy+200:rep=rep+1:2:7:7::2,6;"OFFICIAL REPRIMAND"'':(v-sp)>25es=1o=4:2050: Oes=1" You have exceeded the line"'" speed by ";(v-sp);" mph" Ces=2"Lowered scoop outside permitted"'" area" Res=3"Exceeding speed limit over water"'" troughs while picking up water" |''" An official reprimand will be"'" entered on your disciplinary"'" record. The simulation will"'" recommence with "; oes=1" your speed"'" reset to the line speed.":v=sp:ov=v-0.1}L:c=2:r=0:b=0 7es=2" the water"'" scoop raised.":w=0 Les=3" your speed"'" reset to 60 mph.":v=60<:ov=v-0.1}L C 1:1:''" Press space bar to continue... ";:0  " "2035 ]0:7:0::65050:1200:1190:1160:1220: M7:7:2::4,2;"MAJOR BREACH OF REGULATIONS" ''  Co=2" Starting without necessary permission" -o=3" Over-running signal at danger"  Jo=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 temporarly suspended from"'" duty pending an appearance"'" before a disciplinary tribunal."''':1:1:" Press space bar to continue... ";:0 a" "2145a f 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: $4:0:0:1 T:6,9 ;"THE INTER CITY"''''6;" Copyright  SRS 1988":200::4,0;"Which train do you want to drive"'''"1. 'The Inter city'"'" - Non stop Paddington to"'" Birmingham."''"2. 09:10 Paddington-Birmingham"'" - Calling at High Wycombe,"'" Bicester, Banbury and"'" Leamington Spa." /''"Choose which one (1 or 2) ? ";1;" " !a$=:a$"1"a$"2"2335 a$="2"6020 !a$="1"6010z $t$,c$,nc,v,r,c,b,f,t,m,pt ) 4300:a$="2"tr=1 V >0.5nc=nc+1 `X:4;8,0;"Which type of engine "''"1. King (8P)"'"2. Castle (7P)" e0'' "Choose which one (1 or 2) ? ";1;" " j!a$=:a$"1"a$"2"2410j o*a$="1"a$="8P":ent=1:6030 q*a$="2"a$="7P":ent=0:6040 ~n$=a$+" ":aa,bb,cc,enw,pbm,p,ee,gg,tc,aw::4;6,0;"Engines avaiable are :":x=18:e$(x):x+8,1;x;". ";e$(x):x 3'' "Choose which engine (1 to 8) ? ";1;" " !a$=:a$>"8"a$<"1"2445 `:Track-Info  N 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 Off=(f*600X)/gg:bp=pbm-10 :obp=bp-1:owp=(t*100d/tc): f:7;2;0,8;" Roster Notices ";1,15-((t$)/2);" ";t$;" " 4 xtr=0"London Paddington to Birmingham"'" Calling at High Wycombe"'1;"No stop at High Wycombe today." Qtr=1"Calling at High Wycombe,Bicester"'" Banbury and Leamington Spa." "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$;"." pmc=0 !5;"Weather report : ";w$ /'" Special Restrictions :":pmc=0 5pw1=0pw2=0'" No PWS works today" 4pw1=1"PWS works MP 19.9 limit ";p1;" mph" 4pw2=1"PWS works MP 91.3 limit ";p2;" mph" bpmc=1'" The simulation will commence"'" with one minute to go before"'" departure time." pmc=0tr=1' >6;" ";1;"Press space to continue..":0 " "2525 7: 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=22 _:rr>0.5rr0.75@w$="heavy rain":mt=20 b<rr>0.75@rr1w$="mist & drizzle":mt=18 d<mt=(mt*aw*0.0224{74m):k1=(cv*41.25%)/1206: O1030:uu=v:v=v+(ac*ti):v<.05|Lv>-.05|Lac=0v=0 :d=d+((uu+(ti*ac))*(ti*2.7778E-4u )):dnd3106 ;uu0Ƽ(uu)ɼ(v)ac=0:v=0:acb=0 ((v-ov).1}Lv=03092 2(pt/20)-(pt/20)=0di=1 [(d-od).1}L2,26;(d*10 )*.1}L;" ":od=(d*10 )*.1}L Npt=pt+ti:tst=65160:owt=0dtw=0sig=0di=0 owt=11510 @sig=1sd+sm-d <0sig=1v=01650r ~dtw=1sig=1nsy=0sig=1nsr=1sd+sm-d >08,22;((sd+sm-d)*1760);" " iden=1as=0sts=0air=0sfs=0di=1o=0sos=01000  ; (v-(v))<.1}L11 ,9 ;(v);".0 ":ov=v: 611 ,9 ;(v*10 )*.1}L;" ":ov=v: vddtt=ddtt+(4*ti):ddtt>8dam=05;17,10 ;"Damper On":dam=1:bl=0: &>ddtt60<18,19;s$(13 ):svo=1 0 :"o"3130: D0.25~,20: Nrk$=u$(1)(165100L):kx=u$(1)(165100L):tr=kxkx=2c$=k$:3170b X b75,9 ;s$(23);5,9 ;c$;: ^h=pt*ck:mi=(h-h)*ck2:s=((mi-mi)*ck2):65150~,(h):65151,mi:65152,s: 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 Inter City'","Non-stop to Birmingham",12 ,0,0,9 ,2,1,4000,0.25~,32340T~ "09:10 Paddington-Birmingham","Next stop High Wycombe",12 ,0,0,9 ,2,1,4000,0.25~,32940 43+,0.12}u[,7.7vfff,130,250,9770.1ff,0.15E-3tIQ,34.3 333,4000,67.5,"6000 King George V","6001 King Edward VII","6005 King George II","6007 King William III","6011 King James I","6015 King Richard III","6020 King Henry IV","6024 King Edward I" 35#,0.09}8Q,6.6S333,120x,225,8792.8 c33,0.12E-3s{h,29.4k333,4000,58.9k,"4079 Pendennis Castle","4082 Windsor Castle","5022 Wigmore Castle","5026 Criccieth Castle","5046 Earl Cawdor","5063 Earl Baldwin","5070 Sir Daniel Gooch","5097 Sarum Castle" % Track-Info  N  : H%, - Shut1/8 1/4 3/8 1/2 5/8 3/4 7/8 Full vawgo! dD PaddingtonecS mnwweiftisilmmmmwLPaddington Stationtthwbbooedtou}̢lssu k<aA pw1=1"PWS works MP 19.9 limit ";p1;" mph" 4pw2=1"PWS works MP 91.3 limit ";PLUS3DOS@sd???????????????????????????????????????????@||~<~B<B~>B~|<>@BB@@@b@B@b@BBD@BB|<|R<~|R|B@(@||@@JB@J@|@@@D@B@FBB@F@DB@Track-Info  N @B~<~B<B~>B~B<>@@@<|@@<@B<<<<|<B8888D88D@8x8<8h@888B8xD<@8(BBB@888hB8D8D@hD888x8BD@DT0Tx0DD DD T@D<@@DDD 0DxB<<<DTB0TD<0TD0DD@|x<8xT<TDxD DD BBx<<<< <B~|<>@PLUS3DOS@!@!X!@!X*K\*J~( w# #V#"J>!4:Oʚ4:<ʦ>2!4:<ʾ>2!~4>>>:>>:>>>:~2:0:0C ' !4Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N         Track-Info ! N!!!!!!!!! Track-Info " N""""""""" Track-Info # N######### Track-Info $ N$$$$$$$$$ Track-Info % N%%%%%%%%% Track-Info & N&&&&&&&&& Track-Info ' N'''''''''