home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / pc / opus / opin103d.lzh / D_COM2.PAS < prev    next >
Pascal/Delphi Source File  |  1989-12-03  |  3KB  |  55 lines
  1. Program Demo_Com2;
  2.  
  3.   {***************************************************************************}
  4.   {*                                                                         *}
  5.   {* O p u s   I n t e r f a c e    V e r   1.03     Demo Program.           *}
  6.   {*                                                                         *}
  7.   {*   Opus V 1.0x Interface for Turbo Pascal Ver 4.0, 5.0 and 5.5           *}
  8.   {*                                                                         *}
  9.   {*  These Structures,Procedures and Functions may help you to make OPUS    *}
  10.   {* utilities for to help other SysOps, Please read the Documentation.      *}
  11.   {*                                                                         *}
  12.   {*  Regards                                                                *}
  13.   {*    Per Holm                                                             *}
  14.   {*                                                                         *}
  15.   {*   FIDO: Per Holm - Asgaard BBS 2:230/22.0                               *}
  16.   {*   UUCP: perholm@daimi.DK                                                *}
  17.   {*                                                                         *}
  18.   {***************************************************************************}
  19.  
  20.   {***************************************************************************}
  21.   {*                                                                         *}
  22.   {*  Demo of the level 4 communication routines...                          *}
  23.   {*                                                                         *}
  24.   {***************************************************************************}
  25.  
  26. Uses
  27.   OPINT;
  28.  
  29. VAR
  30.   c:char;
  31.   i: Integer;
  32.   Line: String[80];
  33.  
  34. BEGIN
  35.   _Snoop:=_On;                                 { Look at this...              }
  36.   _KeyBoard:=_On;                              { Enable Keyboard              }
  37.   _ExitCarrier:=0;                             { Don't exit on Carrier change }
  38.   UseInOut(0,0);                               { Use the Textfile device drv. }
  39.   i:=IoResult;
  40.   IF i>0 THEN
  41.     BEGIN
  42.       Writeln('Error with the Fossil : ',i);
  43.       Halt(i);
  44.     END;
  45.   WriteLn('Hi Johnny, Enter a line of text');
  46.   Readln(Line);
  47.   Writeln('OK here we go : "',Line,'"');
  48.   write('Thanx Press Enter');
  49.   repeat
  50.   until Readkey=#13;      { Note the ReadKey Function works too }
  51.   writeln;
  52.   UnUseInOut;
  53.   Writeln('Normal Skaerm');
  54. END.
  55.