ZXTape! 0Created with Ramsoft MakeTZX+ATDEM x&7:7:7:1:  50000P "logo" 1,0; "c"50000P,2539 1,0; "RTS"59990V,3610 1,0; 2"dem" atdem X$&7:7:7:1:  50000P "logo" 1,0; "c"50000P,2539 1,0; "RTS"59990V,3610 1,0; 2"dem" logo @g<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)::::;;;;;;;;;;;RTS V^z2*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â>@@\dem ,J, , <Z=0:TT=0:HH=0::JJ=0:II=0 XB=0:RI=0  500 (618,0;" " *619,0;" " +620,0;" " -821,0;" ": 23:COL=(*4)+4:COL<4502 < d 7: 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  DD=(*2) "DD=13051 'EE=1:FF=T:GG=1 , 1EE=T:FF=1:GG=-1 6  0 X1:7:1: k7::0,10 :255,0:0,165:-255,0:0,-165 XB=1 Gtt=0: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* /><"1"Ŧ>"6".25~,3:.25~,0:810* 4+.1}L,30:TT=0:4100  VBB=11140t `D7:18,0;"1/4turn:1/2turn:3/4turn:ONE turn":COL eDM=1 j 1160 t67:17,6;"How many right angles ?" ~w502:7:19,2;"one two three four";18,6;"How many right angles?":COL DM=1 502:COL !1:65000,KK/2 50000P 127,96`,60<  0 DM=1  0 A 7 ZHH=12720 _II=12760 dqKK=180:K$="180":21,25;"Degrees":1:1:20,29;K$:0:0 i="H"Ŧ="h"100d l"="8"KK=KK+1:2677u m"="5"KK=KK-1:2677u o=(13 )2810 q="M"Ŧ="m"650 r 2665i uKK>360hKK=1 wKK<1KK=360h z K$=(KK) }&(K$)<3K$=" "+K$:2685} ;1:1:20,29;K$:0:0 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:2400` =(13 )2810 ="M"Ŧ="m"650 2723 KK>360hKK=45- KK<45-KK=360h K$=(KK) &(K$)<3K$=" "+K$:2743 ;1:1:20,29;K$:0:0 2723 qKK=180:K$="180":1:1:20,29;K$:0:0:21,25;"degrees" $="H"Ŧ="h"100d:2400` #="8"KK=KK+10 :2775 #="5"KK=KK-10 :2775 =(13 )2810 ="M"Ŧ="m"650 2763 KK>360hKK=10 KK<10 KK=360h K$=(KK) &(K$)<3K$=" "+K$:2783 ;1:1:20,29;K$:0:0 2763 KKT+ME2960  40(  20,1;"Well done." 1RI=1:STP=10 :415:RI=0 *C=TRIES100d:40(:2900T , 7:" Try another one..." 6 100d J 2470 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." C=TRIES100d:2900T (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" v%"has turned through ";T;" degrees." {HH=13200 }502:100d COL:I=EEFFGG 127,97a:X(I),Y(I) ""3270 '127,97a:X(I),Y(I)-2 ""3270 '127,97a:X(I)+1,Y(I) I:3283 $="H"Ŧ="h"100d:3180l ="M"Ŧ="m"650 3290 S=1500 ""3270 S DD=1I=360h-I IT+ME3420\ 40( 77:20,1;"Well done, close enough." 1RI=1:STP=10 :415:RI=0 2C=TRIES*2502:100d:1510  7:" Try another one..." 502:150 * 3100 \40(:X=X+1 f77:20,1;"Sorry, not close enough." z2C=TRIES*2502:150:1510 XIT3520 '7:" Have another go at it...." 502:150 :3170b 502:150 STP=10 :410 :3170b  502 COL 65000,KK/2 50000P 126~,97a,60<  7  [21,1;"Press any key to continue":" (Or M to return to the Menu)":0: ="1"41506  ="2"4200h ="3"4300 ="4"4350 ="5"44000 ="6"9900& " 810* 6$:DM=1:502:1120` ;17;21,0;"Select 1,2,3, or 4" <+"".1}L,30:x$=:4158> = 4156< >="m"Ŧ="M"650 @?<"1"Ŧ>"4".25~,3:.25~,0:4155; A x$="1"CH=3:4500 B!x$="2"CH=11 :4500 C!x$="3"CH=19:4500 D!x$="4"CH=28:4500 Ex$=""4180T F+EE=1:KK=(x$)*90Z:GG=1 G521,0;" "; J 1165 T 0 V=""4182V W.1}L,30:x$= Y="M"Ŧ="m"650 Z<"1"Ŧ>"4"4190^ [0dm=1::502:1120`:4161A ^:41506 h:DM=1:1150~ m07;21,1;"Select 1,2,3 or 4" n=""4206n o3.1}L,30:X$=:X$="M"X$="m"650 rAX$<"1"X$>"4".25~,3:.25~,0:4205m s X$="1"CH=3:4500 t!X$="2"CH=11 :4500 u!X$="3"CH=20:4500 v!X$="4"CH=29:4500 w+EE=1:KK=(X$)*90Z:GG=1 y521,0;" "; | 1160 =""4225 3.1}L,30:X$=:X$="M"X$="m"650 X$<"1"X$>"4"4235 :1150~:4211s :4200h j:7;19,0;"Drawing a circle in 45 degree":"segments. Enter a number (1-8)";:0 =""4301 3.1}L,30:X$=:X$="M"X$="m"650 'X$="T"X$="t"TT=1:4300 Ax$<"1"x$>"8".25~,3:.25~,0:4301  40( KK=(X$)*45-:K$=(KK) DTT=11;19,10 ;" ":4320 -1;19,11 ;K$;:" Degrees" TT=14325  4050 0:=""4325 3.1}L,30:X$=:X$="m"X$="M"650 x$="t"X$="T" CX$="T"TT=119,10 ;" ":4315  X$="T"TT=1:4330 X$>"0"X$<"9":4307 :4300 :4600  4375 0:=""4356 X$=:0 =""4358 YX$=X$+:(X$)<1Ű(X$)>36$.25~,3:.25~,0:4350 EE=1:KK=(X$)*10  40(  DTT=11;19,10 ;" ":4370  7K$=(KK):1;19,11 ;K$;:" Degrees" TT=14372  4050 0:=""4372 I.1}L,30:X$=:X$="T"X$="t"TT=140(:4365  2X$="T"X$="t"tt1TT=1:4372 X$="M"X$="m"650 X$<"0"X$>"3"4385! 0:=""4378 4.1}L,30:Y$=:Y$<"0"Y$>"9"4350 4X$=X$+Y$:(X$)<1Ű(X$)>36$4350 :4360 !:4350 0:4650* 2 4420D 6 KK=(K$):KKɺ(KK)44000 7 40( 8DTT=11;19,10 ;" ":4415? "3"4450b P0:=""4432P R4.1}L,30:Y$=:Y$<"0"Y$>"9"44000 T0:=""4436T V4.1}L,30:Z$=:Z$<"0"Z$>"9"44000 X8X$=X$+Y$+Z$:(X$)<1Ű(X$)>360h44000 ]K$=X$::44066 b:44000 &7;1;20,CH;"^": #XB=1:650:XB=0  4700\  *#XB=1:650:XB=0 /67;2,3;"01 Degrees -> 09 Degrees" >'1;4,11 ;"type 00n" @<7;5,1;"______________________________" B67;7,3;"10 Degrees -> 99 Degrees" C=7;10 ,1;"______________________________" D97;12 ,3;"100 Degrees -> 360 Degrees" E'1;9 ,11 ;"type 0nn" H(1;14,11 ;"type nnn" I=7;15,1;"______________________________" J47;18,5;"E.G. 41 Degrees = 041" M0:=""4685M R>.1}L,30:X$=:="t"Ŧ="T"tt=1:4685M W \67;3,4;"10 Degrees -> 99 Degrees" f'1;6,12 ;"type 0 n" p<7;8,1;"______________________________" r97;10 ,3;"100 Degrees -> 360 Degrees" sxb=1 t(1;13 ,12 ;"type n n" v=7;15,1;"______________________________" z37;18,6;"E.G. 80 Degrees = 08" 0:=""4735 .1}L,30:X$= %="t"Ŧ="T"tt=1:4736   '|:xb=1:650:xb=0:8,2;"To restart:-";10 ,2;"press RUN & ENTER" '  zdoZXm*