home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol132 / epson.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  2.3 KB  |  49 lines
  1. PROGRAM EPSON; { This should work on any CP/M system with an Epson printer.}
  2.            { Writeln after BEGIN and before END has been used in place}
  3.            { of clear screen codes because of the many different }
  4.            { codes in use on various terminals.}
  5. VAR
  6.   PRINTER : TEXT;
  7.   X : CHAR;
  8.  
  9. BEGIN
  10.   WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN;
  11.   WRITELN;
  12.   WRITELN ('             ************************************************'); 
  13.   WRITELN ('             *                                              *');
  14.   WRITELN ('             *                  Special Print               *');
  15.   WRITELN ('             *          Selection Menu for Epson Printer    *');
  16.   WRITELN ('             *                                              *');
  17.   WRITELN ('             *        1 - COMPRESSED PRINT - ON             *');
  18.   WRITELN ('             *        2 - COMPRESSED PRINT - OFF            *');
  19.   WRITELN ('             *        3 - EMPHASIZED PRINT - ON             *');
  20.   WRITELN ('             *        4 - EMPHASIZED PRINT - OFF            *');
  21.   WRITELN ('             *        5 - DOUBLE STRIKE - ON                *');
  22.   WRITELN ('             *        6 - DOUBLE STRIKE - OFF               *');
  23.   WRITELN ('             *        7 - LINE SPACING - 1/8TH INCH         *');
  24.   WRITELN ('             *        8 - LINE SPACING - NORMAL (1/6TH)     *');
  25.   WRITELN ('             *        0 - Exit to system                    *');
  26.   WRITELN ('             *                                              *');
  27.   WRITELN ('             ************************************************');
  28.   WRITELN;
  29.  REPEAT
  30.   WRITE     (' Enter Your Selection: ');             
  31.   READ (X);
  32.     REWRITE( 'lst:', printer);
  33.   CASE X OF
  34.     '1': WRITE (PRINTER, CHR(15));
  35.     '2': WRITE (PRINTER, CHR(18));
  36.     '3': WRITE (PRINTER, CHR(27), CHR(69));
  37.     '4': WRITE (PRINTER, CHR(27), CHR(70));
  38.     '5': WRITE (PRINTER, CHR(27), CHR(71));
  39.     '6': WRITE (PRINTER, CHR(27), CHR(72));
  40.     '7': WRITE (PRINTER, CHR(27), CHR(48));
  41.     '8': WRITE (PRINTER, CHR(27), CHR(50));
  42.   END; 
  43.   WRITE ('Another selection - or 0 to exit.');
  44.  UNTIL X = '0';
  45. WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN;
  46. WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN;
  47. WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN
  48. END.
  49.