()0Q\M0C-PS/8 FOCAL, 1971?MP(B(I (FABS(TY-0SAS)) ,3.1;I (FABS(TY-0SSS)) ,4.1?MQED^S S3=S2/FCOS(A1);S S1=FSQT(S3*S3-S2*S2)?MF>EAT !!"S1:",S1?MC3LJA "ARE YOUR ANGLES IN DEGREES
 ",ANSWER?ML(T "YES OR NO.",!;G 6.1?MDHLTI (-FABS(AN-0YES)) 6.3;S DSWITCH=1;R?MC%L^I (-FABS(AN-0NO)) 6.4;S DSWITCH=0;R?MB.DTI (FABS(DS)) ,2.3;S A1=A1*3.14159/180;S A2=3.14159/2-A1?MBTB^A "TYPE: ",TY;S A3=3.14159/2;I (FABS(TY-0ASA)) ,2.1?MG-F^S A2=A3-A1;G 
.4?MEYFTS S3=FSQT(S1*S1+S2*S2);S A1=FATN(S1/S2)?ME$FJA "S1: ",S1,!"S2: ",S2?MD]DJD 6;A "A1: ",A1,!"S2: ",S2,?MGGD2T !,"A1:",:7,A1,:24,A1*57.2958?MCED<T !,"A3:",:7,A3,:24,A3*57.2958?MNQEFT !"S2:",S2?MF,D7T !,"A2:",:7,A2,:24,A2*57.2958?MCNHTS A1=FATN(S1/S2)
S A2=A3-A1;G 2.4?MGYHJA !"S1: ",S1,!"S2: ",S2,!"S3: ",S3,!?MO9BCC     OMSI SOFTWARE DEVELOPMENT GROUP?ML/BE?MOMBOC ** THIS MUST BE A RIGHT TRIANGLE.?MH[BNC "SSS" IF YOU KNOW THE SIDE LENGTHS.            S2?MH0BMC OR "SAS" FOR SIDE-ANGLE-SIDE INPUT OR   A1
/-------I A3?MNZBJC THE INPUT IN THE RIGHT ORDER.  THERE-         /    I S1?MI-BIC THREE PIECES.  HOWEVER, YOU MUST HAVE       S3 /   I?MJMBHC THIS PROGRAM WILL DETERMINE THE OTHER           /  I?MJ+BGC ABOUT THE TRIANGLE SHOWN AT THE RIGHT            / I
MIMBLC "ASA" TO INPUT ANGLE-SIDE-ANGLE DATA,       /      I?MLYBZI (FITR(/6)-(/6)) 1.27,1.3,1.27?MO$B[T "YOU DO NOT HAVE ENOUGH FEATURES.  "?MKIBFC     GIVEN THREE PIECES OF INFORMATION             /I A2?MHBBBC     BY DIGITAL EQUIPMENT CORP.  REWRITTEN BY
JOHN HUISMAN?MMOBAC     FROM TRIANG IN 	PROGRAMMING LANGUAGES	 COPYRIGHT 1970?MN8EPT !"S3:",S3?MK	BKC FORE, WHEN ASKED "TYPE", RESPOND WITH        /AREA I?ME;EZT !!"AREA =",%4.02,S1*S2/2,!!;G 1.29?MPIBPC ** BECAUSE OF THE ARCTANGENT FUNCTION,?MP>B\T "REST
RT FOCAL WITH FEATURE 2.";Q?MHXBDC     LAST CHANGE: 9/9/71?MQABQC    LENGTHS MUST BE LESS THAN ONE MILLION UNITS.?MFIB<?MP%B2T "LIST GROUP 1 FOR INSTRUCTIONS",!!;Q?MD<B]?MLEBRE?MFZD(T !!,%5.05,:10,"RADIANS",:26,"DEGREES",!?MML S TRIANG?M?M,"RADIANS",:26,"
EGREES",!?MMNGB(?MN(BAC     BARON BY D

Note: Lines longer than 256 characters were wrapped