Directory of image this file is from
This file as a plain text file
()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