some printers do not accept chr (15)
to compress fonts

So, I would like to send at least 3 CHR()'s to printer
I need help to build a routine as bellow:

@00,00 say CHR(15)

verify if font is compressed
if compressed
OK
else
send another CHR(XX) to printer
verify if compressed
if compress
OK
else
send another CHR(XX) to printer

endif