;Program to echo characters exactly as typed (super image output).
a=1

ch==777777  ;Bit typeout mode mask.
chttyi==1
chttyo==2

start:	.open chttyi,['tty]
	 .lose
	.open chttyo,[%tjsio+.uao,,'tty]
	 .lose
	; Turn off normal echoing.  Make everything activate.
	.call [setz ? 'ttyget ? %climm,,chttyi
		%clout,,a ? %clout,,a ? 400000+%clout,,a]
	 .lose %lsfil
	.call [setz ? 'ttyset ? %climm,,chttyi
		[020202,,020202] ? [020202,,020202] ? 400000,,a]
	 .lose %lsfil
loop:	.iot chttyi,a
	.iot chttyo,a
	jrst loop

end start