Zap.mesa_Oct77.pdf | | Zap.mesa 25-0CT-77 15:25:35 Page 1
-- Zap.mesa
-- Edited by Sandman on September 12, 1977 9:06 AM
DIRECTORY
AltoDefs: FROM "altodefs",
BcdDefs: FROM "bcddefs",
ImageDefs: FROM "imagedefs",
InlineDefs: FROM "inlinedefs",
IODefs: FROM "iodefs",
SegmentDefs: FROM "segmentdefs",
StringDefs: FROM "stringdefs",
SymDefs: FROM "symdefs",
SystemDefs: FROM "systemdefs",
TimeDefs: FROM "timedefs";
DEFINITIONS FROM 10Defs, SegmentDefs;
Zap: PROGRAM
IMPORTS IODefs. SegmentDefs, StringDefs, SystemDefs, TimeDefs
BEGIN
name: STRING ~ [40];
filename: STRING ~ [40];
file: FileHandle:
c: STRING ~ [10];
BcdBase: TYPE = POINTER TO BcdDefs.BCD;
Confirm: PROCEDURE RETURNS [BOOLEAN]
BEGIN OPEN 10Defs;
WriteString[" [confirm]"]:
DO
SELECT ReadChar[] FROM
CR =) RETURN[TRUE]:
DEL =)
BEGIN
WriteString[" XXX"]:
RETURN[FALSE]:
END:
ENDCASE =) WriteChar['?]:
ENDLOOP:
|