7 lines
181 B
Text
7 lines
181 B
Text
procedure main()
|
|
W1 := open("X-Window","g","size=250,250","bg=black","fg=red") | stop("unable to open window")
|
|
FillRectangle(W1,50,50,150,150)
|
|
WDone(W1)
|
|
end
|
|
|
|
link graphics
|