! Program to show polyon drawing from Imp

record format POINTFM (integer X, Y)

include "edwin_dir:specs.inc"
include "edwin_dir:shapes.inc"

begin
   const integer MAX = 4
   record (POINTFM) array P(1:MAX)

   Initialise for (default device)
   Newframe
   p(1)_x = 250;   p(1)_y = 250
   p(2)_x = 750;   p(2)_y = 250
   p(3)_x = 750;   p(3)_y = 750
   p(4)_x = 250;   p(4)_y = 750
   Polygon (4, p)
   Terminate edwin
end of program