ZXTape! 2 Angle - Side A Chalksoft Ltd1984English Educational11.25 UndeterminedOriginal4TZXed by Andrew Barker, with help from Nuno Cardoso.0 Angle "A"AA """ Angle A  CHALKSOFT LTD 1983  30 ,"AA"30:"c"52256 ,300,: 52255:"c" # 130 (stop=0:90Z 2'n=031:0,n;"*":n <8m=120:m,0;"*":m,31;"*":m F(p=031:21,p;"*":p P Z'0:0:3::502 d_4:d$="ANGLE":xx=70F:yy=40(:xs=3:ys=3:cs=7:9000(# iVd$="""A""":xx=92\:yy=80P:xs=3:ys=3:cs=7:9000(# n>7:19,6;" CHALKSOFT LTD 1983":250 x:stop=1 n=1:n 1 I"A",480,72H,72H,480,0,0,0,0 c$ "r=07:y:c$+r,y:r draws introduction m2:sa=0:turn=8:x=128:y=88X:r=64@:a=800 :p=42*:8000@ o4:sa=168:turn=5:x=128:y=88X:r=72H:a=400:p=42*:8000@ +2:0:16,15;"__" r1:12 ,12 ;"*":12 ,20;"*":0:7:19,13 ;"Hello":270 8.5,12 :1,21:.5,17   260:200 , 330J 6Q4:0,0;"ANGLE A":6:0,19;"Chalksoft Ltd" @ J!7000X:3106:502 O2:5,12 ;"An ANGLE":7,11 ;"is just a":9 ,10 ;"LINE TURNING.":100d:7000X:3106 To4:sa=90Z:turn=8:x=120x:y=100d:r=40(:a=800 :p=42*:8000@ ^.17,9 ;"One full turn":150 h7000X:3106 rn6:sa=270:turn=8:x=72H:y=90Z:r=32 :a=800 :p=42*:8000@ |63:17,9 ;"One full turn":502 7000X:3106 n3:sa=168:turn=5:x=90Z:y=90Z:r=557:a=400:p=42*:8000@ #14,9 ;"One half turn" !502:7000X:3106 m5:sa=35#:turn=8:x=64@:y=144:r=8:a=800 :p=42*:8000@ !3,12 ;"1 full turn"  260 n2:sa=0:turn=5:x=112p:y=112p:r=16:a=800 :p=42*:8000@ !7,20;"1 full turn" & 260 0m4:sa=83S:turn=8:x=72H:y=64@:r=32 :a=400:p=42*:8000@ :"12 ,17;"1 half turn" D 260 No3:sa=100d:turn=5:x=112p:y=16:r=40(:a=200:p=43+:8000@ XF16,20;"1 quarter" :17,23;"turn":502 b 260 l7000X:3106 d5:2,5;"We can measure how much":3,8;"a line turns ...":502 *3:5,10 ;"A FULL TURN" .01z# =,5:502 +5:7,15;"or":502 *3:9 ,10 ;"A HALF TURN" .01z# =,5:502 ,5:11 ,15;"or":502 -3:13 ,9 ;"A QUARTER TURN" .01z# =,5:502 :5:15,3;"It could get difficult with" ,16,11 ;"tiny turns!":502 `17,0;"So, we can use a better measure":18,5;"of a LINE TURNING ..."  200  7000X:3106  o7:sa=180:turn=8:x=64@:y=120x:r=32 :a=800 :p=42*:8000@ *,260:5,14;"360 degrees" 4o5:sa=128:turn=5:x=192:y=64@:r=480:a=400:p=42*:8000@ >-260:12 ,20;"180 degrees" Hl6:sa=0:turn=8:x=32 :y=16:r=480:a=210:p=43+:8000@ RH260:502:7:13 ,5;"90 degrees":502 \7000X:3106 n5:sa=45-:turn=8:x=64@:y=120x:r=32 :a=100d:p=43+:8000@ *260:5,4;"45 degrees" o4:sa=270:turn=5:x=144:y=80P:r=480:a=156:p=43+:8000@ ,260:12 ,18;"70 degrees" m3:sa=285:turn=5:x=32 :y=32 :r=480:a=67C:p=43+:8000@ 6260:17,8;"30 degrees":100d 7000X:3106 o4:sa=200:turn=8:x=200:y=144:r=480:a=28:p=60<:8000@ 5260:100d:4,8;"10 degrees" n3:sa=180:turn=8:x=64@:y=80P:r=40(:a=350^:p=43+:8000@ 7260:100d:14,5;"150 degrees" o6:sa=45-:turn=5:x=192:y=32 :r=64@:a=170:p=180:8000@ B260:100d:18,10 ;"20 degrees":150 $7000X:3106 L*6:4,10 ;"REMEMBER..." Vn2:sa=180:turn=5:x=64@:y=80P:r=40(:a=800 :p=42*:8000@ `Q6,15;"1 full turn is":8,16;"360 degrees.":260 j7000X:3106 m4:sa=0:turn=8:x=112p:y=80P:r=72H:a=400:p=42*:8000@ Q16,9 ;"A half turn is":502:18,10 ;"180 degrees."  260 7000X:3106 t5:sa=64.5:turn=5:x=200:y=144:r=568:a=209.53Q:p=43+:8000@ R8,1;"A quarter turn is":100d:10 ,4;"90 degrees."  260 7000X:3106 6:3,10 ;"REMEMBER...":502:5,9 ;"A full turn is ":2:6,10 ;"360 degrees."  260 (b6:8,9 ;"A half turn is":100d:2:9 ,10 ;"180 degrees." 2 260 <{6:11 ,7;"A quarter turn is":100d:2:12 ,10 ;"90 degrees":260:200 F:6:14,1;"...and all the OTHER turns " Pp15,8;"a line makes are":16,10 ;"measured in":2:18,12 ;"DEGREES." Z-260:200:7000X:3106 d 260 x3:4,8;"ONE MORE THING...":100d:5:8,8;"We usually use a":10 ,7;"tiny circle instead":12 ,10 ;"of the word":14,13 ;"degree" N16,10 ;"like this...":502:3:18,16;"" "200:7000X:3106 p4:sa=180:turn=5:x=200:y=128:r=16:a=3117:p=43+:8000@ %260:6,16;"135" l5:sa=0:turn=8:x=480:y=64@:r=24:a=615g:p=43+:8000@  260 14,12 ;"270" m6:sa=0:turn=5:x=192:y=32 :r=480:a=100d:p=43+:8000@  260 %14,22;"45":100d 7000X:3106 5:4,6;"That is all for now.":260:502:7:8,10 ;"LOOK AT ANGLE":10 ,15;"""B""":5:14,14;"SOON !"  250: @w2:0::sa=0:turn=5:x=64@:y=64@:r=24:a=800 :p=42*:8000@ Jdsa=0:turn=8:x=160:y=64@:r=24:a=800 :p=42*:8000@ TB88X,64@:480,0:502:.5,12 ^C64@,88X:16,480:502:.5,21 h/480,0:502:.5,17 r08,-32 :502:.5,12 |/24,0:502:.5,21 :0,-32 :502:.5,17:502 a=1250 0*52560P a stop=1:90Z Xpress any key routine b.6:20,8;"press space key" l(.04|# =,30:.04|# =,35# vXz=0200:=""ƿ65278=255ƿ32766=255z:7010b   @draws rotating angle J&turn=5d=-1:dd=1 T%turn=8d=1:dd=1 ^t=sasa+.105}W =p*a r a=t/p* |sx=d*r*a:sy=dd*r*a  x,y:sx,sy t  #(g=23306 [:g,xx:g+1,yy:g+2,xs:g+3,ys:g+4,cs:g=g+4:i=1̱d$:g+i,d$(i):i:g+i,255:52256 : c , Ȁ .![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[#2[: [G: [2 [*[@2[: [G: [2[: [O:[<2[ :[<2[ :[P̀@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(// P 0 Angle "B"AB 111 Angle B  CHALKSOFT LTD 1983  35# ,"AB"30:"c"52256 ,300,: 52255:"c" # 110n (0:0:3: * end=0 .'n=031:0,n;"*":n 28m=120:m,0;"*":m,31;"*":m <(p=031:21,p;"*":p F_3:d$="ANGLE":xx=70F:yy=40(:xs=3:ys=3:cs=7:9000(# KVd$="""B""":xx=92\:yy=80P:xs=3:ys=3:cs=7:9000(# P>7:19,6;" CHALKSOFT LTD 1983":250 Uend=1 Z ddefines decoration nn=1:n x 1 I"A",480,72H,72H,480,0,0,0,0 c$ "r=07:y:c$+r,y:r m=1:m 1 S"B",0,190,162,170,170,186,130,254 c$ "k=07:x:c$+k,x:k draws introduction 7 m3:sa=0:turn=8:x=128:y=88X:r=64@:a=8204:p=43+:8000@ p6:sa=63.5~:turn=5:x=128:y=88X:r=72H:a=392:p=42*:8000@ 6:0:12 ,8;"":12 ,14;"":16,13 ;"":16,19;"":17,13 ;" " z1:12 ,12 ;"*":12 ,20;"*":0:7:21,10 ;"Hello again !":270 9.5,12 :.5,21:.5,17   (260:150:0:7 ,!0::3106:330J 6]3:0,0;"ANGLE B":5:0,19;"Chalksoft Ltd" @ Jl5:6,7;"In":2:6,10 ;"ANGLE A":5:6,18;"you saw" T8,2;"how to give NAMES to angles.":4:n=031:14,0+n;"":n:5:20,6;"Now it's":2: 20,15;"YOUR":5:20,20;"turn !" ^260:300,: mnumber=1 o 403 rquestion format _6:0:2,1;"QUESTION ";number:number<10 2,11 ;" " I1:1,1;"":3,1;""  30: 3106:370r 37:0:3,14;"This is...." 6,3;"A. A half turn":7,3;"B. A quarter turn":8,3;"C. A full turn.":9 ,3;"D. A degree" m5:sa=0:turn=5:x=112p:y=40(:r=40(:a=8204:p=43+:8000@ trip=0 a4:#1;1,0;">> PRESS THE CORRECT ANSWER <<":100d:trip=1 wrong=0 A$=:4500 -A$="b"A$="a"A$="d"6500d:410 A$="c"6000p:470  425 number=2 3106:370r 37:0:3,14;"This is...." 6,3;"A. A full turn":7,3;"B. A half turn":8,3;"C. A quarter turn":9 ,3;"D. A circle" o5:sa=126~:turn=8:x=112p:y=80P:r=568:a=200:p=42*:8000@ trip=1:412 a$=:4500 -a$="a"a$="b"a$="d"6500d:510 a$="c"6000p:5600 & 520 :number=3 D3106:370r N37:0:3,14;"This is...." X6,3;"A. 90 degrees":7,3;"B. 360 degrees":8,3;"C. 120 degrees":9 ,3;"D. 180 degrees" bp5:sa=64.5:turn=8:x=112p:y=24:r=480:a=410:p=43+:8000@ g 412 la$=:4500 v-a$="a"a$="b"a$="c"6500d:610b a$="d"6000p:670  620l number=4 3106:370r [7:0:3,14;"180 degrees ":4,14;"is best called..." 6,3;"A. A half turn":7,3;"B. A quarter turn":8,3;"C. A full turn":9 ,3;"D. A semi-circle" p6:sa=64.5:turn=8:x=112p:y=24:r=568:a=410:p=43+:8000@  412 a$=:4500 -a$="b"a$="c"a$="d"6500d:710 a$="a"6000p:770  720 number=5  3106:370r ]7:0:3,14;"90 degrees can":4,14;"also be called..."  6,3;"A. A half turn":7,3;"B. A part turn":8,3;"C. A quarter circle":9 ,3;"D. A quarter turn" *o3:sa=126~:turn=8:x=112p:y=80P:r=480:a=200:p=42*:8000@ / 412 4a$=:4500 >-a$="a"a$="b"a$="c"6500d:810* Ha$="d"6000p:860\ R 8204 fnumber=6 p3106:370r z:7:0:3,14;"A half turn is ..." ~6,3;"A. 150 degrees":7,3;"B. 180":8,3;"C. 150":9 ,3;"D. 200 degrees" p2:sa=64.5:turn=8:x=112p:y=24:r=568:a=410:p=43+:8000@  412 a$=:4500 -a$="a"a$="c"a$="d"6500d:910 a$="b"6000p:960  920 number=7 3106:370r :7:0:3,14;"A full turn is ..." p6,3;"A. 360":7,3;"B. 180":8,3;"C. 300":9 ,3;"D. 100" l3:sa=0:turn=5:x=64@:y=480:r=32 :a=8204:p=43+:8000@  412 a$=:4500 .a$="b"a$="c"a$="d"6500d:1010  a$="a"6000p:1060$  1020 $number=8 .3106:370r 827:0:3,14;"90 is ..." B6,3;"A. A half turn.":7,3;"B. A quarter turn.":8,3;"C. Half a circle.":9 ,3;"D. A turn." Lo6:sa=126~:turn=8:x=112p:y=80P:r=480:a=200:p=42*:8000@ Q 412 Va$=:4500 `.a$="a"a$="c"a$="d"6500d:1100L j a$="b"6000p:1150~ t 1110V ~number=9 3106:370r S7:0:3,14;"This turn is":4,14;"about ..." o6,3;"A. 40.";7,3;"B. 90.";8,3;"C. 150.";9 ,3;"D. 360." p5:sa=64.5:turn=8:x=112p:y=24:r=568:a=340T:p=43+:8000@  412 a$=:4500 .a$="a"a$="b"a$="d"6500d:1190  a$="c"6000p:1240  1200 number=10 3106:370r S7:0:3,14;"This turn is":5,14;"about ..." m6,3;"A. 210";7,3;"B. 100";8,3;"C. 150";9 ,3;"D. 180" p3:sa=64.5:turn=8:x=112p:y=24:r=24:a=480:p=43+:8000@  412  a$=:4500 .a$="b"a$="c"a$="d"6500d:1280  a$="a"6000p:13302 ( 1290  2number=11 <3106:370r FT7:0:3,14;"This angle is":4,14;"about ..." Pk6,3;"A. 180";7,3;"B. 250";8,3;"C. 110";9 ,3;"D. 80" Zo4:sa=126~:turn=8:x=112p:y=80P:r=480:a=182:p=42*:8000@ _ 412 da$=:4500 n.a$="a"a$="b"a$="c"6500d:1370Z x a$="d"6000p:1420  1380d number=12 3106:370r Q7:0:3,14;"What is this":4,14;"angle ?" s6,3;"A. 270";7,3;"B. 180";8,3;"C. 90 degrees";9 ,3;"D. 350" m5:sa=0:turn=8:x=112p:y=35#:r=30:a=615g:p=43+:8000@  412 a$=:4500 .a$="b"a$="c"a$="d"6500d:1460  a$="a"6000p:1510  1470 number=13 3106:370r ^7:0:3,14;"What angles are";4,14;"turns (1) and (2)?" 6,3;"A. (1) is 180 and (2) is 90";7,3;"B. (1) is 80 and (2) is 100";8,3;"C. (1) is 120 and (2) is 50";9 ,3;"D. (1) is 200 and (2) is 60" o6:sa=64.5:turn=8:x=80P:y=24:r=40(:a=275:p=43+:8000@ 21,8;"(1)" "p2:sa=64.5:turn=8:x=180:y=24:r=40(:a=114r:p=42*:8000@ ,21,20;"(2)" 1 412 6a$= @:a$="a"a$="b"a$="d"4500:6500d:1550 J a$="c"6000p:1630^ T 15906 ^number=14 h3106:370r r_7:0:3,14;"What angles are":4,14;"turns (1) and (2)?" |6,3;"A. (1) is 50 and (2) is 200";7,3;"B. (1) is 80 and (2) is 270";8,3;"C. (1) is 100and (2) is 90";9 ,3;"D. (1) is 40 and (2) is 90" n4:sa=126~:turn=8:x=70F:y=80P:r=480:a=180:p=42*:8000@ 21,8;"(1)" m2:sa=0:turn=8:x=150:y=502:r=30:a=615g:p=43+:8000@ 21,18;"(2)"  412 a$= :a$="a"a$="c"a$="d"4500:6500d:1670  a$="b"6000p:1750  1710 number=15 3106:370r ]7:0:2,14;"And finally ...":3,14;"these angles are" 6,3;"A. (1) 340 and (2) 160";7,3;"B. (1) 360 and (2) 180";8,3;"C. (1) 300 and (2) 110";9 ,3;"D. (1) 20 and (2) 170" o5:sa=64.5:turn=5:x=70F:y=502:r=28:a=780 :p=43+:8000@ 21,8;"(1)" p3:sa=64.5:turn=8:x=180:y=40(:r=36$:a=360h:p=43+:8000@ 21,21;"(2)" ! 412 &a$= 0:a$="b"a$="c"a$="d"4500:6500d:1790 : a$="a"6000p:1870N D 1830& N 3106 X\6:6,11 ;"Well done,":5:8,6;"You have finished !!!" bnoise l 100d v(4:10 ,12 ;"You made" 0wrong=110 ,11 ;"1 mistake." 6wrong110 ,10 ;wrong;" mistakes."  150 23:14,6;"See ANGLE 'C' soon!"  7000X end=1:30 flash answer  1 a$="a"6,3;"A" a$="b"7,3;"B" a$="c"8,3;"C" a$="d"9 ,3;"D"  0  proutine for right uO.125},12 :.25~,9 :.125},12 :.5,5 zQ4:#1;1,0;"*** C O R R E C T ! ! ! ***":150  150:  droutine for wrong i/n=502-20-1:.01z# =,n:n lG#1;1,0;" ":502 nF5:#1;1,0;">>>> W R O N G - try again <<<<" xwrong=wrong+1: }U6,3;"A";7,3;"B";8,3;"C";9 ,3;"D"  0 9d=11 21:e=226:d,e;" ":e:d =#1;1,0;" "  7: Xpress any key routine b.6:20,8;"press space key" l(.04|# =,30:.04|# =,35# vXz=0200:=""ƿ65278=255ƿ32766=255z:7010b   @draws rotating angle J&turn=5d=-1:dd=1 T%turn=8d=1:dd=1 ^t=sasa+.105}W =p*a r a=t/p* |sx=d*r*a:sy=dd*r*a  x,y:sx,sy t  #(g=23306 [:g,xx:g+1,yy:g+2,xs:g+3,ys:g+4,cs:g=g+4:i=1̱d$:g+i,d$(i):i:g+i,255:52256 : gc , ̠.![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[#2[: [G: [2 [*[@2[: [G: [2[: [O:[<2[ :[<2[ :[P̀@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(// P