 
COMMON /CLOOK/ AVAIL, TABPTR(127), TABLE(MAXTBL)
   INTEGER AVAIL   # FIRST FIRST LOCATION IN TABLE; INIT = 1
   INTEGER TABPTR   # NAME POINTERS; INIT = 0
   CHARACTER TABLE   # ACTUAL TEXT OF NAMES AND DEFNS
