SUBROUTINE TRIM (LINE)
	LOGICAL*1 LINE(80)
C
	N=81
	DO 100 I=1,80
	N=N-1
	IF (LINE(N).EQ.' ') GOTO 100
	LINE (N+1)=0
	RETURN
100	CONTINUE
	LINE (1)=0
	RETURN
	END