INTEGER VARS AND CONSTANTS: 1 WORD
IOCS ADD THIS SIZE TO THE PROGRAM:
  1132 PRINTER: 1672 WORDS
  CARD,1132 PRINTER: 2070 WORDS
  TYPEWRITER,KEYBOARD,CARD,1132 PRINTER: 2178 WORDS
  DISK,TYPEWRITER,KEYBOARD,CARD,1132 PRINTER: 2878 WORDS

CALL DATSW: 42 WORDS (2 ARE FOR VARS)
CALL PDUMP: 146 WORDS (+ 1132 PRINTER IF NOT IN IOCS)
GO TO: 2 WORDS
COMPUTED GO TO:  2-WAY: 5 WORDS, 8-WAY: 8 WORDS
''EMPTY ACTION'' IF(): 10 WORDS
''EMPTY'' DO LOOP: 14 WORDS
MANUAL LOOP,  ASSIGN/IF/INCREMNENT/GO TO: 18 WORDS
READ(): 6 WORDS (+ FORMAT)
WRITE(): 6 WORDS(+ FORMAT)
FORMAT: (I6): 2 WORDS, (10I6): 4 WORDS, (72A1): 4 WORDS,
  (1H ,120A1): 6 WORDS
INTEGER OPS:
  =: 4 WORDS
  +: 2 WORDS
  -: 2 WORDS
  *: 4 WORDS
  /: 4 WORDS
  **: 72 WORDS
  (SO A I=I+1 IS 6 WORDS NOT COUNTING VARS)
ARRAY SUBSCRIPT:
  I(J)=1: 40 WORDS
  I(J,K)=1: 44 WORDS