PROCEDURE disp_fs;
BEGIN
    GOTORC(4,1); lowvideo;
    WRITE('Font width: '); normvideo; WRITE(font_width:3); lowvideo;
    WRITE('    Height: '); normvideo; WRITE(font_height:3)
END; {procedure disp_fs}


PROCEDURE disp_f;
BEGIN
    GOTORC(5,1); WRITE('F');
    lowvideo; WRITE('-         Font File -> '); normvideo;
    WRITE(Font_Fn,'       ')
END; {procedure disp_f}


PROCEDURE disp_t;
BEGIN
    GOTORC(6,1); WRITE('T');
    lowvideo; WRITE('-         Sign type -> '); normvideo;
    IF sign_type = sign THEN
        WRITE('Sign  ')
    ELSE
        WRITE('Banner');
    avail_space
END; {procedure disp_t}


PROCEDURE disp_b;
BEGIN
    GOTORC(7,1); WRITE('B');
    lowvideo; WRITE('- Block/Letter type -> '); normvideo;
    CASE block_type OF
        letter     : WRITE('Letters     ');
        block      : WRITE('Bk Char #',ORD(block_char):3);
        overstrike : WRITE('OverStrikeBk');
        bit        : WRITE('Graphic Bits')
    END {case}
END; {procedure disp_b}


PROCEDURE disp_w;
BEGIN
    GOTORC(8,1); WRITE('W');
    lowvideo; WRITE('-  Width Multiplier -> '); normvideo;
    WRITE(mult_w,'    ');
    IF sign_type = sign THEN avail_space
END; {procedure disp_w}


PROCEDURE disp_h;
BEGIN
    GOTORC(9,1); WRITE('H');
    lowvideo; WRITE('- Height Multiplier -> '); normvideo;
    WRITE(mult_h,'   ');
    IF sign_type = banner THEN avail_space
END; {procedure disp_h}


PROCEDURE disp_c;
BEGIN
    GOTORC(12,42);
    IF (output_device = printer) AND NOT dumb_prt THEN BEGIN
        WRITE('C'); lowvideo; WRITE('-    Color of Print -> '); normvideo;
        CASE prt_color OF
            black  : WRITE('Black');
            red    : WRITE('Red  ');
            green  : WRITE('Green');
            blue   : WRITE('Blue ')
        END {case}
    END ELSE CLREOL
END; {procedure disp_c}


PROCEDURE disp_a;
BEGIN
    GOTORC(12,1);
    IF given_offset = 0 THEN BEGIN
        WRITE('A'); lowvideo; WRITE('-    Auto-Centering -> '); normvideo;
        IF centering THEN
            WRITE('Yes')
        ELSE
            WRITE('No ')
    END ELSE BEGIN
        CLREOL;
        disp_c
    END
END; {procedure disp_a}


PROCEDURE disp_m;
BEGIN
    GOTORC(10,1); WRITE('M');
    lowvideo; WRITE('- Given left margin -> '); normvideo;
    IF given_offset = 0 THEN
        WRITE('none defined')
    ELSE
        WRITE(given_offset,'           ');
    disp_a
END; {procedure disp_m}


PROCEDURE disp_s;
BEGIN
    GOTORC(8,42);
    IF given_width = 0 THEN BEGIN
        WRITE('S'); lowvideo; WRITE('-       Device Size -> '); normvideo;
        IF device_size = normal THEN
            WRITE('Normal')
        ELSE
            WRITE('Wide  ')
    END ELSE CLREOL;
    avail_space
END; {procedure disp_s}


PROCEDURE disp_g;
BEGIN
    GOTORC(11,1); WRITE('G');
    lowvideo; WRITE('-       Given Width -> '); normvideo;
    IF given_width = 0 THEN
        WRITE('not given')
    ELSE
        WRITE(given_width,'           ');
    disp_s;
    avail_space
END; {procedure disp_g}


PROCEDURE disp_v;
BEGIN
    GOTORC(13,1); WRITE('V');
    lowvideo; WRITE('-     Inverse Video -> '); normvideo;
    IF inv_video THEN
        WRITE('On, Inverse')
    ELSE
        WRITE('Off, Normal')
END; {procedure disp_v}


