/* GE PHASERS AT WARP */
/* By Malamutt */

call zocsynctime 250

CALL ZOCSEND "scan sh @ ^M"
call zocwait "Bearing:"
call zocwait "^M"
line=zoclastline()
numb=""	
	do i=1 to 5
		char=substr(line,i,1)
		if pos(char,"-0123456789") > 0 then numb=numb||char
	end /*do*/
/* call zocwait "defending this sector?" */
call zocsend "pha" numb||"^M"