home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pctchnqs / 1990 / number6 / ptest.pas < prev    next >
Pascal/Delphi Source File  |  1990-07-16  |  481b  |  22 lines
  1. PROGRAM Ptest;
  2.  
  3. USES
  4. { Turbo Power Unit }
  5.   OpCrt,
  6. { Dg Unit }
  7.   Polite;
  8.  
  9. BEGIN
  10.   OpenProgram;
  11.   WriteLn ('This is a test of the polite unit.');
  12.   WriteLn ('Notice that the cursor has been turned off.');
  13.   WriteLn
  14.   ('It will automatically be restored when the program exits.');
  15.   WriteLn;
  16.   WriteLn ('Enter ''PTEST/bw'' and I will display in mono.');
  17.   WriteLn ('Press any key to exit.');
  18.   Repeat until keypressed;
  19.   WriteLn (ReadKey);
  20.   CloseProgram;
  21. END.
  22.