#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