home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / EPSONMX.ZIP / EPSONMX.PAS
Encoding:
Pascal/Delphi Source File  |  1980-01-01  |  2.0 KB  |  68 lines
  1. (* This program is hereby placed in the Public Domain.
  2.                   L/G Computer Consultants
  3.                          box 190
  4.                    Willingboro, NJ 08046                  *)
  5.  
  6.  
  7. (*       program to set Epson MX printer to various printing modes           *)
  8.  
  9.  
  10. {$I Writeall.lib }
  11. {$I Readall.lib }
  12.  
  13. var
  14.   x,y : integer;
  15.   ch  : char;
  16.  
  17. begin
  18.    ClrScr;
  19.    gotoxy(1,1);
  20.    textcolor(White);
  21.    Center('EpsonMX printer modes');
  22.    TextColor(Cyan);
  23.    gotoxy(1,4);
  24.    Write('Please make your selection:');
  25.    writeprompt(' [A] Compressed Printing',Cyan,10,8,true,true);
  26.    writeprompt(' [B] Italics Print',Cyan,10,10,true,true);
  27.    writeprompt(' [C] Double Strike',Cyan,10,12,true,true);
  28.    writeprompt(' [D] Double Width',Cyan,40,8,true,true);
  29.    writeprompt(' [E] Emphasized',Cyan,40,10,true,true);
  30.    writeprompt(' [Q] Quit',Cyan,40,12,true,true);
  31.    writeprompt(' [R] Reset Printer  (required to clear existing modes)',Cyan,10,16,true,true);
  32.    gotoxy(5,22);
  33.    TextColor(Yellow);
  34.    repeat
  35.      ch:= UpCase(readch);
  36.      case ch of
  37.         #65 :  begin
  38.                  write(lst,chr(15));
  39.                  write('Compressed ');
  40.                end;
  41.         #66 :  begin
  42.                  write(lst,chr(27)+chr(52));
  43.                  write('Italics ');
  44.                end;
  45.         #67 :  begin
  46.                  write(lst,chr(27)+chr(71));
  47.                  write('Double Strike ');
  48.                end;
  49.         #68 :  begin
  50.                  write(lst,chr(27)+chr(87)+chr(1));
  51.                  write('Double Width ');
  52.                end;
  53.         #69 :  begin
  54.                  write(lst,chr(27)+chr(69));
  55.                  write('Emphasized ');
  56.                end;
  57.         #82 :  begin (*reset*)
  58.                  write(lst,chr(27)+chr(64));
  59.                  gotoxy(5,22);
  60.                  ClrEOL;
  61.                end;
  62.         #81 :
  63.      end;
  64.    until ch = 'Q';
  65.    ClrScr;
  66. end.
  67.  
  68.