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