<<>> <> <> << XMesaCmplr12Defs3 contains 3 different record types containing sequences. These 3 kinds of sequences are each allocated using 3 different methods (cardinal variable, expression, cardinal). The fourth type of sequence is a StringBody. >> XMesaCmplr12Defs3: DEFINITIONS = BEGIN z: UNCOUNTED ZONE; card: CARDINAL; p1Card: LONG POINTER TO T1; p1Expr: LONG POINTER TO T1; p1Digs: LONG POINTER TO T1; p2Card: LONG POINTER TO T2; p2Expr: LONG POINTER TO T2; p2Digs: LONG POINTER TO T2; p3Card: LONG POINTER TO T3; p3Expr: LONG POINTER TO T3; p3Digs: LONG POINTER TO T3; sCard: LONG STRING; sExpr: LONG STRING; sDigs: LONG STRING; T1: TYPE = RECORD [ seq: SEQUENCE length: CARDINAL OF INTEGER]; T2: TYPE = RECORD [ seq: SEQUENCE COMPUTED CARDINAL OF INTEGER]; T3: TYPE = RECORD [ fixed: REAL, seq: PACKED SEQUENCE length: CARDINAL OF [0..4)]; END.