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