TYPE STUFF
       INTEGER CODE       !A key number.
       CHARACTER*6 NAME   !Associated data.
       INTEGER THIS       !etc.
      END TYPE STUFF
      TYPE(STUFF) TABLE(600)   !An array of such entries.