home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug120.arc / PASCAL.LBR / SETPD100.PZS / SETPD100.PAS
Pascal/Delphi Source File  |  1979-12-31  |  3KB  |  104 lines
  1. program set_dp100_printer;
  2.  
  3. var
  4.    option : integer;
  5.    count : integer;
  6.  
  7. procedure compress;
  8.           begin
  9.                write(LST,#15);
  10.           end;
  11.  
  12. procedure expand;
  13.           begin
  14.                write(LST,#27,'W',#1);
  15.           end;
  16.  
  17. procedure elite;
  18.           begin
  19.                write(LST,#27,'M');
  20.           end;
  21.  
  22. procedure nlqmode;
  23.           begin
  24.                write(LST,#27,'x',#1);
  25.           end;
  26.  
  27. procedure italic;
  28.           begin
  29.                write(LST,#27,'R',#19);
  30.           end;
  31.  
  32. procedure super;
  33.           begin
  34.                write(LST,#27,'S',#0);
  35.           end;
  36.  
  37. procedure seven_on_seventytwo;
  38.           begin
  39.                write(LST,#27,'1');
  40.           end;
  41.  
  42. procedure one_on_eight;
  43.           begin
  44.                write(LST,#27,'0');
  45.           end;
  46.  
  47. procedure one_on_six;
  48.           begin
  49.                write(LST,#27,'2');
  50.           end;
  51.  
  52. procedure reset;
  53.           begin
  54.                write(LST,#27,'@');
  55.           end;
  56.  
  57. procedure scroll_screen;
  58.           begin
  59.                for count:=1 to 24 do
  60.                writeln;
  61.           end;
  62.  
  63. begin
  64.      scroll_screen;
  65.      writeln('                  Microbee DP100 Printer Configuration Program.');
  66.      writeln;
  67.      writeln;
  68.      writeln('      Select an option 0..9');
  69.      writeln;
  70.      writeln('         0.  Compressed print.');
  71.      writeln('         1.  Expanded print.');
  72.      writeln('         2.  Elite print.');
  73.      writeln('         3.  Near Letter Quality print');
  74.      writeln('         4.  Italic print.');
  75.      writeln('         5.  Superscript print.');
  76.      writeln('         6.  Set L/F to 7/72". ');
  77.      writeln('         7.  Set L/F to 1/8". ');
  78.      writeln('         8.  Set L/F to 1/6" (Default)');
  79.      writeln('         9. Reset all settings (to default).');
  80.      writeln;
  81.      writeln('              ANY OTHER NUMBER TO QUIT. ');
  82.      writeln;
  83.      writeln;
  84.      writeln;
  85.      option:= 0;
  86.      while (option >= 0) AND (option <= 9) do
  87.            begin
  88.                 gotoxy(10,23);
  89.                 readln(option);
  90.                 case option of
  91.                      0 : compress;
  92.                      1 : expand;
  93.                      2 : elite;
  94.                      3 : nlqmode;
  95.                      4 : italic;
  96.                      5 : super;
  97.                      6 : seven_on_seventytwo;
  98.                      7 : one_on_eight;
  99.                      8 : one_on_six;
  100.                      9 : reset;
  101.                 end;
  102.            end;
  103. end.
  104.