ZXTape! 0Created with Ramsoft MakeTZXtas-trig 2>P22725 0,0;e$  6 x=19 :d$:x $e$ .G6:0:2,4;"Type your name and press" 8*3,8;"theENTERKEY" L|5,3;"PressDELETE(Caps Shift 0)";6,8;"if you mistype";1;8,5;" " Vx=0:""1110V Ya$= \a$=""1113Y `a$=13 1220 ja$12 1170 tx=01200 ~gx=x-1:.07}\(,x:8,5+x;1;"";0;" ":n$=n$(x):1200 (a$<32 ůa$>122z1200 _.07}\(,x:8,5+x;a$;1;" ":23298[+x,a$:x=x+1:n$=n$+a$ x=261220 ""1200  1113Y %23297[,x:.5,0 %0:5::"Hello ";n$ &,,"I am going to set you problems" $"involving right angled" "triangles." R,,"You try to work out the angle orthe length of the side that Iask you for." |&,,"If you get one wrong I will" H"show you how to do it and set":"another - so if you do not know" $"how to do these problems enter" $"any answer and I will show you" "the method.":p1=0 ,1:6:17,0;e$ x=1820 x,0;d$ &x 021,0;e$ DK6:0:19,5;"PressENTERto continue" N""1870N X13 1880X ]15:0:p1=0::5000 b6:0:19,5;" ";1;"Play the tape";0;" ":7:1:"tbs-trig" Print title page  " 5:5:1: d$=" " x=15 d$=d$+d$ x )d$=" "+d$(231)+" " y=020 y,0;d$ y e$=" " x=15 e$=e$+e$ x y=0204 y,0;e$ y  0 2,12 ;"TAS-TRIG" '6,7;"BASIC TRIGONOMETRY" #10 ,9 ;"TUTOR VERSION" 414,1;"COPYRIGHT TASMAN SOFTWARE 1982" "F$="" 'X=15 , F$=F$+F$ 1X 6F$=F$(231) @n$="" h6:0 rX=1719 wX,1;F$ |X 618,6;1;"Tas-trig has loaded" x=110 :0.1}L,6:0.1}L,18:x:1;18,1;"Stop the tape then press ENTER":750 =""3870 1:5    1020 13 ,1;"If you have not stopped the";14,1;"tape then it has over-run the";15,1;"start of the next program. " (1;17,1;f$;17,1;"Rewind the tape if you had not";18,1;f$;18,1;"stopped it.";19,1;f$;19,8;"Then press ENTER" -Ax=110 :0.1}L,6:0.1}L,8:x 213 38902 < 3845 "Use your calculator andwrite down your own working outfor each problem. Then if youget the answer wrong you cancompare your working with mine." D:"If you get an answer wrong seeif you can find your mistake." / :"When you are typing in youranswers:" %:" Press the J key for a minus." 3:" Press the M key for a decimal":" point." p1=1:1790  7: m:" For problems involving":" the use of ";1;"SINES";0;" press";" ";1;"S" m:" For problems involving":" the use of ";1;"COSINES";0;" press";" ";1;"C" m:" For problems involving":" the use of ";1;"TANGENTS";0;" press";" ";1;"T"  m:" For problems selected":" from ";1;"ALL";0;" the above press";" ";1;"A" 0="s"Ŧ="S"u$="Sines":a=1:6000p 2="c"Ŧ="C"u$="Cosines":a=2:6000p (3="t"Ŧ="T"u$="Tangents":a=3:6000p 2E="a"Ŧ="A"u$="Sines Cosines and Tangents":a=5:6000p < 5140 p2,14;"sines";2,29;"S";5,13 ;"cosines";5,29;"C";8,12 ;"tangents";8,29;"T";11 ,7;"all";11 ,29;"A" z?a<513 ,8;2;1;u$;" selected" Qa=513 ,3;2;1;u$;14,11 ;"selected" 16,5;"Press ";1;"ENTER";0;" to continue";18,1;"Press ";1;"DELETE";0;"(caps shift 0) to";19,7;"change your choice" 3=13 23296[,a:5::4000 =12 5000  6040 D(    E                                FNrobinA aUCosinestbs-trig ( c1:6:5,0;e$:x=614:x,0;f$:x:15,0;e$ >6:0:7,7;d$;" = ";1;"?" 39 ,3;"Type your answer and press" ,10 ,10 ;"theENTERkey" :12 ,2;"If you mistype pressDELETE" 813 ,1;"(Caps Shift 0)instead of ENTER" B568:.1}L,i:i$=12 h$=""h$="."h$="-"10 2h=h$:300, 8i=17:h$="" <i$=:i$=""60< @%i$>47/Ưi$<58:78N Bi>1770F D1i$=45-ůi$=74Jůi$=106ji$="-" F1i$=46.ůi$=77Můi$=109mi$="." Gi$="-"i$="."78N Hi$=12 ůi$=13 I 60< N.07}\(,i:7,i;i$ Pi=i+1:h$=h$+i$ T""84T V 60< Z6100d+20*(in-1)+3*(jn-1) dd$="Side BC":g=an: gd$="Side AB":g=cn: jd$="Angle A":g=dn: md$="Side AC":g=bn: p 103g sd$="Angle B":g=en: x 109m { 103g ~ 106j 100d 103g 115s 100d 109m 106j 109m 100d 115s :"Hello again ";n$:10 ,7:h<1.02\)*gh>0.98zG*gx=1:320@ 0a5:0::0,0;3;7;d$;"=";h;" is wrong";1,0;n$ 7 3840 823659k\,1 9422,3;"To try another press enter" ;0:23659k\,2 <13 316< >5:0: ? 500 @#5:0::zn=zn+1 J0,0;0;6;x;"Answer correct ";n$;1,0;"Your score is ";zn:250:x=x-1:x-1330J ^"Try this one:" *in=a:a=5in=1+(3*) jn=1+(6*)  995 a23659k\,1:22,1;6;0;"Press ENTER to give the answer"  13 524   23659k\,2:260 &r()=1+((90Z*))/10 *s()=(15+(65A*))*/180 ^5:1000+(in-1)*200+(jn-1)*30:90Z:7;q$;d$: 3z=0dn=s():cn=r():an=cn*dn:bn=cn*dn 2700 :3100 [p2-2,p1-2;cn;7;3,0;a$;"A=";dn;b$:7;s$;"AB=";cn: 3z=0dn=s():an=r():cn=an/dn:bn=an/dn 2700 :3100 Qp2,29;an;7;3,0;a$;"A=";dn;b$:7;s$;"BC=";an: $Iz=0an=r():cn=an+r():dn=(an/cn):en=/2-dn:bn=cn*dn 0 2700 2ip2,29;an;p2-2,p1-2;cn;7;3,0;s$;"BC=";an:7;s$;"AB=";cn: B3z=0en=s():cn=r():bn=cn*en:an=cn*en N2700 :3200 P[p2-2,p1-2;cn;7;3,0;a$;"B=";en;b$:7;s$;"AB=";cn: `3z=0en=s():bn=r():cn=bn/en:an=bn/en l2700 :3200 nY21,p1-1;bn;7;3,0;a$;"B=";en;b$:7;s$;"AC=";bn: ~Iz=0bn=r():cn=r()+bn:en=(bn/cn):dn=/2-en:an=cn*en  2700 q21,p1-1;bn;p2-2,p1-2;cn;7;3,0;s$;"AC=";bn:7;s$;"AB=";cn:  1000 3z=0dn=s():bn=r():cn=bn/dn:an=bn*dn 2700 :3100 [21,p1-1;bn;7;3,0;a$;"A=";dn;b$:7;s$;"AC=";bn:  1150~  1090B (3z=0en=s():an=r():cn=an/en:bn=an*en 42700 :3200 6Qp2,29;an;7;3,0;a$;"B=";en;b$:7;s$;"BC=";an: F 1060$ x 1230  1030 7z=0an=r():bn=r():dn=(an/bn):en=(bn/an)  2700 gp2,29;an;21,p1-1;bn;7;3,0;s$;"BC=";an:7;s$;"AC=";bn:  1320(  1120`  1460 *f=160/an:x=224/bn:x0i=i+1:r=r+8:3104 &$x+r,8:r*(f-1),r*f,f 01;20,i;dn: Fr=32 :y=8+an*f:i=(y/8)-1:f=en*/180 Aj=0:x=208229:j=j+(x,i*8-1):x 1j>0i=i-1:r=r+8:3220 22-i,26;en *230,y-r:-r*f,r*(1-f),-f: *x=i*180/:jn=3jn=6 x<15x>75K v$=x: Gi=120:230,8:1;0,an*o:dt:i: Hi=120:230,8:1;-bn*o,0:dt:i: Ii=120:230-bn*o,8:1;bn*o,an*o:dt:i: u$""3650B 27,6;1;m$:v$="A"3510 $v$="B"3500 .!7,6;m$:3700t B27,6;1;l$:v$="A"3500 Lv$="B"3510 V7,6;l$ tu$=""3750 ~C7,15;1;p$:3520 :7,15;p$: 37,15;1;m$:v$="A"3510 v$="B"3500 7,15;m$: 50:z=1:995:6:z=0:  'in=1u$="":u$;"= ";l$;"/";p$ 'in=2u$="":u$;"= ";m$;"/";p$ 'in=3u$="":u$;"= ";l$;"/";m$ .f=in*10 +jn:v$="A":jn>3v$="B" #jn=2jn=54300 (#jn=3jn=64600 4h$="BC":f=14f=21f=34"h$="AC" *i$="AB":x=cn:f=31i$="AC":x=bn f=34"i$="BC":x=an y=dn:jn>3y=en h=y*/180 in=1h=h in=2h=h "in=3h=h '$3600:u$;v$;"=";h$;"/";i$:w ,h$;"=";i$;"*";u$;v$:w 6" =";x;"*";u$;y:w @" =";x;"*";(s*h+t)/s:w J" =";(s*x*h+t)/s h h$="AB":f=32 h$="AC" f=35#h$="BC" @i$="BC":x=an:f=15f=22f=35#i$="AC":x=bn y=dn:jn>3y=en &#h=y*/180:in=1h=h :in=2h=h Din=3h=h N$3600:u$;v$;"=";i$;"/";h$:w Xh$;"=";i$;"/";u$;v$:w b" =";x;"/";u$;y:w l" =";x;"/";(s*h+t)/s:w v" =";(s*x/h+t)/s:w  @h$="BC":x=an:f=16f=23f=36$h$="AC":x=bn  *i$="AB":y=cn:f=33!i$="AC":y=bn  f=36$i$="BC":y=an \$3600:u$;v$;"=";h$;"/";i$:w f$in=1u$="ARCSIN ":i=(x/y) p$in=2u$="ARCCOS ":i=(x/y) z$in=3u$="ARCTAN ":i=(x/y) v$;"=";u$;h$;"/";i$:w " =";u$;x;"/";y:w " =";u$;(s*x/y+t)/s:w 6x=i:" =";(s*x*180/+t)/s:" (";b$;" )":w: Za=23296[:x=23297[:n$="":i=0x-1:n$=n$+((23298[+i)):i kv$=" ":s$="side ":q$="Find ":a$="angle ":b$=" degrees":l$="opposite":m$="adjacent":p$="hypotenuse" ew=250:dt=20:zn=0:z=zn:cn=z:s=1000:t=0.5:dn=0:en=0 `f$=" ":e$=" ":x=15:f$=f$+f$:e$=e$+e$:x:f$=" "+f$(30)+" " (5:5:0::500