LOGICAL*1	ZBUF(80),ZZ,ZY,ZY2
	integer*2	iparam(6),iosb(2)
	DATA	ZY/'Y'/,ZY2/'y'/
	call	getadr(iparam,zbuf)
	iparam(2)	= 80
	TYPE	50
50	FORMAT	('$EBCDIC? [Y/N] > ')
	ACCEPT	51,ZZ
51	FORMAT	(A1)
	call	assign(2,'MT:',3)
	call	wtqio("1400,2,1,,iosb,iparam)	!attach to magtape
	call	wtqio("2400,2,1,,iosb,iparam)	!rewind magtape
3	TYPE	100
100	FORMAT	('$NAME > ')
	READ	(5,200,END=9999) ILEN,ZBUF
200	FORMAT	(Q,80A1)
	ZBUF(ILEN+1) =  0
	OPEN	(UNIT=1,NAME=ZBUF,TYPE='OLD')
5	READ	(1,300,END=999) ZBUF
300	format	(80a1)
	IF ((ZZ.EQ.ZY).OR.(ZZ.EQ.ZY2)) call ascebc(zbuf,zbuf,80)
	call	wtqio("400,2,1,,iosb,iparam)
	goto	5
999	CALL	CLOSE(1)
	call	wtqio("3000,2,1,,iosb,iparam)
	goto	3
9999	call	wtqio("3000,2,1,,iosb,iparam)
	call	wtqio("3000,2,1,,iosb,iparam)
	call	wtqio("3000,2,1,,iosb,iparam)
	CALL	EXIT
	END