ZXTape! 0Created with Ramsoft MakeTZXRugby z[ ** RTC Rugby ** 1988 AMG Computer Programs 16 October 1988 A7:7:0:0:0:0:7: A#0;1,3;1;"Rail Traffic Control Rugby" 0,0; ( "SCREEN" -[6:6:#0;0,0;1;6;31;" ";31;" " 2&6:1:20,0; < "GRAPHICS" F20,0; P "PROGRAM" SCREEN @1 ?}@ 0C=0@( *SHp:?BX  ?000 SH`1%Bx` T  ??0 > 0xx?{FSH  #ApT   ?|1 0 #DEP(0> #A@)Tp 0 x ?x```0Fx& 4 AeQ F8M.T @ ??0 ?0x|!>%O|~QH ~I(=T> b `3@0 8 !1 `od ?`@I( ԁ ! 0>4~@#0@> B@`| SH6tB@ 0H!%B` "H@-9B p,PL(U8p¡.   $(@!,@ `L(@Xiz0Q ?0a 4B@-50L(U 0 h @ d+8 $0Q @ ` h߀`a @b' =/0i@ {/ C`@ !`0$@+X4B L(U!0(@@'$`0$ @  0B0J  <7@|?#ɀ^(@+H80n@ J(U0`)X`b @$ B5@ p h   R1 [> p4|x0!0H@Y)P J(T'@~ $ pB0H@ 0A2?S4`BF` ?  Hb , Àp?B"P"xC|y<H@Y(8bC  J$T   0 @ .dMŀ  ?0 Cc B" H!B@!BB(H Y(Ê0PE   &$*80)g  1ȟ@x00 XI01 =2`C &!8A|"OP$H!B BB(HT(Y 2`q   '*@ X2 G IF n8>! D"`qHD$(&,| BC(DD((D@!BB$(Caaf$J, /?` wX`` $D$ !B99c)+(g$(x)Ưl$(x)<100d) Ij(x)=(l$(x)Ưl$(x)<100d)+(l$(x)-100dƯl$(x)>99c) #g$(x)=((l$(x)+100d)) I1900l:1300:2;1;6;0,27;T$ d 1000 x 9000(# }t$>"1614"4000 G4500:2500 :5000:3000 :6000p:100d F(1101Ma=1)+(1301a=2)+(1501a=3)  H(""l$(x)="6");(""l$(x)>"c");:l$(x)<"6"a$(l$(x),4)  $z$="000":z=p$(v):x=4 &y=31-1 (z-x0z$(y)="1":z=z-x *x=x/2:y: LC2,22;"";3,21;"";3,30;"";4,1;" ";4,29;"";5,1;" ";6,1;" ";7,8;"";7,16;"";8,7;" ";9 ,1;" ";10 ,1;" ";11 ,10 ;"";11 ,29;"";12 ,9 ;" ";2;"Northern Approach";0;" ";13 ,1;"" VV4,1;:x=26:1050:5,1;:x=27:1050 XE4,5;٨s(1);"";5,5;٨s(2);"" Z4,6;(""s$(1)"1");(""s$(1)="1");5,6;(""s$(2)"1");(""s$(2)="1");6,8;(""s$(2)"1");(""s$(2)="1") \W4,9 ;:x=23:1050:5,11 ;:x=24:1050 ^,6,11 ;:x=25:1050 `N9 ,1;:x=29:1050:9 ,5;٨s(4);"" b|s$(4)"1"9 ,6;"";8,7;"";7,8;"";6,9 ;"";5,10 ;"" ds$(4)="1"l$(29)"6"9 ,6;"";8,7;"";7,8;"";6,9 ;"";5,10 ;"" fs5,11 ;:x=24:1050:4,13 ;٨s(6);"";5,15;٨s(7);"" hv=1:1060$:4,14;(""z$(1)="0");(""z$(1)="1");5,16;(""z$(12)="00");(""z$(2)="1");(""z$(12)="10") jv=2:1060$:5,17;(""z$(1)="0"z$(3)="0");(""z$(1)="1");(""z$(3)="1");6,18;(""z$(23)="00");(""z$(2)="1");(""z$(3)="1") lv=3:1060$:6,19;(""z$(1)="0"z$(3)="0");(""z$(1)="1");(""z$(3)="1");7,20;(""z$(23)="00");(""z$(2)="1");(""z$(3)="1") nv=4:1060$:8,9 ;(""z$(1)="0"z$(3)="0");(""z$(1)="1");(""z$(3)="1");9 ,10 ;(""z$(23)="00");(""z$(2)="1");(""z$(3)="1") p8,11 ;(""s$(8)"1");(""s$(8)="1");9 ,12 ;(""s$(9 )"1");(""s$(9 )="1") r6,2;:x=28:1050:6,1;٨s(3);"":6,6;(""l$(28)<"7");(""l$(28)>"6") t10 ,2;:x=30:1050:10 ,1;٨s(5);"":10 ,6;(""l$(30)<"7");(""l$(30)>"6") vv=5:1060$:6,15;(""z$(12)="00");(""z$(1)="1");(""z$(2)="1");7,16;(""z$(2)="0");(""z$(2)="1") x)v=6:1060$:7,27;(""z$(1)="0"z$(3)="0");(""z$(1)="1");(""z$(3)="1");8,26;(""z$(23)="00");(""z$(3)="1"):z$(2)="0"z$(3)="0"8,27;"";9 ,29;"";10 ,30;"" zWz$(2)="1"8,26;"";9 ,29;"";10 ,30;"" |;v=7:1060$:8,25;(""z$(1)="0"z$(3)="0");(""z$(1)="1");(""z$(3)="1");9 ,24;(""(z$(2)="0"z$(3)="0"));(""z$(2)="1");(""z$(3)="1"):z$(2)="0"9 ,25;"";10 ,29;"";11 ,30;"" ~Yz$(2)="1"9 ,25;"";10 ,29;"";11 ,30;"" .8,15;٨s(8);"";9 ,15;٨s(9 );"":8,16;:x=21:1050:9 ,16;:x=22:1050:8,20;(""l$(21)<"7");(""l$(21)>"6");9 ,20;(""l$(22)<"7");(""l$(22)>"6") 5,22;:x=18:1050:6,22;:x=19:1050:7,22;:x=20:1050 v=8:1060$:7,28;(""z$(12)="00");(""z$(1)="1");(""z$(2)="1"):z$(2)="0"6,29;"";5,30;"" >z$(2)="1"6,29;"";5,30;"" Vs$(10 )"1"5,27;"";4,29;"";3,30;"" Vs$(10 )="1"5,27;"";4,29;"";3,30;"" Vs$(11 )"1"6,27;"";5,29;"";4,30;"" Vs$(11 )="1"6,27;"";5,29;"";4,30;"" m5,26;٨s(10 );"";6,26;٨s(11 );"";7,26;٨s(12 );"" M2;2,28;"";10 ,15;"";13 ,6;"" 1800: C2,1;"";3,1;"";4,1;"";5,1;"";6,2;" ";7,1;"";7,17;" ";8,3;"";8,17;" ";9 ,4;" ";10 ,1;"";11 ,1;"";12 ,1;"";2;13 ,10 ;"Station Area" 2;2,22;"";6,20;"";9 ,19;"";12 ,3;"";10 ,19;(2l$(12 )<"7")+(0l$(12 )>"6");""  3,1;(""l$(17)<"7");(""l$(17)>"6");:3,13 ;(""l$(17)="6");:l$(17)>"6""(";a$(j(17),4);")" !5l$(17)<"6""";a$(j(17),4) ".4,1;(""l$(16)<"7");(""l$(16)>"6"):3,22;٨s(17);"";4,22;٨s(18);"";5,20;٨s(19);"":4,13 ;(""l$(16)="6");:l$(16)>"6""(";a$(j(16),4);")" #5l$(16)<"6""";a$(j(16),4) $5,1;(""l$(15)<"7");(""l$(15)>"6");:(""l$(15)="6");:l$(15)>"6""(";a$(j(15),4);")" %Zl$(15)<"6"a$(j(15),58);" ";a$(j(15),9 15) &v=9 :1060$:6,2;(""z$(12)="00");(""z$(1)="1");7,1;(""z$(12)="00");(""z$(1)="1");(""z$(2)="1"):z$(2)="0"7,2;"";8,3;"";9 ,4;"" (Rz$(2)="1"7,2;"";8,3;"";9 ,4;"" )6,6;(s(13 )l$(14)<"7")+(0l$(14)>"6");"";9 ,6;(s(14)l$(13 )<"7")+(0l$(13 )>"6");"" *6,7;(""l$(14)="6");("("+a$(j(14),14)+")"l$(14)>"6");(a$(j(14),58)+" "+a$(j(14),13 15)l$(14)<"6") +9 ,7;(""l$(13 )="6");("("+a$(j(13 ),14)+")"l$(13 )>"6");(a$(j(13 ),58)+" "+a$(j(13 ),13 15)l$(13 )<"6") ,m10 ,1;(""s$(15)"1");(""s$(15)="1");10 ,6;٨s(15);"" .q10 ,7;(""l$(12 )="6");:l$(12 )>"6""(";a$(j(12 ),4);")" /Zl$(12 )<"6"a$(j(12 ),58);" ";a$(j(12 ),9 15) 0F10 ,20;(""l$(12 )<"7");(""l$(12 )>"6") 2g11 ,1;(""s$(16)"1");(""s$(16)="1");11 ,3;٨s(16);"" 3Z11 ,11 ;(""l$(11 )<"7");(""l$(11 )>"6") 4i11 ,4;(""l$(11 )="6");:l$(11 )>"6""(";a$(j(11 ),4);")" 53l$(11 )<"6"a$(j(11 ),4);"" 6v=12 :1060$:10 ,23;(""z$(1)="0"z$(3)="0");(""z$(1)="1");(""z$(3)="1");11 ,24;(""z$(23)="00");(""z$(2)="1");(""z$(3)="1") 810 ,24;(""s$(20)"1");(""s$(20)="1");11 ,25;(""s$(21)"1");(""s$(21)="1") :3,23;(""s$(17)"1");(""s$(17)="1");4,23;(""s$(18)"1");(""s$(18)="1") <v=10 :1060$:3,30;(""z$(1)="0"z$(3)="0");(""z$(1)="1");(""z$(3)="1");4,29;(""z$(23)="00");(""z$(2)="1");(""z$(3)="1") >v=11 :1060$:4,28;(""z$(12)="00");(""z$(1)="1");(""z$(2)="1");5,27;(""z$(2)="0");(""z$(2)="1") @K5,21;(""s$(19)"1");(""s$(19)="1") P1800: ܎3,1;"";4,1;" ";5,11 ;" ";6,12 ;" ";7,13 ;" ";8,14;"";9 ,13 ;" ";10 ,1;" ";11 ,1;"";12 ,1;"";2;12 ,14;"Southern Approach" al$(3)<"7"3,1;"";4,15;"";5,16;"" al$(3)>"6"3,1;"";4,15;"";5,16;"" 5,18;:x=3:1050:5,25;:x=1:1050:5,22;٨s(23);"";5,29;٨s(25);"" 5,23;(""l$(1)<"7");(""l$(1)>"6"s$(23)="1");5,30;(""s$(25)"1");(""s$(25)="1"l$(1)"6") l$(5)<"7"4,1;"";5,11 ;"";6,12 ;"";7,13 ;"";9 ,15;"" l$(5)>"6"4,1;"";5,11 ;"";6,12 ;"";7,13 ;"";9 ,15;"" 9 ,18;:x=5:1050:9 ,25;:x=7:1050:9 ,22;٨s(27);"";9 ,29;٨s(29);"" 9 ,23;(""s$(27)"1");(""l$(7)>"6");9 ,30;(""s$(29)"1");(""s$(29)="1"l$(7)"6") 10 ,1;(""s$(20)"1");(""s$(20)="1");٨s(20);"":11 ,1;(""s$(21)"1");(""s$(21)="1");٨s(21);"" W10 ,3;:x=9 :1050:11 ,3;:x=10 :1050 l$(9 )<"7"10 ,7;"";9 ,13 ;"";8,14;"";7,15;"";6,16;"" l$(9 )>"6"10 ,7;"";9 ,13 ;"";8,14;"";7,15;"";6,16;"" 6,18;:x=4:1050:6,26;:x=2:1050:6,17;٨s(22);"";6,25;٨s(24);"" 6,22;(""s$(24)"1");(""l$(4)>"6");6,30;(""l$(2)<"7");(""l$(2)>"6") Gl$(10 )<"7"11 ,7;"";10 ,14;"" Gl$(10 )>"6"11 ,7;"";10 ,14;"" 10 ,17;:x=6:1050:10 ,24;:x=8:1050:10 ,16;٨s(26);"";10 ,23;٨s(28);""  10 ,21;(""s$(28)"1");(""l$(6)>"6");10 ,28;(""l$(8)<"7");(""l$(8)>"6") 1800: (1850::y=15:u,w,v,x  )l$(x) < "6"y+15,4;r$(x)  El$(x) > "6"l$(x)=¨j(x):y+15,4;r$(x):l$(x)=j$(x)  l$(x)"6"y+15,24;0;("Apprch"l$(x)>"6"s$(v)="0");2;("HELD"l$(x)<"6"s$(v)="0");4;("Signlld"s$(v)"0");31  *l$(x)="6"y+15,4;31 y: :1,2,1,26,3,15,2,27,16,28,7,24,29,33!,22,4,34",524,26,6 l[6::0,0;2;7;1;" RUGBY POWERBOX " vl7:z=213 :z,0;31;" ":z:z=1520:z,0;31;" ":z 0,7:255,0:0,491:-255,0:0,-491:0,63?:255,0:0,97a:-255,0:0,-97a 15,12 ;2;"ARRIVALS";3;16,1;"US=";17,1;"UF=";18,1;"UB=";19,1;"DN=";20,1;"DM="  0y=t$(12):z=t$(34) 1z=z+1:z>59;z=0:y=y+1 t$=y:z<10 t$=t$+"0" t$=t$+z 31;0,27;2;6;t$: "x=t$(2):y=t$(3) 7y=y+6:y>59;y=(y-60<):x=x+1 z$=x:y<10 z$=z$+"0" z$=z$+y -3030 :y=15:v,w,x:z=vw b$(z,4)t$Ưb$(z,5)<100dƯb$(z,5)+100d=l$(x)l$(x)=((b$(z,5))):b$(z,5)=((b$(z,5)+100d)):3022 [z$b$(z,4)Ưb$(z,5)<100dl$(x)="6"l$(x)=((b$(z,5)+100d)) z y փ1,2,26,3,15,27,16,28,29,29,33!,2,34",524,8 &2l$(26)<"6"a$(l$(26),23)="2" (2l$(27)<"6"a$(l$(27),23)="2" *2l$(29)<"6"a$(l$(29),23)="2" ,0l$(2)<"6"a$(l$(2),23)="1" .0l$(8)<"6"a$(l$(8),23)="1" N 7:7:0: 1,3;2;"Rail Traffic Control Rugby";1;4,6;"Your shift has ended";5,4;"and regional control has";6,5;"awarded the following:" Et$<"1400"2;10 ,8;"Unable to grade":4050 z$=">> "+("Excellent"o<1)+("Good"o1o<2)+("Average"o2o<3)+("Poor"o3o<4)+("Disasterous"o4)+" <<" 12;10 ,((31-z$)/2);z$ ,0;20,9 ;"Press any key" =""4060 :9900& g4540:y=11 17:z:l$(y)<"6"s$(z)"1"t$> a$(l$(y),58)o=o+.1}L y: @16,15,14,13 ,19,18,17 \q(1)<546m$(1)="2"s$(25)="1"l$(1)="6":s$(25)="2" cq(3)<546m$(3)="2"s$(23)="1"l$(1)=l$(3):l$(3)="6" \q(7)<546m$(7)="2"s$(29)="1"l$(7)="6":s$(29)="2" cq(5)<546m$(5)="2"s$(27)="1"l$(7)=l$(5):l$(5)="6" q(17)<546s$(17)="1"t$a$(j(17),58)l$(3)=l$(17):l$(17)="6":s$(17)="0":p$(10 )=q$(10 ,-1) q(16)<546a$(j(16),22)="3"s$(18)="1"ưp$(10 )-40l$(3)=l$(16):l$(16)="6":s$(18)="0":p$(10 )="0":p$(11 )="0" q(16)<546a$(j(16),22)="4"s$(18)="1"ưp$(10 )-20l$(5)=l$(16):l$(16)="6":s$(18)="0":p$(10 )=q$(10 ,-2):p$(11 )="0" q(15)<546a$(j(15),22)="3"s$(19)="1"ưp$(10 )-40t$a$(j(15),58)l$(3)=l$(15):l$(15)="6":s$(19)="0":p$(10 )="0":p$(11 )="0" q(15)<546a$(j(15),22)="4"s$(19)="1"ưp$(10 )-20t$a$(j(15),58)l$(5)=l$(15):l$(15)="6":s$(19)="0":p$(10 )=q$(10 ,-2):p$(11 )="0" zq(18)<546m$(18)="2"s$(10 )="1"l$(17)=l$(18):l$(18)="6":s$(10 )="0" zq(19)<546m$(19)="2"s$(11 )="1"l$(16)=l$(19):l$(19)="6":s$(11 )="0" q(20)<546m$(20)="2"s$(12 )="1"p$(8)="2"l$(15)=l$(20):l$(20)="6":s$(12 )="0":p$(6)=q$(6,-1):p$(8)="0" q(20)<546m$(20)="2"s$(12 )="1"p$(8)="1"p$(9 )="1"l$(14)=l$(20):l$(20)="6":s$(12 )="0":p$(6)=q$(6,-1):p$(89 )="00" q(20)<546m$(20)="2"s$(12 )="1"p$(8)="1"p$(9 )="2"l$(13 )=l$(20):l$(20)="6":s$(12 )="0":p$(6)=q$(6,-1):p$(89 )="00" q(23)<546m$(23)="2"s$(6)="1"p$(1)="1"p$(2)"4"l$(18)=l$(23):l$(23)="6":s$(6)="0":p$(2)=q$(2,-1):p$(1)="0" q(23)<546m$(23)="2"s$(6)="1"p$(13)="144"l$(20)=l$(23):l$(23)="6":s$(6)="0":p$(13)="000" xq(26)<546m$(26)="2"s$(1)="1"l$(23)=l$(26):l$(26)="6":s$(1)="0" q(24)<546m$(24)="2"s$(7)="1"p$(12)="24"p$(3)"4"l$(19)=l$(24):l$(24)="6":s$(7)="0":p$(12)="00":p$(3)=q$(3,-1) q(24)<546m$(24)="2"s$(7)="1"p$(13)="244"l$(20)=l$(24):l$(24)="6":s$(7)="0":p$(13)="000" xq(29)<546m$(29)="2"s$(4)="1"l$(24)=l$(29):l$(29)="6":s$(4)="0" q(25)<546m$(25)="2"p$(5)="1"l$(19)=l$(25):l$(25)="6":p$(5)="0":p$(2)=q$(2,-2):p$(3)="0" q(25)<546m$(25)="2"p$(5)="2"l$(20)=l$(25):l$(25)="6":p$(5)="0":p$(3)=q$(3,-2) xq(27)<546m$(27)="2"s$(2)="1"l$(25)=l$(27):l$(27)="6":s$(2)="0" Jq(28)<546s$(3)="1"l$(28)="6":s$(3)="2" Jq(30)<546s$(5)="1"l$(30)="6":s$(5)="2" q(21)<546s$(8)="1"l$(28)=l$(21):l$(21)="6":s$(8)="0":p$(4)=q$(4,-1) q(22)<546s$(9 )="1"p$(4)="4"l$(28)=l$(22):l$(22)="6":s$(9 )="0":p$(4)="0" q(22)<546s$(9 )="1"ưp$(4)-20l$(30)=l$(22):l$(22)="6":s$(9 )="0":p$(4)=q$(4,-2) q(14)<546s$(13 )="1"p$(7)="4"t$> a$(j(14),58)l$(22)=l$(14):l$(14)="6":s$(13 )="0":p$(69 )="0000" q(14)<546s$(13 )="1"ưp$(7)-10t$> a$(j(14),58)l$(21)=l$(14):l$(14)="6":s$(13 )="0":p$(6)="0":p$(7)=q$(7,-1):p$(89 )="00" q(13 )<546s$(14)="1"p$(7)="4"t$> a$(j(13 ),58)l$(22)=l$(13 ):l$(13 )="6":s$(14)="0":p$(69 )="0000" q(13 )<546s$(14)="1"ưp$(7)-10t$> a$(j(13 ),58)l$(21)=l$(13 ):l$(13 )="6":s$(14)="0":p$(6)="0":p$(7)=q$(7,-1):p$(89 )="00" q(12 )<546s$(15)="1"p$(7)="4"t$a$(j(12 ),58)l$(22)=l$(12 ):l$(12 )="6":s$(15)="0":p$(7)="0":p$(6)=q$(6,-2) q(12 )<546s$(15)="1"ưp$(7)0t$a$(j(12 ),58)l$(21)=l$(12 ):l$(12 )="6":s$(15)="0":p$(7)=q$(7,-1):p$(6)=q$(6,-2) q(11 )<546s$(16)="1"l$(22)=l$(11 ):l$(11 )="6":s$(16)="0":p$(7)=q$(7,-2) q(9 )<546s$(20)="1"l$(12 )=l$(9 ):l$(9 )="6":s$(20)="0":p$(12 )=q$(12 ,-1) q(10 )<546s$(21)="1"a$(j(10 ),24)=12 l$(12 )=l$(10 ):l$(10 )="6":s$(21)="0":p$(12 )="0" q(10 )<546s$(21)="1"a$(j(10 ),24)=11 l$(11 )=l$(10 ):l$(10 )="6":s$(21)="0":p$(12 )=q$(12 ,-2)  cq(4)<546s$(22)="1"l$(9 )=l$(4):l$(4)="6":s$(22)="0"  cq(2)<546s$(24)="1"l$(4)=l$(2):l$(2)="6":s$(24)="0" dq(6)<546s$(26)="1"l$(10 )=l$(6):l$(6)="6":s$(26)="0" cq(8)<546s$(28)="1"l$(6)=l$(8):l$(8)="6":s$(28)="0" o ps$(4)=("1"s$(4)="1")+("0"l$(24)<"6")+("1"l$(24)="6"):s$(4)="1"l$(29)"6"l$(24)=j$(29) rl$(23)"6"l$(20)="6"a$(j(23),24)>12 a$(j(23),24)<16s$(7)="0"p$(23)="00"s$(6)="1":p$(13)="144":l$(20)=j$(23) tl$(23)"6"l$(18)="6"a$(j(23),24)=17s$(7)="0"s$(6)="1":p$(1)="1":p$(2)=q$(2,1):l$(18)=j$(23) vl$(20)"6"l$(13 )="6"a$(j(20),24)=13 p$(8)="0"s$(12 )="1":l$(13 )=j$(20):p$(6)=q$(6,1):p$(89 )="12" xl$(20)"6"l$(14)="6"a$(j(20),24)=14p$(8)="0"s$(12 )="1":l$(14)=j$(20):p$(6)=q$(6,1):p$(89 )="11" zl$(20)"6"l$(15)="6"a$(j(20),24)=15p$(8)="0"s$(12 )="1":l$(15)=j$(20):p$(6)=q$(6,1):p$(8)="2" |Ql$(19)"6"l$(16)="6"s$(11 )="1":l$(16)=j$(19) ~Ql$(18)"6"l$(17)="6"s$(10 )="1":l$(17)=j$(18) Ss$(29)=("1"s$(29)="1")+("1"s$(29)="0")+("0"s$(29)="2") vs$(27)=("0"l$(7)<"6")+("1"l$(7)>"5"):s$(27)="1"l$(5)"6"l$(7)=j$(5) vs$(23)=("0"l$(1)<"6")+("1"l$(1)>"5"):S$(23)="1"l$(3)"6"l$(1)=j$(3) Ss$(25)=("1"s$(25)="1")+("1"s$(25)="0")+("0"s$(25)="2") vs$(28)=("1"l$(6)>"5")+("0"l$(6)<"6"):s$(28)="1"l$(8)"6"l$(6)=j$(8) vs$(24)=("1"l$(4)>"5")+("0"l$(4)<"6"):s$(24)="1"l$(2)"6"l$(4)=j$(2) ؙl$(10 )"6"l$(11 )="6"a$(j(10 ),24)=11 p$(12 )=q$(12 ,2):l$(11 )=j$(10 ):s$(21)="1" ڇl$(10 )"6"l$(12 )="6"a$(j(10 ),24)=12 p$(12 )="4":l$(12 )=j$(10 ):s$(21)="1" sl$(9 )"6"l$(12 )="6"l$(12 )=j$(9 ):s$(20)="1":p$(12 )=q$(12 ,1) ސl$(22)"6"l$(30)="6"a$(j(22),22)="2"l$(30)=j$(22):s$(9 )="1":p$(4)=q$(4,2) l$(22)"6"l$(28)="6"a$(j(22),22)="1"l$(28)=j$(22):s$(9 )="1":p$(4)="4" rl$(21)"6"l$(28)="6"l$(28)=j$(21):s$(8)="1":p$(4)=q$(4,1) Os$(5)=("1"s$(5)="1")+("1"s$(5)="0")+("0"s$(5)="2") Os$(3)=("1"s$(3)="1")+("1"s$(3)="0")+("0"s$(3)="2") ]l$(14)<"6"ƨj(14)=35#a$(q(14),115)="2K111445Rug-Stf" ]l$(13 )<"6"ƨj(13 )=35#a$(q(13 ),115)="2K111445Rug-Stf" 7 d77000X:u=112 :x$:z$=x$6520x p&u:x$="Invalid location":8900" x6900:v=1u:y:v yl$(y)="6"8600! z$l$(y)>"6"l$(y)=¨j(y):u=0 |26800:v=1̰a$(q(y),22):x$:v #0;0,0;"Service enquiry (";z$;")";1,0;r$(y);" Due ";a$(q(y),1619);" ";2;x$ u=0l$(y)=j$(y) ]0:#0;0,0;31;" ";1,0;31;" ":9000(# "DF","DB","UN","UM","RY" k26,27,24,4,6,12 ,15,14,13 ,17,16,11 X="US","UF","UB","DN","DM","P1","P2","B3","B6","UG","UT","DT" ]z$(2)="UT"8700! _z$(2)="DT"8800`" b`7000X:x=110 :x$:z$(2)=x$z$=z$(4):7000X+(x*100d) lx:9070n# l$(26)="6"8600! l$(23)"6"8100 z$"UG"7120 #j(26)5358300l Rs$(1)="1":l$(23)=j$(26):a$(j(26),24)=17  85004! z$"B3"z$"B6"8200 #j(26)=5358300l qs$(1)="1":l$(23)=j$(26):a$(j(26),24)=((14z$="B3")+(13 z$="B6"))  85004!  l$(27)="6"8600! "l$(25)"6"8100 *z$"UT"72204 ,+a$(j(27),20)"*"8300l ..l$(19)"6"p$(3)"0"8100 0s$(2)="1":l$(25)=j$(27):p$(2)=(p$(2)+2):p$(3)="1":p$(5)="1":l$(19)=j$(27) 2 85004! 4z$"P2"8200 6+a$(j(27),20)" "8300l 8<l$(20)"6"Űp$(3)-20 8100 :s$(2)="1":l$(25)=j$(27):p$(3)=(p$(3)+2):p$(5)="2":l$(20)=j$(27):a$(j(27),24)=15 < 85004! l$(24)="6"8600! z$"UT"7320 +a$(j(24),20)"*"8300l 7l$(19)"6"p$(12)"00"8100 s$(7)="1":p$(12)="24":p$(3)=(p$(3)+1):a$(j(24),24)=16:l$(19)=j$(24)  85004! z$"P2"8200 +a$(j(24),20)" "8300l 8l$(20)"6"p$(13)"000"8100 ms$(7)="1":p$(13)="244":a$(j(24),24)=15:l$(20)=j$(24)  85004! l$(4)="6"8600! z$"P1"8200 l$(9 )"6"8100 ,l$(9 )=j$(4):s$(22)="1"  85004! Ll$(6)="6"8600! Vz$"DT"z$"P1"8200 Xl$(10 )"6"8100 Z[(z$="DT"a$(j(6),20)"*")(z$="P1"a$(j(6),20)" ")8300l \pl$(10 )=j$(6):s$(26)="1":a$(j(6),24)=((12 z$="P1")+(11 z$="DT")) ^ 85004! l$(12 )="6"8600! z$"DF"7620 +a$(j(12 ),22)"1"8300l ;l$(21)"6"Űp$(6)-208100 xs$(15)="1":l$(21)=j$(12 ):p$(6)=(p$(6)+2):p$(7)=(p$(7)+1)  85004! z$"DB"8200 +a$(j(12 ),22)"2"8300l .l$(22)"6"p$(7)"0"8100 ds$(15)="1":l$(22)=j$(12 ):p$(6)=(p$(6)+2):p$(7)="4"  85004! l$(15)="6"8600! z$"UN"7720(  +a$(j(15),22)"3"8300l ".l$(3)"6"p$(10 )"0"8100 $Il$(3)=j$(15):s$(19)="1":p$(10 11 )="42" & 85004! (z$"UM"8200 *+a$(j(15),22)"4"8300l ,;l$(5)"6"Űp$(10 )-208100 .fl$(5)=j$(15):s$(19)="1":p$(10 )=(p$(10 )+2):p$(11 )="2" 0 85004! xl$(14)="6"8600! z$"DF"8200 .l$(21)"6"p$(6)"0"8100 s$(13 )="1":a$(j(14),23)="1":p$(89 )="11":p$(6)="4":l$(21)=j$(14):p$(7)=(p$(7)+1)  85004! l$(13 )="6"8600! z$"DF"8200 .l$(21)"6"p$(6)"0"8100 s$(14)="1":a$(j(13 ),23)="1":p$(89 )="12":p$(6)="4":l$(21)=j$(13 ):p$(7)=(p$(7)+1)  85004! @l$(17)="6"8600! Hz$"UN"8200 Jl$(3)"6"8100 TTs$(17)="1":l$(3)=j$(17):p$(10 )=(p$(10 )+1) V 85004! ?o=o+.5:x$="Conflicts with other movements":8900"  x$="Invalid Route":8900" lx$="Wrong Route":8900" *x$="No access for departure":8900" !4_#0;1,7;"Movement Accepted":6000p:1800:1000:9000(# !x$="No Trains":8900" !l$(16)="6"8600! !p$(11 )"0"8100 "&z$(45)"UN"8720" "+a$(j(16),22)"3"8300l ".l$(3)"6"p$(10 )"0"8100 " Is$(18)="1":l$(3)=j$(16):p$(10 11 )="41" " 85004! "&z$(45)"UM"8200 "+a$(j(16),22)"4"8300l "l$(5)"6"8100 "fs$(18)="1":p$(11 )="1":p$(10 )=(p$(10 )+2):l$(5)=j$(16) " 85004! "`l$(11 )="6"8600! "b.l$(22)"6"p$(7)="4"8100 "j?z$(45)"DF"z$(45)"DB"8200 "l(z$(45)="DF"a$(j(11 ),22)"1")(z$(45)="DB"a$(j(11 ),22)"2")8300l "nSs$(16)="1":p$(7)=(p$(7)+2):l$(22)=j$(11 ) "p 85004! "Ĝo=o+.5:#0;1,0;31;" ":#0;1,((32 -x$)/2);x$:1,30:X=160<:X:9000(# #(#0;1,0;31;" ":#0;1,12 ;"Command":z=140(:" "z:#0;1,12 ;" ": #)z=15:z #*-23658j\,8:z$:z$=""9000(# #27z$="1"9080x#:a=1:1100L:9000(# #47z$="2"9080x#:a=2:1300:9000(# #67z$="3"9080x#:a=3:1500:9000(# #8z$=57000X #:z$=26500d #<%Z$>30:a=2:10 #>!z$="QUIT"z$="quit"4000 #n`#0;1,9 ;"Command Error":1,30:x=160<:x:9000(# #x/z=213 :z,1;31:z: &Hea$(1):b$(1):20,0;:"TIMETABLE"a$():20,0;:"ARRIVALS"b$() &RP6:#0;0,10 ;1;6;1;"Press any key" &\=""9820\& &f.#0;0,0;1;31 &l$=" ":p$="000000000000":s$=l$:z=130:s$(z)="0":l$(z)="6":z:z=3135#:l$(z)="6":z:o=0 &&0:7:7:0: &6;4,8;" ";1;5,8;" RAIL TRAFFIC ";6,8;" CONTROL ";7,8;" ";2;8,8;" RUGBY ";9 ,8;" " &f0;13 ,4;"Awaiting traffic reports";14,3;"from control - Please wait" &e#0;0,7;3;" DEE-KAY SYSTEMS";1,3;"Written by Andrew George" &.l$(14)=21:t$="1158":a=2 &oz=1524:b$(z,4)=" ":b$(z,5)>99cb$(z,5)=(b$(z,5)-100d) &z &fz=1524:x=a$(b$(z,5),1617):y=a$(b$(z,5),1819) &6y=y-3:y<0y=(y+60<):x=x-1 &z$=x:y<10 z$=z$+"0" &z$=z$+y:b$(z,4)=z$ &z &\u=1524:(*3)2a$(b$(u,5),21)=0:9934& &tz=(*20)+1:x=b$(u,2):y=b$(u,34):y=y+z:y>59;y=y-60<:x=x+1 &z$=x:y<10 z$=z$+"0" &=z$=z$+y:b$(u,4)=z$:a$(b$(u,5),21)=z &u:1850: &u=15:v,w,z,z &xz=w-1v-1:y=vz:b$(y,4)> b$(y+1,4)z$=b$(y):b$(y)=b$(y+1):b$(y+1)=z$ & y:z:u &Wx=1535:a$(x,20)>"c"a$(x,20)=((a$(x,20))-100d) &7a$(x,21)=0:a$(x,2324)=" " &x &Tx=1524:b$(x,5)>"c"b$(x,5)=((b$(x,5))-100d) &x &ha$(21)="2K131330Rug-Stf1145 "+0+"1 ":a$(35#)="2B821445Stf-Rug1410 "+0+"1 " &06:6:0::7:10 oTIMETABLE Hd61A331203Man-Eus1203* 4 1H091205Eus-Man1203 1 1A261212Blk-Eus1210 4 1J251213Eus-Shw1213* 2 2A501214Bir-Eus1213 3 1F281221Eus-Liv1221* 1 1S011223Eus-Stl1218 1 1A361223Wlv-Eus1223* 4 1D841232Eus-Hol1230 1 2B651238Eus-Bir1236 2 1G281242Eus-Bir1242* 2 1A451243Hol-Eus1243* 4 1M851247Ebn-Man1247* 2 1P621253Eus-Blk1253* 1 1H101302Eus-Man1302* 1 1M051303Gla-Eus1303* 4 2B381313Bir-Eus1312 3 1A051317Liv-Eus1317* 4 1A411323Lld-Eus1323* 4 1F151326Eus-Liv1326* 1 2K131330Rug-Stf1145 1 2B611338Eus-Bir1336 2 1A071340Man-Eus1338 4 5B191342Tys-Nor1342* 3 1G301344Eus-Wlv1342 2 1A471353Pwl-Eus1353* 4 1M341358Car-Eus1344 4 1S801406Eus-Gla1404 1 2B341413Bir-Eus1412 3 1M201422Ayr-Eus1422* 4 1A441427Abw-Eus1425 4 1H111431Eus-Man1431* 1 2B571438Eus-Bir1438 2 1G321443Eus-Wlv1443* 2 2B821445Stf-Rug1410 1 1A461453Bir-Eus1453* 4 1A371458Liv-Eus1458* 4 1A491507Man-Eus1507* 4 2B301512Bir-Eus1511 3 1F331517Eus-Liv1517* 1 1A481524Wlv-Eus1524* 4 1S691534Eus-Gla1534* 1 2B531536Eus-Bir1535 2 1G341540Eus-Wlv1540* 2 1A561558Hol-Eus1558* 4 1H121604Eus-Man1602 1 1A591605Man-Eus1603 4 2B261612Bir-Eus1611 3 1G351613Eus-Bir1613* 2 1A621615Blk-Eus1615* 4 1A571619Wlv-Eus1619* 4 4G191620Nor-Bir1620* 2 8L761625Gar-Wil1555 3 ARRIVALS H 4 # 5        % & - / 2         $ ' ) 0 3  ! + 4          " ( * , . 1