%begin
%integer i
%include "edwin:specs.inc"

   %record %format pointfm (%integer x,y)

   %record(pointfm)%array p(1:10)
%include "edwin:shapes.inc"

Initialise for(default device)
newframe
p(1)_x = 250; p(1)_y = 250
p(2)_x = 750; p(2)_y = 250
p(3)_x = 950; p(3)_y = 850
p(4)_x = 250; p(4)_y = 750
set shade mode(1)
polygon(4, p)
terminate edwin
%endofprogram
