!printerDC = @prthdc%
LPRINT "This is printed in black"
CALLDLL #gdi32, "SetTextColor", printerDC as long, _
hexdec("0000FF") as long, ret as long
LPRINT "This is printed in red"
CALLDLL #gdi32, "SetTextColor", printerDC as long, _
hexdec("FF0000") as long, ret as long
LPRINT "This is printed in blue"
DUMP