File: HELP.FC of Tape: Sources/Focal/s4

(.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

---