Set the width, style and colour for lines and rectangles when drawn using a printer.
call "PC_PRINTER_SET_PEN" using
                          by value Printer-Handle
                          by value Pen-Width
                          by value Pen-Style
                          by value Pen-red
                          by value Pen-blue
                          by value Pen-green
end-call
| Using call prototype (see Key) | Picture | |
|---|---|---|
| pen-width | cblt-x4-comp5 | pic x(4) comp-5. | 
| pen-red | cblt-x | pic x | 
| pen-blue | cblt-x | pic x |