%include "edwin:specs.inc"
%record %format POINTFM (%integer X, Y)
%include "edwin:shapes.inc"
%begin
   %integer s, x, y, ox, oy, rad, col, sa, fa, mode
   %on 9 %start
       Terminate Edwin
       %stop
   %finish
   initialise for (default device)
   newframe
   %cycle
      Update
      Prompt ("Radius: ");   Read (rad)
      Prompt ("S Ang:  ");   Read (SA)
      Prompt ("F Ang:  ");   Read (FA)
      Prompt ("Colour: ");   Read (col)
      Prompt ("A S O : ");   Read symbol (mode) %and mode=mode&95 %until MODE='A' %c
                                                %or mode='S' %or mode='O'
      %if mode='S' %then Set Shade Mode (solid) %else Set Shade mode (outline)
      cursor (S, x, y)
      move abs (x, y)
      set colour (col)
      %if mode='A' %start
          arc (X, Y, rad, sa, fa)
      %else
          sector (X, Y, rad, sa, fa)
      %finish
   %repeat
%endofprogram
