' GDI Text — TextOut with fonts via Win32 DECLARE
#COMPILE EXE
#DIM ALL

DECLARE FUNCTION GetDC LIB "USER32.DLL" (BYVAL hWnd AS LONG) AS LONG
DECLARE FUNCTION ReleaseDC LIB "USER32.DLL" (BYVAL hWnd AS LONG, BYVAL hDC AS LONG) AS LONG
DECLARE FUNCTION TextOut LIB "GDI32.DLL" ALIAS "TextOutA" (BYVAL hDC AS LONG, BYVAL x AS LONG, BYVAL y AS LONG, BYVAL lpString AS ASCIIZ, BYVAL nCount AS LONG) AS LONG

FUNCTION PBMAIN() AS LONG
    PRINT "GDI Text via DECLARE:"
    PRINT "- TextOut draws text at specified coordinates"
    PRINT "- Use CreateFont + SelectObject for custom fonts"
    PRINT "See Win32 SDK documentation for font APIs"
    FUNCTION = 0
END FUNCTION
