ENBYTY ( body, bdytyp, ifail )
==============================

  Enquire body type

    Can be called from the GO.

Receives:
  KI_tag_body              *body           --- body

Returns:
  KI_cod_enby              *bdytyp         --- type-code of body,
                                           --- from range ENBY00
  KI_cod_error             *ifail          --- failure indicator

Specific errors:
  KI_empty_body             empty body

Description:
  The type of body is returned as one of the following codes:

      ENBYSO  ---  solid
      ENBYSH  ---  sheet
      ENBYWR  ---  wire
      ENBYMN  ---  minimum object
      ENBYGN  ---  general