Directory of image this file is from
This file as a plain text file
()0W3TCC-PS/8 FOCAL, 1971?MBZB$G 4.7?MB!B2S C(I)=0?MB(DET " ^U"?MB1DJT !!"WHAT "?MWWDMT "DO YOU WANT TO REVIEW (OR TYPE HELP ) ";E?MC[DWI [FABS(Z-160)],2.2,2.3?MCDYS Z=FIN()?MDAD^I (FABS(Z-149)),2.05;I (FABS(Z-141)),3.1;I (30-I)2.25?MDLD(S I=I+1;S G(I)=Z?MDRD2G 2.25?MD[FJD 2.4;T !!!?MD.FTS C(1)=G(1);S C(2)=G(2);S Q=C(1)?MEBF^I [(Q-204)*(Q-207)]3.41,3.32,3.41?MERF I (C(2)-160)3. 6,3.34,3.36?ME^F"S C(3)=G(3);G 3.9?ME$F$S I=2?MFEF%S I=I+1;I (12-I)3.38;I [(G(I)-160)*(G(I)-141)]3.37,3.38,3.37?MFYF&S C(3)=G(I+1);S C(4)=G(I+2);G 3.9?MF/F)I (-FABS(Q-195))3.42;S A=2;S B=2;G 3.8?MGEF*I (-FABS(Q-211))3.44;S A=0;S B=4;G 3.8?MG[F,I (-FABS(Q- 10))3.46;S A=4;S B=4;G 3.8?MG1F.I (-FABS(Q-197))3.8;S A=0;S B=7;G 3.8?MHBGPS C(3)=G(3+A);S C(4)=G(4+B)?MH[GZF I=1,4;I [FABS((C(I)-141)*(C(I)-160))],1.5?MH1HEI (FABS(C(1)-206)+FABS(C(2)-207)),5.1;?MIOHFI (FABS(C(1)-211)+FABS(C(2)-212)+FABS(C(3)-207)),5.1;? WAHGI (FABS(C(1)-201)+FABS(C(2)-206)+FABS(C(3)-196)+FABS(C(4)-197)),8.4?MT HII (FABS(C(1)-0)),1.1?MJJHYA X,A,B,C,D?MJ+H\I (((10000)*FITR(X/(1000)))-FABS(A-C(1)))4.25,4.4;O I TTY:,E?MJ3H^T !;S L=0?MKTH S L=L+1;I (FABS(G(L)-141)),4.32;S U=FOUT(G(L));I (L-30)4.31?MK.H T " -- NOT AVAILABLE; RETRY OR TYPE HELP "!!?MK4H!G 4.7?MLSH(I [FABS(B-C(2))+FABS(C-C(3))+FABS(D-C(4))]4.25,4.5,4.25?ML[H2O I TTY:,E?ML3H7S Y=(FITR(X))/10;S Z=.001+100*(X-FITR(X))?MMH8I (Y- ) 4.6,4.6,4.65?MMEH<G Y?MMJIAD Y?MM]IFT "WHAT ELSE DO YOU WANT ";E?MMIKG 2.2?MTYJJT %6.04,!"HELP DONE."!!!;E?MM<JTL C FOCAL.TM?MNKJ^S Q=.2;L R MISCL1.RE 1.2?MN[J(S Q=.31;L R COMMA1.RE 1.2?MN+J2S Q=.32;L R COMMA1.RE 1.2?MN;J<S Q=.33;L R LIBRAR.RE 1.3?MOKKFS Q=.34;L R HFILE1.RE 1.2?MO[KPS Q=.35;L R COMMA1.RE 1.4?MO+K S Q=.41;L R SYMBO1.RE 1.2?MO;LJS Q=.42;L R SYMBO1.RE 1.2?MPKLTS Q=.43;L R SYMBO1.RE 1.3?MP[L^S Q=.51;L R FUNCT1.RE 1.2?MP+L(S Q=.61;L R MISCL1.RE 1.2?MP;L2S Q=.81;L R INTRO1.RE 1.2?MQFNJL G COMMA1.RE Z?MQQNTL G COMMA2.RE Z?MQ\N^L G COMMA3.RE Z?MQ N(L G LI RAR.RE Z?MQ2N2L G HFILE1.RE Z?MQ=N<L G HFILE2.RE Z?MRHOFL G SYMBO1.RE Z?MRSOPL G SYMBO2.RE Z?MR"OZS Z1=3.2;L G FUNCT1.RE Z?MR-PJL G MISCL1.RE Z?MR8PTL G MISCL2.RE Z?MSCP^L G MISCL3.RE Z?MSLP(L G INDEX.RE?MSRP2G 2.1?MS"P<S Z1=1.98;L G FUNCT1.RE Z?MS-QFL G UNCT2.RE Z?MS8QPL G HERROR.RE Z?MQZL G SUMCOM.RE Z?MU=BAC HELP 8/15/71 BY H. WHITNEY OF OMSI?MM3JOS "=0?MT<HLI ((FABS(C(1)-205.5))-12.6)4.14;O I SDIREC.RD;G 4.25?MURHNI (200-C(1))4.16;O I DIRECA.RD;G 4.25?MU(HPI (209-C(1))4.18;O I DIRECI.RD;G 4.25?MJAHR I DIRECR.RD?MBTBJL G HELPER.RE 4?MV"BEI ((/7)-FITR(/7)),2.1;T !"HELP REQUIRES USE OF FILES"!"RE-ENTER "?MU2BFT "FOCAL AND ANSWER YES OR 5 TO INITIAL DIALOGUE."!!?MI4HHI (FABS(C(1)-200)+FABS(C(2)-197)),1.1?MCLDTS Z=FIN();I (FABS(Z-149)),2.05;I (FABS(Z 141)),1.1?M AL D HELP;L S HELP;G?M?14HELPER.RE 4?MM?L D HELP;L S HELP?M?4?L D HELP;L S HELP;G?M?.09?ECI.RD;G 4.25?IREC.RD;G 4.25?M4?MV9BAC HELP 8/15/71 BY H. WHITNEY OF OMSI?MI?E 1.05?M?M04?M?MH. WHITNEY OF OMSI?MI?E 1.03?M?M 8/15/71 BY H. WHITNEY OF OM I?MI?E 1.02?M?MY H. WHITNEY OF OMSI Note: Lines longer than 256 characters were wrapped