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