xerox Commander.mesa Sep78 free download

File name Commander.mesa_Sep78.pdf

Commander.mesa 2-Sep-78 14:40:55 Page 1 -- Commander.mesa; edited by Snndman, May 5, 1978 11:40 AM DIRECTORY CommanderDefs: FROM "commanderdefs", ControlDefs: FROM "controldefs", FrameDefs: FROM "framedefs", InlineDefs: FROM "inlinedefs", ImageDefs: FROM "imagedefs", IODefs: FROM "iodefs", MiscDefs: FROM "miscdefs", RectangleDefs: FROM "rectangledefs", SegmentDefs: FROM "segmentdefs",. StreamDefs: FROM "streamdefs", StringDefs: FROM "stringdefs", SystemDefs: FROM "systemdefs"; DEFINITIONS FROM StringDefs, CommanderDefs, IODefs; Commander: PROGRAM [herald: STRING] IMPORTS ImageDefs, IODefs, StreamDefs, StringDefs, SystemDefs EXPORTS CommanderDefs .. BEGIN GlobalFrameHandle: TYPE = ControlDefs.GlobalFrameHandle; CommandItem: TYPE = RECORD [ cb: CommandBlockHandle, link: POINTER TO CommandItem]; StringItem: TYPE = RECORD [ link: POINTER TO StringItem, string: STRING]; commandHead: POINTER TO CommandItem ~ NIL; stringHead: POINTER TO StringItem ~ NIL; SyntaxError: ERROR = CODE; Help: SIGNAL = CODE; BadName: ERROR = CODE; BadParam: ERROR [type: ParamType] .. CODE; GetDebugger: PROCEDURE .. BEGIN MiscDefs.CallDebugger[NIl]; END; Load: PROCEDURE [name: STRING]