function coord($x,$y,$dist,$deg)
dim $
select	case $deg=0	$coord=$x,$y+$dist 
	case $deg=90	$coord=$x+$dist,$y
	case $deg=180	$coord=$x,$y-$dist
	case $deg=270	$coord=$x-$dist,$y
	case $deg<90	$=sides($dist,$deg)	$coord=$x+$[1],$y+$[0]
	case $deg<180	$=sides($dist,$deg-90)	$coord=$x+$[0],$y-$[1]
	case $deg<270	$=sides($dist,$deg-180)	$coord=$x-$[1],$y-$[0]
	case 1		$=sides($dist,$deg-270)	$coord=$x-$[0],$y+$[1]
	endfunction

function sides($1,$2)
dim $,$3
$1=0.0+$1*$1
$3=90.0-$2
do $=0.01+$ until $1<($*$2)*($*$2)+($*$3)*($*$3)
$sides=$*$3,$*$2
endfunction