PROGRAM KTB
	BYTE LINE(132)
	BYTE MCRLIN(80)
	CALL GETMCR(MCRLIN,IDS)
	IF(IDS.LT.0)THEN
		WRITE(5,100)
		READ(5,101)IDS,(MCRLIN(I),I=1,IDS)
	END IF
	OPEN(UNIT=1,FILE=MCRLIN,STATUS='OLD',READONLY)
	OPEN(UNIT=2,FILE=MCRLIN,STATUS='NEW'
	1,CARRIAGECONTROL='LIST')
10	READ(1,200,END=50)N,(LINE(I),I=1,N)
	DO 20,I=N,1,-1
	IF(LINE(I).NE.' '.AND.LINE(I).NE.'	')GO TO 30
20	CONTINUE
30	N=I
	WRITE(2,201)(LINE(I),I=1,N)
	DO 40,I=1,132
40	LINE(I)=' '
	GO TO 10
50	CONTINUE
	CLOSE(UNIT=1)
	CLOSE(UNIT=2)
	CALL EXIT(1)
100	FORMAT(' Please enter filename: ')
101	FORMAT(Q,80A1)
200	FORMAT(Q,132A1)
201	FORMAT(132A1)
	END