include "edwin.inc"
begin
   integer i
   initialise for (7580)
   newframe
   for i=1,1,25 cycle
      set colour (i&3+1)
      move abs (10, 10*i)
      line rel (500, 10*i)
      update
   repeat
   terminate edwin
end of program