home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 02 / postscpt / progr1.ps < prev    next >
Encoding:
Text File  |  1989-12-12  |  1.2 KB  |  45 lines
  1.              END;
  2.     | 'l','L' : WrStr('Lösche Datei : ');
  3.                 RdStr(DruckDatei);
  4.                 Spool.CancelFile(DruckDatei);
  5.                 IF Spool.Error() = 0 THEN
  6.                   Meldung :=
  7.                     'Datei(en) erfolgreich gelöscht !';
  8.                 ELSE
  9.                   DisplayError();
  10.                 END;
  11.     | 'w','W' : Spool.CancelAllFiles();
  12.                 IF Spool.Error() = 0 THEN
  13.                   Meldung :=
  14.                     'Warteschlange erfolgreich geleert !';
  15.                 ELSE
  16.                   DisplayError();
  17.                 END;
  18.     | 'e','E' : Auswahl := 'E';
  19.     ELSE
  20.       Meldung := '*** Ungültige Auswahl ! ***';
  21.     END;  (* CASE *)
  22.   END; (* WHILE *)
  23. END Spooler.O
  24.       AH := 1;
  25.       AL := 5;
  26.       Lib.Intr(Reg, PRINTintr);
  27.       IF CarryFlag IN Flags THEN
  28.         LastError := CARDINAL(AX);
  29.       ELSE
  30.         LastError := 0;
  31.       END;
  32.     END;
  33.   ELSE
  34.     LastError := 0;
  35.   END;
  36. END EndOfStatus;
  37.  
  38. PROCEDURE Statuseto          % positioniere Cursor
  39.  300 500 400 400 36 arcto % zeichne Bogen
  40.  4 {pop} repeat           % entferne Koordinaten vom Stack
  41.  
  42. stroke                    % Ausführung
  43. showpage                  % Ausgabe
  44. % Ende
  45.