%include "edwin:specs.inc"
%begin
   %integer s, x, y, ox, oy
   initialise for (default device)
   newframe
   move abs (300, 300)
   line rel (400, 400)
   ox = -1; x = 0; y = 0
   %cycle
     %if ox>=0 %start
{}       drive device (7, 9, 3) { Set cursor plane
{}       drive device (7, 0, 0) { Set colour 0 
{}       marker abs (0, ox, oy) { Rub out previous position
     %finish
     sample cursor (s, ox, oy)
{}   drive device (7, 0, 8)
{}   marker abs (0, ox, oy) { Mark cursor position
{}   drive device (7, 9, 0)
{}   drive device (7, 0, 1)
     move abs (x, y)
     %if s#0 %then line abs (ox, oy)
     x = ox;  y = oy
   %repeat %until s=7
   terminate edwin
%endofprogram