<< 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. ^ XMesaCmplr12Defs3.mesa 20-Aug-87 15:35:59 Jim Foote January 20, 1988 10:16:22 am PST Ę•NewlineDelimiter ™J™*J™*J˜J˜ņJ˜JšĪnœĪk œ˜ šž˜Jšœž œžœ˜J˜Jšœžœ˜Jš œžœžœžœžœ˜Jš œžœžœžœžœ˜Jš œžœžœžœžœ˜Jš œžœžœžœžœ˜Jš œžœžœžœžœ˜Jš œžœžœžœžœ˜Jš œžœžœžœžœ˜Jš œžœžœžœžœ˜Jš œžœžœžœžœ˜J˜Jšœžœžœ˜Jšœžœžœ˜Jšœžœžœ˜J˜J˜šžœžœžœ˜Jš œžœ žœžœžœ˜+J˜—šžœžœžœ˜Jš œžœžœžœžœžœ˜,J˜—šžœžœžœ˜Jšœžœ˜ Jš œžœžœ žœžœ ˜1——Jšžœ˜—…—XÅ