<<>> <> DIRECTORY XReal; XMesaCmplr20: PROGRAM IMPORTS XReal = { --from AR 250 FileHeader: TYPE = POINTER TO FileHeaderObject; FileHeaderObject: TYPE = PACKED RECORD [ formatVersion: CARD16, version: UniversalID, fileType: BYTE, translated: BYTE, language: CARD16, nSegments: CARD16 _ 0, segments: ARRAY [0..0) OF Segment]; UniversalID: TYPE = PACKED ARRAY [0..10) OF BYTE; Segment: TYPE = PACKED RECORD [base, count: CARD16]; ScratchMap: PROCEDURE [pages: CARDINAL] RETURNS [p: FileHeader] = TRUSTED MACHINE CODE {"XR_ScratchMap"}; i: CARDINAL _ 0; temp: FileHeaderObject; header: FileHeader _ @temp; header _ ScratchMap [pages: header.segments[i].count]; <> <> { foo: DINT _ 100000; num: REAL _ 0; num _ XReal.Float[foo]; }; }.