PROCEDURE disp_x;
BEGIN
    GOTORC(14,1); WRITE('X,<cr>');
    lowvideo; WRITE('- eXit Change Parm'); normvideo
END; {procedure disp_x}


PROCEDURE disp_y;
BEGIN
    GOTORC(4,42); WRITE('Y');
    lowvideo; WRITE('-  Inter-Char Space -> '); normvideo;
    WRITE(inter_spc,'   ');
    avail_space
END; {procedure disp_y}


PROCEDURE disp_r;
BEGIN
    GOTORC(6,42);
    IF input_device = text_file THEN BEGIN
        WRITE('R'); lowvideo; WRITE('-  FileName to Read -> '); normvideo;
        WRITE(in_fn,'   ')
    END ELSE CLREOL
END; {procedure disp_r}


PROCEDURE disp_n;
BEGIN
    GOTORC(7,42);
    IF input_device = text_file THEN BEGIN
        WRITE('N'); lowvideo; WRITE('-  Number of Copies -> '); normvideo;
        WRITE(num_copies,'   ')
    END ELSE CLREOL
END; {procedure disp_n}


PROCEDURE disp_e;
BEGIN
    GOTORC(10,42);
    IF output_device = recd_file THEN BEGIN
        WRITE('E'); lowvideo; WRITE('-  rEcord Output in -> '); normvideo;
        WRITE(out_fn); CLREOL;
    END ELSE CLREOL;
END; {procedure disp_e}


PROCEDURE disp_i;
BEGIN
    GOTORC(5,42); WRITE('I');
    lowvideo; WRITE('-      Input Device -> '); normvideo;
    IF input_device = keyboard THEN
        WRITE('Keyboard')
    ELSE
        WRITE('File    ');
    {END if}
    disp_r;
    disp_n
END; {procedure disp_i}


PROCEDURE disp_p;
BEGIN
    GOTORC(10,42);
    IF (output_device = printer) AND NOT dumb_prt THEN BEGIN
        WRITE('P'); lowvideo; WRITE('-  Pitch chars/inch -> '); normvideo;
        CASE prt_cpi OF
            pica     : WRITE('Pica [10]      ');
            elite    : WRITE('Elite [12]     ');
            squeezed : WRITE('Squeezed [16.5]');
            tiny     : WRITE('Tiny [20]      ')
        END {case}
    END ELSE CLREOL;
    avail_space
END; {procedure disp_p}


PROCEDURE disp_l;
BEGIN
    GOTORC(11,42);
    IF (output_device = printer) AND NOT dumb_prt THEN BEGIN
        WRITE('L'); lowvideo; WRITE('-        Lines/Inch -> '); normvideo;
        CASE prt_lpi OF
            six    : WRITE('Six   ');
            eight  : WRITE('Eight ');
            ten    : WRITE('Ten   ');
            twelve : WRITE('Twelve')
        END {case}
    END ELSE CLREOL;
    avail_space
END; {procedure disp_l}


PROCEDURE disp_d;
BEGIN
    GOTORC(13,42); WRITE('D');
    lowvideo; WRITE('- Dumb Printer Flag -> '); normvideo;
    IF dumb_prt THEN
        WRITE('On (Dumb Prt)  ')
    ELSE
        WRITE('Off (Smart Prt)');
    disp_p;
    disp_l;
    disp_c;
END; {procedure disp_d}


PROCEDURE disp_o;
BEGIN
    GOTORC(10,42); CLREOL;
    GOTORC(11,42); CLREOL;
    GOTORC(12,42); CLREOL;
    GOTORC(13,42); CLREOL;
    GOTORC(9,42); WRITE('O');
    lowvideo; WRITE('-     Output device -> '); normvideo;
    CASE output_device OF
        screen : WRITE('Screen ');
     recd_file : BEGIN
                    WRITE('File   ');
                    disp_e;
                 END;
       printer : BEGIN
                    WRITE('Printer');
                    disp_d;
                 END;
    END; {case}
    avail_space
END; {procedure disp}


PROCEDURE disp_q;
BEGIN
    GOTORC(14,42); WRITE('Q');
    lowvideo; WRITE('- Quit and Return back to OS'); normvideo;
END; {procedure disp_q}