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