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