rem                            Pos.CDL


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

rem        Display the coordinate of the location

clear
defopt=2

:start
	getpos "Indicate Location",defopt
	on (@key + 3) goto exit,start,start,
	defopt=@key
	x=@xworld
	y=@yworld
	z=@zworld
	vx=@xview
	vy=@yview
	vz=@zview
	pause "World Coordinate( %.3f , %.3f , %.3f ) ",x,y,z
	pause "View Coordinate ( %.3f , %.3f , %.3f ) ",vx,vy,vz
goto start
:exit