home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 04 / ptrdemo2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-07  |  932 b   |  32 lines
  1. PROGRAM PtrDemo2;
  2. VAR ch: CHAR;
  3. (*$I PTRSTAT.PAS *)
  4. BEGIN
  5.   ClrScr;
  6.   WriteLn;
  7.   WriteLn('Bitte den Drucker abschalten und ',
  8.           'das Papier entfernen !');
  9.   WriteLn('Wenn bereit, eine Taste druecken');
  10.   Read(Kbd,ch);  WriteLn;
  11.   WriteLn('Drucker ausgeschaltet  --> Code: ',
  12.            PtrStat(0));
  13.   WriteLn;
  14.   WriteLn('Bitte den Drucker einschalten !');
  15.   WriteLn('Wenn bereit, eine Taste druecken');
  16.   Read(Kbd,ch);  WriteLn;
  17.   WriteLn('Drucker ohne Papier    --> Code: ',
  18.            PtrStat(0));
  19.   WriteLn;
  20.   WriteLn('Bitte Papier einlegen !');
  21.   WriteLn('Wenn bereit, eine Taste druecken');
  22.   Read(Kbd,ch);  WriteLn;
  23.   WriteLn('Drucker nicht on-line  --> Code: ',
  24.            PtrStat(0));
  25.   WriteLn;
  26.   WriteLn('Bitte on-line schalten !');
  27.   WriteLn('Wenn bereit, eine Taste druecken');
  28.   Read(Kbd,ch);  WriteLn;
  29.   WriteLn('Drucker betriebsbereit --> Code: ',
  30.            PtrStat(0));
  31. END.
  32.