12000 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ! P R I N T E R E S C !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ! ! Brief description: ! ! Expected: ! ! Locals: ! ! Results: ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% routine printer_esc dblt$ = chr$(27%)+"[1m"+chr$(27%)+"#3" !double high double wide top dblb$ = chr$(27%)+"[1m"+chr$(27%)+"#4" !double high double wide bot !hplaser print size font sequences hp_norm$ = chr$(27%)+"(10U"+chr$(27%)+"(s0p10.00h12.0v0s0b3T" hp_bold$ = chr$(27%)+"(10U"+chr$(27%)+"(s0p10.00h12.0v0s3b3T" hp_ital$ = chr$(27%)+"(10U"+chr$(27%)+"(s0p10.00h12.0v1s0b3T" hp_smal$ = chr$(27%)+"(10U"+chr$(27%)+"(s0p16.67h8.5v0s0b0T" !hplaser underline sequence hp_undr$ = chr$(27%) + "&dD" !digital print size font sequences dec_norm$ = chr$(27%) + "[0w" dec_bold$ = chr$(27%) + "[1m" dec_ital$ = chr$(27%) + "[3m" dec_smal$ = chr$(27%) + "[4w" dec_big$ = chr$(27%) + "[5w" !digital underline sequence dec_uon$ = chr$(27%) + "[4m" end routine ! Escape sequences for different printers