home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 04 / ptrdemo1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-07  |  509 b   |  21 lines
  1. PROGRAM PtrDemo1;
  2. VAR ch: CHAR;
  3. (*$I PTRSTAT.PAS *)
  4. (*$I PTRTEST.PAS *)
  5. BEGIN
  6.   ClrScr;
  7.   WriteLn;  WriteLn;
  8.   WriteLn('Bitte den Drucker abschalten und das ',
  9.           'Papier entfernen !');
  10.   WriteLn;
  11.   WriteLn('Wenn bereit, eine Taste druecken');
  12.   WriteLn;
  13.   Read(Kbd, ch);
  14.   IF PtrTest THEN BEGIN
  15.     WriteLn(Lst,'Dies ist ein Test-Ausdruck!');
  16.     WriteLn(Lst,'Dies ist ein Test-Ausdruck!');
  17.     WriteLn(Lst,'Dies ist ein Test-Ausdruck!');
  18.   END;
  19.   WriteLn('Test beendet !');
  20. END.
  21.