01.01 C 'HELP' 8/15/71 BY H. WHITNEY OF OMSI 01.05 I ((#/7)-FITR(#/7)),2.1;T !"HELP REQUIRES USE OF FILES"!"RE-ENTER " 01.06 T "FOCAL AND ANSWER 'YES' OR '5' TO INITIAL DIALOGUE."!! 01.10 L G HELPER.RE 4 01.36 G 4.7 01.50 S C(I)=0 02.05 T " ^U" 02.10 T !!"WHAT " 02.13 T "DO YOU WANT TO REVIEW (OR TYPE 'HELP')? ";E 02.20 S Z=FIN();I (FABS(Z-149)),2.05;I (FABS(Z-141)),1.1 02.23 I [FABS(Z-160)],2.2,2.3 02.25 S Z=FIN() 02.30 I (FABS(Z-149)),2.05;I (FABS(Z-141)),3.1;I (30-I)2.25 02.40 S I=I+1;S G(I)=Z 02.50 G 2.25 03.10 D 2.4;T !!! 03.20 S C(1)=G(1);S C(2)=G(2);S Q=C(1) 03.30 I [(Q-204)*(Q-207)]3.41,3.32,3.41 03.32 I (C(2)-160)3.36,3.34,3.36 03.34 S C(3)=G(3);G 3.9 03.36 S I=2 03.37 S I=I+1;I (12-I)3.38;I [(G(I)-160)*(G(I)-141)]3.37,3.38,3.37 03.38 S C(3)=G(I+1);S C(4)=G(I+2);G 3.9 03.41 I (-FABS(Q-195))3.42;S A=2;S B=2;G 3.8 03.42 I (-FABS(Q-211))3.44;S A=0;S B=4;G 3.8 03.44 I (-FABS(Q-210))3.46;S A=4;S B=4;G 3.8 03.46 I (-FABS(Q-197))3.8;S A=0;S B=7;G 3.8 03.80 S C(3)=G(3+A);S C(4)=G(4+B) 03.90 F I=1,4;I [FABS((C(I)-141)*(C(I)-160))],1.5 04.05 I (FABS(C(1)-206)+FABS(C(2)-207)),5.1; 04.06 I (FABS(C(1)-211)+FABS(C(2)-212)+FABS(C(3)-207)),5.1; 04.07 I (FABS(C(1)-201)+FABS(C(2)-206)+FABS(C(3)-196)+FABS(C(4)-197)),8.4 04.08 I (FABS(C(1)-200)+FABS(C(2)-197)),1.1 04.09 I (FABS(C(1)-0)),1.1 04.12 I ((FABS(C(1)-205.5))-12.6)4.14;O I SDIREC.RD;G 4.25 04.14 I (200-C(1))4.16;O I DIRECA.RD;G 4.25 04.16 I (209-C(1))4.18;O I DIRECI.RD;G 4.25 04.18 O I DIRECR.RD 04.25 A X,A,B,C,D 04.28 I (((10000)*FITR(X/(1000)))-FABS(A-C(1)))4.25,4.4;O I TTY:,E 04.30 T !;S L=0 04.31 S L=L+1;I (FABS(G(L)-141)),4.32;S U=FOUT(G(L));I (L-30)4.31 04.32 T " -- NOT AVAILABLE; RETRY OR TYPE 'HELP'"!! 04.33 G 4.7 04.40 I [FABS(B-C(2))+FABS(C-C(3))+FABS(D-C(4))]4.25,4.5,4.25 04.50 O I TTY:,E 04.55 S Y=(FITR(X))/10;S Z=.001+100*(X-FITR(X)) 04.56 I (Y-7) 4.6,4.6,4.65 04.60 G Y 04.65 D Y 04.70 T "WHAT ELSE DO YOU WANT ? ";E 04.75 G 2.2 05.10 T %6.04,!"HELP DONE."!!!;E 05.15 S "=0 05.20 L C FOCAL.TM 05.30 S Q=.2;L R MISCL1.RE 1.2 05.40 S Q=.31;L R COMMA1.RE 1.2 05.50 S Q=.32;L R COMMA1.RE 1.2 05.60 S Q=.33;L R LIBRAR.RE 1.3 05.70 S Q=.34;L R HFILE1.RE 1.2 05.80 S Q=.35;L R COMMA1.RE 1.4 05.90 S Q=.41;L R SYMBO1.RE 1.2 06.10 S Q=.42;L R SYMBO1.RE 1.2 06.20 S Q=.43;L R SYMBO1.RE 1.3 06.30 S Q=.51;L R FUNCT1.RE 1.2 06.40 S Q=.61;L R MISCL1.RE 1.2 06.50 S Q=.81;L R INTRO1.RE 1.2 07.10 L G COMMA1.RE Z 07.20 L G COMMA2.RE Z 07.30 L G COMMA3.RE Z 07.40 L G LIBRAR.RE Z 07.50 L G HFILE1.RE Z 07.60 L G HFILE2.RE Z 07.70 L G SYMBO1.RE Z 07.80 L G SYMBO2.RE Z 07.90 S Z1=3.2;L G FUNCT1.RE Z 08.10 L G MISCL1.RE Z 08.20 L G MISCL2.RE Z 08.30 L G MISCL3.RE Z 08.40 L G INDEX.RE 08.50 G 2.1 08.60 S Z1=1.98;L G FUNCT1.RE Z 08.70 L G FUNCT2.RE Z 08.80 L G HERROR.RE Z 08.90 L G SUMCOM.RE Z