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.