SUBROUTINE HOME
C TO PUT CURSOR AT (0,767)
C AND SWITCH TO ALPHA NUMERIC MODE
C FORTRAN II
C SR : FDIS.FT / ALPHA.FT
	CALL FDIS(0,0,767)
	CALL ALPHA
	RETURN 
	END