()0QUN[C-PS/8 FOCAL, 1971?MF B2T !"LIST GROUP 1 FOR INSTRUCTIONS.",!!;Q?MBTB(I (FABS(TY-0SAS)) ,3.1;I (FABS(TY-0SSS)) ,4.1?MG0D^S S3=S2/FCOS(A1);S S1=FSQT(S3*S3-S2*S2)?MGUEAT !!"S1:",S1?MDJLJA "ARE YOUR ANGLES IN DEGREES
 ",ANSWER?ML(T "YES OR NO.",!;G 6.1?MD
LTI (-FABS(AN-0YES)) 6.3;S DSWITCH=1;R?MC<L^I (-FABS(AN-0NO)) 6.4;S DSWITCH=0;R?MCEDTI (FABS(DS)) ,2.3;S A1=A1*3.14159/180;S A2=3.14159/2-A1?MB+B^A "TYPE: ",TY;S A3=3.14159/2;I (FABS(TY-0ASA)) ,2.1?MHXF^S A2=A3-A1;G 2.4?ME0FTS S3=FSQT(S1*S1+S2*S2);S A1=FA
N(S1/S2)?ME;FJA "S1: ",S1,!"S2: ",S2?MD4DJD 6;A "A1: ",A1,!"S2: ",S2,?MG^D2T !,"A1:",:7,A1,:24,A1*57.2958?MC\D<T !,"A3:",:7,A3,:24,A3*57.2958?MN<EFT !"S2:",S2?MGCD7T !,"A2:",:7,A2,:24,A2*57.2958?MF1D(T !!:10,"RADIANS",:26,"DEGREES",!?MC%HTS A1=FATN(S1/S2)
S A2=A3-A1;G 2.4?MHDHJA !"S1: ",S1,!"S2: ",S2,!"S3: ",S3,!?MPVBCC     OMSI SOFTWARE DEVELOPMENT GROUP?MMZBE?MO<BOC ** THIS MUST BE A RIGHT TRIANGLE.?MIFBNC "SSS" IF YOU KNOW THE SIDE LENGTHS.            S2?MI[BMC OR "SAS" FOR SIDE-ANGLE-SIDE INPUT OR   A1
/-------I A3?MOEBJC THE INPUT IN THE RIGHT ORDER.  THERE-         /    I S1?MJXBIC THREE PIECES.  HOWEVER, YOU MUST HAVE       S3 /   I?MJ8BHC THIS PROGRAM WILL DETERMINE THE OTHER           /  I?MKVBGC ABOUT THE TRIANGLE SHOWN AT THE RIGHT            / I
MI8BLC "ASA" TO INPUT ANGLE-SIDE-ANGLE DATA,       /      I?MMDBZI (FITR(/6)-(/6)) 1.27,1.3,1.27?MP&B[T "YOU DO NOT HAVE ENOUGH FEATURES.  "?MK4BFC     GIVEN THREE PIECES OF INFORMATION             /I A2?MH-BBC     BY DIGITAL EQUIPMENT CORP.  REWRITTEN BY
JOHN HUISMAN?MM:BAC     FROM TRIANG IN 	PROGRAMMING LANGUAGES	 COPYRIGHT 1970?MO	EPT !"S3:",S3?MLRBKC FORE, WHEN ASKED "TYPE", RESPOND WITH        /AREA I?MESB]E?MFREZT !!"AREA =",%4.02,S1*S2/2,!!;G 1.29?MP;BPC ** BECAUSE OF THE ARCTANGENT FUNCTION,?ML0BR
MICBDC     LAST CHANGE: 8/19/71?MOB\T "RESTART FOCAL WITH FEATURE 2.";Q?MPSBQC    LENGTHS MUST BE UNDER ONE MILLION UNITS.?MBQL S TRIANG?M?MUST BE UNDER ONE MILLION UNITS.?2.",!;L E?MNGB(?MN(BAC     BARON BY D

Note: Lines longer than 256 characters were wrapped