Garbo/Garbo.cdr/pc/opus/opin103d.lzh/D_MSG2.PAS

Pascal/Delphi Source File | 1989-12-03 | 3KB | 75 lines

Program DemoMessage;

  {***************************************************************************}
  {*                                                                         *}
  {* O p u s   I n t e r f a c e    V e r   1.03     Demo Program.           *}
  {*                                                                         *}
  {*   Opus V 1.0x Interface for Turbo Pascal Ver 4.0, 5.0 and 5.5           *}
  {*                                                                         *}
  {*  These Structures,Procedures and Functions may help you to make OPUS    *}
  {* utilities for to help other SysOps, Please read the Documentation.      *}
  {*                                                                         *}
  {*  Regards                                                                *}
  {*    Per Holm                                                             *}
  {*                                                                         *}
  {*   FIDO: Per Holm - Asgaard BBS 2:230/22.0                               *}
  {*   UUCP: [e-mail]                                                *}
  {*                                                                         *}
  {***************************************************************************}

  {***************************************************************************}
  {*                                                                         *}
  {*  Demo of the message related routines...                                *}
  {*                                                                         *}
  {***************************************************************************}

Uses
  Dos,OPINT;

VAR
  Buffer: ARRAY[1..32000] OF Char;
  Msg: _MsgRaw;

PROCEDURE Error;

  VAR
    Err: Integer;

  BEGIN
    Err:=OpIntERROR;
    IF Err>0 THEN
      BEGIN
        Writeln('You Got Yourself an Error ',Err,' During OpInt Access');
        Readln;
      END;
  END;

PROCEDURE Messages;

  Var
    i: Integer;

  BEGIN
    Msg.Counter:=32000;            { Max Size of Buffer }
    Msg.Body:=@Buffer;             { Buffer Pointer }
    ReadMsgNew('1.MSG',Msg);
    Error;
    writeln('Lets write back');
    WriteMsgNew('2.msg',Msg);
    Error;
    WITH MSG DO
      BEGIN
        writeln('From .........: ',_From);
        writeln('To ...........: ',_to);
        writeln('Subject ......: ',_subj);
        writeln('Date .........: ',_date);
        writeln('Time .........: ',_Times);
        writeln(_Dest,' ',_orig,' ',_cost);
      END;
  END;

BEGIN
  Messages;
  readln;
END.