{------------------------------------------------------------------------
|
|
|------------------------------------------------------------------------}
PROCEDURE DisplayWAMMessageV0100 (WAMMessage  : WAMMessagePointer);

VAR
  I                           : Byte;

BEGIN
  WITH WAMMessage^ DO BEGIN
    Writeln;
    Writeln ('        TO: ',ToUser);
    Writeln ('      FROM: ',FromUser);
    Writeln ('   SUBJECT: ',Subject);
    Writeln (' REFERENCE: ',Reference);
    Writeln ('      AREA: ',Area);
    Writeln ('   MSGDATE: ',MsgDate);
    Writeln ('   MSGTIME: ',MsgTime);
    Writeln ('      ECHO: ',Echo);
    Writeln ('   PRIVATE: ',Private);
    Writeln ('ORIGINATOR: ',Originator);
    Writeln;
    FOR I:= 1 TO TextCnt DO
      Writeln (TextLine[I]);
    Writeln ('<<END OF MESSAGE>>');

  END; { WITH }
END;

{------------------------------------------------------------------------
|
|
|------------------------------------------------------------------------}
PROCEDURE DisplayWAMMessage (Version     : String;
                             WAMMessage  : WAMMessagePointer);

BEGIN
  IF Version = '01.00' THEN
    DisplayWAMMessageV0100 (WAMMessage)
  ELSE
    AbortRead ('Invalid version!  Version '+Version+' is not supported by this module!');
END;