Directory of image this file is from
This file as a plain text file

C-PS/8 FOCAL, 1971
 1.10 A !!,"EDIT CODE ",LI;I (LI)1.15,1.2; I (LI-17)20.1,16.1,1.5
 1.15 D 1.2;L R STAT 1.87
 1.20 A !,"HOW MANY COL DO YOU HAVE NOW 
 ",KB;
 1.21 L R SORT
 1.50 T !,"NOT AVAILABLE ",;G
 3.10 S I=1
 3.20 S X=X+U+1E-7
 4.10 S I=1
 4.20 S X=X-U+1E-7
 5.10 S I=1
 5.20 S X=X*U
 6.10 S I=1
 6.20 S X=X/U
 7.10 S I=1
 7.20 S X=(X/U)*100
 8.10 S I=1
 8.20 S X=((X-U)/U)*100+1E-7
 9.10 S I=2
 9.20 D 31
10.10 S I=2
10.20 SET X=FSGN(X)*FSQT(FABS(X))
11.10 S I=3
11.20 S X=1/X
12.10 S I=3
12.20 S X=X*S
13.10 S I=3
13.20 S X=X+S
14.10 S I=3
14.20 S X=X^S
15.10 S I=3
15.20 D 31;S X=X*S;D 30
16.10 S I=0
17.10 S I=0
18.10 S I=0
19.10 A !,"HOW MANY COL DO YOU HAVE NOW 
 ",KB,!;
19.20 I (-!)19.3,19.3;O O LPT:
19.30 F I=1,N;F J=1,KB;D 22;
19.40 I (-!)1.1,1.1;O C;O O TTY:,E;G
20.10 D (2.1+LI);  I (I)21.5,1.5
20.20 A ,"COL A ",KO;I (I-2)20.3,20.5,20.4
20.30 A ,"COL B ",S;G 20.5
20.40 A "CONSTANT ",S;G 20.5
20.50 A ,"RESULT IN COL ",Q,
20.60 F J=1,N;D 21
20.70 G
21.10 I (X(KO*100+J))21.2,21.15,21.2
21.15 S X(Q*100+J)=0;R
21.20 I (2-I)21.3,21.3;I (X(S*100+J))21.3,21.15,21.3
21.30 S X=X(KO*100+J);S U=X(S*100+J);D (2.2+LI);S X(Q*100+J)=X
22.10 I (X(100*J+I)) 22.3,22.2,22.3
22.20 T "       ***";G 22.4
22.30 T X(100*J+I)
22.40 I (J-KB)22.6,22.5,22.6
22.50 T !;R
22.60 I (FITR(J/7)-J/7)22.9,22.7,22.9
22.70 T !,"  "
22.90 R
30.01 C EXP;DO 30
30.10 I (X^2-0.01)30.2;S X=X/2;D 30;S X=X^2;R
30.20 S X=1+X+X^2/2+X^3/6+X^4/24+X^5/120+X^6/720
31.01 C LN;D 31
31.10 I (X^2-2.04*X+1)31.2;S X=FSQT(X);D 31;S X=2*X;R
31.20 S X=(X-1)/(X+1);S X=2*(X+X^3/3+X^5/5+X^7/7)