home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TURBO5.ZIP / STAR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-12-26  |  2.9 KB  |  68 lines
  1. PROGRAM STAR;
  2.  
  3. VAR
  4.   X: CHAR;
  5.   Y: INTEGER;
  6.  
  7. LABEL MENU;
  8.  
  9. BEGIN
  10.   MENU:
  11.   ClrScr;
  12.   WRITELN (' ');
  13.   WRITELN ('                                  ******************************************************************');
  14.   WRITELN ('     *             Selection Menu for Gemini 10X Printer              *');
  15.   WRITELN ('     *             --------- ---- --- ------ --- -------              *');
  16.   WRITELN ('     *                                                                *');
  17.   WRITELN ('     *   1 - COMPRESSED PRINT - ON   |   A - ENLARGED MODE - ON       *');
  18.   WRITELN ('     *   2 - COMPRESSED PRINT - OFF  |   B - ENLARGED MODE - OFF      *');
  19.   WRITELN ('     *   3 - EMPHASIZED PRINT - ON   |   C - USA CHARACTER SET        *');
  20.   WRITELN ('     *   4 - EMPHASIZED PRINT - OFF  |   D - U.K. CHARACTER SET       *');
  21.   WRITELN ('     *   5 - DOUBLE STRIKE - ON      |   E - GERMAN CHARACTER SET     *');
  22.   WRITELN ('     *   6 - DOUBLE STRIKE - OFF     |   F - FRENCH CHARACTER SET     *');
  23.   WRITELN ('     *   7 - LINE SPACE - 1/8"       |   G - ITALIAN CHARACTER SET    *');
  24.   WRITELN ('     *   8 - LINE SPACE - NORM. 1/6" |   H - SPANISH CHARACTER SET    *');
  25.   WRITELN ('     *   9 - ITALIC TYPE - ON        |   I - ELITE PITCH - 12 CPI     *');
  26.   WRITELN ('     *   0 - ITALIC TYPE - OFF       |   J - PICA PITCH - 10 CPI      *');
  27.   WRITELN ('     *   V - VARY LINE SPACE - N/72" |   N - CLEAR ALL TO ''NORMAL''    *');
  28.   WRITELN ('     *                    X - EXIT TO SYSTEM                          *');
  29.   WRITELN ('     ******************************************************************');
  30.   WRITELN;
  31.   WRITE     (' Enter Your Selection: ');
  32.   READ (X);
  33.   CASE X OF
  34.     '1': WRITE (Lst, CHR(15));
  35.     '2': WRITE (Lst, CHR(18));
  36.     '3': WRITE (Lst, CHR(27), CHR(69));
  37.     '4': WRITE (Lst, CHR(27), CHR(70));
  38.     '5': WRITE (Lst, CHR(27), CHR(71));
  39.     '6': WRITE (Lst, CHR(27), CHR(72));
  40.     '7': WRITE (Lst, CHR(27), CHR(48));
  41.     '8': WRITE (Lst, CHR(27), CHR(50));
  42.     '9': WRITE (Lst, CHR(27), CHR(52));
  43.     '0': WRITE (Lst, CHR(27), CHR(53));
  44.     'A': WRITE (Lst, CHR(27), CHR(87), CHR(1));
  45.     'B': WRITE (Lst, CHR(27), CHR(87), CHR(0));
  46.     'C': WRITE (Lst, CHR(27), CHR(55), CHR(0));
  47.     'D': WRITE (Lst, CHR(27), CHR(55), CHR(1));
  48.     'E': WRITE (Lst, CHR(27), CHR(55), CHR(2));
  49.     'F': WRITE (Lst, CHR(27), CHR(55), CHR(4));
  50.     'G': WRITE (Lst, CHR(27), CHR(55), CHR(6));
  51.     'H': WRITE (Lst, CHR(27), CHR(55), CHR(7));
  52.     'I': WRITE (Lst, CHR(27), CHR(66), CHR(2));
  53.     'J': WRITE (Lst, CHR(27), CHR(66), CHR(1));
  54.     'N': WRITE (Lst, CHR(27), CHR(64));
  55.   END;
  56. IF X = 'V' THEN
  57. BEGIN;
  58.     WRITELN;
  59. WRITE      (' Enter value of ''N'' for line space formula N/72" [12 = NORM.] ');
  60. READ (Y);
  61.     WRITE (Lst, CHR(27), CHR(65), CHR(Y));
  62. END;
  63.     WRITELN;
  64. IF X <> 'X' THEN
  65.   GOTO MENU;
  66. ClrScr;
  67. END.
  68.