from edwin include specs
begin
   integer I, S
   prompt ("Device:")
   read (I)
   initialise for (I)
   new frame
   for I=0,1,8 cycle
        set colour (I)
        move abs (50, 100 + 100 * I)
        line rel (800, 0)
   repeat
   terminate edwin
end of program