RosettaCodeData/Task/GUI-Maximum-window-dimensions/BBC-BASIC/gui-maximum-window-dimensions.basic
2023-07-01 13:44:08 -04:00

5 lines
210 B
Text

SPI_GETWORKAREA = 48
DIM rc{l%,t%,r%,b%}
SYS "SystemParametersInfo", SPI_GETWORKAREA, 0, rc{}, 0
PRINT "Maximum width = " ; rc.r% - rc.l%
PRINT "Maximum height = " ; rc.b% - rc.t%