sohcahtoa_bas.bas                   ÑD®ÑD®                TEXTSmBa            `@Y 
   d@Y   H  S  
 
Main  €S  ¨[Ä ðö ØA 5      ðÿÿ    ÷ "çw 5      ðÿ'SOHCAHTOA
? "1 - OPPOSITE,HYP.=ANGLE"
? "2 - ADJACENT,HYP.=ANGLE"
? "3 - OPPOSITE,ADJACENT=ANGLE"
? "4 - ANGLE,OPPOSITE=HYP."
? "5 - ANGLE,HYP.=OPPOSITE"
? "6 - ANGLE,ADJACENT=HYP."
? "7 - ANGLE,HYP.=ADJACENT"
? "8 - ANGLE,OPPOSITE=ADJACENT"
? "9 - ANGLE,ADJACENT=OPPOSITE"
INPUT "KNOWN: ";a
IF a=1 
INPUT "ENTER OPPOSITE,HYP.: ";b,c
d=ASIN(b/c)
ELIF a=2
INPUT "ENTER ADJACENT,HYP.: ";b,c
d=ACOS(b/c)
ELIF a=3
INPUT "ENTER OPPOSITE,ADJACENT: ";b,c
d=ATAN(b/c)
ELIF a=4
INPUT "ENTER ANGLE,OPPOSITE: ";b,c
f=RAD(b)
d=c/SIN(f)
ELIF a=5
INPUT "ENTER ANGLE,HYP.: ";b,c
f=RAD(b)
d=c*SIN(f)
ELIF a=6
INPUT "ENTER ANGLE,ADJACENT: ";b,c
f=RAD(b)
d=c/COS(f)
ELIF a=7
INPUT "ENTER ANGLE,HYP.: ";b,c
f=RAD(b)
d=c*COS(f)
ELIF a=8
INPUT "ENTER ANGLE,OPPOSITE: ";b,c
f=RAD(b)
d=c/TAN(f)
ELIF a=9
INPUT "ENTER ANGLE,ADJACENT: ";b,c
f=RAD(b)
d=c*TAN(f)
FI
e=DEG(d)
? "LENGTH = ";d
? e;" DEGREES"