home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol291 / oki.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-12-22  |  1.8 KB  |  45 lines
  1. PROGRAM CPI;
  2.  
  3. VAR
  4.   X : CHAR;
  5. BEGIN
  6.   CLRSCR;
  7.   WRITELN;
  8.   WRITELN ('           ************************************************');
  9.   WRITELN ('           *                                              *');
  10.   WRITELN ('           *                  Special Print               *');
  11.   WRITELN ('           *       Selection Menu for Okidata Printer     *');
  12.   WRITELN ('           *                                              *');
  13.   WRITELN ('           *            Character Spacing:                *');
  14.   WRITELN ('           *                                              *');
  15.   WRITELN ('           *        1 - NORMAL (80 MAX)                   *');
  16.   WRITELN ('           *        2 - COMPRESSED (132 MAX)              *');
  17.   WRITELN ('           *        3 - WIDE (40 OR 66 MAX)               *');
  18.   WRITELN ('           *                                              *');
  19.   WRITELN ('           *            Line Sapacing:                    *');
  20.   WRITELN ('           *                                              *');
  21.   WRITELN ('           *        4 - NORMAL (6 LPI)                    *');
  22.   WRITELN ('           *        5 - COMPRESSED (8 LPI)                *');
  23.   WRITELN ('           *                                              *');
  24.   WRITELN ('           *        0 - Exit to system                    *');
  25.   WRITELN ('           *                                              *');
  26.   WRITELN ('           ************************************************');
  27.   WRITELN;
  28.   WRITELN;
  29.   WRITE     ('  ENTER YOUR SELECTION: ');
  30. REPEAT
  31.   READ (X);
  32.   CASE X OF
  33.     '1': WRITE (LST, CHR (30));
  34.     '2': WRITE (LST, CHR (29));
  35.     '3': WRITE (LST, CHR (31));
  36.     '4': WRITE (LST, CHR (27), CHR (54));
  37.     '5': WRITE (LST, CHR (27), CHR (56));
  38.   END;
  39.    DELLINE;
  40.    GOTOXY(1,23);
  41.    WRITE ('Another selection - or 0 to exit.');
  42.  UNTIL X = '0';
  43.  CLRSCR
  44. END.
  45.