include "$edwin:.inc"
begin
   integer I, S
   prompt ("Device:")
   read (I)
   prompt ("Slot:")
   read (S)
   initialise for (I)
   new frame
   set colour (5-S)
   for I=0,1,6 cycle
        set line style (I)
        move abs (50, 100 + 100 * I)
        line rel (800, 0)
   repeat
   terminate edwin
end of program