home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 09_10 / tricks / pr_un_te.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-05-11  |  2.3 KB  |  63 lines
  1.  {* * * * * * * * * * * * * * * * * * * *
  2.   *                                     *
  3.   *    Programm: PRINTERS_UNIT_TEST     *
  4.   *    testet die Unit PRINTERS für     *
  5.   *    den Anschluß von zwei Druckern   *
  6.   *    an LPT1 und LPT2.                *
  7.   *                                     *
  8.   *  Turbo Pascal  dt. 6.0 - P91123423  *
  9.   *    MS-DOS 4.01     TEMA 386-SX      *
  10.   *                                     *
  11.   *            (c) Mai 1991             *
  12.   *       Karl Friedrich  Wieneke       *
  13.   *          An der Tiefburg 6          *
  14.   *          D-6900 Heidelberg          *
  15.   *          Tel: 06221-413692          *
  16.   *                                     *
  17.   * * * * * * * * * * * * * * * * * * * *}
  18.  
  19. PROGRAM printers_unit_test;
  20. USES Crt, printers;
  21. VAR  ch         : CHAR;
  22.      which      : SHORTINT;
  23.      error_code : BYTE;
  24. BEGIN
  25.   ClrScr; Write('Betriebsbereit: ');
  26.   GotoXY(5,15); Write('Wechsel mit     [RETURN]');
  27.   GotoXY(5,17); Write('Abbruch mit     [ESC]');
  28.   GotoXY(5,19); Write('Probeduruck mit [SPACE]');
  29.   WHILE KeyPressed DO ch := ReadKey;
  30.   REPEAT
  31.     which := whichlst;
  32.     GotoXY(1,5);
  33.     CASE which OF
  34.       1 :  BEGIN Write('LST  -> Drucker 1     ');
  35.                  Write('                      ') END;
  36.       2 :  BEGIN Write('                      ');
  37.                  Write('LST2 -> Drucker 2     ') END;
  38.       3 :  BEGIN Write('LST  -> Drucker 1     ');
  39.                  Write('LST2 -> Drucker 2     ') END;
  40.       -1 : BEGIN Write('LST  -> Drucker 2     ');
  41.                  Write('                      ') END;
  42.       -2 : BEGIN Write('                      ');
  43.                  Write('LST2 -> Drucker 1     ') END;
  44.       -3 : BEGIN Write('LST  -> Drucker 2     ');
  45.                  Write('LST2 -> Drucker 1     ') END;
  46.        0 : BEGIN Write('                      ');
  47.                  Write('                      ') END;
  48.     END;
  49.     IF KeyPressed THEN
  50.       BEGIN
  51.         ch := ReadKey;
  52.         IF ch = #13 THEN swaplst;
  53. {$I-}   IF ch = #32 THEN
  54.           BEGIN
  55.             WriteLn(lst,  'Ausgabe an Drucker über LST');
  56.             error_code := IOResult;
  57.             WriteLn(lst2, 'Ausgabe an Drucker über LST2');
  58.             error_code := IOResult;
  59.           END;
  60. {$I-} END;
  61.   UNTIL ch = #27;
  62. END.
  63.