12 lines
198 B
Text
12 lines
198 B
Text
|
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
|