program TEST

	integer HG$GET_INPUT
	external HG$GET_INPUT
	integer status
	integer*2 buflen
	character*80 buffer

10      continue
	buflen=90
	status =  HG$GET_INPUT (buffer, 'Input:', buflen)
	if (.not.status) call exit(status)
	
	PRINT * , ' STATUS=',STATUS,' LINE=',BUFFER
	GOTO 10
	END