rem                            READDT.CDL


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


rem        Read Ascii Data

rem        1. Enter File Name
rem        2. Input Ascii Coordinate Data
rem	   3. Create Point entity
 



clear

:filechk

$file = "data.txt"
sprint $file, "%s%s", @cdlpath, $file
getstr "Enter Data File Name To Import", $file, $file
on (@key + 1) goto exit,

set devin, $file
if (@error==0)
	goto entmake
pause "Can't Open Data File (Press Return)"
goto filechk

:entmake
prompt "Creating Point From Data File... "

:read
input "%f %f %f\n", x, y, z
if (@nread==0)
	 goto exit
point x, y, z
goto read

:exit
close devin