open "Test" for graphics as #w
#w "font Lucida_Console 7 11"
#w "\\Hello World! (antialiased)"
calldll #gdi32, "CreateFontA", 11 as long, 7 as long, _
0 as long, 0 as long, 400 as long, 0 as long, 0 as long, _
0 as long, 0 as long, 0 as long, 0 as long, _
_NONANTIALIASED_QUALITY as long, 0 as long, _
"Lucida Console" as ptr, hf as ulong
hw = hwnd(#w)
calldll #user32, "GetDC", hw as ulong, hdc as ulong
calldll #gdi32, "SelectObject", hdc as ulong, hf as ulong, _
oldhf as ulong
calldll #gdi32, "DeleteObject", oldhf as ulong, ret as long
#w "\Hello World! (non-antialiased)"
#w "getbmp bitmap 0 0 210 24"
bmpsave "bitmap", "C:\temp\lbbaa.bmp"
wait