I hope this helps.

* prt_func.prg
* General purpose HP utility (SHADING, RECTANGLES, ETC.)
* All parameters must be in CHARACTER format acceptable to HP PCL compatibles
***********************************************************
PARAMETER p_func,p1,p2,p3,p4,p5,p6,p7,p8
PRIVATE w_func
w_func=UPPER(p_func)

*-- Added to avoid "Printer timing out error"
*ON ERROR *
*EJECT

DO CASE

CASE w_func=='RESET' && Reset printer
??? CHR(27)+'E'
CASE w_func=='FORMFEED' && Formfeed
??? CHR(12)
CASE w_func=='PORTRAIT' && Portrait Orientation
??? CHR(27)+'&l0O'
CASE w_func=='RPORTRAIT' && Reset + Portrait Orientation
??? CHR(27)+'E'+CHR(27)+'&l0O'
CASE w_func=='LANDSCAPE' && Landscape Orientation
??? CHR(27)+'&l1O'
CASE w_func=='RLANDSCAPE' && Reset + Landscape Orientation
??? CHR(27)+'E'
??? CHR(27)+'&l1O'
CASE w_func=='LETTER' && Letter Size
??? CHR(27)+'&l2A'
CASE w_func=='LEGAL' && Legal Size
??? CHR(27)+'&l3A'
CASE w_func=='A4' && A4 Size
??? CHR(27)+'&l26A'
CASE w_func=='PITCH10' && PITCH10
??? CHR(27)+'(s10H'
CASE w_func=='RPITCH10' && Reset & PITCH10
??? CHR(27)+'E'+CHR(27)+'(s10H'
CASE w_func=='PITCH12' && PITCH12
??? CHR(27)+'(s12H'
CASE w_func=='RPITCH12' && Reset & PITCH12
??? CHR(27)+'E'+CHR(27)+'(s12H'
CASE w_func=='COMPRESSED' && COMPRESSED
??? CHR(27)+'(s16.67H'
CASE w_func=='RCOMPRESSED' && Reset & COMPRESSED
??? CHR(27)+'E'+CHR(27)+'(s16.67H'
CASE w_func=='BOLD' && Bold
??? CHR(27)+'(s3B'
CASE w_func=='NORMAL' && Normal
??? CHR(27)+'(s0B'
CASE w_func=='6LPI' && 6 Lines Per Inch
??? CHR(27)+'&l6D'
CASE w_func=='8LPI' && 8 Lines Per Inch
??? CHR(27)+'&l8D'
CASE w_func=='CURSOR' && Position cursor (Rel if signed)
??? CHR(27)+'*p'+p1+'x'+p2+'Y'
CASE w_func=='REC_FILL' && Gray shaded rectangle
??? CHR(27)+'*c'+p1+'A' && Rectangle width
??? CHR(27)+'*c'+p2+'B' && Rectangle height
??? CHR(27)+'*c'+p3+'G' && Area fill id
??? CHR(27)+'*c2P' && Print the shaded filled area
CASE w_func=='REC_HATCH' && Hatched filled rectangle
??? CHR(27)+'*c'+p1+'A' && Rectangle width
??? CHR(27)+'*c'+p2+'B' && Rectangle height
??? CHR(27)+'*c'+p3+'G' && Area fill id
??? CHR(27)+'*c3P' && Print the hatched filled area
OTHERWISE

ENDCASE

RETURN
***********************************************************