10  IF  ERROR  THEN 2390
20  PRINT " DO YOU WISH INSTRUCTIONS(Y/N)";
30  INPUT A$
40  IF A$[1,1]="N" THEN 60
50  GOTO 2420
60  PRINT "THE LAW OF COSINES (1) APPLIES WHEN YOU KNOW ALL"
70  H=180/3.14159
80  PRINT "3 SIDES OR WHEN YOU KNOW 2 SIDES AND THE INCLUDED ANGLE."
90  PRINT "THE LAW OF SINES (2) APPLIES IN ALL OTHER CASES. DO YOU WANT 1 OR 2"
100  G=3.14159/180
110  INPUT D
120  D=INT(D)
130  IF D<1 THEN 700
140  IF D>2 THEN 700
150  IF D=1 THEN 170
160  IF D=2 THEN 690
170  PRINT "IF YOUR UNKNOWN IS SIDE A THEN TYPE IN 1. SIDE B THEN 2,SIDE C THEN 3"
180  PRINT " ANGLE A THEN 4,ANGLE B THEN 5,ANGLE C THEN 6."
190  INPUT E
200  E=INT(E)
210  IF E<1 THEN 700
220  IF E>6 THEN 700
230  GOTO E OF 240,300,360,420,510,600
240  PRINT "TYPE IN THE VALUES OF THE FOLLOWING,SEPARATED BY COMMAS:"
250  PRINT "SIDE B,SIDE C,AND ANGLE A"
260  INPUT B1,C1,A2
270  X=COS(A2*G)
280  A1=SQR((B1^2+C1^2)-((2*B1*C1)*X))
290  GOTO 730
300  PRINT "TYPE IN THE VALUES OF THE FOLLOWING SEPARATED BY COMMAS:"
310  PRINT "SIDE A,SIDE C, AND ANGLE B."
320  INPUT A1,C1,B2
330  Y=COS(B2*G)
340  B1=SQR((A1^2+C1^2)-(2*A1*C1*Y))
350  GOTO 750
360  PRINT "TYPE IN THE VALUES IF THE FOLLOWING SEPARATED BY COMMAS:"
370  PRINT "SIDE A, SIDE B, ANGLE C."
380  INPUT A1,B1,C2
390  Z=COS(C2*G)
400  C1=SQR((A1^2+B1^2)-((2*A1*B1*Z)))
410  GOTO 770
420  PRINT "TYPE IN THE VALUES OF THE FOLLOWING SEPARATED BY COMMAS:"
430  PRINT "SIDE A, SIDE B, SIDE C"
440  INPUT A1,B1,C1
450  G=180/3.14159
460  X=((B1^2+C1^2)-A1^2)/(2*B1*C1)
470  X=ATN((SQR(1-X^2))/X)
480  X=X*G
490  IF X<0 THEN 790
500  GOTO 800
510  PRINT "TYPE IN THE VALUES OF THE FOLLOWING SEPARATED BY COMMAS:"
520  PRINT "SIDE A, SIDE B, SIDE C."
530  INPUT A1,B1,C1
540  G=180/3.14159
550  Y=(A1^2+C1^2-B1^2)/(2*A1*C1)
560  Y=ATN((SQR(1-Y^2))/Y)
570  Y=Y*G
580  IF Y<0 THEN 830
590  GOTO 840
600  PRINT " TYPE IN THE VALUES OF THE FOLLOWING SEPARATED BY COMMAS:"
610  PRINT "SIDE A, SIDE B, SIDE C."
620  INPUT A1,B1,C1
630  G=180/3.14159
640  Z=(A1^2+B1^2-C1^2)/(2*A1*B1)
650  Z=ATN((SQR(1-Z^2))/Z)
660  Z=Z*G
670  IF Z<0 THEN 870
680  GOTO 880
690  GOTO 920
700  PRINT " KEEP WITHIN THE STATED VALUES PLEASE"
710  IF D=2 THEN 930
720  GOTO 60
730  PRINT A1" IS SIDE A"
740  GOTO 910
750  PRINT B1"IS SIDE B"
760  GOTO 910
770  PRINT C1"IS SIDE C"
780  GOTO 910
790  X=180+X
800  PRINT INT(X)"DEGREES AND"INT((X-INT(X))*60)"MINUTES AND";
810  PRINT (((X-INT(X))*60)-INT((X-INT(X))*60))*60"SECONDS."
820  GOTO 910
830  Y=Y+180
840  PRINT INT(Y)"DEGREES AND"INT((Y-INT(Y))*60)"MINUTES AND";
850  PRINT (((Y-INT(Y))*60)-INT((Z-INT(Z))*60))*60"SECONDS."
860  GOTO 910
870  Z=Z+180
880  PRINT INT(Z)"DEGREES AND"INT((Z-INT(Z))*60)"MINUTES AND";
890  PRINT (((Z-INT(Z))*60)-INT((Z-INT(Z))*60))*60"SECONDS."
900  GOTO 2390
910  GOTO 2390
920  PRINT " IF YOUR UNKNOWN IS SIDE A THEN TYPE 1. SIDE B THEN 2, SIDE C THEN 3"
930  PRINT "ANGLE A THEN 4,ANGLE B THEN 5,ANGLE C THEN 6."
940  INPUT E
950  E=INT(E)
960  IF E<1 THEN 700
970  IF E>6 THEN 700
980  GOTO E OF 990,1200,1400,1600,1890,2130
990  PRINT "YOU MUST KNOW ONE OF THE FOLLOWING COMBINATIONS OF VALUES:"
1000  PRINT "(1) SIN OF ANGLES A AND C AND SIDE C. OR (2) SIN OF ANGLES"
1010  PRINT "A AND B AND SIDE B OR (3) ANGLES A AND C AND SIDE C OR (4)"
1020  PRINT "ANGLES A AND B AND SIDE B.";
1030  INPUT F
1040  F=INT(F)
1050  IF F<1 OR F>4 THEN 700
1060  G=3.14159/180
1070  GOTO F OF 1080,1110,1140,1170
1080  INPUT A3,C3,C1
1090  A1=(A3*C1)/C3
1100  GOTO 730
1110  INPUT A3,B3,B1
1120  A1=(A3*B1)/B3
1130  GOTO 730
1140  INPUT A2,C2,C1
1150  A1=(SIN(A2*G)*C1)/SIN(C2*G)
1160  GOTO 730
1170  INPUT A2,B2,B1
1180  A1=(SIN(A2*G)*B1)/SIN(B2*G)
1190  GOTO 730
1200  PRINT "YOU MUST KNOW ONE OF THE FOLLOWING COMBINATIONS OF VALUES:"
1210  PRINT "(1)SIN OF ANGLES A AND B AND SIDE A. OR(2) SIN OF ANGLES"
1220  PRINT " B AND C AND SIDE C OR (3) ANGLES A AND B AND SIDE A OR(4)"
1230  PRINT "ANGLES B AND C AND SIDE C."
1240  INPUT F
1250  F=INT(F)
1260  IF F<1 OR F>4 THEN 700
1270  GOTO F OF 1290,1310,1340,1370
1280  INPUT A3,B3,A1
1290  B1=(B3*A1)/A3
1300  GOTO 750
1310  INPUT B3,C3,C1
1320  B1=(B3*C1)/C3
1330  GOTO 750
1340  INPUT A2,B2,A1
1350  B1=(SIN(B2*G)*A1)/SIN(A2*G)
1360  GOTO 750
1370  INPUT B2,C2,C1
1380  B1=(SIN(B2*G)*C1)/SIN(C2*G)
1390  GOTO 750
1400  PRINT "YOU MUST KNOW ONE OF THE FOLLOWING COMBINATIONS OF VALUES:"
1410  PRINT "(1) SIN OF ANGLES C AND A AND SIDE A OR(2) SIN OF ANGLES "
1420  PRINT "C AND B OR (3) ANGLES C AND A AND SIDE A OR(4) ANGLES C AND B"
1430  PRINT "AND SIDE B";
1440  INPUT F
1450  F=INT(F)
1460  IF F<1 OR F>4 THEN 700
1470  GOTO F OF 1480,1510,1540,1570
1480  INPUT A3,C3,A1
1490  C1=(C3*A1)/A3
1500  GOTO 770
1510  INPUT B3,C3,B1
1520  C1=(C3*B1)/B3
1530  GOTO 770
1540  INPUT C2,A2,A1
1550  C1=(SIN(C2*G)*A1)/SIN(A2*G)
1560  GOTO 770
1570  INPUT B2,C2,B1
1580  C1=(SIN(C2*G)*B1)/SIN(B2*G)
1590  GOTO 770
1600  PRINT "YOU MUST KNOW ONE OF THE FOLLOWING COMBINATIONS OF VALUES:"
1610  PRINT "(1) SIN OF ANGLE C AND SIDES A AND C OR (2) SIN ANGLE B"
1620  PRINT "AND SIDES A AND B OR (3) ANGLE C AND SIDES A ANDC OR (4)"
1630  PRINT "ANGLE B AND SIDES A AND B."
1640  INPUT F
1650  F=INT(F)
1660  IF F<1 OR F>4 THEN 700
1670  GOTO F OF 1680,1730,1780,1840
1680  INPUT C3,A1,C1
1690  A3=(C3/C1)*A1
1700  X=ATN(A3/SQR(1-A3^2))
1710  X=X*H
1720  GOTO 800
1730  INPUT B3,A1,B1
1740  A3=(B3/B1)*A1
1750  X=ATN(A3/SQR(1-A3^2))
1760  X=X*H
1770  GOTO 800
1780  INPUT C2,A1,C1
1790  G=3.14159/180
1800  A3=(SIN(C2*G)/C1)*A1
1810  X=ATN(A3/SQR(1-A3^2))
1820  X=X*180/3.14159
1830  GOTO 800
1840  INPUT B2,A1,B1
1850  A3=(SIN(B2*G)/B1)*A1
1860  X=ATN(A3/SQR(1-A3^2))
1870  X=X*H
1880  GOTO 800
1890  PRINT "YOU MUST KNOW ONE OF THE FOLLOWING COMBINATIONS OF VALUES:"
1900  PRINT "(1) SIN ANGLE C AND SIDES B AND C OR (2) SI ANGLE"
1910  PRINT "A AND SIDES A AND B OR (3) ANGLE C AND SIDES B AND C OR (4)"
1920  PRINT "ANGLE A AND SIDES A AND B";
1930  INPUT C3,B1,C1
1940  B3=(C3/C1)*B1
1950  X=ATN(B3/SQR(1-B3^2))
1960  X=X*H
1970  GOTO 840
1980  INPUT A3,A1,B1
1990  B3=(A3/A1)*B1
2000  X=ATN(B3/SQR(1-B3^2))
2010  X=X*H
2020  GOTO 840
2030  INPUT C2,B1,C1
2040  B3=(SIN(C2*G)/C1)*B1
2050  X=ATN(B3/SQR(1-B3^2))
2060  X=X*H
2070  GOTO 840
2080  INPUT A2,A1,B1
2090  B3=(SIN(A2*G)/A1)*B1
2100  X=ATN(B3/SQR(1-B3^2))
2110  X=X*H
2120  GOTO 840
2130  PRINT "YOU MUST KNOW ONE OF THE FOLLOWING COMBINATIONS OF VALUES:"
2140  PRINT "(1) SIN ANGLE A AND SIDES A AND C OR (2) SIN ANGLE B AND SIDES"
2150  PRINT "B AND C OR (3) ANGLE A AND SIDES A AND C OR (4) ANGLE B ANDSIDES B AND C"
2160  INPUT F
2170  IF F<1 OR F>4 THEN 700
2180  GOTO F OF 2190,2240,2290,2340
2190  INPUT A3,A1,C1
2200  C3=(A3/A1)*C1
2210  X=ATN(C3/SQR(1-C3^2))
2220  X=X*H
2230  GOTO 880
2240  INPUT B3,B1,C1
2250  C3=(B3/B1)*C1
2260  X=ATN(C3/SQR(1-C3^2))
2270  X=X*H
2280  GOTO 880
2290  INPUT A2,A1,C1
2300  C3=(SIN(A2*G)/A1)*C1
2310  X=ATN(C3/SQR(1-C3^2))
2320  X=X*H
2330  GOTO 880
2340  INPUT B2,B1,C1
2350  C3=(SIN(B2*G)/B1)*C1
2360  X=ATN(C3/SQR(1-C3^2))
2370  X=X*H
2380  GOTO 880
2390  CHAIN R,"*HELP"
2400  SYSTEM X,"BYE"
2410  END 
2420  PRINT " THIS PROGRAM SOLVES TRIANGLES USING TRIGONOMETRIC METHODS."
2430  PRINT " THE PROGRAM SPECIFIES THE INFORMATION IT NEEDS TO SOLVE THE "
2440  PRINT " PROBLEM BEFORE YOU SUPPLY IT. IF YOU DO NOT HAVE THAT INFORMATION"
2450  PRINT " TRY ANTOTHER PROBLEM, THE MACHINE CAN'T PERFORM MIRACLES."
2460  GOTO 60
2470  END 
