DEFINITION MODULE SHORTCARD;
(* Alias type for 16-bit Unsigned Integer Numbers *)
<* IF TSIZE(CARDINAL)*8 = 16 *>
TYPE SHORTCARD = ALIAS OF CARDINAL;
<* ELSE *>
IMPORT CARD16;
TYPE SHORTCARD = ALIAS OF CARD16;
<* ENDIF *>
END SHORTCARD.
Retrieved from http://modula-2.net/m2r10/pmwiki.php?n=Spec.SHORTCARD