File: HELP.FC of Tape: Sources/Focal/s8
(.FC,.FO Focal format converted to 'WRITE' listing)
C ACU-FOCAL12,1973 01.01 C 'HELP/HILFE' 1/4/74 BY W.V.D.MARK OF ACU 01.02 S "=0;S DV=4.6 01.03 A !!,"GERMAN TEXT?",GE;I (FABS(GE-0YES)),1.5,1.6 01.10 L G HELPER.RE 4 01.11 G 2.01 01.13 L G HILFER.RE 4 01.36 G 2.01 01.50 S "=.03 01.60 A !,"LINE PRINTER?",LI;I (-FABS(LI-0YES))1.8; 01.70 S DV=4.55 01.80 G 2.1+" 02.01 O C;O O TTY:;G 2.1+" 02.05 T " ^U";G 2.1+" 02.10 T !!"WHAT DO YOU WANT TO KNOW? ";G 2.15 02.13 T !!"WAS WOLLEN SIE WISSEN? " 02.15 S J=1;S I=0 02.20 S Z=FIN()-128;I (FABS(Z-21)),2.05;I (FABS(Z-13)),1.1+";I (FABS(Z-127)),2.55 02.23 I [FABS(Z-32)],2.2,2.3 02.24 S SP(J)=I;S J=J+1 02.25 S Z=FIN()-128 02.30 I (FABS(Z-21)),2.05;I (FABS(Z-13)),3.05;I (FABS(Z-127)),2.6;I (30-I)2.25 02.35 I (FABS(Z-32)),2.24 02.40 S I=I+1;S G(I)=Z 02.50 G 2.25 02.55 S I=1 02.60 T "\";S I=I-1;I (I),2.7,2.25 02.70 S Z=FOUT(223);T "DELETED";G 2.1+" 03.05 S LA=I+1;F J=LA,10;S G(J)=0 03.10 O A DIREC 03.20 F I=0,2;D 3.3;S D(I+1)=Z 03.25 G 3.35 03.30 S Z=G(I*3+1)+G(I*3+2)/128+G(I*3+3)/16384 03.35 S NU=FX();S N1=FITR(NU/2);S TA=0;S SW=0 03.50 I (1+SW)3.9;S TA=TA+N1;S SW=0;G 3.56 03.55 S TA=TA-N1;S SW=-1 03.56 S N1=FITR(N1/2);I (N1),3.57,3.58 03.57 S N1=1;S SW=SW-1 03.58 S T1=TA*4 03.60 I (D(1)-FX(T1+1))3.55,3.65,3.5 03.65 I (D(2)-FX(T1+2))3.55,3.7,3.5 03.70 I (D(3)-FX(T1+3))3.55,3.75,3.5 03.75 S VA=FX(T1) 03.80 G DV 03.90 S TA=TA+1;D 3.58;S NU=NU+1;I (1020-NU),2.1+",3.95+" 03.95 D 10;T "---NOT AVAILABLE;PLEASE WAIT AND RETRY" 03.96 G 4.10 03.98 D 10;T "---NICHT BEKANNT;BITTE WARTEN UND WIEDER VERSUCHEN" 04.10 F I=-(NU*4+3),-(T1+4);S Z=FX(-I,FX(-I-4)) 04.20 S Z=FX(T1,0);S Z=FX(T1+1,D(1));S Z=FX(T1+2,D(2));S Z=FX(T1+3,D(3)) 04.30 S Z=FX(0,FX(0)+1) 04.40 O T;G 2.1+" 04.55 O O LPT: 04.60 S Y=FITR(VA)/100+";S Z=.001+100*(VA-FITR(VA));S GE=0;T !! 04.63 I (-Y)4.65;O O TTY:;D 3.95+";G 2.1+" 04.65 I (Y-7)4.74,4.74,4.75 04.70 T !!"---------";G 2.01 04.74 G Y 04.75 D Y 04.78 I (GE),4.7,4.8 04.80 O O TTY: 04.85 T !"LEIDER NOCH KEINE DEUTSCHE FASSUNG!";S GE=0 04.90 A !"WOLLEN SIE ES TROTZDEM AUF ENGLISCH?",WO;I (-FABS(WO-0JA))2.1+" 04.93 T !!!;I (4.55-DV)4.95;O R O 04.95 S Y=Y-";G 4.65 05.10 O O TTY: 05.11 T !"HELP DONE!";E 05.12 G 5.2 05.13 O O TTY: 05.15 T !"HELP DONE!";E 05.20 L C FOCAL.TM 05.30 S Q=.2;L R MISCL1.RE 1.2 05.33 G 4.8 05.40 S Q=.31;L R COMMA1.RE 1.2 05.43 G 4.8 05.50 S Q=.32;L R COMMA1.RE 1.2 05.53 G 4.8 05.60 S Q=.33;L R LIBRAR.RE 1.3 05.63 G 4.8 05.70 S Q=.34;L R HFILE1.RE 1.2 05.73 G 4.8 05.80 S Q=.35;L R COMMA1.RE 1.4 05.83 G 4.8 05.90 S Q=.41;L R SYMBO1.RE 1.2 05.93 G 4.8 06.03 G 4.8 06.10 S Q=.42;L R SYMBO1.RE 1.2 06.13 G 4.8 06.20 S Q=.43;L R SYMBO1.RE 1.3 06.23 G 4.8 06.30 S Q=.51;L R FUNCT1.RE 1.2 06.33 G 4.8 06.40 S Q=.61;L R MISCL1.RE 1.2 06.43 G 4.8 06.50 S Q=.81;L R INTRO1.RE 1.2 06.53 G 4.8 07.10 L G COMMA1.RE Z 07.13 S GE=1 07.20 L G COMMA2.RE Z 07.23 S GE=1 07.30 L G COMMA3.RE Z 07.33 S GE=1 07.40 L G LIBRAR.RE Z 07.43 S GE=1 07.50 L G HFILE1.RE Z 07.53 S GE=1 07.60 L G HFILE2.RE Z 07.63 S GE=1 07.70 L G SYMBO1.RE Z 07.73 S GE=1 07.80 L G SYMBO2.RE Z 07.83 S GE=1 07.90 S Z1=3.2;L G FUNCT1.RE Z 07.93 S GE=1 08.03 S GE=1 08.10 L G MISCL1.RE Z 08.13 S GE=1 08.20 L G MISCL2.RE Z 08.23 S GE=1 08.30 L G MISCL3.RE Z 08.33 S GE=1 08.40 L G INDEX.RE 08.43 S GE=1 08.50 G 2.01 08.53 S GE=1 08.60 S Z1=1.98;L G FUNCT1.RE Z 08.63 S GE=1 08.70 L G FUNCT2.RE Z 08.73 S GE=1 08.80 L G HERROR.RE Z 08.83 S GE=1 08.90 L G SUMCOM.RE Z 08.93 S GE=1 10.10 T !;S L=0; S J=1 10.20 S L=L+1;I (L-LA)10.3 10.25 R 10.30 S Z=FOUT(G(L)+128) 10.40 I (FABS(L-SP(J))),10.5,10.2 10.50 S Z=FOUT(160);S SP(J)=0;S J=J+1;G 10.2