C-PS/8 FOCAL, 1971
 1.01 C 	HELP	 8/15/71 BY H. WHITNEY OF OMSI
 1.05 I ((/7)-FITR(/7)),2.1;T !"HELP REQUIRES USE OF FILES"!"RE-ENTER "
 1.06 T "FOCAL AND ANSWER 	YES	 OR 	5	 TO INITIAL DIALOGUE."!!
 1.10 L G HELPER.RE 4
 1.36 G 4.7
 1.50 S C(I)=0
 2.05 T " ^U"
 2.10 T !!"WHAT "
 2.13 T "DO YOU WANT TO REVIEW (OR TYPE 	HELP	)
  ";E
 2.20 S Z=FIN();I (FABS(Z-149)),2.05;I (FABS(Z-141)),1.1
 2.23 I [FABS(Z-160)],2.2,2.3
 2.25 S Z=FIN()
 2.30 I (FABS(Z-149)),2.05;I (FABS(Z-141)),3.1;I (30-I)2.25
 2.40 S I=I+1;S G(I)=Z
 2.50 G 2.25
 3.10 D 2.4;T !!!
 3.20 S C(1)=G(1);S C(2)=G(2);S Q=C(1)
 3.30 I [(Q-204)*(Q-207)]3.41,3.32,3.41
 3.32 I (C(2)-160)3.36,3.34,3.36
 3.34 S C(3)=G(3);G 3.9
 3.36 S I=2
 3.37 S I=I+1;I (12-I)3.38;I [(G(I)-160)*(G(I)-141)]3.37,3.38,3.37
 3.38 S C(3)=G(I+1);S C(4)=G(I+2);G 3.9
 3.41 I (-FABS(Q-195))3.42;S A=2;S B=2;G 3.8
 3.42 I (-FABS(Q-211))3.44;S A=0;S B=4;G 3.8
 3.44 I (-FABS(Q-210))3.46;S A=4;S B=4;G 3.8
 3.46 I (-FABS(Q-197))3.8;S A=0;S B=7;G 3.8
 3.80 S C(3)=G(3+A);S C(4)=G(4+B)
 3.90 F I=1,4;I [FABS((C(I)-141)*(C(I)-160))],1.5
 4.05 I (FABS(C(1)-206)+FABS(C(2)-207)),5.1;
 4.06 I (FABS(C(1)-211)+FABS(C(2)-212)+FABS(C(3)-207)),5.1;
 4.07 I (FABS(C(1)-201)+FABS(C(2)-206)+FABS(C(3)-196)+FABS(C(4)-197)),8.4
 4.08 I (FABS(C(1)-200)+FABS(C(2)-197)),1.1
 4.09 I (FABS(C(1)-0)),1.1
 4.12 I ((FABS(C(1)-205.5))-12.6)4.14;O I SDIREC.RD;G 4.25
 4.14 I (200-C(1))4.16;O I DIRECA.RD;G 4.25
 4.16 I (209-C(1))4.18;O I DIRECI.RD;G 4.25
 4.18 O I DIRECR.RD
 4.25 A X,A,B,C,D
 4.28 I (((10000)*FITR(X/(1000)))-FABS(A-C(1)))4.25,4.4;O I TTY:,E
 4.30 T !;S L=0
 4.31 S L=L+1;I (FABS(G(L)-141)),4.32;S U=FOUT(G(L));I (L-30)4.31
 4.32 T " -- NOT AVAILABLE; RETRY OR TYPE 	HELP	"!!
 4.33 G 4.7
 4.40 I [FABS(B-C(2))+FABS(C-C(3))+FABS(D-C(4))]4.25,4.5,4.25
 4.50 O I TTY:,E
 4.55 S Y=(FITR(X))/10;S Z=.001+100*(X-FITR(X))
 4.56 I (Y-7) 4.6,4.6,4.65
 4.60 G Y
 4.65 D Y
 4.70 T "WHAT ELSE DO YOU WANT 
  ";E
 4.75 G 2.2
 5.10 T %6.04,!"HELP DONE."!!!;E
 5.15 S "=0
 5.20 L C FOCAL.TM
 5.30 S Q=.2;L R MISCL1.RE 1.2
 5.40 S Q=.31;L R COMMA1.RE 1.2
 5.50 S Q=.32;L R COMMA1.RE 1.2
 5.60 S Q=.33;L R LIBRAR.RE 1.3
 5.70 S Q=.34;L R HFILE1.RE 1.2
 5.80 S Q=.35;L R COMMA1.RE 1.4
 5.90 S Q=.41;L R SYMBO1.RE 1.2
 6.10 S Q=.42;L R SYMBO1.RE 1.2
 6.20 S Q=.43;L R SYMBO1.RE 1.3
 6.30 S Q=.51;L R FUNCT1.RE 1.2
 6.40 S Q=.61;L R MISCL1.RE 1.2
 6.50 S Q=.81;L R INTRO1.RE 1.2
 7.10 L G COMMA1.RE Z
 7.20 L G COMMA2.RE Z
 7.30 L G COMMA3.RE Z
 7.40 L G LIBRAR.RE Z
 7.50 L G HFILE1.RE Z
 7.60 L G HFILE2.RE Z
 7.70 L G SYMBO1.RE Z
 7.80 L G SYMBO2.RE Z
 7.90 S Z1=3.2;L G FUNCT1.RE Z
 8.10 L G MISCL1.RE Z
 8.20 L G MISCL2.RE Z
 8.30 L G MISCL3.RE Z
 8.40 L G INDEX.RE
 8.50 G 2.1
 8.60 S Z1=1.98;L G FUNCT1.RE Z
 8.70 L G FUNCT2.RE Z
 8.80 L G HERROR.RE Z
 8.90 L G SUMCOM.RE Z