rem                            PT_PLINE.CDL


rem        Copy Right by International Technology Transfer Corp.
rem        revision 1.0 7/30/99   

rem        Create Points on polyline



clear
n = 0

:start
getent "Select Polyline", enttype

on (@key + 3) goto exit, start, start,
if (enttype!=7)
	goto start
pnum = @intdat[12]

:point
point @fltdat[3 * n + 1], @fltdat[3 * n + 2], @fltdat[3 * n + 3]
n = n + 1
if (n<pnum)
	goto point
n = 0
redraw
goto start
:exit