View source for TRIG1

 100 DIM AG(2), SD(3)
 110 CLS: PRINT@4,"TRIGONOMETRIC FUNCTIONS"
 120 PRINT@98,"FIND VALUES (ENTER ONE SIDE"
 130 PRINT@130,"AND ONE ANGLE):"
 140 PRINT@262,CHR$(136);: REM--DRAW TRIANGLE
 150 PRINT@386,CHR$(136)+"   "+CHR$(136);
 160 FOR I=387 TO 389
 170 PRINT@I,CHR$(140);: NEXT I
 180 FOR I=294 TO 358 STEP 32
 190 PRINT@I,CHR$(138);: NEXT I
 200 FOR I=293 TO 355 STEP 31
 210 PRINT@I,CHR$(137);: NEXT I
 220 PRINT@385,"A";: PRINT@391,"C";
 230 PRINT@231,"B";: PRINT@323,"3";
 240 PRINT@327,"1";: PRINT@420,"2";
 250 PRINT@237,"SIDE 1=";: PRINT@274,"2=";
 260 PRINT@306,"3=";: PRINT@364,"ANGLE A=";
 270 PRINT@402,"B=";: PRINT@434,"C=  90"
 280 REM -- FIND VALUES
 290 S=0: P=212: REM--FIND SIDE
 300 IF NOT (S<3) THEN 290
 310 S=S+1
 320 PRINT@P+(S*32),"";: INPUT A$
 330 IFVAL(A$)=0 THEN 300
 340 IF (VAL(A$)>0) AND (VAL(A$)<99999) THEN SD(S)=VAL(A$): GOTO360
 350 PRINT@P+(S*32),"": GOTO320
 360 A=0: P=340: REM--FIND ANGLE
 370 IF NOT(A<2) THEN 360
 380 A=A+1
 390 PRINT@P+(A*32),"";: INPUT A$
 400 IFVAL(A$)=0 THEN 370
 410 IF (VAL(A$)>=1) AND (VAL(A$)<=89) THEN AG(A)=VAL(A$): GOTO430
 420 PRINT@P+(A*32),"": GOTO390
 430 REM -- FORMULAS
 440 IF A=1 THEN AG(2)=90-AG(1)
 450 IF A=2 THEN AG(1)=90-AG(2)
 460 IF S<>1 THEN 480
 470 SD(2)=SD(1)/TAN(AG(1)/57.2958279): GOTO500
 480 IF S<>2 THEN 510
 490 SD(1)=SD(2)*TAN(AG(1)/57.2958279)
 500 SD(3)=SQR((SD(1)^2)+(SD(2)^2)): GOTO530
 510 SD(2)=SD(3)*COS(AG(1)/57.2958279)
 520 SD(I)=SQR((SD(3)^2)-(SD(2)^2))
 530 P=212: REM--PRINT SIDES
 540 FOR I=1 TO 3
 550 IF I=S THEN 580
 560 A$=STR$(SD(I))
 570 PRINT@P+(I*32),"  "+MID$(A$,2,8)
 580 NEXT I
 590 P=340: REM--PRINT ANGLE
 600 FOR I=1 TO 2
 610 IF I=A THEN 640
 620 A$=STR$(AG(I))
 630 PRINT@P+(I*32),"  "+MID$(A$,2,8)
 640 NEXT I
 650 PRINT@480,"PRESS K TO RESTART";: A$=INKEY$
 660 IF A$="R" THEN 110
 670 GOTO650