ZXTape! 0Created with Ramsoft MakeTZXREADING WWs0Y /0:0:1::0:6 :7,8;" ";0;3;"" :8,8;" READING ";0;3;"" :9 ,8;" POWER BOX ";0;3;"" !=11 ,8;" CONTROL ";0;3;"" #;10 ,8;" ";0;3;"" -;12 ,8;" ";0;3;"" 2813 ,8;3;0;"" 7815,8;1;1;" 1991 A.GREENUP" 630v80P F21,0;0;" ":1000:23674z\,0:23673y\,0:23672x\,0:h<870f502 PQ:q=q/h*870f:z=(120x-q/5):z>100dz=100d:84T Rz<5z=5 T:0,2;2;"RAIL TRAFFIC CONTROL READING" V68,5;1;"Efficiency Rating ";z;"%" X:21,0;0;"Do you wish to play again ?" Y="y"1 Z ="n" [ 89Y dE21,0;0;" ":"INPUT: ";i$:i$=""280 n$i$(1)="p"i$="tl"200 x a=-1 "i=16:i$=l$(i)a=i i 6a=-1z$="NOT ALLOWED":q=q+3:250 :a(a)>500z$="NOT ALLOWED":q=q+3:250 Ca(a)>5z$="TOO EARLY TO SET ROUTE":q=q+3:250 X21,0;7;0;1;a$(a,214):z=e(a):300, "EXIT: ";e$:e$=""280 $e$(1)"p"e$"tl"190 Iq$=e$:9900&:zz=1z$="NOT ALLOWED":q=q+3:250 @p(p,1)>1z$="NOT ALLOWED":q=q+3:250 1850::250 *q$=i$:9900&:zz=1225 !p(p,1)>1230 *z$="NOT ALLOWED":q=q+3:250 Np(p,1)>300,z$="NOT READY FOR DEPARTURE":q=q+3:250 G21,0;7;0;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: 321,0;0;" " z$=""285 >21,0;0;" " >21,16-z$/2;7;0;1;z$ 1.5@,-2 >21,0;0;" " " ,Oz$="2530":z>39'z$="4230":z>45-z$="500":z>60<z$="1174" .Zz>73Iz$="1195":z>80Pz$="2050":z>83Sz$="474":z>91[z$="475" 0z>97az$="476" 2z=102fz$="2100" 3z=103gz$="314" 4z=104hz$="590" 5z>104hz$="560" 6z=107kz$="470" 7z=108lz$="471" 8z=109mz$="472" |"y$=w(z):y$=1y$="0"+y$ >z$=z$+y$:21,13 ;7;0;1;z$: :bo=0:650 Ax$=" ":n$="00000000000000":s$=n$ 9c$="0930":h=5699:u=0:v=0:q=0  470 i=16 !a(i)=501:l$(i):a$(i)=x$ i }b(1)=1:b(2)=29:b(3)=43+:b(4)=64@:b(5)=83S:b(6)=98b "dm","dr","el","um","ur","wl" i=111 :l(i):i d20,19,19,18,17,16,16,17,15,20,18 i13 ,0;7;0;1;"The traffic department reports:-":j=15:e=0  14,1;x$ >i=16:i=2i=4j=19570: yz$="":x=1+(*502):1800:x=502n(i)=20+(*11 ):z$="Severe disruption ":5600 Lx=491n(i)=10 +(*11 ):z$="Engineering work ":5600 Bx=480n(i)=10 :z$="Operational problems ":5600 &%x<480n(i)=0:570: 0zj,0;7;0;1;z$:j=j+1:j,10 ;7;0;1;t$:j=j+1:e=1 :i Dn(2)=n(1) Nm"Pad","Act","OOC","Oxf","Hfd","Cht","Brs","Wst","Swn","Cdf","Fsh","Pmb","Crm","Mlf","Gla","Man","Liv","Bdf" O"New","Yrk","Nby","Bdw","Mrh","Plm","Pgn","Nqy","Pnz","Pts","Bsk","Wey","Ple","Stn","Wtl","Gat","Red","Gld","Rdg","PCL","FLT","COY" X{p$(1)="2B10 Rdg-Bdw":p(1,1)=303/:k(1)=21:r(1)=932:f(1)=102f Yzp$(3)="2C12 Rdg-Wtl":p(3,1)=301-:k(3)=32 :r(3)=930:f(3)=40( Zp$(10 )="1O64 Rdg-Gat":p(10 ,1)=3117:k(10 )=33!:r(10 )=940:f(10 )=74J [yp$(6)="2A29 Rdg-Pad":p(6,1)=325E:k(6)=0:r(6)=954:f(6)=61= lMe=015,7;7;0;1;"No problems today" vJ21,3;7;0;1;"Press any key to continue" {=""635{  f1=1+(*10 ) j=118:w(j)=j:j (j=1939':w(j)=j+9 :j Ex=1:y=31:8204:x=32 :y=39':8204 )j=40(59;:w(j)=j-39':j )j=60<86V:w(j)=j-26:j #x=40(:y=86V:8204 %730:j=16:x,y,z k=xy:w(k)=k-z:k 8204:j ڤ46.,95_,45-,61=,89Y,60<,74J,99c,3,81Q,89Y,568,84T,109m,535,89Y,101e,18 Mx=84T:y=91[:8204:j=92\108l:w(j)=j-63?:j x=92\:y=108l:8204:w(95_)=20+(*9 ):w(96`)=86V+2*(1+(*4)):w(97a)=568+(*6) <0,491,94^,491,502,95_,-1,36$,96`,1,13 ,97a,14,13 ,98b,27,13 ,99c,0,33!,100d,33!,32 ,101e,40(,15,102f,45-,502,103g,0,99c,104h,0,502 w(98b)=3*(1+(*5))-3:w(99c)=12 +3*(1+(*5)):w(100d)=17+3*(1+(*3)):w(101e)=16+3*(1+(*4)) $x=98b:y=101e:8204 w(102f)=1+(*2):w(103g)=1+(*6):w(104h)=1+(*4):w(105i)=31+(*11 ) w(106j)=480+(*10 ):w(107k)=81Q+4*(1+(*4)):w(108l)=42*+(*7):w(109m)=21+4*(1+(*7)) 0f1>7w(109m)=83S+(*4) $mo=(f1/2):mo=f1-mo*2 1mo=0w(108l)=86V+(*14) ( 7 * 4'bo=bo+1:bo>7bo=0 9bo >?i=1100d:c=x-1+(1+(*(y-x+1))) H:d=x-1+(1+(*(y-x+1))):c=d840H R1w(110n)=w(c):w(c)=w(d):w(d)=w(110n) \i f pZ0,0;0;"W";1;" READING STATION CONTROL";0;31;"E" z/2:2,8;"EAST END ARRIVALS" A0:0::0:7:1:"DM":"DR":"EL" "UM":"UR":"WL" J0:7:1:17,16;"8";15,16;"9" .16,0;"7";16,16;"6" 17,0;"5" .18,0;"4";18,16;"" .19,0;"2";19,16;"" .20,0;"1";20,16;"" Q918:x=615:x,0;"":x .6:930:i=172H:a:b :a>9998*(a-1000),b*8:928 a*8,b*8 i &1000,6.5P,5.50,0,2,2,4,0,1,-1,2.5 ,0,1000,7.5p,5.50,0,2,2,3,0,1,-1,3.5`,0,1000,9.5,31.9333,0,1000,10.5(,31.9333,0 F1000,11.58,9 ,0,4,2,6,0,4,-2,8.9fff,0,1000,12.5H,8,0,6,3,4,0,6,-3,7.9|,0,1000.5z ,9.5,3,3,1000.5z ,7.5p,1,-1,1,0,6.4L,6.4L V1015,12.5H,-3.5`,0,-1.1 ,1.1 ,1017,12.5H,2.5 ,0,.5,.5,1030.5,9.5,-3,3,-3,0,-2,-2,1017,8.5,14.9nfff,0,1017,7.5p,2.5 ,0,1,1,3,0,1,-1,7.4l,0 1013.5}`,9.5,1,1,-1,0,1,1,4,0,1,-1,-1,0,-1,-1,1013.5}`,13.5X,2,2,1017,13.5X,1.5@,1.5@,1014,14.5h,4.5,0 {1018.5~,11.58,1.5@,1.5@,1007.5{,9.5,1,1,1007.5{,8.5,1,1 %930:i=172H:a:b Ba>9998*(a-1000),b*8-1:928 a*8,b*8 i 9 ,15;6;0;1;"";13 ,15;"";14,15;"";6,16;"";8,16;"";10 ,16;"";11 ,16;"";12 ,16;"" [952:i=14:n1:(22688X+n1),67C:(22689X+n1),67C:i )301-,273,3051,145 7:0:  590N j=0x:q$:j  .15~,10 Qh=h+1:mo=(h/60<):mo=h-mo*60<:z$=mo:z$=1z$="0"+z$ .z$=(h/60<)+z$:z$=3z$="0"+z$ c$=z$ +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=16 V/a(d)=a(d)-1:a(d)5001290  ` 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)) kd>11135o mQl>32 l<40(w(l)>40(b(d)=b(d)+1:q=q+5:1120` 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$=" " m=0y$="*" 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>10 g<1000n=4 !g>0g<11 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 7i=111 :p(i,1)=p(i,1)-1 (;p(i,1)=500i=11 p(i,1)=300, 2|p(i,1)=499(o(i)=0o(i)>10 )p(i,1)=299++s(i):o(i)>10 o(i)<100d1370Z <1p(i,1)=0o(i)>100d1420 F1p(i,1)=496o(i)>11791 K5p(i,1)=496p(i,1)=296(+s(i) P 1390n Z03560 :j=1(o(i)-10 ):z$,x:j d 960:p$(i)=z$+" Rdg-"+q$ gk(i)=x ni xI7,24;0;6;1;c$:sf=0:1490  ,mo=(r(i)/100d):mo=r(i)-mo*100d !z=60<*(r(i)/100d)+mo )h-z<45-w(o(i)-100d)=w(f(i))  i=16 :a(i)>500a$(i)=a$(i,14)+"Sgnld to station" Xa(i)=501(a(i)=502m(i)0)a$(i)=a$(i,14)+"Running into stn" ;a(i)51770:a$(i)=a$(i,14)+"App."+z$ Ja(i)4m(i)=0ưa$(i,2)<3sf=0q=q+1 xa(i)2a$(i)=a$(i,14)+"Held apprch sigs":(a$(i,2)<3a(i)<-8)sf=0q=q+2 Ja(i)>15a(i)<500i-1,2;1;x$:1570" 5i-1,2;7;1;1;a$(i) "i ,i=111 8 z=2 @7p(i,1)>500z$=p$(i,5)+"Arr.sgnld" Ecp(i,1)=501sf=0x=18:(22688X+i(p(i,2),x)),70F:x Jp(i,1)=500(i=11 p(i,1)=300,)z$=p$(i,5)+"Arrived ":sf=0x=9 15:(22688X+i(p(i,2),x)),70F:x:i=11 z$=p$(i,13 ) Ki=11 1680 T;p(i,1)<497p(i,1)>4991630^ YQo(i)=1z$=p$(i,5)+"Run round":sf=062008:1630^ [So(i)>1o(i)<10 z$=p$(i,5)+"Chng Loco":sf=062008 ^&y$=r(i):r(i)<1000y$="0"+y$ hp(i,1)>300,p(i,1)<497z$=p$(i)+"Due depart "+y$+" ":z=2z$=z$(5)+z$(10 12 )+" d"+y$ meo(i)>0o(i)<10 sf=0p(i,1)>299+p(i,1)<4976300 rpp(i,1)300,z$=p$(i)+"Ready to depart ":z=2z$=z$(5)+z$(10 12 )+" Ready" |Wp(i,1)<300,p(i,1)>2p$(i,1)"5"sf=0q=q+1 3p(i,1)=2z$=z$(5)+"Departing" p(i,1)=1sf=0x=17:22688X+i(p(i,2),x),70F:x:(64000+i),p(i,2):1692 (64000+i)>0sf=0x=817:22688X+i((64000+i),x),70F:x:(64000+i),0 Rp(i,1)1p$(i)=" ":z$=x$:z=2z$=z$(14) i=11 1730 Vj=1:i=9 i=6i=11 I=3I=10 i=8j=17 +l(i),j;1;7;1;z$;" " i Mi=11 :p(i,1)>500z$=p$(i,5)+" Signld":1744  z$=p$(i) 618,17;7;1;1;z$;" "   18400 k=1i:z$:k   1799 j=2o(i):k,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  886V,94^,110n,97a,97a,86V  1830& k=1i:t$:k  &9"at Slough","at Slough","at Wokingham","in Didcot area" '"at Southcote Junc" 0X"New Junction","New Junction","Spur Junct.","West Junct.","West Junct.","Oxford Rd Jn" :z$="" 71G))(e$="p4a"(e(3)<40(e(3)>45-))(e$="p4b"(e(3)<74Je(3)>80P)(e$="p1"e(6)72He(6)73Ie(6)102f)(e$="p2"(e(6)<81Qe(6)>83S))(e$="p6"(e(2)<61=e(2)>67C)))z$="NOT ALLOWED IN THIS PLATFORM": DPe$(1)"p"i$"tl"i$(1)"p"e$"tl"q=q+2:z$="BAD INPUT": bi$(1)="p"1950 d@a$(a)(1)"*"e$="tl"z$="NOT ALLOWED ON THROUGH LINE": f>a$(a)(1)="*"e$"tl"z$="MUST PASS ON THROUGH LINE": p "ENTERING THE STATION" q)i=16:i$=l$(i)1920 vi:1950 Rroute=g(i,p):p(p,2)=route:route=0z$="NOT ALLOWED":q=q+1: <x=117:i$(1)="p"x<201930 ^(22688X+i(route,x))=67Cz$="ROUTE CONFLICT":q=q+2:p(p,1)=0: x x=117 !22688X+i(route,x),67C x:p(p,2)=route  2950 "LEAVING THE STATION" )i=16:e$=l$(i)1960 $i:z$="NOT ALLOWED":q=q+1:  6000p Iroute=h(p,i):route=0z$="THAT ROUTE NOT ALLOWED":q=q+2: \x=517:(22688X+i(route,x))=67Cz$="ROUTE CONFLICT":q=q+2: x x=117 !22688X+i(route,x),67C x  5000:p(p,2)=route %i$(1)="p"i$="tl"3260 !c=0:u=0:v=0 D/a(a)>2a(a)=a(a)+500:3150N Fa(a)=502 X1p(p,1)=a(a):y=a(a)-502:3312 p(p,1)=2: z=o(p) +dh=2:a$(a,1)="*"dh=1 Pp$(p)=a$(a,dh14):f(p)=e(a):r(p)=d(a):s(p)=m(a):k(p)=t(a):o(p)=c(a)  "2A31",0,"2A33",0,"2A35",0,"2A37",0,"2A39",0,"2A41",0,"2A43",0,"2A45",0,"2A47",0,"2A49",0 "2A51",0,"2C14",32 ,"2O32",34","2C16",32 ,"1O68",33!,"2C18",32 ,"2O33",35#,"2C20",32 ,"1O70",33!,"2C22",32 "2O34",34","2C24",32 ,"1O72",33!,"2C26",32 ,"2O35",35#,"2C28",32 ,"1O76",33!,"2C30",32 ,"2O36",35#,"2C32",32 "1O78",33!,"2C34",32 ,"2C44",3,"2C46",3,"2C48",3,"2C50",3,"2C52",3,"2C54",3,"2B12",20,"2O05",28 "2O06",28,"2B14",21,"2O07",27,"2B16",20,"2B18",21,"2O08",28,"2B20",20,"2O09",27 :"?????????" p"EXIT LOGIC" z,(e$="um"e$="ur")k(p)>26950& <(e$="dm"e$="dr")(k(p)<3k(p)>19)6950& 3e$="wl"(k(p)<20k(p)>31)6950& 3e$="el"(k(p)<32 k(p)>35#)6950&  1961 8RUN/CHG LOCO =n22766X,67C:22767X,67C:22768X,67C:22769X,67C:22770X,67C BMi=822797 Y,67C:22798Y,67C:22801Y,67C G7i=9 22737X,67C:22738X,67C j  Mi=822798Y,70F:22797 Y,70F:22801Y,70F 6i=9 22737X,70F:22738X,7 (i=9 (o(8)=0o(8)>10 ))(i=8(o(9 )=0o(9 )>10 ))22766X,70F:22767X,70F:22768X,70F:22769X,70F:22770X,70F o(i)=0: &+q=q+2:z$="WRONG DEPARTURE ROUTE": #(/0:0::1:6:1 #-#5,9 ;" " #2#6,9 ;" " #7#7,9 ;" POWERBOX " #<#8,9 ;" " #A#9 ,9 ;" READING " #F$10 ,9 ;" " #U$0:0:7:1 #Z.13 ,4;"Awaiting traffic reports" #_014,3;"from control - Please wait" #b 9950& #d & zz=0 &q$=q$(2) &"zy=q$:zy=0zz=1: &zy=2q$="l"9910& &zy>1zz=1: &q$<"0"q$>"9"zz=1: &*p=q$:p<1p=3zz=1: & &q$="4a"p=3: &q$="l"p=11 : &q$="4b"p=10 : &zz=1: & 9960& &'i=0103g:a:("a"+i),a:i &0,34",101e,165,247,37%,37%,0,0,38&,101e,166,245,37%,38&,0,128,0,0,0,0,0,0,1 &60<,36$,36$,189,133,4,4,0,60<,36$,36$,189,165,36$,60<,0,60<,32 ,32 ,189,133,4,60<,0,248,32 ,40(,171,171,40(,47/,0,32 ,32 ,40(,189,137,8,8,0,248,32 ,40(,40(,40(,40(,46.,0 &16,16,16,16,16,16,16,0,120x,8,8,120x,64@,64@,120x,0,60<,32 ,32 ,60<,36$,36$,60<,0,120x,8,8,8,8,8,8,0 & '17:0:0:0::7: :g&a($ycLz7hSuvqeft$sWml>g wbnp rR00001022220000|1C231C241B161B421C251B201C271C281F161C291C321B261C341C361F181C371C391B281C421F201C431C441B301F221C471C481B321C491M092F242F262F286B112F304O792F322F342F362F382F402F422F442C131V402C152V562C171V442C192V572C211V472C232V582C251V562C272V592C291V632C312V602C331A211A221A231F271A251A271A281F291A311A321A361F311A371A391F331A421A441F351A462C433V191O342C451O022C471O031O063V952C491O043A122C511O052C532B112V296A531S391A263A372V302B171A291E612V322B191M071A331A341E632B212V351A401A411M146A562B232V361A431E221A45o|'& ! " ! # ! " ! # ! "    %%%'%'o| $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$o| &.8pz9BZd;hGg '2m|5DS^1dv3CSd#m8JO %.3;hy9?FPX]o|#& # # ## !# #@ 3 )  2 ; o|./ !"01#2 b3$ %4& '5c>?@hAlBC>?@=B)K*L+M,N-O(P)J*M+L,K-678Y9: ; DgTE\FU]kDWmG_FHQie<RIXQfd`HRZjIS[o|r  !"#$%&'()*+,-./012n34o56p789:M00000000000020outCKsrqpovuTS210/srqpovuTS210/?>=<;:98?>=<;:9833321lmnopijKL-./0ijijlmnopijKL-./0 ABCDE&   ,,,-. ABCDE&       !"# !"#lmnop !"#ijKL-./0 !"#$%.-     &EDDCBA@.-,    &EDDCBA@      &&EDCBA@123&EDCBA@%$#BA@ponmlponmlopqrsopqrsponml#BA@0/.-LKji0/.-LKji/012STuv/012STuv0/.-LKji#BA@&EDCBA@O   O ()*,-.0/123456789:;<=+>?@A X N00000000000000S00000000000000IurE4T0959Qon timeC0955Y0940Z West Junct.!s  П  !: :  !!: : !!: !)n!: