Directory of image this file is from
This file as a plain text file
C-PS/8 FOCAL, 1971
2.10 A !!!!,"ANALYSIS ",LI;
2.15 I (LI)2.2,2.3,2.4
2.20 L R STAT 1.87
2.30 L R STAT 1.1
2.40 I (51-LI)5.9,5.9;I (LI-30)2.5,2.5;A " REALLY ",AN;I (AN-0YES)2.1,2.5,2.1
2.50 I (35-LI)2.6,2.6;I (-N)2.6;T !!,"NO INPUT";G 2.1
2.60 G (5.0+LI/100)
5.01 L R STAT1 3.1
5.02 L R STAT1 4.7
5.03 L R STAT3 4.1
5.04 L R STAT3 5.3
5.05 L R STAT3 3.50
5.06 L R STAT6 4.3
5.07 L R STAT6 4.46
5.08 L R STAT8 2.1
5.09 G 5.9
5.10 G 5.9
5.11 L R STAT11 4.14
5.12 L R STAT12 4.3
5.13 L R STAT13 8.3
5.14 L R STAT14 5.1
5.15 L R STAT14 5.12
5.16 L R STAT16 4.5
5.17 G 5.9
5.18 G 5.9
5.19 G 5.9
5.20 G 5.9
5.21 L R STAT21
5.22 L R STAT22
5.23 G 5.9
5.24 G 5.9
5.25 G 5.9
5.26 G 5.9
5.27 G 5.9
5.28 G 5.9
5.29 G 5.9
5.30 G 5.9
5.31 G 5.9
5.32 G 5.9
5.33 G 5.9
5.34 G 5.9
5.35 G 5.9
5.36 L R STAT6 20.2
5.37 L R STAT37 1.04
5.38 G 5.9
5.39 G 5.9
5.40 G 5.9
5.41 G 5.9
5.42 G 5.9
5.43 G 5.9
5.44 D 12;D 13;G 2.1
5.45 D 12;G 2.1
5.46 G 11.1
5.47 D 8;G 2.1
5.48 G 7.1
5.49 D 6;O O TTY:,E;O I TTY:,E;L R STAT 1.05
5.50 D 6 ;O O TTY:;T !,"GOODBYE",!;L E
5.90 T !!,"REQUIRED ANALYSIS NOT IMPLEMENTED";G 2.1
6.05 I (!-1)6.1,6.2,6.3
6.10 R
6.20 T !,"PUNCH MUST BE ON ";F I=1,30;S D=FOUT(0)
6.30 O R O;T "0",!;O C;
6.40 SET !=0
7.10 I (")7.2,7.2,7.3
7.20 D 8
7.30 A " BLOCKS TO SKIP
",LI
7.35 S N=0;O R I
7.40 F I=1,LI;D 10
7.45 O I TTY:,E;I ()7.5,7.5,2.1
7.50 T !,"INPUT FILE END ";S "=0;G 2.1
8.10 A !,"UNIT "U;I (U-1)8.1,8.2;I (!-U)8.2,8.15,8.2
8.15 T !,"INPUT AND OUTPUT FILES MUST NOT BE SAME !!";G 8.1
8.20 L G STAT 4.1
10.01 S KB=;I (KB)10.02,10.02,10.1
10.02 T !,"PREMATURE END OF FILE AFTER BLOCK NR ",%4.00,I-1
10.03 SET "=0;S I=LI+1;R
10.10 A X;I (X-1E9)10.1,10.1
10.20 A X;S =X
11.10 I (!)11.2,11.2;T ! "CLOSE OUTPUT FILE ",%2.00,(!)," FIRST
11.15 G 2.1
11.20 A !,"UNIT ",U;I (U-1)11.2,11.3;I ("-U)11.3,8.15,11.3
11.30 L G STAT 4.2
11.40 G 2.1
12.10 T !,%3.00,KB," COLUMNS IN CORE
12.20 T !,N," ROWS IN CORE
12.30 I (!) 12.35,12.4;T "OUTPUT DIRECTED TO UNIT ",(!);G 12.4
12.35 T !,"LISTING DIRECTED TO LPT:"
12.40 I (")12.5,12.5;T !, " INPUT FROM UNIT ",(")
12.45 T !,"NEXT INPUT BLOCK CONTAINS ",()," COLUMNS"
12.50 C
13.10 D 6;S =0;S "=0;S !=0;E