packed enumerated types?

I see that I can pack a subrange to make it fit into a byte, but it appears I cannot pack an enumerated type directly. That is: TYPE Month = packed 1..12; works ok, but TYPE Pref = packed (No, Yes); does not. I can do: TYPE PrefX = (No, Yes); Pref = packed No..Yes; Is there any reason that enumerated types could not be packed directly like subranges? Thanks, Peter. -- <http://www.interarchy.com/> <http://download.interarchy.com/>