' GDI Shapes — LINE, BOX, CIRCLE 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 MoveToEx LIB "GDI32.DLL" (BYVAL hDC AS LONG, BYVAL x AS LONG, BYVAL y AS LONG, BYVAL lpPoint AS LONG) AS LONG
DECLARE FUNCTION LineTo LIB "GDI32.DLL" (BYVAL hDC AS LONG, BYVAL x AS LONG, BYVAL y AS LONG) AS LONG
DECLARE FUNCTION Rectangle LIB "GDI32.DLL" (BYVAL hDC AS LONG, BYVAL left AS LONG, BYVAL top AS LONG, BYVAL right AS LONG, BYVAL bottom AS LONG) AS LONG
DECLARE FUNCTION Ellipse LIB "GDI32.DLL" (BYVAL hDC AS LONG, BYVAL left AS LONG, BYVAL top AS LONG, BYVAL right AS LONG, BYVAL bottom AS LONG) AS LONG

FUNCTION PBMAIN() AS LONG
    PRINT "GDI Shapes via DECLARE:"
    PRINT "- GDI LINE via MoveToEx + LineTo"
    PRINT "- GDI BOX via Rectangle"
    PRINT "- GDI CIRCLE via Ellipse"
    PRINT "Compile this as GUI app to see actual drawing"
    FUNCTION = 0
END FUNCTION
