routine DRAW.RANDOM.POINT given MARKTYPE yielding X, Y, SEGID

define MARKTYPE,
       SEGID as integer variables

define X,
       Y as double variables


call GENERATE.POINT yielding X, Y

let POINT(1, 1) = X
let POINT(2, 1) = Y

call MXRESET.R(0)
call OPEN.SEG.R
let SEGID = SEGID.V
call GPRIORITY.R(SEGID, 1)
call MARKCOLOR.R(MARKCOLOR)
call MARKSIZE.R(MARKSIZE)
call MARKTYPE.R(MARKTYPE)
call POLYMARK.R(1, POINT(*, *))
call CLOSE.SEG.R

end
