ZXTape! 0Created with Ramsoft MakeTZXEDINBURGH m2 $ ** Edinburgh PowerBox ** Version 1.00 1991 Andrew George 05 May 1991 A7:7:0:0:0:0:7: 9#0;1,7;1;"Edinburgh Powerbox" (18,0; 2 "SCREEN" <[6:6:#0;0,0;0;6;31;" ";31;" " F19,0; P "GRAPHICS" U)19,0;1;6;"*" Z20,0; d "EDINBURGH" oSCREEN @B>F1@( D?BX J ||?B ((@# !`*|xB8D8B8D ((@P*|xBDTD |D(?` $@  (@<Ą|xx|DTx BD3@0t@PC@ /Ą|xx@DT@ BD(@`03 " @J@@ @8(< |8Dp`a@@ !8J@h @   0( ?~8 @@ 0@ s@@}"x@'B|F BB!p >A"`<8 ǀ@@@`| `@ @@@`""`3xt Bbz`.V @ B08 @0<3<808p@@ @@TB< x`B00 @4`P @ `Ç0B D@$@@@8< X0xZx  !O?8`?( < ȠB E"!@ @`]D@13~< Rh>pC@x@8p d  c| B\ F""@ HXÂLA 88<Dq8`LJ`J8@NhppÀ!@?C@ǀB@@ p  àc8D `8x <8@`@< 0"!8 `p@8B@@ hD 0B@:` ` <@y$xǐ8pG@ xp "A`Ø  8xp <8p@88p0pppÇAB |<|<|B><<<<<`@88 8xp 88B888x DBD888BBBBBB@Bx8DB88<8@88p@ <<BD< <(<<8 < 8@0`88888222222000000000000000002222222222222222222222222222222222222222222222222222222222222222222222222222222222221111111112222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000600000000000000000000000000000006000000000000000000000000000000066666666666666666000000000000000777777777777777777777777777777770000000000000000000000000000000000000000000000000000000000000000GRAPHICS X*w @ @ @@@ @<< @ @@ @ BBBBB<EDINBURGH 4H&$6q(x)=l$(x) Ij(x )=(l$(x)Ưl$(x)<100d)+(l$(x)-100dƯl$(x)>99c) !q$(xy)=x,y=(y)=(p$(x)+y) %e$(z)=(m$(z,13)) c(t$y)=t$-32 Pl$(25)=22:a$(36$,15)=19:l$(38&)=1 Z1900l:1300 drinc=1:w$=r$:r$=q$:2000:q$=r$:r$=w$:2000:0,27;2;7;1;r$ n<21004:1000:1700:9000(#:3000 xr$>"1300"4000 100d "x$(1)<10 x$=x$+"0" x$=x$+(x$(1)) "x$(2)<10 x$=x$+"0" x$=x$+(x$(2)) x$=x$(3): F(1110Vs=1)+(1310s=2)+(1510s=3) I(""l$(x)="?");(""l$(x)>"?");:l$(x)<"?"a$(l$(x),4); " 0: $z$="000":z=p$(v):x=4 &y=31-1 (z-x0z$(y)="1":z=z-x *x=x/2:y: L 9080x# N%r=1:0:3,4;" ";2;"Eastern";0;4,5;" ";2;"Approach";0;5,16;" ";6,17;"";7,1;" ";8,11 ;" " Pf9 ,1;"";10 ,1;"" RK2;3,15;"";4,8;"";7,20;"" T?7,4;ٰs$(9 );"";7,9 ;ٰs$(8);"";9 ,4;ٰs$(6);"";10 ,4;ٰs$(5);"";9 ,9 ;ٰs$(7);"";10 ,16;ٰs$(4);"";9 ,20;ٰs$(2);10 ,22;ٰs$(3);"";9 ,26;ٰs$(1);"" VLe$(11 )="SLE"Ũe$(11 )="SLS"z$="11*1001#05+23":1800 Xye$(11 )="NLE"Ũe$(11 )="P1 "Ũe$(11 )="P7 "Ũe$(11 )="P10"z$="11*0901*1003#05+23":1800 Ze$(10 )="NLE"Ũe$(10 )="P1 "Ũe$(10 )="P7 "Ũe$(10 )="P10"Ũe$(10 )="SLE"Ũe$(10 )="SLS"z$="10*0901#06+18":1800 \]e$(9 )="NLE"Ũe$(9 )="P1 "Ũe$(9 )="P7 "z$="09*0701#09+17":1800 ^He$(12 )="NL "z$="12*0705+17#08*0811*0912+19":1800 `>e$(12 )="UC "z$="12*0905+18#07+19":1800 bPe$(13 )="NL "z$="13*0705+17#08*0811*0912*1014#04+22":1800 dFe$(13 )="UC "z$="13*0905+18#07*1014#04+22":1800 f?e$(13 )="DC "z$="13*1005+23#04+22":1800 h+z$="00*0916+19#02*0922+20#01":1800 j9 ,21;(""l$(20)"?");(""l$(20)>"?");9 ,27;(""l$(41))"?");(""l$(41))>"?") l+z$="00*1016#04+22*1022#03+21":1800 n10 ,21;(""l$(22)"?");(""l$(22)>"?");10 ,27;(""l$(21)"?");(""l$(21)>"?") ~ r=0 Mz$="00*0705+17*0905+18*0916+19*0922+20*1023+21*1017+22*1005+23":1800  r=0    9080x# 8r=1:0:2,5;"";3,4;" ";2;"Station";0;4,3;" ";2;"Area";0;5,2;" ";6,1;" ";7,1;" " %8,1;" ";9 ,1;" ";10 ,3;"";10 ,15;" ";11 ,1;" ";12 ,2;" ";13 ,3;" " 14,4;"";15,5;" ";16,6;" ";17,7;"";18,8;"" |15,32 :0,8:17,0:0,-9 :-17,0:6;17,2;" " Y2;2,7;"";2,16;"";7,7;"";17,11 ;"";18,11 ;"";18,22;"";17,22;"";13 ,23;"";12 ,23;"";10 ,19;"";9 ,19;"";8,19;"";7,19;"";6,19;"";5,19;"" 3,5;ٰs$(27);"";3,10 ;ٰs$(29);"";3,13 ;ٰs$(32 );"";3,18;ٰs$(33!);"";4,5;ٰs$(28);"";4,10 ;ٰs$(30);"";4,13 ;ٰs$(31);"";4,18;ٰs$(34");"";5,7;ٰs$(35#);"";6,7;ٰs$(36$);"";8,7;ٰs$(37%);"";9 ,7;ٰs$(38&);"";11 ,7;ٰs$(39');"";11 ,23;ٰs$(524);"" 12 ,7;ٰs$(40();"";13 ,7;ٰs$(41));"";14,9 ;ٰs$(42*);"";14,14;ٰs$(44,);"";14,19;ٰs$(46.);"";14,24;ٰs$(513);"";15,9 ;ٰs$(43+);"";15,14;ٰs$(45-);"";15,19;ٰs$(47/);"";15,24;ٰs$(502);"";16,11 ;ٰs$(480);"";16,22;ٰs$(491);"" ve$(5)="NLW"z$="05*0601*0502*0403*0304#27+24":1800:m$(5,4)="D"3,4;""  qe$(5)="P19"z$="05*0601*0502*0403#28+26":1800:m$(5,4)="D"4,3;"" "ne$(5)="P18"z$="05*0601*0502#35+28":1800:m$(5,4)="D"5,2;"" $ie$(5)="P17"z$="05*0601#36+29":1800:m$(5,4)="D"6,3;"" &e$(6)="P18"Ũe$(7)="P18"z$=("06"ƨe$(6)="P18")+("07"ƨe$(7)="P18")+"*0801*0702*0603*0504#35+28":1800 (e$(6)="P17"Ũe$(7)="P17"z$=("06"ƨe$(6)="P17")+("07"ƨe$(7)="P17")+"*0801*0703*0604#36+29":1800 *e$(6)="P16"Ũe$(7)="P16"z$=("06"ƨe$(6)="P16")+("07"ƨe$(7)="P16")+"*0801#37+30":1800 ,:e$(7)="P15"z$="07*0901#38+31":1800 .De$(7)="P14"z$="07*0901*1004*1105#39+32":1800 0ye$(7)="P13"z$="07*0901*1003*1104*1205#40+33":1800:m$(7,4)="D"12 ,5;"" 2~e$(7)="P12"z$="07*0901*1003*1104*1205*1306#41+34":1800:m$(7,4)="D"13 ,6;"" 4Ue$(7)="P11"z$="07*0901*1003*1104*1205*1306*1407#42+35":1800 6je$(8)="P14"z$="08*1101#39+32":1800:m$(8,4)="D"11 ,4;"" 8e$(8)="P12"z$="08*1101*1202*1303#41+34":1800:m$(8,4)="D"13 ,6;"";13 ,3;"" :{e$(8)="P11"z$="08*1101*1202*1303*1404#42+35":1800:m$(8,4)="D"14,4;"" <e$(8)="SLW"z$="08*1101*1202*1303*1404*1507#43+36":1800:m$(8,4)="D"14,4;"";15,7;"" >e$(8)="SLS"z$="08*1101*1202*1303*1404*1507*1608#48+40":1800:m$(8,4)="D"14,4;"" @e$(9 )="NLE"z$="09*0314+25#33*0420*0521*0622*0723*0824*0925*1026*1127*1228":1800:m$(9 ,4)="D"3,19;"";12 ,28;"" Be$(9 )="P1 "z$="09*0414+27#34*0521*0622*0723*0824*0925*1026*1127*1228":1800:m$(9 ,4)="D"4,20;"";12 ,28;"" De$(9 )="P7 "z$="09*1119+39#52*1228":1800:m$(9 ,4)="D"11 ,27;"";12 ,28;"" Fe$(10 )="NLE"Ũe$(11 )="NLE"z$=("10"ƨe$(10 )="NLE")+("11"ƨe$(11 )="NLE")+"*0314+25#33*0420*0521*0622*0723*0824*0925*1026*1127*1228*1329*1430":1800:m$(10 )="NLED"m$(11 )="NLED"3,19;"" He$(10 )="P1 "Ũe$(11 )="P1 "z$=("10"ƨe$(10 )="P1 ")+("11"ƨe$(11 )="P1 ")+"*0414+27#34*0521*0622*0723*0824*0925*1026*1127*1228*1329*1430":1800:m$(10 )="P1 D"m$(11 )="P1 D"4,20;"" Je$(10 )="P7 "Ũe$(11 )="P7 "z$=("10"ƨe$(10 )="P7 ")+("11"ƨe$(11 )="P7 ")+"*1119+39#52*1228*1329*1430":1800:m$(10 )="P7 D"m$(11 )="P7 D"11 ,27;"" Le$(10 )="P10"Ũe$(11 )="P10"z$=("10"ƨe$(10 )="P10")+("11"ƨe$(11 )="P10")+"*1420+38#51":1800 N@e$(10 )="SLE"z$="10*1520+37#50*1429":1800 PMe$(10 )="SLS"z$="10*1612+40#49*1525*1429":1800 R;e$(11 )="SLE"z$="11*1520+37#50":1800 THe$(11 )="SLS"z$="11*1612+40#49*1525":1800 V=e$(16)="NLW"z$="16*0306+24#29#32+25":1800 XBe$(16)="P19"z$="16*0406+26#30*0312#32+25":1800 Z=e$(17)="P19"z$="17*0406+26#30#31+27":1800 \?e$(14)="P10"z$="14*1410+35#44#46+38":1800 ^De$(14)="SLE"z$="14*1410+35#44*1516#47+37":1800 `De$(15)="P10"z$="15*1510+36#45*1418#46+38":1800 b?e$(15)="SLE"z$="15*1510+36#45#47+37":1800 dUz=1723:l$(z)<"?"6;0;17,3;">":1384h f#z:17,3;6;" " hTz=116:l$(z)<"?"6;0;17,2;"<":1390n j#z:17,2;6;" " n r=0 xz$="00*0306+24*0314+25*0406+26*0414+27*0508+28*0608+29*0808+30*0908+31*1108+32*1119+39*1208+33*1308+34*1410+35*1420+38*1510+36*1520+37*1615+40":1800 z r=0   9080x# r=1:0:3,4;1;"Haymarket";4,5;"Station";0;5,23;"";6,1;"";7,1;"" 8,1;"";9 ,1;"";10 ,23;"";11 ,5;2;"Western Approach" 63?,135:0,-4:480,129:0,2:31,0:0,-2:480,93]:0,-2:31,0:0,2:0;13 ,1;"UN Arr:";13 ,16;"US Arr:" 6,5;ٰs$(23);"";7,5;ٰs$(24);"";8,5;ٰs$(25);"";9 ,5;ٰs$(26);"";6,10 ;ٰs$(22);"";7,11 ;ٰs$(21);"";8,10 ;ٰs$(20);"";9 ,11 ;ٰs$(19);"";6,15;ٰs$(17);"";8,15;ٰs$(18);"";5,25;ٰs$(535);"";5,30;ٰs$(10 );"";7,23;ٰs$(16);"";7,30;ٰs$(11 );"";8,23;ٰs$(15);"";8,30;ٰs$(12 );"";10 ,25;ٰs$(14);"";10 ,30;ٰs$(13 );"" 3;13 ,9 ;("OFF "d$(4)="N");("AUTO"d$(4)="Y");13 ,24;("OFF "d$(5)="N");("AUTO"d$(5)="Y") ,z$="00*0601+01#23+02#22+03#17":1800 He$(1)="MUN"z$="01*0611+03#17*0523#53+04":1800 He$(1)="MDN"z$="01*0611+03#17*0717#16+05":1800 re$(1)="MUS"z$="01*0611+03#17*0717*0819#15+12"+(""q=0)+("*0729"q=1):1800 We$(1)="MDS"z$="01*0611+03#17*0717*0819*0923*1024#14+13":1800 .z$="00*0701+08#24+07*0711#21+06":1800 ?7,10 ;(""l$(7)"?");(""l$(7)>"?") Je$(2)="MUN"z$="02*0712+06*0623*0524#53+04":1800 @e$(2)="MDN"z$="02*0712+06#16+05":1800 je$(2)="MUS"z$="02*0712+06*0819#15+12"+(""q=0)+("*0729"q=1):1800 Oe$(2)="MDS"z$="02*0712+06*0819*0923*1024#14+13":1800 ,z$="00*0801+09#25+10#20+11#18":1800 Re$(3)="MUN"z$="03*0811+11#18*0721*0623*0524#53+04":1800  He$(3)="MDN"z$="03*0811+11#18*0721#16+05":1800  he$(3)="MUS"z$="03*0811+11#18#15+12"+(""q=0)+("*0729"q=1):1800 Me$(3)="MDS"z$="03*0811+11#18*0923*1024#14+13":1800 .z$="00*0901+16#26+15*0911#19+14":1800 C9 ,10 ;(""l$(15) = "?");(""l$(15)"?") Te$(4)="MUN"z$="04*0912+14*0817*0721*0623*0524#53+04":1800 Je$(4)="MDN"z$="04*0912+14*0817*0721#16+05":1800 je$(4)="MUS"z$="04*0912+14*0817#15+12"+(""q=0)+("*0729"q=1):1800 Ee$(4)="MDS"z$="04*0912+14*1023#14+13":1800 me$(5)="NLW"Ũe$(5)="P19"Ũe$(5)="P18"Ũe$(5)="P17"z$="05*0526+04#10":1800 \e$(6)="P18"Ũe$(6)="P17"Ũe$(6)="P16"z$="06*0724+05#11":1800  ae$(7)="P18"Ũe$(7)="P17"Ũe$(7)="P16"z$="07*0824+12*0729#11":1800 "e$(7)="P15"Ũe$(7)="P14"Ũe$(7)="P13"Ũe$(7)="P12"Ũe$(7)="P11"z$="07*0824+12#12":1800 $e$(8)="P14"Ũe$(8)="P12"Ũe$(8)="P11"Ũe$(8)="SLW"Ũe$(8)="SLS"z$="08*1026+13#13":1800 &)l$(5)"?"7,28;"" '5l$(12 )"?"q=08,28;"" (Jl$(12 )"?"q=18,28;"";7,29;"" *L5,30;ٰs$(10 );"";10 ,30;ٰs$(13 );"" , r=0 6z$="00*0601+01*0701+08*0801+09*0901+16*0606+02*0706+07*0806+10*0906+15*0611+03*0712+06*0811+11*0912+14*0526+04*0724+05*0824+12*1026+13":1800 8 r=0 @ z=117 !m$(z,4)="D"m$(z)=" " z  Sy=z$(12):z$=z$(3):y>0m$(y,4)=" "r=0  y=01816  x$=""  m$(y,4)"D"1816 >x=1̱z$:z$(x)<144ůz$(x)>1641814 w=1̱x$2 .x$(w)=z$(x)z$(x)=x$(w+1):1814 w x z=1̱z$ Yz$(z)="*"z$(z+1z+2),z$(z+3z+4);:z=z+4:1890b z$(z)"+"1834* Dx=z$(z+1z+2):(""l$(x)="?");(""l$(x)>"?");  $l$(x)"?"z=z+2:1890b "B0:a$(l$(x),24)="Y"x<24x>40(1 $+a$(l$(x),23)="*"0:1 %!a$(l$(x),1)="0"2 &aa$(l$(x),24)="N"a$(l$(x),14);:z=z+2:0:0:1890b (Ja$(l$(x),10 13 );:z=z+2:0:0:1890b *Iz$(z)="#"ٰs$(z$(z+1z+2));"";:z=z+2:1890b ,y=01890b Xz$(z); bz dy=01898j h&m$(y,4)="N"m$(y,4)=" " j l\6::0,0;2;7;1;" EDINBURGH POWERBOX";31;" " v:7:z=218:z,0;31;" ":z `0,23:255,0:0,137:-255,0:0,-137  9y=r$(12):z=r$(34):z=z+inc ?z<0z= 60<-z:y=y-1:y<0y=23 ?z>59;z=z-60<:y=y+1:z>59;2002 r$="":y<10 r$="0" !r$=r$+y:z<10 r$=r$+"0"  r$=r$+z  4z=2440( 6l$(z)"?"2150f 8 x=l$(z) : a$(x,24)="N"2120H ; a$(x,22)"N"2150f (q$(12))+(q$(34))2120H > a$(x,23)"0"2150f @a$(x,23)="*":r=1 Hla$(x,1)="5"(z=24z=25z=36$z=37%z=40()a$(x,23)="0":2150f JRa$(x,23)="1"a$(x,10 )"1"a$(x,2324)="1Y":2150f M2a$(x,23)="1"a$(x,2324)="4Y" R(a$(x,23)="0"a$(x,23)="2" fz >l$(21)"?"l$(1)"?"l$(9 )"?"2300 d=63?:e=d:f=d:g=d x=160< c$(x,6)"Y"2250 c$(x,4)>r$2250 $d=63?c$(x,5)="A"d=x $e=63?c$(x,5)="B"e=x $f=63?c$(x,5)="C"f=x $g=63?c$(x,5)="D"g=x x jd63?l$(21)="?"l$(21)=(d+100d):d$(1)="3":c$(d,5)="a":r=1 g63?f=63?l$(9 )="?"l$(9 )=(g+100d):d$(3)="3":c$(g,5)="d":r=1:g=63? g63?e=63?l$(1)="?"l$(1)=(g+100d):d$(2)="3":c$(g,5)="d":r=1:g=63? ڠg63?e63?c$(g,4) < c$(e,4)l$(1)="?"l$(1)=(g+100d):d$(2)="3":c$(g,5)="d":r=1:g=63? ܠg63?f63?c$(g,4) < c$(f,4)l$(9 )="?"l$(9 )=(g+100d):d$(3)="3":c$(g,5)="d":r=1:g=63? he63?l$(1)="?"l$(1)=(e+100d):d$(2)="3":c$(e,5)="b":r=1 hf63?l$(9 )="?"l$(9 )=(f+100d):d$(3)="3":c$(f,5)="c":r=1 z=13 !d$(z)="X"d$(z)="0"2320 0d$(z)=(d$(z)-1):d$(z)"0"2320 \z=1l$(21)>"?"l$(21)=(l$(21)-100d):s=3r=1 Yz=2l$(1)>"?"l$(1)=(l$(1)-100d):s=1r=1 Yz=3l$(9 )>"?"l$(9 )=(l$(9 )-100d):s=1r=1 z z=160< Sa$(z,23)>"0"a$(z,23)"9"a$(z,23)=(a$(z,23)-1) z `N"0141","0220","0322","2408","2107","2616","1915","2302","2203","2510","2011" b$2400` :z=111 :z$ dcs$(z$(2))=("4"(s$(z$(2))="4"l$(z$(3))"?"))+("2"l$(z$(3))<"?") fz hMl$(2)"?"j(1)ɨj(2)s$(23)="4"s$(23)="2" jOl$(10 )"?"j(9 )ɨj(10 )s$(25)="4"s$(25)="2" lNd$(4)="N"(j(2)ɨj(1))l$(1)="?"s$(23)="2" nOd$(5)="N"(j(10 )ɨj(9 ))l$(9 )="?"s$(25)="2" pIl$(15)<"?"x=l$(15):a$(x,14)=152500 ra$(j(15),5)=15a$(j(15),14)=15a$(j(14),5)=15a$(j(14),14)=15l$(16)="?"s$(26)="2" tGl$(14)"?"a$(j(14),5)=15s$(19)="0" v/a$(j(3),1)="0"s$(22)="2" x0a$(j(11 ),1)="0"s$(20)="2" za$(j(15),5)=15a$(j(15),67)> ((r$(12))+(r$(34)))a$(j(15),23)="1" ~d"230102","220203","210607","240708","250910","201011","191415","261516","032122","021920","012041" 2430~ z=111 z$ #s$(z$(2))"4"2460 *l$(z$(34))="?"2460 @l$(z$(56))=(j(z$(34))+100d) z  Va$(x,7)=a$(x,10 13 )+15+(a$(x,6)+1)+12 Ǝa$(x,8)=a$(x,6)+15+a$(x,10 13 )+22+1+"T"+a$(x,1718)+a$(x,6)+18+"AN3N" ȁa$(x,14)=("2Y08"x=1)+("2Y10"x=27)+("2Y02"x=42*):a$(x,10 13 )=a$(x,14)  0"AI N0","A4I!N1","A34""N1","B,NL ( 13UC ' 23" y"B)NLEA)91P1 B);1P7 T)G1","B*NLEA&92P1 B&;2P7 T&G2P10S&F2SLER&E2SLSQ&H2","B+NLEA%97P1 B%;7P7 T%G7P10S%F7SLER%E7SLSQ%H7" F"B0NLW=@89P19>@:9","B1P19>?:;","B.P10LNCFSLELOCE","B/P10MNDFSLEMODE" y"B%NLW*;$8P19*<$:P18*C$","B'P18+C,P15,F,?P14,G,@P13,H,AP12,I,BP11,J,C" )"B(P14-G-@P12-I-BP11-J-CSLW-K-DSLS-P-H" C"B!MUN1U#$MDN10#%MUS1/#,MDS1.#-","B#MUN2U+$MDN20+%MUS2/+,MDS2.+-" '"A""#6N1","A!""7N2","A*+4N1","A)*9N2" /"B$MDS ..-","B$MUS /.,","B$MUN U.$","A/. N23" 7"A( N1","A'(8N1","A&'5N1","A0 N1","A/0:N1","A./3N1" "B!MUNU1$#MDN01%#MUS/1,#MDS.1-#","B""MUNU $&MDN0 %&MUS/ ,&MDS. -&","B#MUNU2$+MDN02%+MDS.2-+","B$MUNU $.MDN0 %.MUS/ ,.MDS. -." y"B%NLW;*8$P19<*:$P18C*<$P17D*=$","B&P18C+<%P17D+=%P16E+>%","B'P18C+<,P17D+=,P16E+>,P15F,?,P14G,@,P13H,A,P12I,B,P11J,C," "n"B(P14G-@-P12I-B-P11J-C-SLWK-D-SLSP-H-","B0NLW@=98P19@>9:","B1P19?>;:","B.P10NLFCSLEOLEC","B/P10NMFDSLEOMED" $y"B)NLE)A19P1 )B1;P7 )T1G","B*NLE&A29P1 &B2;P7 &T2GP10&S2FSLE&R2ESLS&Q2H","B+NLE%A79P1 %B7;P7 %T7GP10%S7FSLE%R7ESLS%Q7H" &$"B-NL $(61UC $'62DC $ 67","A56#N1" ( "*END*"  3000 1z$:z=3900<:z$(1)="B"z=3800 z$="*END*"3760 [z=3800m$((z$(2))-32 )" "z$=z$(2):3800:3750 Yz=3900<l$((z$(2))-32 ) <"?"z$=z$(2):3900<:3750  3750 z=2440( l$(z)"?"3768 Ra$(j(z),1)="5"(z=24z=25z=36$z=37%)3768 za$(j(z),24)"Y"a$(j(z),15)15a$(j(z),23)="2"a$(j(z),24)="Y":s=2r=1 Ma$(j(z),24)"Y"a$(j(z),15)15a$(j(z),23)="3" z  $x=c(z$(1)):z$=z$(2) z=1̱z$7 ,m$(x,3)z$(zz+2)3850  'l$(c(z$(z+5)))"?"3850  :z$(z+3)" "s$(c(z$(z+3)))"4"3850  a$(j(c(z$(z+6))),1)="0"a$(j(c(z$(z+5))),10 )="1"l$(c(z$(z+6)))=(61=Ưl$(c(z$(z+5)))=28)+(62>Ưl$(c(z$(z+5)))=36$):a$(l$(c(z$(z+5))),22)="E":3815 a$(j(c(z$(z+5))),1)="0"l$(c(z$(z+6))) <"?"a$(l$(c(z$(z+6))),22)="N":l$(c(z$(z+5)))="?":3815 l$(c(z$(z+6)))=l$(c(z$(z+5))):l$(c(z$(z+5)))="?":a$(l$(c(z$(z+6))),23)="0":c(z$(z+6))<24Ũc(z$(z+6))> 40(a$(l$(c(z$(z+6))),23)="1" m$(x,4)="D" .z$(z+3)" "s$(c(z$(z+3)))="2" .z$(z+4)" "s$(c(z$(z+4)))="2"  z=999  z  <*a$(l$(c( z$(1))),23)"0" @,z$(3)" "s$(c(z$(3)))"4" Bz$(4)="N"3909E D/a$(l$(c(z$(1))),14)15 E<z$(2)" "j(c(z$(1)))ɨj(c(z$(2))) F/a$(l$(c(z$(1))),23)=z$(5) GFz$(2)" "l$(c(z$(2)))=l$(c(z$(1))):3913I Ha$(l$(c(z$(1))),17)0h=a$(l$(c(z$(1))),17):x$=a$(l$(c(z$(1))),1920):500:o$=x$+r$:5000:inc=o$:o$=r$:r$=c$(h,4):2000:c$(h,4)=r$:r$=o$:c$(h,6)="Y" ICl$(c(z$(1)))="?":z$(3)" "s$(c(z$(3)))="2" J&z$=6s$(c(z$(6)))="2" P 7:7:0: 1,3;2;"Power Box Edinburgh";1;4,6;"Your shift has ended";5,4;"and regional control has";6,5;"awarded the following:" Er$<"1030"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$  4050 Zm=o$(56)-o$(12):n=o$(78)-o$(34) 3m=((m*60<)+n)-10 :m<0m=0  o$=m: @g"67$ -2","62$'-2(","61$(-2'","79%A+2BTSRQ","7;%B+2ATSRQ","7G%T+2ABSRQ","7F%S+2RQ","7E%R+2Q","7H%Q+2R" BD"29&A*2BTS","2;&B*2ATS","2G&T*2ABS","2F&S*2","2E&R*2SQ","2H&Q*2SR" D""19)A)2TB","1;)B)2AT","1G)T)2AB" FC"98@=02","9:@>02=",";:?>12","FCNL.1","FDNM/1L","ECOL.1M","EDOM/1" H"8$;*%1",":$<*%1","<$C*%1","=$D*%1","<%C+&1DE","=%D+&1E",">%E+&1","<,C+'1DE,","=,D+'1E,",">,E+'1,","?,F,'1","@,G,'1","A,H,'1G","B,I,'1HG","C,J,'1IHG" Jt"@-G-(1HIJ","B-I-(1J","C-J-(1","D-K-(1","H-P-(1","$#U1!1","$&U ""10","$+U2#10/1","$.U $10/.12","%#01!1U","%+02#1/" Ln"%&0 ""1","%.0 $12/.",",#/1!120U",",&/ ""10",",+/2#1",",./ $1.","-#.1!12U/0","-&. ""12/0","-+.2#1/","-.. $1"  "*END*" " "!o=o+0.3:1,30 "}#0;1,0;31;" ":#0;1,((32 -x$)/2);x$:x=1100d:x:9000(# #(6;20,0;31;" ";21,0;31;" ":#0;0,0;31;" ";1,0;31;" ":#0;1,12 ;"Command":z=140(:" "z:#0;1,12 ;" ":7: #*z=15:z #,723658j\,8:"Entry: ";j$:j$=""9000(# #-/j$="SAVE""EDINBURGH"9995 ':9000(# #.Aj$="+UN"x$=d$(4):d$(4)=("Y"x$="N")+("N"x$="Y") #0Aj$="+US"x$=d$(5):d$(5)=("Y"x$="N")+("N"x$="Y") #2tj$="+UN"j$="+US"#0;1,4;"Auto signal ";j$(23);" updated":1000:9000(# #4+j$="3"s=1:1100L:9000(# #6+j$="2"s=2:1300:9000(# #8+j$="1"s=3:1500:9000(# #:8j$>23:j$=s:7:1900l:90124# #$j$<3j$=j$+" ":9022># #@{z$="PB 6DC 7UC 2NL 1NLE9P1 ;P7 GP10FSLEESLSHSLWDP11CP12BP13AP14@P15?P16>P17=P18,<,=,>,?,@,A,B,C-@-B-C-D-H89:9:;CFCEDFDE56616267191;1G292;2G2F2E2H797;7G7F7E7H989:;:FCFDECED" #fZt=0:z=1̱t$2:t$(zz+1)=(j+32 )+(k+32 )t=1 #hz #j 9082z# #nf#0;1,7;" Command Error ":1,30:x=160<:x:9000(# #x87:z=218:z,1;31:z: #z#0,1,8;"Checking Movement":t$=(j+32 )+(k+32 )+(j+32 ):a=0:8000@:j$="H4 "t$=(46.)+(k+32 )+(46.) #|z$:z$="*END*"9070n# #~@z$(12)=t$(12)a=0:9150# #@z$(12)=t$(23)a=1:9150# # 9084|# #;h$(22)="c"x$="Loco already detatched":8900" #7h$(1)="0"x$="Loco running round!":8900" #?h$(22)"C"x$="Loco runround not required":8900" #h$(1)="5"9120# #[j26j27j35#j38&x$="Wrong location for runround":8900" #3l$(j)>"?"x$="Train not arrived yet":8900" #a$(j(j),22)="c" #W#0,1,5;"Loco runround accepted":z=160<:z:9000(# #qj25j26j27j35#j38&j37%x$="Wrong location for runround":8900" # 9108# #ej$(1)"H"k$"MUS"(h$(16)"E"h$(1)"0")h$(14)= "5H11"9158# #Nv$="S":l$(5)="?""MUS: North or South line? ";v$:v$=""9000(# #v$"N"v$"S"9152# #q=0:v$="N"q=1 #Lj$="H4 "l$(14)"?"x$="Conflicts with other movements":8900" #j$"MUS"9210# #Mq=0k$="P18"k$="P17"k$="P16"x$="Route not available":8900" #_q=1k$="P15"k$="P14"k$="P13"k$="P12"k$="P11"x$="Route not available":8900" #Kk=22k=19:z$(1)="3":z$(3)=" ":z$(5)="," #8j(j)=j(k)x$="Already signalled to "+k$:8900" $^x$=z$(7):m$(c(z$(5)))" "x$="Conflicts with other movements":8900" $y$=z$:a=1y$=z$:z$(1)=z$(2):z$(2)=y$(1):z$(3)=z$(4):z$(4)=y$(3):z$(6)="1":y$(6)="1"z$(6)="2" $ Hh$(1)"0"l$(k)"?"x$="Location already occupied":8900" $ h$(1)="0"ƨj(k)63?a$(j(k),11 13 )a$(j(j),24)x$="Wrong service for light loco":8900" $nk$="DC "j$"PB "(h$(1)"0"(h$(22)"c"h$(1)"0"))x$="Route not available":8900" $h$(1)"0"h$(16)"E"(k>27k<35#)k=39'k=5x$="Train requires through line":8900" $ah$(22)="C"(k>27k<35#)k=39'x$="No loco runrounds in "+k$:8900" $Th$(1)"5"h$(1)"0"k=24x$="No access to platform":8900" $fz=1̱x$:c(x$(z))>0s$(c(x$(z)))"2"x$="Conflicts with other movements":8900" $z $jz=34:c(z$(z))>0s$(c(z$(z)))"2"x$="Conflicts with other movements":8900" $ez:h$(14)=15k$"H4 "k$(1)="H"x$="Train terminates at Haymarket":8900" $ eh$(14)15h$(1)"0"k$="H1 "k$="H3 "x$="Invalid departure route":8900" $"Zk$="H4 "a$(j(15),24)="N"x$="Will block train already in H4":8900" $$Zt=1h$(24)="Y"(j24j40()(k24k40()9254&$ $%_t=1h$(24)="Y"k24k40(x$="Already been to Waverley":8900" $&bt=0h$(24)="N"h$(22)"c"j$"H4 "x$="Not been to Waverley yet":8900" $(h$(24)="N"92706$ $)h$(22)="c"92684$ $*h$(1)"0"h$(21)="A"l$(j)<"?"(j=25(k=24k=26))(j=27k=26)(j=38&(k=35#k=36$))(j=37%(k=35#k=36$))x$="Wrong departure route":8900" $,h$(1)"0"h$(1)"0"h$(21)"A"l$(j)<"?"(j=24k=25)(j=26(k=25k=27))(j=35#(k=38&k=37%))(j=36$(k=38&k=37%))x$="Wrong departure route":8900" $.h$(1)"0"h$(21)="A"((j=24j=26)k=4)(j=35#k=12 )((j=36$j=40()k=13 )x$="Wrong departure route":8900" $0h$(1)"0"h$(21)"A"((j=25j=27)(k=17k=18k=23))((j=38&j=37%j=40()(k=18k=23))x$="Wrong departure route":8900" $2Pk=23j22h$(1)"0"x$="Wrong departure route":8900" $4oh$(1)="0"k=22k=19k=6k=14x$="Locos must stay within Waverley":8900" $6Xj$="H4 "a$(j(15),5)15x$="Already been to Waverley":8900" $8Sk$="SLS"h$(1)"0"h$(1)"4"x$="No access to platform":8900" $:(h$(1)"0"h$(1)"5")(h$(1)="5"(h$(22)"C"h$(22)"c"))h$(24)="N"((j=35#j=36$)k=37%)((j=38&j=37%)k=36$)x$="No access to platform":8900" $<h$(22)="C"((j=38&j=37%)(k=35#k=36$))((j=25j=27)k=26)x$="Trains not allowed to reverse":8900" $>h$(22)="c"((j=24j=26j=35#j=36$)(k=4k=5k=12 k=13 ))((j=25j=27)(k=24k=26))((j=38&j=37%)(k=35#k=36$))x$="Loco is at other end of train":8900" $@h$(1)="0"l$(k)"?"((j=17j=18j=23)(k=25k=27k=38&k=37%))((j=25j=27)(k=24k=26))((j=38&j=37%)(k=35#k=36$))x$="Attach loco to other end":8900" $Bk$="H2 "h$(14)=3h$(14)=12 h$(14)=14h$(14)=16h$(14)=24h$(14)=26x$="Wrong departure line":8900" $T(j=24k=25s$(27)="4")(j=24k25s$(29)="4")(j=26(k=25k=27)s$(28)="4")(j=26k25k27s$(30)="4")(j=25(k=24k=26)s$(33!)="4")(j=25k24k26s$(32 )="4")(j=27k=26s$(34")="4")(j=27k26s$(31)="4")x$="Train already signalled":8900" $V%(j=35#(k=38&k=37%)s$(42*)="4")(j=35#k38&k37%s$(44,)="4")(j=36$(k=38&k=37%)s$(43+)="4")(j=36$k38&k37%s$(45-)="4")(j=38&(k=35#k=36$)s$(513)="4")(j=38&k35#k36$s$(46.)="4")(j=37%(k=35#k=36$)s$(502)="4")(j=37%k35#k36$s$(47/)="4")(j=40(k=13 s$(491)="4")(j=40(k13 s$(480)="4")x$="Train already signalled":8900" $X(j=4(k=3k=11 )s$(10 )="4")(j=4k3k11 s$(535)="4")(j=5(k=3k=11 )s$(11 )="4")(j=5k3k11 s$(16)="4")(j=12 (k=3k=11 )((s$(11 )="4"q=1)(s$(12 )="4"q=0)))(j=12 k3k11 s$(15)="4")(j=13 (k=3k=11 )s$(13 )="4")(j=13 k3k11 s$(14)="4")x$="Train already signalled":8900" $ZEk$="MDN"q=1x$="Conflicts with other movements":8900" $/#0;1,8;"MOVEMENT ACCEPTED" $kh$(22)="c"l$(c(z$(2)))=(161ƨj(j)=28)+(162ƨj(j)=36$):9420$ $Dj$="H4 "l$(14)=(j(15)+100d):s$(19)="0" $5h$(1)="0"l$(c(z$(2)))"?"9420$ $6l$(c(z$(2)))=(j(c(z$(1)))+100d) $2c(z$(3))>0s$(c(z$(3)))="4" $2c(z$(4))>0s$(c(z$(4)))="0" $-z$(6)="1"m$(c(z$(5)))=j$+"N" $-z$(6)="2"m$(c(z$(5)))=k$+"N" $܂j$"PB "(j$(1)="P"j$(3)="W"j$(3)="E"j$="SLS")l$(j)<"?"a$(l$(j),23)="*"a$(l$(j),23)="0" $3k$="H4 "h$(14)=15s$(26)="2" $2k$="MUS"(j$="P16"j$="P17"j$="P18")q=1 $-7:2400` :1000:9000(# &Hea$(1):c$(1):20,0;:"TIMETABLE"a$():20,0;:"ARRIVALS"c$() &Ra$(22,24)="N" &\6:0:6:#0;1;0,4;"Awaiting traffic reports":#0;1;1,3;"from control - Please wait" &pUb$="AbdBatBirCarCowCraCwlDbrDdeDunEdiGlCGlQHarHayIntInvKirLdsLonCOYNorPerPlyStiWes" &zEz=163?:a$(z,23)="0":z:a$(1,23)="*" &td$="000YY":m$(17,4):l$="":s$="":z=141):l$=l$+"?":z:z=1535:s$=s$+"2":z &d=160< &?q=(*10 ):q<3q>5inc=0:9926& &$(*473):inc=-(*10 ) &\inc=inc-7:x$=a$(d,89 ):500:r$=x$:2000:c$(d,4)=r$ &d &s=2:q=0 &tl$(32 )=2:l$(39')=3:l$(28)=4:l$(33!)=8:l$(30)=14 '!o=0:q$="0859":r$="0858" '9999':10 ' E9999':1900l:r=1:s=2:1300:110n '(6:6:0::7: )((#?<&qnysor(<e?f?g??2Y21;2Y21 T;HN*YXXXX1O11 E CN*YXXXX1E36E AN*YXXXX2G07E FN*Y2P76 2P17 E) CN0N2G26 2K51E FN0N2Y82$ 2Y63 E: GN0NXXXX2R47 E# GN1Y1O10  1O13 E% CN0N4S644 4S642T !GN0N2K06 2K07E& !FN0N1E052 1E05 T #AN0N2P16  2P67E. (CN0NXXXX1H07E 7CN1Y1O12 01O15 E, CN0N2G08  22G09E- FN0N2P78  ;2P19 E5 CN0N5C56 0 71C56 E GN0N2J06  ;2J15 E FN0N2Y84 2Y45 E GN0N2R48 &2R49 E1 GN0N5A4771A47E FN0N1O14  1O17 E2 CN0N2K08  2K23E3 !FN0N1E07 1E07 T #AN0N2P18  2P81E9 (CN0N2Y09  (2Y09 T 2HN0N1C67 1C67 T ,GC0N1O16 01O19 E6 CN0N1S11 1E09E AN0N2G10  22G11E7 FN0N2P80  ;2P29 E CN0N2J08  2J05 E CN0N2Y44  2Y65 E GN0N2R50 &2R51 E; GN0N5H11 7 *1H11E CC0N1O18  1O21 E CN0N2K10  2K11E !FN0N1E112 1E11 T! #AN0N5C68  1C68 E" (GN0N2P20  "2P20E +CN0N2Y11  +2Y11 T# -HN0N1S12 01S12T$ 9FN0N1O20 01O23 E CN0N2G12  22G01E FN0N2P82  ;2P11 E CN0N2J10  2J11 E% FN0N2Y66  2Y41 E& GN0N2R52 &2R41 E CN0N1O22  1O25 E CN0N2K52  2K25E !FN0N1E13 1E13 T' #AN0N2P22  2P77E (CN0N1O24 01O27 E CN0N2G02  22G03E FN0N1B09 5B09 T) AN0N2P72  ;2P27 E CN0N2Y46  2Y61 E GN0N2R54 &2R43 E GN0N1S16 21E14E( #AN0N0C67 0C67 LLL000H11 0H11 L LL00 0 m<0852XY2353XY2349XY2353XY0853dY0853bY0903cY2353XY0911dY0915AY0913BY0918BY0922DY2353XY0941DY0943BY0948DY0944AY0952BY0955CY0931DY0848XY1010DY1013BY1018BY1018DY1033AN1000BY1041DN1010AY1043BN1052DY1053BY1058CY1031DN1035DY1111DN1113BN1118DY1114AY1127DN1136AY1139AY1141DN1143BN1152DN1149BY1156CY1127DN1211DN1213BN1216BY1222DN1239DN1243BN1224CY1252DN1259CN1231DY1243AYBNAbdBatBirCarCowCraCwlDbrDdeDunEdiGlCGlQHarHayIntInvKirLdsLonCOYNorPerPlyStiWesD002YYI L)????????mm???????????????????????S544422222222222222242444444222222222222222222222222222X1250W0910Q0912R0911Z*0306+24*0314+25*0406+26*0414+27*0508+28*0608+29*0808+30*0908+31*1108+32*1119+39*1208+33*1308+34*1410+35*1420+38*1510+36*1520+37*1615+40!TIMETABLE H;N#?2Y21;2Y21 T;HN*YXXXX1O11 E CN*YXXXX1E36E AN*YXXXX2G07E FN*Y2P76 2P17 E) CN0N2G26 2K51E FN0N2Y82$ 2Y63 E: GN0NXXXX2R47 E# GN1Y1O10  1O13 E% CN0N4S644 4S642T !GN0N2K06 2K07E& !FN0N1E052 1E05 T #AN0N2P16  2P67E. (CN0NXXXX1H07E 7CN1Y1O12 01O15 E, CN0N2G08  22G09E- FN0N2P78  ;2P19 E5 CN0N5C56 0 71C56 E GN0N2J06  ;2J15 E FN0N2Y84 2Y45 E GN0N2R48 &2R49 E1 GN0N5A4771A47E FN0N1O14  1O17 E2 CN0N2K08  2K23E3 !FN0N1E07 1E07 T #AN0N2P18  2P81E9 (CN0N2Y09  (2Y09 T 2HN0N1C67 1C67 T ,GC0N1O16 01O19 E6 CN0N1S11 1E09E AN0N2G10  22G11E7 FN0N2P80  ;2P29 E CN0N2J08  2J05 E CN0N2Y44  2Y65 E GN0N2R50 &2R51 E; GN0N5H11 7 *1H11E CC0N1O18  1O21 E CN0N2K10  2K11E !FN0N1E112 1E11 T! #AN0N5C68  1C68 E" (GN0N2P20  "2P20E +CN0N2Y11  +2Y11 T# -HN0N1S12 01S12T$ 9FN0N1O20 01O23 E CN0N2G12  22G01E FN0N2P82  ;2P11 E CN0N2J10  2J11 E% FN0N2Y66  2Y41 E& GN0N2R52 &2R41 E CN0N1O22  1O25 E CN0N2K52  2K25E !FN0N1E13 1E13 T' #AN0N2P22  2P77E (CN0N1O24 01O27 E CN0N2G02  22G03E FN0N1B09 5B09 T) AN0N2P72  ;2P27 E CN0N2Y46  2Y61 E GN0N2R54 &2R43 E GN0N1S16 21E14E( #AN0N0C67 0C67 LLL000H11 0H11 L LL00 0 ARRIVALS mHóo<0852XY2353XY2349XY2353XY0853dY0853bY0903cY2353XY0911dY0915AY0913BY0918BY0922DY2353XY0941DY0943BY0948DY0944AY0952BY0955CY0931DY0848XY1010DY1013BY1018BY1018DY1033AN1000BY1041DN1010AY1043BN1052DY1053BY1058CY1031DN1035DY1111DN1113BN1118DY1114AY1127DN1136AY1139AY1141DN1143BN1152DN1149BY1156CY1127DN1211DN1213BN1216BY1222DN1239DN1243BN1224CY1252DN1259CN1231DY1243AY