home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol094 / oki.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  2.1 KB  |  46 lines
  1. PROGRAM CPI;
  2.  
  3. VAR
  4.   PRINTER : TEXT;
  5.   X : CHAR;
  6. BEGIN
  7.   WRITELN; WRITELN; WRITELN; WRITELN;
  8.   WRITELN;
  9.   WRITELN ('           ************************************************');
  10.   WRITELN ('           *                                              *');
  11.   WRITELN ('           *                  Special Print               *');
  12.   WRITELN ('           *       Selection Menu for Okidata Printer     *');
  13.   WRITELN ('           *                                              *');
  14.   WRITELN ('           *            Character Spacing:                *');
  15.   WRITELN ('           *                                              *');
  16.   WRITELN ('           *        1 - NORMAL (80 MAX)                   *');
  17.   WRITELN ('           *        2 - COMPRESSED (132 MAX)              *');
  18.   WRITELN ('           *        3 - WIDE (40 OR 66 MAX)               *');
  19.   WRITELN ('           *                                              *');
  20.   WRITELN ('           *            Line Sapacing:                    *');
  21.   WRITELN ('           *                                              *');
  22.   WRITELN ('           *        4 - NORMAL (6 LPI)                    *');
  23.   WRITELN ('           *        5 - COMPRESSED (8 LPI)                *');
  24.   WRITELN ('           *                                              *');
  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 (30));
  35.     '2': WRITE (PRINTER, CHR (29));
  36.     '3': WRITE (PRINTER, CHR (31));
  37.     '4': WRITE (PRINTER, CHR (27), CHR (54));
  38.     '5': WRITE (PRINTER, CHR (27), CHR (56));
  39.   END;
  40.    WRITE ('Another selection - or 0 to exit.');
  41.  UNTIL X = '0';
  42. WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN;
  43. WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN;
  44. WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN 
  45. END.
  46.