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