home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PRINTING / ISIGNS50.ZIP / DISP.PAS < prev    next >
Pascal/Delphi Source File  |  1989-09-29  |  7KB  |  267 lines
  1. PROCEDURE disp_i;
  2. BEGIN
  3.     GOTORC(4,41); WRITE('I'); CLREOL;
  4.     lowvideo; WRITE('-      Input Device -> '); highvideo;
  5.     IF input_device = keyboard THEN
  6.         WRITE('Keyboard')
  7.     ELSE
  8.         WRITE('File')
  9.     {END if}
  10. END; {procedure disp_i}
  11.  
  12.  
  13. PROCEDURE disp_r;
  14. BEGIN
  15.     GOTORC(5,41); CLREOL;
  16.     IF input_device = text_file THEN BEGIN
  17.         WRITE('R'); lowvideo; WRITE('-  FileName to Read -> '); highvideo;
  18.         WRITE(in_fn)
  19.     END
  20. END; {procedure disp_r}
  21.  
  22.  
  23. PROCEDURE disp_n;
  24. BEGIN
  25.     GOTORC(6,41); CLREOL;
  26.     IF input_device = text_file THEN BEGIN
  27.         WRITE('N'); lowvideo; WRITE('-  Number of Copies -> '); highvideo;
  28.         WRITE(num_copies)
  29.     END
  30. END; {procedure disp_n}
  31.  
  32.  
  33. PROCEDURE disp_o;
  34. BEGIN
  35.     GOTORC(7,41); WRITE('O'); CLREOL;
  36.     lowvideo; WRITE('-     Output device -> '); highvideo;
  37.     CASE output_device OF
  38.         screen : WRITE('Screen');
  39.      recd_file : WRITE('File');
  40.         printr : WRITE('Printer')
  41.     END {case}
  42. END; {procedure disp_o}
  43.  
  44.  
  45. PROCEDURE disp_s;
  46. BEGIN
  47.     GOTORC(8,41); CLREOL;
  48.     IF given_width = 0 THEN BEGIN
  49.         WRITE('S'); lowvideo; WRITE('-       Device Size -> '); highvideo;
  50.         IF device_size = normal THEN
  51.             WRITE('Normal')
  52.         ELSE
  53.             WRITE('Wide  ')
  54.     END
  55. END; {procedure disp_s}
  56.  
  57.  
  58. PROCEDURE disp_y;
  59. BEGIN
  60.     GOTORC(9,41); CLREOL;
  61.     IF output_device = printr THEN BEGIN
  62.         WRITE('Y'); lowvideo; WRITE('-      Printer Type -> '); highvideo;
  63.         CASE prt_type OF
  64.             epson  : WRITE('Epson');
  65.             ids    : WRITE('IDS');
  66.             hp     : WRITE('HP');
  67.             dumb   : WRITE('Dumb')
  68.         END {case}
  69.     END
  70. END; {procedure disp_y}
  71.  
  72.  
  73. PROCEDURE disp_p;
  74. BEGIN
  75.     GOTORC(10,41); CLREOL;
  76.     IF (output_device = printr) AND (prt_type <> dumb) AND
  77.        (block_type <> Bit) THEN BEGIN
  78.         WRITE('P'); lowvideo; WRITE('-  Pitch chars/inch -> '); highvideo;
  79.         CASE prt_cpi OF
  80.             pica     : WRITE('Pica [10]');
  81.             elite    : WRITE('Elite [12]');
  82.             squeezed : WRITE('Squeezed [17]');
  83.             tiny     : WRITE('Tiny [20]')
  84.         END {case}
  85.     END
  86. END; {procedure disp_p}
  87.  
  88.  
  89. PROCEDURE disp_l;
  90. BEGIN
  91.     GOTORC(11,41); CLREOL;
  92.     IF (output_device = printr) AND (prt_type <> dumb) AND
  93.        (block_type <> Bit)  THEN BEGIN
  94.         WRITE('L'); lowvideo; WRITE('-        Lines/Inch -> '); highvideo;
  95.         CASE prt_lpi OF
  96.             six    : WRITE('Six');
  97.             eight  : WRITE('Eight');
  98.             ten    : WRITE('Ten');
  99.             twelve : WRITE('Twelve')
  100.         END {case}
  101.     END
  102. END; {procedure disp_l}
  103.  
  104.  
  105. PROCEDURE disp_c;
  106. BEGIN
  107.     GOTORC(12,41); CLREOL;
  108.     IF (output_device = printr) AND (prt_type <> dumb) THEN BEGIN
  109.         WRITE('C'); lowvideo; WRITE('-    Color of Print -> '); highvideo;
  110.         CASE prt_color OF
  111.             black  : WRITE('Black');
  112.             red    : WRITE('Red');
  113.             green  : WRITE('Green');
  114.             blue   : WRITE('Blue')
  115.         END {case}
  116.     END 
  117. END; {procedure disp_c}
  118.  
  119.  
  120. PROCEDURE disp_d;
  121. BEGIN
  122.     GOTORC(13,41); CLREOL;
  123.     IF (block_type = bit) AND (prt_type <> dumb) THEN BEGIN
  124.             WRITE('D'); lowvideo; WRITE('-  Graphics Density -> '); highvideo;
  125.             CASE graphic_dens OF
  126.                 single  : WRITE('Single');
  127.                 double  : WRITE('Double');
  128.                 triple  : WRITE('Triple');
  129.                 quad    : WRITE('Quad')
  130.             END {case}
  131.     END
  132. END; {procedure disp_d}
  133.  
  134.  
  135. PROCEDURE disp_e;
  136. BEGIN
  137.     GOTORC(14,41); CLREOL;
  138.     IF output_device = recd_file THEN BEGIN
  139.         WRITE('E'); lowvideo; WRITE('-  rEcord Output in -> '); highvideo;
  140.         WRITE(out_fn)
  141.     END
  142. END; {procedure disp_e}
  143.  
  144.  
  145. PROCEDURE disp_t;
  146. BEGIN
  147.     GOTORC(4,1); WRITE('T'); CLREOL;
  148.     lowvideo; WRITE('-         Sign type -> '); highvideo;
  149.     IF sign_type = sign THEN
  150.         WRITE('Sign')
  151.     ELSE
  152.         WRITE('Banner');
  153.     disp_i
  154. END; {procedure disp_t}
  155.  
  156.  
  157. PROCEDURE disp_b;
  158. BEGIN
  159.     GOTORC(5,1); WRITE('B'); CLREOL;
  160.     lowvideo; WRITE('- Block/Letter type -> '); highvideo;
  161.     CASE block_type OF
  162.         letter     : WRITE('Letters     ');
  163.         block      : WRITE('Bk Char #',ORD(block_char):3);
  164.         overstrike : WRITE('OverStrikeBk');
  165.         bit        : WRITE('Graphic Bits')
  166.     END; {case}
  167.     disp_r
  168. END; {procedure disp_b}
  169.  
  170.  
  171. PROCEDURE disp_f;
  172. BEGIN
  173.     GOTORC(6,1); WRITE('F'); CLREOL;
  174.     lowvideo; WRITE('-         Font File -> '); highvideo;
  175.     WRITE(Font_Fn);
  176.     disp_n
  177. END; {procedure disp_f}
  178.  
  179.  
  180. PROCEDURE disp_w;
  181. BEGIN
  182.     GOTORC(7,1); WRITE('W'); CLREOL;
  183.     lowvideo; WRITE('-  Width Multiplier -> '); highvideo;
  184.     WRITE(mult_w);
  185.     disp_o
  186. END; {procedure disp_w}
  187.  
  188.  
  189. PROCEDURE disp_h;
  190. BEGIN
  191.     GOTORC(8,1); WRITE('H'); CLREOL;
  192.     lowvideo; WRITE('- Height Multiplier -> '); highvideo;
  193.     WRITE(mult_h);
  194.     disp_s
  195. END; {procedure disp_h}
  196.  
  197.  
  198. PROCEDURE disp_v;
  199. BEGIN
  200.     GOTORC(9,1); CLREOL;
  201.     IF block_type <> bit THEN BEGIN
  202.         WRITE('V'); lowvideo; WRITE('-     Inverse Video -> '); highvideo;
  203.         IF inv_video THEN
  204.             WRITE('On, Inverse')
  205.         ELSE
  206.             WRITE('Off, Normal')
  207.     END;
  208.     disp_y
  209. END; {procedure disp_v}
  210.  
  211.  
  212. PROCEDURE disp_a;
  213. BEGIN
  214.     GOTORC(10,1); CLREOL;
  215.     IF given_offset = 0 THEN BEGIN
  216.         WRITE('A'); lowvideo; WRITE('-    Auto-Centering -> '); highvideo;
  217.         IF centering THEN
  218.             WRITE('Yes')
  219.         ELSE
  220.             WRITE('No ')
  221.     END;
  222.     disp_p
  223. END; {procedure disp_a}
  224.  
  225.  
  226. PROCEDURE disp_m;
  227. BEGIN
  228.     GOTORC(11,1); WRITE('M'); CLREOL;
  229.     lowvideo; WRITE('- Given left margin -> '); highvideo;
  230.     IF given_offset = 0 THEN
  231.         WRITE('none defined')
  232.     ELSE
  233.         WRITE(given_offset);
  234.     avail_space;
  235.     disp_l
  236. END; {procedure disp_m}
  237.  
  238.  
  239. PROCEDURE disp_g;
  240. BEGIN
  241.     GOTORC(12,1); WRITE('G'); CLREOL;
  242.     lowvideo; WRITE('-       Given Width -> '); highvideo;
  243.     IF given_width = 0 THEN
  244.         WRITE('not given')
  245.     ELSE
  246.         WRITE(given_width);
  247.     disp_c
  248. END; {procedure disp_g}
  249.  
  250.  
  251. PROCEDURE disp_q;
  252. BEGIN
  253.     GOTORC(13,1); WRITE('Q'); CLREOL;
  254.     lowvideo; WRITE('- Quit and Return back to OS'); highvideo;
  255.     disp_d
  256. END; {procedure disp_q}
  257.  
  258.  
  259. PROCEDURE disp_x;
  260. BEGIN
  261.     GOTORC(14,1); WRITE('X,<cr>'); CLREOL;
  262.     lowvideo; WRITE('- eXit Change Parm'); highvideo;
  263.     disp_e
  264. END; {procedure disp_x}
  265.  
  266.  
  267.