ZXTape! 0Created with Ramsoft MakeTZXSDRILL ~&7:7:7:1:  50000P "logo" 1,0; "c" 1,0; "RTS" 1,0; ("A" )1,0; 2 "prac" atprac &7:7:7:1:  50000P "logo" 1,0; "c" 1,0; "RTS" 1,0; ("A" )1,0; 2 "prac" logo @ <Bx<8Dx8BDDDD DD ~DDxD Dx BD<@D D@ BD <8 D< 8ÃÿýÁÃ@<B<@}ス@BBDbB@88D888x8Dxxx<ュýス@BBBR@@DDDDD DDD0DDオa@B~BJN>@x<(xB<~<<< <@< 8DD8D@8xxxxxxxxxxxxx|x||||||||||||||||||x||||||||||||||||||||x||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||DDDDDD||||||||||||||||D||xxDDDD|||||||||||x|xxxxx|xx|||xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxOOOOyyyyyyyyyyyyyyyyyyyyyyyOOOOO8888888888888888888888888888888888888888888888888888888888888888c P$ >!D"6!D"!!!~o&E#S/"1"3"7.!!aKE".*3͓*7͓w$.!!aKE"*3!"3.*3͓*7͓w$.!!aKE"*3!ѧR"3*7!"7.*3͓*7͓w$*/#"/[1ͧRà;;;;;;;; ; ; : : ::9999888776655443^32 2!1"1#0$/$/%.&-'-(,(+)+**aý+)+(,(-'-&.%/$/$0#1"1!2 233445566778889999{:: : : ; ; ;;;;;;;;;~;;;;;;;;;;::::99999888776655443<Ø322110//.--,++*)(('&%$$#"! VYõ     sv14ÐN     Qí  !"#$$%&'(()*k++,--.//0112233n445566778889999)::::;;;;;;;;;;;PRTS V^Xz2*e\d ":k :>> *\#6# B> *"+:G K> ZX COMPILER V1.0  1982 THRELFALL and HODGSON "[!͌2Y<2!""">2*"*>!͸!>"͸*S\###"]\>2\R(-̮p:̝O<ʯ̃]̵+̨̊80!M Ͷ͡!Ͷ!:Ͷ*]\~:$S Iͯ*]\#~# }2J{!90){dͦKB#))yx0|g}o(yx{yOxGx¶D|ܶ|G|¶|/g}/o#ɯ=| }l&@R0?jj\jgW< U>?$U*6!7͵! rU>L$>$UB (. (e+(-( 0ڷ:ҷ y n$*[ w*[ 6 !*[ ~ (+(-(0)))_*[~-̶y> $>$$> $>$ U>?$U>$!x$ *w#"[[Rѯɯ>)(P (L+(- #gx !DMͻ2>!i`͸/(*z!EͶz!Y>+(z!ͻ!Rͻz>>!( ( E:00O *]\"]\>}|V#^"l\"I\͗b> $͖͌[͌[R8"[\RK>:(>*l\͸!>ö!6ö> +-:*\*\>ׯ>U>ׯ>2 U"\"\6h!|+s#r#^#V#*#͑B*R#>͖͑ø>*]\#~ ("]\ ( ( :($:> !Ͷ>2͢!ö>DM >2\2\::k\GD>2k\D:[v\c.zRR_PR0#"v\˼DM>*!x\͸>"!v\ø|(>-$Ͷ'ͭ0ͭ0dͭ0 ͭ0ͳͳdͳ ͳͳR>0R8<$˯Z!ö*e\d [\BR)*e\d #6!Kͻ!e\ͻ!) ͻ>!d͸> >!Ͷ!ûͦ>*͸!#"ͻͻ##>>[͸>!R͸>͑͸ͦͼ>#!Sͻͻ>"##͸[͌ͼͩ!sû,*6##[͌>!.Ͷ!k ö!ö| =!öͼg.>ͻ!Ͷ*l\#͖͑>͸<(=($>(((( R7?R7?R7?R7?_.K&Eͻ!"ö!.Ͷ8 ͩ͡!:Ͷ x>2 ~"'ʜ,Y;ʚ>ʇ-ԡR:(! Ͷͦ>"͸j!bͶ^>**]\#~$"("]\q#>͸>͸!ö!6ö>}|ͼͩ!Jö>{}, >>.&͸Ú;ʚ'x!ͶÚ!Ͷ*]\+"]\>}!$Ͷ> $!ͶÚA˯[[*]\#~08:8 A8˯[0˯ &o))K !Z[2 o 7n +n+([!4~ w+[[Ro(w:!Fwͦ >&=~| !ͻ!ö>"ø !~oͻ!&û C"( !ö˯A&o>͸>*!{\͸"> `i !UͶ>&!oø"o&>!͸"!2ö !|ͻ>!ø !5ö||.&¶^>>&h.͸!&û !ö %!%ͼ.K&EͻͶ!Ͷ.`&iû !"r(>!&j͸é>>-((0 A v!öͦ&>*ø>!øN#F #:K\:L\::\2\>M n(:\ 6:\.&8͸_|(ULGö*o>>&͸.}&û>}!"öͩo !w$Ͷ ͩo!#Ͷ>.&͸~>.&͸!.Ͷ8͡rͩoͩo!-#Ͷ*l\#͖͑>͸*| *"*[͌-̶ͻ ( ͩ>ܯ*"!ͻ~͖͑###>!͸>"!øͦ!Ͷ>"͸ ~*| ͑~# ͑"ͼͩ>>!iø!Ͷ>2â>@@\vA >!"6!"!!!~o&E#S"!*!Ys"".!!aKE".*͓*͓w$.!!aKE"*!".*͓*͓w$.!!aKE"*!ѧR"*!".*͓*͓w$U&o!>*#"[RU;;;;;;;; ; ; : : ::9Xô99988877665544332 2!1"1#0$/$/%.&-'-(,(+)+**r+)+(,(-'-&.%/$/$0#1"1!2 233u4455667788899990:: : : ; ; ;;;;;;;;;3Ï;;;;;;;;;;::::9999888776655443M322110//.--,++*Pì)(('&%$$#"!  j     m(+ÇEHä     be !"#$$%&'(()* ++,--.//0112233#445566778889999::::;;;;;;;;;;;[[:prac 8=9:= ANGLETURNER   ARNOLD-WHEATON S/WARE    1983   T=0:DONEFLAG=0:REPORT=6000p:n=1:Z=0:ME=9 :TRIES=8:IT=3:HH=0::JJ=0:II=0 r(20):w(20) &7:1:1:0: #XB=0:RI=0:c=0[  500 (618,0;" " *619,0;" " +620,0;" " -821,0;" ": 20COL=(*4)+4:COL<4502 < dj7::0,0:255,0:0,175:-255,0:0,-175 nL1,10 ;"Angle Turner";1;1,10 ;"__ _________" xh3,4;"Use the ARROW KEYS 5 & 8";4,4;"to alter your estimate." }6,4;"With 1 degree turns, keys";7,4;"6 & 7 will adjust your";8,4;"estimate in 10 degree";9 ,4;"intervals." a11 ,4;"Press ENTER to tell the";12 ,4;"computer your estimate." 51;18,5;"Press any key to go on" 0  DD=(*2) DD=1240 'EE=1:FF=T*90Z:GG=1  (EE=T*90Z:FF=1:GG=-1  DD=(*2)  DD=1275  &EE=1:FF=360h:GG=1  'EE=360h:FF=1:GG=-1   'EE=1:FF=T:GG=1 , 1EE=T:FF=1:GG=-1 6  40( 7 21,0;" "  7 R 20,0;"Count the bars,and press any key to go on....":419  FF>EEI=1360hSTP EE>FFI=EEEE-360h-STP  421 *EE>FFI=EE-14400@8-STP:421 I=114400@8STP @ S=(I*3.1415IV/180):CS=(I*3.1415IV/180)  P3 =140+65A*S ""475 & P3<0P3=140-65A*S Q3=80P+65A*CS & Q3<0Q3=80P-65A*CS  P4=140+73I*S %P4<0P4=140-73I*S Q4=80P+73I*CS %Q4<0Q4=80P-73I*CS \ri11:P3-13 ,Q3+16:1:P4-P3,Q4-Q3:0:10 :COL 4col:P3-13 ,Q3+16:P4-P3,Q4-Q3:7  I  7 RI=1  =""470  7  N$(20,20) &&:"Please type in your name ";N$(N) +[n$(n)(3)="end"n$(n)(3)="END"REPORT:1:500::9900& 0*n=n+1:DONEFLAG=1650 5 DONEFLAG=1 b:0,10 :255,0:0,165:-255,0:0,-165 XB=1 ;AA=0:BB=0:D=0:HH=0:II=0 &1,10 ;"ANGLE TURNER" ,5,4;"1 Quarter turns" +7,4;"2 Right angles" .9 ,4;"3 45 Degree turns"  /11 ,4;"4 10 Degree turns" .13 ,4;"5 1 Degree turns" #15,4;"6 End"  "18,5;"Which (1-6)?" *=""810* + ="r"Ŧ="R"REPORT:650 ,="t"Ŧ="T"850R /><"1"Ŧ>"6".25~,3:.25~,0:810* 4="1"910 9="2"911 >="3"2400` C="4"2410j E="5"2420t H="6"9990' R#XB=1:650:XB=0 T!2,1;"Options are:" U&0,140:255,0 W>1:7,1;"1";:0:" Original program" YJ1:9 ,1;"2";:0:" Margin of error(1-9 degrees)" ZD1:11 ,1;"3";:0:" Change mode at _ goes" [H1:13 ,1;"4";:0:" Number of incorrect tries" \=1:15,1;"5";:0:" Return to menu" ]"21,3;"Which (1-5)?" ^=""862^ _><"1"Ŧ>"5".25~,3:.25~,0:862^ `="1"890z a="2"870f b="3"880p c="4"900 d="5"650 fQ:8,2;"Please input margin of error":14;"(9 degrees max.)" g=""871g h#<"1"Ŧ>"9"898:870f i@ME=()::8,2;"Margin of error = ";ME;" degrees" j 502:150:850R pI:8,2;"Please input number of":" goes/cycle (1-25 max)"; r6X$;:X$<1ŰX$>25898:880p tATRIES=(X$)::8,2;"Number of goes/cycle = ";TRIES v"502:150::850R z'ME=9 :TRIES=8:IT=3 { |58,1;"Margin of error = ";ME;" degrees" }311 ,1;"Number of goes/cycle = ";TRIES ~514,1;"Number of incorrect tries = ";IT  502:150:850R \:.25~,3:.25~,0:8,1;"Out of limits - Please re-enter" 502:150: s:8,2;"Please input number of errors":2;"before assistance (1-9 max)":i=1502:i =""901 #<"1"Ŧ>"9"898:900  IT=(): 48,2;"Number of incorrect tries = ";IT  502:150:850R AA=1:920  BB=1 :WR=0  502 T=(*4):T=(T+1) T=Z970 T=0970 Z=T  205  VBB=11140t `D7:18,0;"1/4turn:1/2turn:3/4turn:ONE turn":COL j 1160 t67:18,6;"How many right angles ?" ~919,2;"one two three four":COL  C=C+1 65000,FF/2 A=50000P 127,96`,60< 67:CH=3:X=1:20,CH;"^" =""1260  ="8"X=X+1:1275  ="5"X=X-1:1275 '=(13 )7000X:1340< %="m"Ŧ="M"c=c-1:650 &="h"Ŧ="H"100d::1000 2.25~,2:.25~,0:1260 20,CH;" " X<1X=1 X>4X=4 X=1CH=3  X=2CH=12 X=3CH=20 X=4CH=28 -20,CH;"^":f=1502:f ( 1260 <D=0:XT1610J F 40( P 18,2;"Well done!" R1RI=1:STP=90Z:415:RI=0 U!C=TRIESI=1300,:I Z-c>TRIES-1c(TRIES*2)-11510 n(19,2;"Try another one..." s20,CH;" " x 502 } 100 d  960 M18,1;"That's ";TRIES;" goes ,so":" we'll try something else." " Press any key to go on..." =""1432  1800  qxb=1:650:xb=0: 2,10 ;"Angle Turner":1;2,10 ;"__ _________" <6,3;"You've had ";TRIES*2;" goes so we" .8,3;"will go back to the menu." /10 ,3;"If anyone else wants a go" -12 ,3;"let them take over now." 216,3;"Press any key to continue..." " ="" 1570" ' c=0 , 550& J WR=WR+1 T 40( ^.20,1;"Sorry, not close enough." hI C>TRIES-1c<(tries*2) Q=1200:Q:1420 r) C>(tries*2)-1 1510 | WRIT 1700 " Have another go...." 502:150  :1000 .502:100d:STP=90Z:410  D=0::1000  :X=0:D=0  502 T=(*5)  T=ZT=01810 &Z=T 0 255 : C=C+1 D3 19,0;"Press any key when the line" N; AA=1T=4"has completed 1 turn":1920 X"has completed ";T; l AA=1"/4 turn." q3 BB=1T=1" right angle":1920 vBB=1" right angles." COL ,65000,180:65001,0 A=55000 i=2*65001  7  S=11500 ="H"100d:1850: %="M"Ŧ="m"c=c-1:750  ""7030v:2050 S D=0:DD=1I=360-I  7  -IT*90Z+ME2200  40(  -19,0;"Well done! Close enough" *1RI=1:STP=90Z:415:RI=0 42C>(TRIES*2)-1150:1510 > 40( H 502 M 200  R 1800  X=X+1  40( .19,0;"Sorry, not close enough."  502  150 XIT2290 'C>(TRIES*2)-11510 "Have another go..."  502  200 :1850: .502:100d:STP=90Z:410 :1860D `HH=1:2430~ jII=1:2430~ t JJ=1 ~Z=T:7 :X=0 EHH=1T=(*8):T=(T+1):T=T*45-:2510 >ii=1L=(*37%):L=L:T=L*10 :2510 !T=(*360h):T=(T+1) T=ZT=02480 502 285 C=C+1 97:19,0;"Use the arrow keys to show"  "your estimate and press ->" "ENTER to enter it." COL 65000,FF/2 A=50000P 360hKK=kk-360h wKK<1KK=kk+360h z K$=(KK) }&(K$)<3K$=" "+K$:2685} ;1:1:20,29;K$:0:0 "f=15:f:2665i qKK=180:K$="180":1:1:20,29;K$:0:0:21,25;"degrees" #="8"KK=KK+45-:2735 #="5"KK=KK-45-:2735 &="H"Ŧ="h"100d::2560 '=(13 )7050:2810 %="M"Ŧ="m"c=c-1:650 2723 KK>360hKK=45- KK<45-KK=360h K$=(KK) &(K$)<3K$=" "+K$:2743 ;1:1:20,29;K$:0:0 #f=130:f:2723 qKK=180:K$="180":1:1:20,29;K$:0:0:21,25;"degrees" &="H"Ŧ="h"100d::2560 #="8"KK=KK+10 :2775 #="5"KK=KK-10 :2775 '=(13 )7050:2810 %="M"Ŧ="m"c=c-1:650 2763 KK>360hKK=10 KK<10 KK=360h K$=(KK) &(K$)<3K$=" "+K$:2783 ;1:1:20,29;K$:0:0 #f=130:f:2763 KKT+ME2960  40(  20,1;"Well done!" 1RI=1:STP=10 :415:RI=0 DC>TRIES-1c<(tries*2)100d:40(:2900T "2C>(tries*2)-1100d:1510 , 7:" Try another one..." 6 100d J 2430~ TT7:19,0;"That's ";TRIES;" goes so":"we'll try something else." h"Press any key to go on..." r=""2930r | 3100 X=X+1 40( .20,1;"Sorry, not close enough." GC>TRIES-1c<(tries*2)Q=1200:Q:2900T 2C>(tries*2)-1100d:1510 (XIT100d:100d:3050 7:" Have another go..." 150:150 3060 STP=10 :410 :2540  :X=0 &3HH=1T=(*9 )*45-:3140D 04II=1T=(*37%)*10 :3140D :T=(*361i) DT=0T=Z3110& NZ=T X 255 b C=C+1 l:7:20,0;"Press any key when the line" q "has completed ";t;" degrees." v65000,180 {HH=13200 }502:100d 502:COL A=55000 7 i=2*65001 3283 &="H"Ŧ="h"100d::3180l %="M"Ŧ="m"c=c-1:650 7070:3290 S=1500 ""3270 S DD=1I=360-I IT+ME3420\ 40( 77:20,1;"Well done! Close enough." 1RI=1:STP=10 :415:RI=0 <C>(TRIES*2)-1502:100d:1510  7:" Try another one..." 502:150 * 3100 \40(:X=X+1 f77:20,1;"Sorry, not close enough." z<C>(TRIES*2)-1502:150:1510 XIT3520 '7:" Have another go at it...." 502:150 :3170b 502:150 STP=10 :410 :3170b  o REPORT p:U=1N-1 r#"_____________________________": t&"________________________________": z N$(U): {1;N$(U): "Right....";r(u) "Right....";r(u) "Wrong....";w(u) "Wrong....";w(u) : 23692\,100d u  XADD 1 TO RI+WR b4TXW(N-1)=W(N-1)+1:7020l g#R(N-1)=R(N-1)+1 l vPIT*90Z+MEW(N-1)=W(N-1)+1:7040 {#R(N-1)=R(N-1)+1  @KKT+MEW(N-1)=W(N-1)+1:7060 #R(N-1)=R(N-1)+1  >IT+MEW(N-1)=W(N-1)+1:7080 #R(N-1)=R(N-1)+1  '|:xb=1:650:xb=0:8,2;"To restart:-";10 ,2;"press RUN & ENTER" ' toneflaeporpnz riec[dX1ovhax i lK180ggΕ J