ZXTape! 0Created with Ramsoft MakeTZXSETRON36 F F&0:0:0:1: Hd$(32 ) J "CHRs" Lpn$="ababd+ababee-lacacac++ecab++++++++m-no-jh-kp-ihih-kp-ihi+sf-kp-qhjfr++n-mj-oh-kj-o":3,3;" "; Nn=1̱n$ P!n$(n)="+"x=32 :92\ R n$(n)="-"x=8:92\ Zx=n$(n)+47/ \)x;:n:6,4;"Spectrum 48K" ^74;1;3,0;d$;d$''d$:0 `45;8,5;" 1985 P.S.Lodge B.Sc." b#n="a""u"+7:n,0:n d "TTABcoded" # NRababd+ababee-lacacac++ecab++++++++m-no-jh-kp-ihih-kp-ihi+sf-kp-qhjfr++n-mj-oh-kj-oRNx CHRs X ??00000000??000000000000??????0  0TTABcoded *'*1Model Railway Timetable "Spectrum" LOAD and RUN Od-a;d+d,e;" STOP the tape then REWIND"''" Press any key to CONTINUE":ç d$(d*d/b):236099\,c*e g(e) i=ç:j=i:k=i #n(x#,y()=(x+y+(x-y))/b Ju()=(65536*23674z\+256*23673y\+23672x\)*b/c/c t()=n(u(),u()) c*e:b+b;" Model Railway Timetable "''" OPTIONS "'f;d-a'" 1 Create New Timetable"''" 2 Amend Existing Timetable"''" 3 Run a Timetable" =d+a:"Which Option ";n$:n$"1"n$"2"n$"3""<":c+c+b n$="2"k=a:c*c*c/b n$="3"c*c*c/b "" "n=c+c+ac-a-a:f;n,f;d$;:n: "%n=a̱n$:n$(n)<"0"n$(n)>"9"k=a: $n: &n$"d"n$"u"k=a ( *n$an$<"a"n$>"z"k=a , .Wn=a̱n$:n$(n)<"0"n$(n)" "n$(n)>"z"n$(n)>"9"n$(n)<"A"n$(n)>"Z"n$(n)<"a"k=a: 0n: 2>h$=(t/"<"/"<"):m$=(t/"<"-h$*"<"):m$=am$="0"+m$ 4h$>d*eh$=(h$-d*e):"4" 6h$=ah$=" "+h$ 8 :8"=":n=x:m=s:s=(t()+d/b/c)*c*c/b:"V":s=m:x=n: <-a;c+c,f;" ";f;" Error-Try again ";a;" " =b/c,d:b/c,f: > c+c,f;d$: @c+c-a,f;d$: BBk=f:f,f;"Which description is incorrect? Number ";n$:"""": D:a;c+c,f;" ";f;" No such time ";a;" ":b/c,d:b/c,f: Fz=a:y=g(e)+b Hy-z=ax=x+(x=z): Jx=((z+y)/b) Lh$+m$=a$(x,b) Nh$+m$g(e)+b"`" ^w ` n=b^w-a bn=(n/b):n dx=g(e)+b-n:y=a fw=y h z=w+n:a$(w,b)>a$(z,b)"n" jy=y+a:y>x"b" l"f" n9x$=a$(w):a$(w)=a$(z):a$(z)=x$:w=w-n:w<1"j" p"h" rj=f:x=g(e)+bx=f: t "":x=n: xc+d,f;"Locomotives": zHa+z-(z>g(a)/b)*(g(a)/b),a-(z>a+d)+b*d*(z>g(a)/b);z;" ";b$(z+a,c): |c+d,f;"Train Types": ~Ea+z-(z>g(b)/b)*(g(b)/b),a-(z>a+d)+b*d*(z>g(b)/b);z;" ";c$(z+a): n=x:y=b*e ,x=nn+b:y=y+b:x=g(e)+bx=ff:y,f;d$: "" ,x=bg(e)+a:y=x-b-(c+c+b)*((x-b)/(c+c+b)) kx>by=f: kx>by=fç: d-a:y,f;"00:00";y,a-(a$(x,a)>"J");a$(x,a)-"A";y,d/b-(a$(x,b)>"J");a$(x,b)-"A";" ";d-b;b$(a$(x,e)-"@",c);d-a;" ";c$(a$(x,d/b)-"@");" ";d-b;(a$(x,b+e)-(b*d+a)*(a$(x,b+e)>"9"));a$(x,d-b);"-";(a$(x,d-a)-(b*d+a)*(a$(x,d-a)>"9"));a$(x,d); a$(x,d+a)="!""" $" ";y,c*e;a$(x,d+a)-"!":"" a$(x,d-a)>"A"" *d":"" a$(x,d-a)<"A"" *u" x:f: *a;b+b;d-b,b*d+a;"Stopped":s=v:i=a: n=ad*d/b:"_";:n: b+b;c,c-a;" PLEASE WAIT ": 4("Describe Loco No.";z;" ");n$:n$>c"<":"" ">":b$(z+a)=n$:"z": <("What type is train no. ";z;" ");n$:n$>d-b"<":"" ">":c$(z+a)=n$:"~": Rk=f:f,f;"What is the name of the model? (30 CHR$) ";n$:".":k"<":"" e$=n$+"*": y=b+b-x `k=f:f,y;(x;" Time hrs. ");h$;a,d+a;" mins ";m$:n$=h$:"""":n$=m$:"""":k"<":"" h$=""m$="""<":"" #h$>d*e-aŰm$>b*c*e-a"<":"" O">":a$(x+a,a)=(h$+"A"):a$(x+a,b)=(m$+"A")::"x":z=ag(a):"z":z 7k=f:y;(x;" Loco number ");n$:"""":k"<":"" n$="""<":"" n$>g(a)"<":"" 8">":a$(x+a,e)=(n$+"A")::"|":z=ag(b):"~":z 7k=f:y;(x;" Type number ");n$:"""":k"<":"" n$="""<":"" n$>g(b)"<":"" !">":a$(x+a,b+b)=(n$+"A"): "":k"<":"" g$="""<":"" g$a+d"<":"" 3"@":a$(x+a,b+e)=(g$+"u"-h$):a$(x+a,e+e)=m$ "":k"<":"" g$="""<":"" g$a+d"<":"" 1"@":a$(x+a,d-a)=(g$+"u"-h$):a$(x+a,d)=m$ >k=f:y;(x;" Route No.(0 to 99) ");n$:"""":k"<":"" n$="""<":"" n$>c*c-a"<":"" Ga$(x+a,b+e)<":"a$(x+a,d-a)<":"a$(x+a,b+e)>"@"a$(x+a,d-a)>"@""" n$="0""" :c+c,f;a;" ";f;" Invalid Movement ";a;" ":"=":"" !">":a$(x+a,a+d)=(n$+"!"): hf,y;(x;" Start - Zone(1 to 9) ");g$;a,c;"Section (a to z) ";m$;b,c;"Up(u) or Down(d) ";h$:"" bf,y;(x;" Finish - Zone(1 to 9) ");g$;a,c;"Section (a to z) ";m$;b,c;"Up(u) or Down(d) ";h$ 5"@":k=f:n$=g$:"""":n$=m$:"*":n$=h$:"&": :"" <">":"New Locomotive List? (y or n) ";n$:n$="n"b*"" n$"y""<":b*"}" A">":k=f:"How many locos? (30) ";n$:"""":k"<":b*"" !n$="""<":"" n$c*e"<":b*"" ">":g(a)=n$ ;b$(g(a)+b,c+e):z=ab+c:b$(a,z)="+":b$(g(a)+b,z)="{":z "x":z=ag(a):"":z 1"Loco List OK? (y or n) ";n$:n$="y":b*""  n$"n""<":b*""  ">":"B":k"<":b*""  n$="""<":b*""  n$>g(a)"<":b*"" ">":z=n$:"":b*"" 2"New train types? (y or n) ";n$:n$="n"b*"" n$"y""<":b*"" G">":k=f:"How many train types? (30) ";n$:"""":k"<":b*"" n$="""<":b*"" 'n$c*e"<":b*"" ">":g(b)=n$ ;c$(g(b)+b,e+e):z=ae+e:c$(a,z)="/":c$(g(b)+b,z)="{":z "|":z=ag(b):"":z 8"Train Types List OK? (y or n) ";n$:n$="y":b*"" n$"n""<":b*""  ">":"B":k"<":b*"" !n$="""<":b*"" "n$>g(b)"<":b*"" $">":z=n$:"":b*"" &0"New Timetable? (y or n) ";n$:n$="n"b*"" (n$"y""<":b*"" ^?k=f:"How many train movements? ";n$:"""":k"<":b*"" _n$="""<":b*"" `n$>b*c*c*c"<":b*"" b ">":g(e)=n$:a$(g(e)+b,a+d) d+x=aa+d:a$(a,x)=" ":a$(g(e)+b,x)="[":x f#x=ag(e):"":x::"":"Z": h k=f:"" r1"Timetable OK? (y or n) ";n$::n$="y"b*"" tn$"n""<":b*"" u ">":k=f vhf,f;"Enter incorrect time hrs. ";h$;a,c+c;" mins ";m$:n$=h$:"""":n$=m$:"""":k"<":b*"" wh$=""m$="""<":b*"" x%h$>d*e-aŰm$>b*c*e-a"<":b*"" zH">":h$=(h$+"A"):m$=(m$+"A"):"F":x=x-a:y-z=a"D":b*"" |'"":"":"Z":k=f::"":b*"" ~5"Is a COPY required? (y or n) ";n$:n$="n"b*"" n$"y""<":b*"" :k=a:"":: )"":z=ag(a):"z":z:"x":"":: #z=ag(b):"~":z:"|":"":: /:c+c-a,f;"The current name of the model is" -n=a̱e$:e$(n)="*"c+c,f;e$(n-a):b*"" n 4"New name for model?(y or n) ";n$:n$="n"b*"" n$"y""=":b*"" "@":"":b*"" "@" Hk=f:f,f;"Timetable description, 30 CHR$";n$:".":k"<":b*"" n$="""=":b*"" n=a̱e$:e$(n)"*"n n$=e$(n)+n$:e$(n$):e$=n$ B:c+d,f;"To SAVE this Timetable";c+c,f;"Remove ""EAR"" plug" G"Enter the NAME under which the Timetable will be SAVEd,9 CHR$";j$  "a"+j$a$() a/c,e:"b"+j$b$() a/c,e:"c"+j$c$() a/c,e:"e"+j$e$() a/c,e:"g"+j$g() Йe,a::d+d,f;"STOP the tape then REWIND";c+d,f;"Insert ""EAR"" plug";c+c,f;"then press any key to continue":ç::c+c,f;"Start the tape to VERIFY"  f:""  "a"+j$a$()  "b"+j$b$()  "c"+j$c$()  "e"+j$e$()  "g"+j$g() 1d+a::c+c,f;"Verification OK - STOP THE TAPE" ("Anymore? (y or n) ";n$:n$="y""" n$"n""<":"" c*c*d Ac*e:"Enter the NAME under which the Timetable was SAVEd ";j$ ~b*d,f;"Load the Data Tape",,,"Insert the ""EAR"" plug","press any key to continue","then start the tape.":ç:f:c*e:""  "a"+j$a$()  "b"+j$b$()  "c"+j$c$()  "e"+j$e$()  "g"+j$g()  d+a:k:"" )c*e:c+c-b,f;"Set the REAL TIME clock" {k=f:f,b+e;"Time hrs. ";h$;a,c;"mins ";m$;b,c;"secs ";s$:n$=h$:"""":n$=m$:"""":n$=s$:"""":k"<":"542"  !h$=""m$=""s$="""<":"542" "/h$>d*e-aŰm$>"<"-aŰs$>"<"-a"<":"542" $"T":s=s*c*c/b:"V":c*e &Xk=f:f,f;"How many hours to represent 24 on the model? ";n$:"""":k"<":"550" (n$="""<":"550" )N$=F">":"550" * l=d*e/n$ ,&c*e:c+c-b,f;"Set Model Start Time" .\k=f:f,c/b;"Time hrs. ";h$;a,c;"mins ";m$:n$=h$:"""":n$=m$:"""":k"<":"558" 0n$="""<":"558" 2$h$>d*e-aŰm$>"<"-a"<":"558" 4$:"":s$="0":"T":n$=h$:s$=m$ 68h$=(h$+"A"):m$=(m$+"A"):"F":x=g(e)+b"556" 8(f$(g(a)):z=ag(a):f$(z)=(z+"A"):z :n=x:x=b"584" < x=n-ab-a > z=a̱f$ @f$(z)=a$(x,e)b$(f$(z)-"@",c+b)=a$(x,d-ad):b$(f$(z)-"@",d+e)=a$(x,b+b):y=ẕf$-a:f$(y)=f$(y+a):y:f$(y)="":"580" Bz Df$(a)=" ""596" Fx H x=ng(e)+a J z=a̱f$ Lbf$(z)=a$(x,e)b$(f$(z)-"@",d+e)=a$(x,b+be+e):y=ẕf$-a:f$(y)=f$(y+a):y:f$(y)="":"592" Nz Pf$(a)=" ""596" Rx Tx=n::z=ag(a) VUz-(c/b*e)*(z>c/b*e),f;(b$(z+a,c+b)-(b*d+a)*(b$(z+a,c+b)>"9"));b$(z+a,c+e);" "; X b$(z+a,c+b)>"A""d ";:"604" Z"u "; \)b$(z+a,c);" ";c$(b$(z+a,d+e)-"@") `bz=c/b*ez=g(a)'''"Locomotive positions at ";n$;":";s$;c+c,f;"Press any key to CONTinue":ç: bz dn=a̱e$:e$(n)"*"n j/d-a;b;b,f;" ";e$(n-a);" ";'';" ";e$(n+a) nr=t():"":x=n pd*e-e,b*d;" Real Time " rt=t():"2" td*e-e,c*e-e;h$;":";m$ v ="x""" x="c"i=f:r=t() z i"626" |&e+e,b+e;" Model Time ";f;" " ~t=(t()-r)*l+s:v=t:"2" e+e,f;h$;":";m$ 2w=(a$(x,a)-"A")*"<"*"<"+(a$(x,b)-"A")*"<" w-tb*c*ljj=a:":" )tw+5*lx=x+a:"r":x=f"658"  ="x""" ="z""658" 7="v"f:f::c+c,f;"New Time Scale":d*c*c:"550" 6="b"f:f::c+c,f;"New Timetable":d*c*c:"500" "626" 6f:f::c+c,f;"New Model Start Time":d*c*c:"556" g T"`Tdfaebdc # ijkJTEST* GAHF1a2b'G_EG2c2f%GdEG2fCf!HABCBfEb2HKCB4d3d(H_FEBdFx$IAGDCxBz*IPDG3a5a"IiIC4x1b)JBEGCfEn#JMHG2b1f+J_FEFxDc$KPCD3d1d(KiGBBzEa&LFBCEbCh+LdIF1b3z'LsDG5aGb!MKDGGbBb%MUFDDcEd1MiCC1d5x)NFHF1f1z(NZBBChCb*NnGEEaFa-OFEEEnCf.OUID3z1n#OnDGBb1b!PAIB1n2a*PnBECbFb'QACB5x4a&QUHD1z3h"QiFCEdCb$RKGFFaBa,RZCB4a5b$RxEECfHf(SFBEFbGg4S_DG1b2h&SsGFBa1a!TUFCCbCf6TsIB2a2b'UPHD3h4n%[[[[[[[[[‡ ++++++++++++ Mallard CBfRoyal ScotB4dCaly 0-4-0G3aGWR 0-4-2TG2cLMS 2-6-4TEBdEvening * DCxGN 0-6-0T F1aD'ess SuthC4x{{{{{{{{{{{{ 5//////Mail XpressGoods ParcelMixed Light {{{{{{&#NORTON VALLEY RAILWAY*Demonstration(s Ll{DS000  r*t~"]6v~"]6M00H 0N00 aTEST j* GAHF1a2b'G_EG2c2f%GdEG2fCf!HABCBfEb2HKCB4d3d(H_FEBdFx$IAGDCxBz*IPDG3a5a"IiIC4x1b)JBEGCfEn#JMHG2b1f+J_FEFxDc$KPCD3d1d(KiGBBzEa&LFBCEbCh+LdIF1b3z'LsDG5aGb!MKDGGbBb%MUFDDcEd1MiCC1d5x)NFHF1f1z(NZBBChCb*NnGEEaFa-OFEEEnCf.OUID3z1n#OnDGBb1b!PAIB1n2a*PnBECbFb'QACB5x4a&QUHD1z3h"QiFCEdCb$RKGFFaBa,RZCB4a5b$RxEECfHf(SFBEFbGg4S_DG1b2h&SsGFBa1a!TUFCCbCf6TsIB2a2b'UPHD3h4n%[[[[[[[[[bTEST eq@ ++++++++++++ Mallard CEbRoyal ScotB3dCaly 0-4-0G5aGWR 0-4-2TGEnLMS 2-6-4TEDcEvening * DBzGN 0-6-0T G1fD'ess SuthC1b{{{{{{{{{{{{ cTEST 5e 7//////Mail XpressGoods ParcelMixed Light {{{{{{eTEST &e (#NORTON VALLEY RAILWAY*DemonstrationgTEST ŀT(