File STAT22.FC (FOCAL source file)

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

C-PS/8 FOCAL, 1971
 1.01 T %4.0
 1.10 A !!,"OPTION  ",LI;I (LI)1.15,2.1;I (LI-13)1.2,19.1,19.1
 1.15 L R STAT 1.87
 1.20 G 2.1+LI
 2.10 L R SORT
 2.20 0.234000E+01
 2.30 
 3.10 T !,"COL CURR LIMIT ",KB,"  SET TO :";A LI
 3.20 T !,"ROWS CUR LIMIT ",N,"  SET TO :";A U
 3.25 S KB=LI;S N=U;G
 4.10 A !,"REALLY ",LI;I (LI-0YES)1.1,4.2,1.1
 4.20 D 3.1;D 3.2;F I=1,N;F J=LI+1,KB;SET X(J*100+I)=0
 4.30 F I=U+1,N;F J=1,KB;S X(J*100+I)=0
 4.40 G 3.25
 5.10 G 19.1
 6.10 A !,"STARTING AT ROW ",LI;S N=LI-1
 6.20 S KO=KB;D 15;I (KO)6.99,6.99
 6.30 I (U)6.31,6.31,6.4
 6.31 T !;G 6.45
 6.40 O R I
 6.45 A IN(1);I (IN(1)-1E9)6.5,6.5,6.9
 6.50 I (KO-2)1.7;F J=2,KO;A IN(J)
 6.55 S N=N+1;F I=1,KB;S X(I*100+N)=IN(X(I))
 6.60 O I TTY:,E;G 6.3
 6.90 I (U)6.99,6.99;A X;I (X)6.95,6.95;S  =X;G 6.99
 6.95 T !,"END OF INPUT FILE";SET "=0
 6.99 O I TTY:,E;G
 7.10 A !,"STARTING AT COL ",LI, "COL IN FINAL MATRIX 
",KB
 7.20 S KO=KB-LI+1;D 15;I (KO)7.99,7.99
 7.25 S LI=0
 7.30 F I=1,N;D 20
 7.35 I (LI)7.4,7.4,6.9
 7.40 I (U)6.99,6.99; A X;I (1E9-X)6.9,6.9;T !,"FILE ERROR ";D 21.12
 7.99 G 6.99
 8.10 A !,"WHICH ROW ",LI,!;T %6.02;F I=1,KB;T X(I*100+LI)
 8.30 A !, "OK 
",U; I (U-0YES)8.9,8.4,8.9
 8.40 F I=1,KB;S X(I*100+LI)=0
 8.90 G
 9.10 G 19.1
10.10 G 19.1
11.10 A "ROW", I,"COL ",J
11.20 T "  "OLD ",X(J*100+I),"NEW  ";A X(J*100+I)
11.30 G
12.10 S LI=KB
12.15 T !
12.20 S U=8;T %6.02;I (-!)12.5,12.5;O O LPT:
12.50 F I=1,N;;;F J=1,KB;S X=X(100*J+I);D 22
12.90 O O TTY:,E;I (-!)1.01,1.01;O C;G
13.10 I (-!)13.2,13.2;O O LPT:
13.20 T !!;G 14.1
14.10 I (!)14.95,14.95;G 14.4
14.20 S U=8;T %6.02;G 14.5
14.40 O R O;T %4.00,N,!,%;S U=5
14.50 S LI=N;F I=1,KB;F J=1,N;S X=X(100*I+J);D 22
14.60 I (U-8)14.7,12.9,14.7
14.70 T "1E10",!;S D=FOUT(140);I (1-!)12.9;F I=1,50;S D=FOUT(0)
14.80 O O TTY:;T "WRITTEN TO UNIT ",%3.00,(!)
14.90 G 12.9
14.95 T "NO OUTPUT FILE OPEN !!";G 
15.10 A !,"UNIT ",U;;I (U)15.4,15.3
15.26 I (U-")15.29,15.27,15.29
15.27 A "CONTINUE IN FILE 
 ",LI;I (LI-0YES)15.29,15.28,15.29
15.28 I (KO)15.7,15.7;T %3.0,!,(),"  COLUMNS IN INPUT FILE ";G 15.5
15.29 T !, "I CANNOT OPEN AN INPUT FILE",!,"YOU MUST USE ANALYSIS 47";S KO=0;R
15.30 T !," SUPPLY ",KO," COLUMNS FROM KEYBOARD";G 15.8
15.40 S U="
15.50 I (KO-)15.6,15.8;T !,"INPUT FILE TOO SMALL !!";S KO=0;R
15.60 T !,"STATE ",KO,"  COLUMNS TOO BE USED";F I=KB-KO+1,KB;A X(I)
15.70 T !;R
15.80 S J=0;F I=KB-KO+1,KB;S J=J+1;S X(I)=J
19.10 T !!,"NOT AVAILABLE ";G
20.10 I (-U)20.15;T !;F J=1,KO;D 21
20.11 G 20.3
20.15 O R I
20.20 F J=1,;D 21
20.30 F J=KB-KO+1,KB;S X(J*100+I)=IN(X(J))
21.05 I (LI)21.1,21.1;S IN(J)=0;R
21.10 A X;I (X-1E9)21.3,21.3;T !,"INPUT TOO SMALL",!
21.12 T "REST OF MATRIX SET TO 0 <MISSING>";S LI=1;G 21.05
21.20 S J=100;S I=100;I (U)4.2,4.2;S "=0;G 4.2
21.30 S IN(J)=X
22.05 I (U-5)22.1,22.3,22.1
22.10 I (X)22.3,22.2,22.3
22.20 T "      ***";G 22.4
22.30 T X
22.40 I (J-LI)22.6,22.5,22.9
22.50 T !;R
22.60 I (FITR(J/U)-J/U)22.9,22.7,22.9
22.70 T !,"  "
22.90 R



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search