home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBO.ZIP / PSETUP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-10-29  |  996 b   |  43 lines
  1. { SETUP FOR EPSON/GEMINI PRINTER }
  2. { WRITTEN BY DAVID BLACK }
  3.  
  4. VAR
  5.   OPTION : CHAR;
  6. PROCEDURE PSETUP;
  7. BEGIN
  8.   GOTOXY(1,3);
  9.   WRITELN('PRINTER SETUP PROGRAM');
  10.   WRITELN; WRITELN('PRESS E,D,C, OR R'); WRITELN;
  11.   WRITELN('  E  IS FOR EMPHASIZED');
  12.   WRITELN('  D  IS FOR DOUBLE STRIKE');
  13.   WRITELN('  C  IS FOR COMPRESSED WITH SPACING ADJUSTED');
  14.   WRITELN('  R  IS FOR RESETTING THE PRINTER');
  15.   WRITELN;
  16.   WRITE('SELECT OPTION (E,D,C,OR R)? ');
  17.   READ(KBD,OPTION);
  18.   WRITELN(UPCASE(OPTION));
  19.     CASE UPCASE(OPTION) OF
  20.       'E': WRITE(LST,CHAR(27),CHAR(69));
  21.       'D': WRITE(LST,CHAR(27),CHAR(71));
  22.       'C': WRITE(LST,CHAR(15),CHAR(27),CHAR(65),CHAR(9),CHAR(27),CHAR(77),CHAR(15));
  23.       'R': WRITE(LST,CHAR(27),CHAR(64));
  24.     ELSE
  25.        WRITELN('*** ERROR ***');
  26.     END;
  27. END;
  28.  
  29. BEGIN
  30. REPEAT
  31.    CLRSCR;
  32.    PSETUP;
  33.    WRITELN;
  34.    WRITE('RUN AGAIN(Y/N)? ');
  35.    READ(KBD,OPTION);
  36.    WRITE(UPCASE(OPTION));
  37. UNTIL UPCASE(OPTION) = 'N';
  38. WRITELN;
  39. END.
  40.  
  41.  
  42.  
  43.