#APPTYPE CONSOLE
#INCLUDE <Include\Windows.inc>

TYPE RECT
	%Left
	%Top
	%Right
	%Bottom
END TYPE

DIM rc AS RECT
SystemParametersInfo(SPI_GETWORKAREA, 0, @rc, 0)
PRINT "width = ", rc.Right - rc.Left, ", height = ", rc.Bottom - rc.Top

PAUSE