DEFINITION String80s

DEFINITION String80s;

   (* streams which represent ARRAY 80 OF CHAR *)

   IMPORT Events, Streams;

   TYPE
      Stream = POINTER TO StreamRec;
      StreamRec = RECORD (Streams.StreamRec) END;

   CONST
      endOfMedium = 0;
      negPosition = 1;
      posBeyondMaxLen = 2;
      posBeyondTruncPos = 3;
      posBeyondCurrentLength = 4;
      errorcodes = 5;
   TYPE
      ErrorEvent = POINTER TO ErrorEventRec;
      ErrorEventRec =
         RECORD
            (Events.EventRec)
            errorcode: SHORTINT;
         END;
   VAR
      error: Events.EventType;
      errormsg: ARRAY errorcodes OF Events.Message;

   PROCEDURE Open(VAR s: Streams.Stream);

END String80s.