ZXTape! 2k Mendips StoneDee-Kay Systems1986English Simulation? ROM LoaderOriginalTZXed by Brian Goochms ~~  64999 v1.0  7 "mss" 18,1 "ms" 18,1 "msg" |mss @D`   0       0 ` 0B~Bx>|<<B<f@bDB@@Bb@888x<@88D888x8BBbbbBZ|RBB<<BR|0@D<0DD@DDDDDBBRRR@B@JB|BJ@8D@<<B<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<<<88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888899999999999999999898888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888999999999999999999999999999999998888888888888888888888888888888888888888888888888888888888888888bms  !@!X!@!X P P P P P 3/MMXXL8Wq !v ><<<<<<<<<<<<xDBBDx~@|@@~~@|@@@>BB<DHpHDB@@@@@~BfZBBBBbRJFB-.484w*z:320@ 6Oz=90Z-v:ri=9.7333+.2~L*z:r1=28.14aR-.541 ~*z:320@ @Xlo=ri*ef*co/5:rs=r2+r1*ta:ft=0:kp=jp:v<24jp=0:330J A jp=1 J kpjplw=124|ft=2 T(lo>115slo=115s:ft=3 ^ X 610b b!="p"co<5co=co+1 l!="o"co>0co=co-1 v="z"b>0b=b-1 ="x"b<5b=b+1 "h"793 "r"654 :aw=1Ʀ=" "aw=2:21,4;" "   801! !$v<.1}Lv-.1}Lrs=0 "v<-.1}Lrs=-rs # gr=0 $g0gr=tw*2.24\(/g %0ff=lo-rs-gr:ac=ff*9.7403D/tw:bf=0 &%v<5bf=0.2~L*(5-v) (;bf=(bf+1.09 ):fb=-(bf*b/5):v<0fb=-fb +Ufa=ac+fb:v<10 sl=1si=(v+fa)/3600:vi=fa:ci=1:830> ,Pcf=0si=(v+2*fa)/1800:vi=2*fa:ci=2:830> .8si=(v+4*fa)/900:vi=4*fa:ci=4 >Fz=v+2*vi:z<1ƽfb>acv=0:vi=0:si=0 M:z<.1}Lz>-.1}Lfa=0v=0:vi=0 R  9980&  1010 v$=" " 8ho=0:go=0:df=1:cs=2:z$="" 's$=" " o$="" j$=" ":k$="" +c$(1)=" 6A30 Mendips Stone COY" ra=1+(*10 ):rb=1+(*10 ):rc=1+(*10 ):re=1+(*10 ):rf=1+(*10 )  9900&  h5,0;"h : 43 wagons - max speed 45MPH":7,0;"l : 37 wagons - max speed 60MPH"  "Select Train Loading ";l$ .l$="h"nw=43+:lc=45-:1050 .l$="l"nw=37%:lc=60<:1050  1037  n9900&:4,0;"Single Class 59 59001-04":6,0;"Pair of Class 56 56031-57" "Locomotive No. ";l$  l$51055 !a=15 "!l$(a)<"0"l$(a)>"9"1055 #a $3lo=l$:lo<59001ylo>59004|1065) %!lw=124|:q$=l$:10786 )3lo=l$:lo<56031lo>560571055 *q$=l$ ."2nd Locomotive No. ";l$ /l$51070. 0 a=15 1!l$(a)<"0"l$(a)>"9"1070. 2a 33ho=l$:ho<56031ho>560571070. 4ho=lo1070. 5q$=q$+"-"+l$:lw=256 6Ptw=lw+102f*nw:r2=2.7,*tw*.001wn:ta=(lw+20*nw)*.001wn 8 9600% 9,0,9 ;3;"ROSTER NOTICES" =he$="ex-works":ef=1:rb<8e$="good":ef=.95s333:rb<3e$="well-run":ef=.9ffff >)ho=0ef=ef+.18~8Q:1090B ?ef=ef*2 B8p$(1)="":p$(2)="":p1=0:p2=0 L`lp=0:re>5p1=10 +5*(ra/2):p$(1)=p1+" mph)":lp=1 VWrf>5p2=10 +5+(rb/2):p$(2)=p2+" mph)":lp=lp+1 `'dy=0:rb>5dy=6*rc jR12 ,4;"Motive power reported in ":13 ,9 ;e$;" condition" tc1=0:c2=0:c3=1:c4=2:c5=5:c6=1:fm=0:s=110.12\=p:v=0:co=0:b=2:sl=0:dx=54360X:rt=0:zh=0:a=0:bh=0:eg=0 ujp=0:sp=0:up=0:vp=0:op=0:qp=0:rp=0:m4=1:m5=1:ft=1:ci=0:vi=0:si=0:cf=0 vIcl=((c6*10 +c5)*60<+(c4*10 +c3))*60<+c2*10 +c1 y>sn=500:cc=0:pt=0:ad=0:pm=0 Kp1=0p2=015,7;"NO PWS WORKS TODAY":1210 _p1015,7;"PWS WORKS TODAY AT":16,8;"MP 88.0 (";p$(1) _p2015,7;"PWS WORKS TODAY AT":17,8;"MP 73.2 (";p$(2) #21,0;"Press any key" =""1215  ( 26102 20:7:0::0,18;"NEXT SIGNAL":1,0;"MP";18;"GRAD.":2,0;"LINE SPEED" 4Z6,0;"DISTANCE : FROM":7,11 ;"TO":9 ,12 ;"COMMENTS" 614,0;4;"********************************":15,0;3;q$;15;"MAX SPEED ";lc;" MPH" 8l17,0;"SPEED :";18;"CONTROLLER :":18,0;"AWS :";18;"BRAKES :" :%20,0;"STATUS INDICS :" < F0,0;C6;C5;":";C4;C3;":";C2;C1:0,30;cs;z$ 01,3;di;" ":1,24;g$ 2,11 ;ls;" MPH " o$=l$2708 o$=l$:4,0;s$ 7z=l$:z=(32 -z)/2:4,z;5;l$ ,6,16;m$:7,16;n$ |10 ,0;c$(1):11 ,0;c$(2):12 ,0;c$(3):13 ,0;c$(4) 617,8;sd;" MPH ":17,31;co ,18,8;a$:18,31;b 20,14;f$ 21,14;x$  3290 Qc$(2)=s$:c$(3)=s$:hz=0:sBl$="JOINING MAINLINE AT E SOMS.JNC.":sn=106.3T:4900$ HBl$="WITHAM":g=0:ls=100d:sn=105.8S:4900$ RGl$="BETWEEN WITHAM AND FROME":g=-409:sn=105i:4900$ \*g=-164:sn=104.5Q:4900$ f5l$="WOODLANDS":g=0:sn=104h:4900$ p*g=-116t:sn=103.4N:4900$ z@l$="APPROACHING FROME":g=78N:sn=103.3N:4900$ *g=-330J:sn=102.6M333:4900$ )g=-90Z:sn=102.3L:4900$ Pl$="BLATCHBRIDGE JUNCTION":g=0:ls=80P:sn=102.1L333:4900$ yl$="FROME AVOIDING LINE":g=-486:g=-486:x=101.7Kfff:hf=2:8350 :sn=101.5K:4900$ )g=264:sn=100.3H:4900$ Cl$="CLINK ROAD JUNCTION":g=138:sn=100.1H333:4900$ Xl$="BETWEEN FROME AND WESTBURY":g=-151:ls=100d:sn=98.2Dfff:4900$ Ll$="APP WESTBURY(SGNLD TO CUT-OFF)":g=-226:sn=97a:4900$ Yl$="FAIRWOOD JUNCTION":g=170:ls=80P:cf=1:sn=96.5A:4900$ cl$="WESTBURY CUT-OFF":g=0:x=96.1@333:hf=2:8350 :sn=94.7=fff:4900$ 7l$="HEYWOOD ROAD JUNCTION":sn=94.20pt=1:pl=p1:pw=1  sn=88X:4900$ p1>0pt=2 sn=87.8/:4900$ 2p1>0pt=0:pm=1:ls=110n sn=87.7/fff:4900$ $Dpm=0:l$="LAVINGTON":g=222:sn=86.5-:4900$ .Gl$="CLIMBING LAVINGTON BANK":ls=100d:sn=85.5+:4900$ 8&ls=90Z:sn=85U:4900$ B)ls=100d:sn=83.3&:4900$ L)ls=110n:sn=82.2$fff:4900$ Vel$="PATNEY AND CHIRTON":g=0:x=80.8!:8350 :hf=3:sn=80.3 :4900$ `Sl$="APPROACHING WOODBOROUGH":x=80.8!l$="APP.WOODBOROUGH(25 MPH LOOP LMT)" e(g=343W:sn=79.4:4900$ j2x=80.8!l$="WOODBOROUGH LOOP":ls=25 osn=78.9:4900$ tHl$="WOODBOROUGH":g=255:ls=110n:sn=77.7fff:4900$ ~9l$="MANNINGFORD":g=-348\:sn=76L:4900$ Cl$="PEWSEY":g=260:ls=100d:sn=74.7fff:4900$ +p2>0pt=1:pl=p2:pw=2 sn=74.3:4900$ ;l$="LEAVING PEWSEY":g=0:sn=73.2fff:4900$ p2>0pt=2 sn=73I:4900$ 2p2>0pt=0:pw=1:ls=100d =l$="WOOTTON RIVERS":g=198:sn=72.9:4900$ %p1=0:sn=72H:4900$ Bl$="CLIMBING TO SAVERNAKE":g=285:sn=71G:4900$ 6l$="BURBAGE":g=162:sn=70.6 333:4900$ dl$="APPROACHING SAVERNAKE SUMMIT":g=132:ls=90Z:cf=0:sn=70.3 :4900$ ;l$="SAVERNAKE SUMMIT":g=0:sn=70F:4900$ Il$="DESCENDING SAVERNAKE BANK":g=-106j:sn=69.5 :4900$ )g=-318>:sn=68.5 :4900$ ql$="GRAFTON CURVES":g=-183:ls=70F:x=68.4:hf=2:8350 :sn=68.1333:4900$  Cl$="CROFTON":g=-175:ls=100d:sn=67C:4900$ 6l$="BEDWYN":g=-300,:sn=66.5:4900$ &g=0:sn=65.9:4900$ (Ml$="BETWEEN BEDWYN AND HUNGERFORD":g=-255:sn=65.2fff:4900$ 2'g=-477:sn=64@:4900$ :4900$ FGl$="HUNGERFORD":g=-114r:ls=75K:sn=61.6vfff:4900$ P5x=62.1xfffl$="APP.HUNGERFORD LOOP(25MPH LIMIT)" U6g=-264:ls=90Z:sn=60.7r:4900$ Z=x=62.1xfffl$="HUNGERFORD LOOP":ls=25:3935_ \&l$="BETWEEN HUNGERFORD AND KINTBURY" _)g=-514:sn=60.2p:4900$ dCl$="APPROACHING KINTBURY":ls=90Z:sn=59.8o333:4900$ n'g=-231:sn=59;:4900$ x8l$="KINTBURY":g=-396:sn=58.5j:4900$ 8 g=-879o:ls=110n:sn=56.7b:4900$ 8l$="HAMSTEAD":g=-359g:sn=55.9_:4900$ &g=0:sn=54.9[:4900$ (g=193:sn=54.5Z:4900$ gl$="ENBOURNE JUNCTION":g=-288 :x=54.5Z:hf=2:8350 :sn=53.9W:4900$ Cl$="APPROACHING NEWBURY":g=-198:sn=53.1Tfff:4900$ 4l$="NEWBURY":g=513:sn=524:4900$ <l$="LEAVING NEWBURY":g=0:sn=51.1Lfff:4900$ 7g=-200:ls=100d:sn=50.2H:4900$ 7l$="THATCHAM":g=615g:sn=47.8?333:4900$ Hl$="BETWEEN THATCHAM & MIDGHAM":g=-410:sn=47/:4900$ Dl$="MIDGHAM":g=-622n:ls=95_:sn=46.7::4900$ 'ls=100d:sn=46.:4900$ ;l$="ALDERMASTON":g=-440:sn=43.9/:4900$ Jl$="UFTON":g=0:x=43.5.:hf=4:sn=43+:4900$ Kl$="APP.THEALE(25MPH LOOP LIMIT)":g=220:sn=42.7*:4900$ ")g=-8259:sn=42.1(fff:4900$ ,El$="THEALE RECEPTION SIDINGS":ls=25:sn=40(:4900$ $g=go4950V )+go=g:g=0g$="LEVEL ":4950V .g$="UP ":g<0g$="DN " 3z=g 8g$="1/"+z+g$ V/pt>0ad>0hz=1:sl=1 `epm=1c$(2)=" Let train clear speed":c$(3)="restriction before accelerating" jfad>0c$(2)=" Advance Warning":c$(3)=" Reduction of line speed "+ad+"mph" t`pt=1c$(2)=" Advance Warning":c$(3)="App. PWS works (Limit "+p$(pw) ~Apt=2c$(2)="PWS works.Men by side of track":ls=pl 5x$=v$:co=0b=0bh=0:5020 Yco>0b>0bh=bh+1:bh>5x$="Brakes overheating":rp=rp+3 Wv<0x$="Rolling Backwards":rp=rp+5:co>0x$="High motor current" Z"cx=cl-dx:df09700% d"v0ps>07100 %s<41.62&zGv=08400 NEi$=c$(1):v<-.5s>110.12\=pqp=10 :7100 P*v>lc+2v>ls+2rp=rp+2 S$os=(v-ls):os>47100 Uv>lc+57300 Vhz=0sl=0 W XNds=((s-ss)*1760):c$(3)=" Distance to signal "+ds+" yds " l 7:0:7: B5,2;2;1;"MAJOR BREACH OF REGULATIONS" 312 ,0;"YOU HAVE BEEN RELIEVED OF THE" 413 ,0;"CONTROLS BY YOUR CO-DRIVER,AND" 514,0;"ARE SUSPENDED FROM DUTY PENDING" 515,0;"AN APPEARING BEFORE AN OFFICIAL" ,16,0;"DISCIPLINARY TRIBUNAL." Ub$=" MOVING WITHOUT PERMISSION":ps=1b$="OVER-RUNNING A SIGNAL AT DANGER" 5os>4b$="LINE SPEED EXCEEDED BY "+os+" MPH" 4qp=10 b$="ALLOWING TRAIN TO ROLL BACKWARDS" 9 ,0;b$ 319,0;"Would you like to try again ?"  ="y" ="n"65367W:  7196 7:0:7: 95,7;2;1;"OFFICIAL REPRIMAND" 29 ,0;"TRAIN SPEED EXCEEDED BY 5 MPH" 312 ,0;"AN OFFICIAL REPRIMAND WILL BE" 213 ,0;"ENTERED ON YOUR DISCIPLINARY" 14,0;"RECORD." 219,0;"The simulation will continue" 420,0;"shortly-with your speed re-set" %21,0;"to train speed." y=11000:y sp=sp+1 v=lc 0:7:0: 2600( :2700 : @sxs08300l Ybsl=1:qm=3c$(2)=" Next signal at green":cs=4:z$="":8290b ^jqn=0:s4c$(2)="Signal red.Telephoning control." $qn=1qp>14gg=1 !Hhf=1gg=1c$(2)="Await signal to clear for m/line" &Ghf=3gg=1c$(2)="Axle box chk.Await instructions" 0Ghf=4gg=1c$(2)="Pathing problems.Await sig.chg." :>qn=1gg=1dy=dy-1:dy<0qq=1 Doqq=1qm=2:cs=4:c$(2)=" Signal cleared to green":c$(3)=s$:c$(4)=s$ N2s0a$="Warning" vEaw=121,4;1;6;""  Nrc=1+(*10 ):re=1+(*10 ):rf=1+(*10 ) 1dy=30+3*rc:rf<8x=500  9600% 20,1;"Arrived safely at THEALE YARD" 7,0;"haul" 012 ,3;"Running time from MEREHEAD" rt=((cx+30)/60<) "13 ,10 ;rt;" minutes" 4rt=rt-lp*4-100d:rt0rt=0 ! Gwp=(100d-rt-sp*30-rp/10 -vp):wp<0wp=0 !g15,0;"NUMBER OF REPRIMANDS : ";sp:17,0;"DRIVERS PERFORMANCE RATED ";wp;"%" !,21,0;"Another turn of duty ?" !="n"7197 ! ="y" ! 8476! !*'lp=0:p1>0lp=lp+1 #(&di=(10 *(s+.1}L))/10 #2cl=cl+ci:s=s-si:v=v+vi:c1=c1+ci:c110 c2=c2+1:c1=c1-10 :c2=6c3=c3+1:c2=0:c3=10 c4=c4+1:c3=0:c4=6c5=c5+1:c4=0 #m4=(112.3`-s) #?m4>9 j$="" #@ m$="Merehead "+j$+m4+"m " #P+m5=(s-41.6&fff)m5=09060d# #Q)m5=(s-41.6&fff):m5<10 k$=" " #S n$="Theale Yard "+k$+m5+"m " #dv1v<0sd=(v) #n!v>0v<1sd=1 #xv=0sd=0 ##ft0co=0ft=1 #1b=5ft=4:v>0rp=rp+3 #$b=4v>0rp=rp+1 ##aw=0aw=2eb=0 #%aw=1b<5eb=eb+1 #>eb>3vp=vp+1:eb>6b=5:ft=5 #f$=v$:ft=09300T$ #(9200#+10 *ft) #%f$="Engine idling ":9300T$ $%f$="Alternator change ":9300T$ $%f$="High motor current":9300T$ $%f$="Emergency Brake ":9300T$ $"f$="AWS Brake applied " $T %g:2,7;3;"6A30 MENDIPS STONE":3,4;4;"(15.06 Merehead-Theale)" %)6,3;"TODAY'S TRAIN : ";q$ %:7,0;"Loading ";nw;" wagons with max speed" %8,14;lc;" mph." %.10 ,4;"(Laden weight tons)" %*nw=37%10 ,18;"3794": %10 ,18;"4386": %v>09730& %t:c$(2)=" Departure signal not set":c$(3)="Awaiting arrival clearing branch":ps=5:aw=2 %>cx>960c$(3)="Incoming train taking Chord line" %scx>1020+dyc$(2)=" Right away.Depart when ready":c$(3)=s$:ps=0:aw=0:cs=4 & &c$(2)=s$:df=0 & &7:0:7 &i:0,7;1;"6A30 MENDIPS STONE":1,4;4;"(15.06 Merehead-Theale)": '7:0:7:   %<!|:(d]/ =qs\=pvbXD\333 gxz)ڣ\fff 򈡱b!bNޚL\) 19 mph) Å 6A30 Mendips Stone COY Departure signal not set Awaiting arrival clearing branch V ZS J KQ59001Eex-worksLMEREHEAD QUARRY JUNCTIONG1/54DN MMerehead 2m NTheale Yard 68m OMEREHEAD QUARRY JUNCTIONX I 6A30 Mendips Stone COY FEngine idling AWarning