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