NAME
        GoodType -- test if a type follows the IFF 85 specification. (V36)

   SYNOPSIS
        isok = GoodType(type)
        D0              D0

        long goodtype(long);

   FUNCTION
        Tests the given longword type identifier to see if it meets all the
        EA IFF 85 specifications for a FORM type (requirements for a FORM
        type are more stringent than those for a simple chunk ID). If it
        complies, GoodType() returns non-zero, otherwise 0.

   INPUTS
        type - potential 32 bit format type identifier.

   RESULT
        isok - non-zero if this is a valid type id, 0 otherwise.

   SEE ALSO
        goodid()