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

X()0X2FUC-PS/8 FOCAL, 1971?MWUDJL R SORT?MB*^ZI (U-")15.29,15.27,15.29?MPG^[A "CONTINUE IN FILE 
 ",LI;I (LI-0YES)15.29,15.28,15.29?ML?L^I (U)6.31,6.31,6.4?MC(L-A IN(1);I (IN(1)-1E9)6.5,6.5,6.9?MC9L2I (KO-2)1.7;F J=2,KO;A IN(J)?MDOL7S N=N+1;F I=1,KB;S X(I*100+N)=IN(X(I))?MJKL<O I TTY:,E;G 6.3?MHZM
T !,"END OF INPUT FILE";SET "=0?MIBNJA !,"STARTING AT COL ",LI, "COL IN FINAL MATRIX 
",KB?MCILTS KO=KB;D 15;I (KO)6.99,6.99?MCUL(O R I?MWN^F I=1,N;D 20?MN-(OO R I?MG9P(F I=1,KB;S X(I*100+LI)=0?ME1P^A !, "OK 
",U; I (U-0YES)8.9,8.4,8.9?MNFBAT %4.0?MF-FYS KB=LI;S N=U;G?MBTBTG 2.1+LI?MI\HJA !,"REALLY ",LI;I (LI-0YES)1.1,4.2,1.1?MP)JJG 19.1?MG"FJT !,"COL CURR LIMIT ",KB,"  SET TO :";A LI?MF[FTT !,"ROWS CUR LIMIT ",N,"  SET TO :";A U?MM0QZG?MFPJA !,"WHICH ROW ",LI
!;T %6.02;F I=1,KB;T X(I*100+LI)?MD-MO I TTY:,E;G?MOP^2I (KO-)15.6,15.8;T !,"INPUT FILE TOO SMALL !!";S KO=0;R?MV]NTS KO=KB-LI+1;D 15;I (KO)7.99,7.99?MGDH(G 3.25?MI7HTD 3.1;D 3.2;F I=1,N;F J=LI+1,KB;SET X(J*100+I)=0?MIVH^F I=U+1,N;F J=1,KB;S X(J*100+I)=0?
DZMZI (U)6.99,6.99;A X;I (X)6.95,6.95;S  =X;G 6.99?MJ3VJA "ROW", I,"COL ",J?MKLVTT "  "OLD ",X(J*100+I),"NEW  ";A X(J*100+I)?MSHV^G?ML,TT "      ***";G 22.4?MR2
FT !;R?MK),2T !;R?MK<,<I (FITR(J/U)-J/U)22.9,22.7,22.9?MLC-FT !,"  "?M-ZR?MVK&JT !!,"NOT AVAILABLE ";G?MP=\TS U=8;T %6.02;G 14.5?MQ[,^T X?MN%*TS J=100;S I=100;I (U)4.2,4.2;S "=0;G 4.2?ME\L
T !;G 6.45?MWL^^T !," SUPPLY ",KO," COLUMNS FROM KEYBOARD";G 15.8?MKP,JI (X)22.3,22.2,22.3?MM6RJG 19.1?MJ&TJG 19.1?MF&BOL R STAT 1.87?MM<BJA !!,"OPTION  ",LI;I (LI)1.15,2.1;I (LI-13)1.2,19.1,19.1?MQM*^S IN(J)=X?MO2(TF J=1,;D 21?MV*JA X;I (X-1E9)21.3,21.3;
 !,"INPUT TOO SMALL",!?MK]^<T !,"STATE ",KO,"  COLUMNS TOO BE USED";F I=KB-KO+1,KB;A X(I)?MU:(^F J=KB-KO+1,KB;S X(J*100+I)=IN(X(J))?MRK^\I (KO)15.7,15.7;T %3.0,!,(),"  COLUMNS IN INPUT FILE ";G 15.5?MEKLJA !,"STARTING AT ROW ",LI;S N=LI-1?MT;\(O R O;T %4.
0,N,!,%;S U=5?MM,EI (U-5)22.1,22.3,22.1?MK,(I (J-LI)22.6,22.5,22.9?MS4X2F I=1,N;;;F J=1,KB;S X=X(100*J+I);D 22?ME+(KG 20.3?MG=OG 6.99?MMG^]T !, "I CANNOT OPEN AN INPUT FILE",!,"YOU MUST USE ANALYSIS 47";S KO=0;R?MLG
PS J=0;F I=KB-KO+1,KB;S J=J+1;S X(I)=J?MU5XJS LI=KB?MQ)XTS U=8;T %6.02;I (-!)12.5,12.5;O O LPT:?MX)ZJI (-!)13.2,13.2;O O LPT:?MS%YZO O TTY:,E;I (-!)1.01,1.01;O C;G?MTU\<I (U-8)14.7,12.9,14.7?MW0]FT "1E10",!;S D=FOUT(140);I (1-!)12.9;F I=1,50;S D=FOUT(0)?M
T]ZG 12.9?MTG\2S LI=N;F I=1,KB;F J=1,N;S X=X(100*I+J);D 22?MW^]
T "NO OUTPUT FILE OPEN !!";G ?MLV\JI (!)14.95,14.95;G 14.4?MSOXOT !?MN6*EI (LI)21.1,21.1;S IN(J)=0;R?MQ?(JI (-U)20.15;T !;F J=1,KO;D 21?ME"NYS LI=0?ML(*LT "REST OF MATRIX SET TO 0 <MISSING>";S LI=1;G 21.05?MXGNI (LI)7.4,7.4,6.9?MH^(S U="?MGJD^?MWRDT0.2340
0E+01?MB[^JA !,"UNIT ",U;;I (U)15.4,15.3?MT5]PO O TTY:;T "WRITTEN TO UNIT ",%3.00,(!)?MREN(I (U)6.99,6.99; A X;I (1E9-X)6.9,6.9;T !,"FILE ERROR ";D 21.12?MU&ZTT !!;G 14.1?M20L S STAT22?M?M99; A X;I (1E9-X)6.9,6.9;T !,"FILE ERROR ";D 21.12?M20V0.+F0. B ..V
.9B0*0/E*0B1* :0.1&3.0B0/EB+"2*M* B * B * B * B * B * :0.1^3.0B0/EB+*1B 

Note: Lines longer than 256 characters were wrapped