<<>> <> <> << Implementation of XMesaCmplr10Defs1.. also used in XMesaCmplr10Defs2. Mostly variables of simple types. Notice the default values supplied to the RECORD. >> DIRECTORY XMesaCmplr10Defs1, XMesaCmplr10Defs2; XMesaCmplr10a: PROGRAM IMPORTS EXPORTS XMesaCmplr10Defs1, XMesaCmplr10Defs2 = BEGIN i2: PUBLIC INTEGER; c2: PUBLIC CARDINAL; r2: PUBLIC REAL; char2: PUBLIC CHAR; b2: PUBLIC BOOLEAN; SimplRecord: PUBLIC TYPE = RECORD[ anInt: INTEGER ¬ 9, aCard: CARDINAL ¬ 9, aReal: REAL ¬ 9.0, aChar: CHAR ¬ 'j, aBool: BOOLEAN ¬ TRUE]; iArray: PUBLIC TYPE = ARRAY [0..5] OF INTEGER; cArray: PUBLIC TYPE = ARRAY [0..5] OF CARDINAL; rArray: PUBLIC TYPE = ARRAY [0..5] OF REAL; charArray: PUBLIC TYPE = ARRAY [0..5] OF CHAR; bArray: PUBLIC TYPE = ARRAY [0..5] OF BOOLEAN; Geti: PUBLIC PROCEDURE RETURNS[INTEGER] = {RETURN[2]}; Getc: PUBLIC PROCEDURE RETURNS[CARDINAL] = {RETURN[2]}; Getr: PUBLIC PROCEDURE RETURNS[REAL] = {RETURN[2.0]}; Getchar: PUBLIC PROCEDURE RETURNS[CHAR] = {RETURN['b]}; Getb: PUBLIC PROCEDURE RETURNS[BOOLEAN] = {RETURN[FALSE]}; END.