RTC EXETERJJL &0:0::0:6 :5,8;" ";0;3;"" :6,8;" RAILWAY ";0;3;"" :7,8;" TRAFFIC ";0;3;"" #:8,8;" CONTROL ";0;3;"" (:9 ,8;" EXETER ";0;3;"" -;10 ,8;" ";0;3;"" 2811 ,8;3;0;"" 7818,8;1;1;" 1990 A.GREENUP" 100dz=100d:84T Rz<5z=5 TB0,2;7;1;"RAIL TRAFFIC CONTROL EXETER" V?8,5;7;1;"EFFICIENCY RATING ";z;"%" X:21,2;7;"DO YOU WISH TO PLAY AGAIN ?" Y ="y" Z ="n" [ 89Y d<21,0;" ":"INPUT: ";i$:i$=""280 ni$(1)="p"200 x a=-1 "i=15:i$=l$(i)a=i i 6a=-1z$="NOT ALLOWED":q=q+3:250 ;a(a)>500z$="NO TRAIN DUE":q=q+3:250 a5160 6a(a)>7z$="TOO EARLY TO SET ROUTE":250 170 Ca(a)>5z$="TOO EARLY TO SET ROUTE":q=q+3:250 O21,0;7;1;a$(a,214):z=e(a):300, "EXIT: ";e$:e$=""280 e$(1)"p"190 Iq$=e$:9900&:zz=1z$="NOT ALLOWED":q=q+3:250 8p(p)>0z$="NOT ALLOWED":q=q+3:250 1850::250 *q$=i$:9900&:zz=1225 p(p)>1230 *z$="NOT ALLOWED":q=q+3:250 Fp(p)>300,z$="NOT READY FOR DEPARTURE":q=q+3:250 >21,0;7;1;p$(p):z=f(p):300, "EXIT: ";e$:e$=""285 e$(1)"p"246 0q$=e$:kp=p:9900&:zz=1225 p=kp 1850: *21,0;" " z$=""285 521,0;" " >21,16-z$/2;0;7;1;z$ 1.5@,-2 521,0;" " " (z>20z<32 )z=68Dz=73I(f$(z)>33000ưf$(z)<33007)21,13 ;7;0;1;"+";f$(z): 721,13 ;7;0;1;f$(z): :bo=0:650 Ax$=" ":n$="00000000000000":s$=n$ Qc$="0900":h=539:u=0:v=0:q=0:bs=0:wr=1  470 i=15 !a(i)=501:l$(i):a$(i)=x$ i hb(1)=1:b(2)=22:b(3)=26:b(4)=31:b(5)=58: "dm","bs","wr","um","dw" i=16:l(i):i 718,20,17,15,14,12 W13 ,0;7;"THE TRAFFIC DEPARTMENT REPORTS:-":j=13 :e=0  14,1;x$ )i=15:i1570: ~z$="":x=1+(*502):t$="AT TAUNTON":x>45-n(i)=20+(*11 ):z$="SEVERE DISTUPTION ":5600 Lx>40(n(i)=10 +(*11 ):z$="ENGINEERING WORK ":5600 Bx>35#n(i)=10 :z$="OPERATIONAL PROBLEMS ":5600 &%x<36$n(i)=0:570: 0dj+2,(32 -z$)/2;7;z$:j=j+3:j,11 ;t$:j=j+1:e=1 :i Dn(2)=n(1) Nm"Pnz","Pgn","Nqy","Plm","NAb","Pad","Cdf","Swn","Swd","Ntm","Dby","Mlt","Man","Liv","Lds","Bdf","New","Gla" OC"Abd","Exm","ExC","Wtl","Btn","Bsp","Ext","Ext","Ext","WRd","ECS" Xrp$(1)="2F07 Ext-Exm":p(1)=327G:k(1)=20:r(1)=926:f(1)=21 Yrp$(2)="2B68 Ext-Bsp":p(2)=3073:k(2)=24:r(2)=906:f(2)=74J Zpp$(4)="1C11 Swd-Pnz":p(4)=302.:k(4)=1:r(4)=901:f(4)=1 [p$(5)="1E23 Plm-New":p(5)=303/:k(5)=17:r(5)=902:f(5)=18:o(1)=124|:o(2)=175 l;e=015,7;7;"NO PROBLEMS TODAY" v821,3;7;"PRESS ANY KEY TO CONTINUE" {=""635{  K700:x=107k125}:a1,a2:b$(x)=(a1+1+((*a2))):x 47483{,1,474168,8,47430F,6,47424@,4,47494,3,47555ù,5,47499,1,47519,9 ,47528,12 ,47600,18,47619,5,47624,4,47649!,9 ,31428z,35#,33001,6,33007,6,33014,9 ,33024,11 ,33201,12 >:f$(80P,6):j(140):neo=1:800   n1,n2,n3 n1=99c780  x=1n1 `eng=(*n2)+n3:j(eng)=0f$(neo)=b$(eng):neo=neo+1:j(eng)=1:x:725  765  W13 ,31,1,6,12 ,32 ,13 ,13 ,44,,16,33!,579,6,17,90Z,4,4,107k,5,5,111o,4,4,116t,1,1,120x,4,4,121y,1,1,125},4,11 ,126~,99c,99c,99c * pi0:0::0,0;6;0;1;"W EXETER ST DAVIDS ";31;"E" z81:7:2,8;"EAST END ARRIVALS" 8"DM":"BS":"WR":7,8;"WEST END ARRIVALS"  "UM":"DW" %12 ,0;"6";31;"6" %14,0;"5";31;"5" %15,0;"4";31;"4" %17,0;"3";31;"3" %18,0;"1";31;"1" !20,0;31;"2" 6:1 X12 ,1;x$:14,1;x$:15,1;x$:17,1;x$ N17,1;x$:18,1;x$:20,17;x$(14) 0:0   590N j=1x:q$:j  .15~,10 `h=h+1:bs=bs-1:mo=(h/60<):mo=h-mo*60<:z$=mo:z$=1z$="0"+z$ .z$=(h/60<)+z$:z$=3z$="0"+z$ -c$=z$:n$(89 )="21"wr=1  Ra(2)=11 bs>0a(2)=a(2)+bs:bs=0:1040  -a(2)=11 bs<1bs=10 -i=114:n$(i)="0"1060$ y=n$(i)-1:n$(i)=y $i .+i=114:s$(i)="0"1090B 8y=s$(i)-1:s$(i)=y Bi Ld=15 VJa(d)=a(d)-1:a(3)=10 wr=0a(3)=11 Xa(d)5001290  [:d=3a(3)=500h540wr=0 ` a$(d)=x$ jOz$=d$(b(d)):f=q(b(d)):t=u(b(d)):s=v(b(d)):m=x(b(d)):l=y(b(d)):g=z(b(d)) os<900s=s+1000 ~Kb(d)=b(d)+1:e(d)=l:t(d)=t:c(d)=g:t$=s:s<1000t$="0"+t$ y$=" " Jy$=y$+z$+" ":x=f:960:y$=y$+q$+"-":x=t:960:y$=y$+q$+" " &mo=(s/100d):mo=s-mo*100d 's=60<*((s/100d))+mo:w=s+m $mo=(w/60<):mo=w-mo*60< (w=100d*((w/60<))+mo:d(d)=w ;x=1+(*10 ):x<7b=0:1190 1x=10 b=1+(*20):1190 b=1+(*5) (b=b+n(d):s+b-h<6b=h+6-s z$=" " m21240 -n=2:g>9 g<100dn=4 !g>0g<10 n=8 m>n+bm=m-b:1240 m=n Bm01+(*10 )<4m=m+1:1260 6m01+(*10 )=1m=m+2 7z$="Due "+t$+" ":b=0q$="on time":1280 &q$=b+" late":b<10 q$=" "+q$ Iz$=z$+q$:a$(d)=y$+z$:m(d)=m:a(d)=s-h+b:m=0a(d)=a(d)+1  d &i=16:p(i)=p(i)-1 2jp(i)=499(o(i)=0o(i)>9 )p(i)=299++s(i):o(i)>9 o(i)<100d1370Z <)p(i)=0o(i)>100d1420 F)p(i)=496o(i)>11791 K%p(i)=496p(i)=296(+s(i) P 1390n Z23560 :j=0(o(i)-10 ):z$,x,y:j d 960:p$(i)=z$+" Ext-"+q$ ek(i)=x hy=01390n jo(i)=y ni x70,26;4;c$:sf=0:1490  ,mo=(r(i)/100d):mo=r(i)-mo*100d !z=60<*(r(i)/100d)+mo )h-z<30w(o(i)-100d)=w(f(i))  8i=15:j=i+2:i>3j=j+2 :Y$=A$(i):a=a(i):1505:a$(i)=y$(114) %i=59100#:1570" 4a>500Y$=a$(i,14)+"Sgnld to station" Oa=501(a=502m(i)0)y$=a$(i,14)+"Running into stn" i21530 a>10 1530 3a10 y$=a$(i,14)+"Run. ex Crediton" 7a51770:y$=a$(i,14)+"App."+z$ Gi=3a5wr=1y$=a$(i,14)+"Stock Ready " Ia4m(i)=0ưa$(i,2)<3sf=0q=q+1 ra(i)2y$=a$(i,14)+"Held apprch sigs":(a$(i,2)<3a<-8)sf=0q=q+2 #i=2a2rs=2 Gi=3a2wr=1y$=a$(I,14)+"Stock waiting " _i=3(a>5a<500)wr0y$=" Waterloo stock being serviced":1562 [((i=2a>10 )(i2a>15))a<500(i=3wr=0)y$=x$ ,j,2;7;0;0;y$ "i ,i=16 6"i=2z=2:1600@ 8 z=1 @`p(i)>500z$=p$(i,13 )+"Arrival signalled":z=2z$=z$(5)+"Arr.sgnld" J`p(i)=500z$=p$(i,13 )+"Arrvd in platform":z=2z$=z$(5)+"Arrived " T+p(i)<497p(i)>4991630^ YBo(i)=1z$=p$(i,13 )+"Loco on run round":1630^ [Do(i)>1o(i)<10 z$=p$(i,13 )+"Changing Loco " ^&y$=r(i):r(i)<1000y$="0"+y$ hxp(i)>300,p(i)<497z$=p$(i)+"Due depart "+y$+" ":z=2z$=z$(5)+z$(10 12 )+" d"+y$ rhp(i)300,z$=p$(i)+"Ready to depart ":z=2z$=z$(5)+z$(10 12 )+" Ready" |Gp(i)<300,p(i)>2p$(i,1)"5"sf=0q=q+1 ^p(i)=1z$=p$(i,13 )+"Departing station":z=2z$=z$(5)+"Departing" Jp(i)0p$(i)=" ":z$=x$:z=2z$=z$(14) "j=3:i=2j=18 8l(i),j-2;6;0;1;0;z$ i  z$=p$(i)  0 s$07 1,0;"":0 n$07 1,31;""   18400:k=1i:z$:k   1799 j=2o(i):l:j ,mo=(r(i)/100d):mo=r(i)-mo*100d !z=60<*(r(i)/100d)+mo h-z<45-w(k)=w(f(i)) f(i)=l  73I,69E 0@"Cowley Br Jc","Cowley Br Jc","","St Thomas St","Exeter Ctrl " :z$="" ? e$="" Di$"dm"1910v N2e$="p1"e$="p3"m$="10010022200000":2960 X*e$="p4"m$="10010020000000":2960 b2e$="p5"e$="p6"m$="10010220000000":2960 l 2950 vi$"bs"1950 8t(a)=26e$="p2"m$="01110022200000":2960 8t(a)=27e$="p6"m$="01110220000000":2960  2950 i$"wr"1970 ?(e$="p1"e$="p3")wr=1m$="00000001200000":2960  2950 i$"um"2040 )t(a)=20t(a)=232010 2e$="p6"e$="p5"r$="12200000000000":2970 *e$="p4"r$="12002000000000":2970 *e$="p3"r$="12002200000000":2970 *e$="p1"r$="12002022000000":2970  2950 i$"dw"2080  *e$="p1"r$="00000004420000":2970  *e$="p3"r$="00000440420000":2970  2950  i$"p1"2150f *Ie$="wr"k(1)=28wr=0m$="00000002100000":2980 4Qe$="um"k(1)>5k(1)<20m$="00201011100000":2980 >=e$="dm"k(1)<6r$="00021011000000":2990 HRe$="uw"k(1)>19k(1)<24r$="00000001004000":2990 RRe$="dw"k(1)>19k(1)<24r$="00000001140000":2990 \ 2950 fi$"p2"2180 p$bs>1z$="Branch Conflict": z*e$="bs"m$="02201011100000":2980  2950 i$"p3"2240 Ie$="wr"k(3)=28wr=0m$="00000002100000":2980 Qe$="um"k(3)>5k(3)<20m$="00201011100000":2980 =e$="dm"k(3)<6r$="00021100000000":2990 Re$="dw"k(3)>19k(3)<24r$="00000110140000":2990  2950 i$"p4"2280 Qe$="um"k(4)>5k(4)<20m$="00201010000000":2980 =e$="dm"k(4)<6r$="00021000000000":2990  2950 i$"p5"2320 Qe$="um"k(5)>5k(5)<20m$="00201100000000":2980 =e$="dm"k(5)<6r$="00121000000000":2990  2950 i$"p6"2950 ,e$="bs"bs>1z$="Branch Conflict": $>e$="bs"k(6)=24m$="02201100000000":2980 .Qe$="um"k(6)>5k(6)<20m$="00201100000000":2980 8=e$="dm"k(6)<6r$="00121000000000":2990 !z$="NOT ALLOWED":q=q+3: r=1:3000 r=2:3000 r=5:3000 r=6 3020 "mo=(r/4):mo=r-mo*4 G(mo=1u=1)(mo=2v=1)31200 :3007 4z$="CONFLICTS WITH OTHER SET ROUTE":q=q+1: e$="bs"bs=10 e$="wr"e(3)=f(p)  Bc=0:u=0:v=0:r=2r=63080 5i=114:n$(i)="0"m$(i)="0"3050 c=1 i c=0u=1 r=1r=5 @c=0:i=114:s$(i)="0"r$(i)="0"3090 c=1 i c=0v=1 & 0r>43260 D/a(a)>2a(a)=a(a)+500:3150N Fa(a)=502 Nr=13200 P*(r=3r=4)a(a)=a(a)-1 XAp(p)=a(a):y=a(a)-502:r=3y=y+3:3170b Zr=4y=y+1 b+i=114:r$(i)="0"3190v lx=y+r$(i):r$(i)=x vi r=23270 Ap(p)=a(a):y=a(a)-502:r=4y=y+3:3220 r=3y=y+1 +i=114:m$(i)="0"3240 x=y+m$(i):m$(i)=x i 3270 p(p)=1 !r=1r=53480 !r=2r=63520 -r=3r=43480 :3520 r>4 +dh=1:a$(a,1)"*"dh=2 \p$(p)=a$(a,dh14):f(p)=e(a):r(p)=d(a):s(p)=m(a):k(p)=t(a):o(p)=c(a):3330  i=114 y=n$(i)+m$(i):n$(i)=y i  i=114 y=s$(i)+r$(i):s$(i)=y i  "2F08",20,125},"2F09",20,126~,"2C14",5,0,"2F10",20,127,"2F11",20,128,"2F13",20,130,"5F15",21,132,"2F14",20,131,"2F16",20,0,"2F17",20,0,"2F18",20,0,"2B70",24,171,"2B74",24,176,"2B76",24,0,"5V07",28,0,"5V08",28,0,"5V09",28,0,"5V11",28,0 "1V30",11 ,2,935,3,14,119w,"1C13",6,1,12 ,3,2,0,"1C17",7,2,23,3,491,153,"1V32",18,1,33!,3,62>,0 "1C19",6,1,102f,3,3,0,"1V36",12 ,1,122z,3,59;,0,"1C20",8,1,129,3,64@,0,"1C21",6,2,140,3,33!,143 "1V39",13 ,3,200,3,34",0,"1V41",16,2,210,3,15,0,"1C26",6,1,218,3,35#,0 "1C28",6,2,226,3,4,112p,"1V43",17,2,236,4,16,0,"1C32",6,1,250,3,5,0,"1V45",10 ,2,258,3,63?,0 "1V49",14,2,339S,3,68D,0,"1C36",6,3,354b,3,36$,0,"1C38",6,2,413,3,502,0,"1V55",14,1,426,4,557,0 u"1C42",6,1,435,3,6,0,"1V59",13 ,2,512,3,17,0 "2B67",24,27,17,21,70F,21,"2B69",24,26,145,67C,75K,22,"2B71",24,27,316<,86V,71G,23,"2B75",24,26,506,546,76L,0 l)"1O19",25,22,930,8,44,,0,"1O20",25,22,130,8,0,0,"1O21",25,22,212,8,0,0,"1O22",25,22,327G,8,0,0,"1O23",25,22,610b,8,0,0 ~"1M37",2,13 ,915,3,65A,0,"1A28",1,6,923,2,7,106j,"1A33",2,6,953,3,8,0,"1M86",2,14,7,3,60<,0,"1A35",1,6,26,3,9 ,0,"1S84",2,18,40(,3,37%,0,"1S71",1,19,524,4,38&,0,"1E56",2,17,107k,3,39',0,"1A42",2,6,120x,3,513,0,"1Z33",1,6,130,8,66B,0,"1A38",1,6,134,2,10 ,0 O"1M85",2,13 ,154,3,19,0,"2F12",5,20,200,12 ,20,129,"1A43",2,6,210,3,40(,0,"1E65",3,17,218,3,568,0,"1A46",1,6,233,3,524,0,"1E91",1,17,255,2,67C,0,"1M62",3,13 ,3051,3,579,0,"1E78",1,15,322B,3,58:,0,"1A52",2,6,338R,3,535,0,"1M83",1,14,345Y,3,41),0 _"1O86",1,23,402,15,42*,2,"1A53",1,6,410,3,11 ,0,"1A60",3,6,432,3,546,0,"1Z37",4,6,449,9 ,61=,0,"1A61",2,6,453,3,12 ,0,"1B36",2,8,505,3,43+,0 !4)"2F35",20,25,927,30,22,10 ,"2F36",20,25,957,31,23,11 ,"2F37",20,25,23,32 ,24,12 ,"1V07",22,25,40(,5,45-,24,"2F38",20,25,58:,14,25,13 ,"2F39",20,25,123{,21,26,14,"1V08",22,25,154,5,72H,25,"2F40",20,25,209,31,27,15,"1V09",22,25,235,5,46.,26 !>"2F41",20,25,247,8,28,16,"2F42",20,25,3073,5,29,17,"1V10",23,1,315;,10 ,47/,3,"2F43",20,25,343W,28,30,18,"2F44",20,25,417,25,31,19,"1V11",22,25,432,5,480,27,"2F45",20,25,446,26,32 ,20,"2F46",20,25,507,30,77M,0 #(/0:0::6:1:1 #-#5,9 ;" " #2#6,9 ;" RAIL TRAFFIC " #7#7,9 ;" CONTROL " #<#8,9 ;" " #A,9 ,9 ;2;" EXETER " #F$10 ,9 ;" " #U0:0:7 #Z.13 ,4;"AWAITING TRAFFIC REPORTS" #_.14,4;"FROM CONTROL-PLEASE WAIT" #`8100:0 #a<i=174J:d$(i),q(i),u(i),v(i),x(i),y(i),z(i):i #b 9950& #d #procDW #4a>504y$=a$(i,14)+"Signalled to Ctr" #5a=504y$=a$(i,14)+"Running into Ctr " #6a=503y$=a$(i,14)+"At Ctr Station " #@a=502a=501y$=a$(i,14)+"Descending Bank " #>a71780:y$=a$(i,14)+"App Exeter Ctr " #Sa4y$=a$(i,14)+"Held App.Central":q=q+2:a(5)=4 #)a>15a<500j,2;x$: #.j,2;0;7;0;y$: & zz=0 &q$=q$(2) &"zy=q$:zy=0zz=1: &zy=29910& &zy>1zz=1: &q$<"0"q$>"6"zz=1: &*p=q$:p<1p>6zz=1: & &zz=1: & 9960& &&i=015:a:("a"+i),a:i &0,126~,66B,90Z,90Z,66B,126~,0,0,38&,101e,166,245,37%,38&,0 & '10:7:0:0::7: '%x=1137:x;" ";f$(x):x Ja#a ycLz+hGuvqeftsUmlg wbnpr‰25300125300225300325300425300525300625300725300825300925301025301125301225301325301425301525301625301725301825302825302925303025303125303225303325303425303525303625303725303825303925304025304125304225304325304425304525304625304725305125305225305325305425305514201514201614201714201814201914202014202114202214202314202414202514202614202750001 50002 50003 50004 50005 50006 50007 50008 50009 50010 50010 50011 50013 50014 50015 50016 50017 50018 50019 50020 50027 50028 50029 50041 50042 50043 50044 50045 50046 50047 50048 50049 50050 50021 50022 50023 50024 50025 50026 50030 50031 50033 55033 50034 50035 50036 50037 50038 50039 50040 47484 47424 47436 47428 47496 47557 47500 47521 47535 47603 47624 47628 47657 31453 33006 33012 33022 33033 33202 118460118461118462118463118464118465118466118467118468118469118470 e nM00000002100000X N00000000000000S00000000010000T0957Q1R00000001140000C0943IwrEdwY00Z ! g !! !!!)n!|1V301C131C171V321C191V361C201C211V391V411C261C281V43 o|   o|o| !fzo|o|1>;@!"#o|wzP253040253032253031253035253007253037253009253005253036