link graphics
procedure main() # Window size
W := WOpen("canvas=hidden")
dh := WAttrib("displayheight")
dw := WAttrib("displaywidth")
WClose(W)
write("The display size is w=",dw,", h=",dh)
end