File: LCard.m3 Last Modified On Thu Mar 10 09:44:11 PST 1994 By kalsow Modified On Thu Jul 27 17:38:00 1989 By muller
MODULE; IMPORT SubrangeType, Target, TInt, Tipe, LInt; PROCEDURE LCard Initialize () = BEGIN T := SubrangeType.New (TInt.Zero, Target.Longint.max, LInt.T, TRUE); Tipe.Define ("LONGCARD", T, TRUE); END Initialize; BEGIN END LCard.