character*8 function goto_string ( line, column )
C
C	Move cursor to specified screen position
C	NOTE: This function is currently only implemented to work on a VT100
C		compatable terminal.
C
C*******************************************************************************
C
C       Copyright (C) 1993, California Institute of Technology.  U.S.
C       Government Sponsorhip under NASA Contract NAS7-918 is
C       acknowledged.
C
C*******************************************************************************
C
C
	integer line, column
        character*8 command, terminal*12
        common /tt/ terminal

        command = ' '

        if (terminal .eq. 'VT100' ) then    
	  write (command,200) 27,line,column
 200      format(a1,'[',i2.2,';',i2.2,'H')
	end if

  	goto_string = command
	return
        end

C	program tester
C	character*8 goto_string
C	write (6,*) goto_string(10,45),'Testing 1,2,3.'
C	end