* MYSTERY PROGRAM
* TAOCP 1.3.2, ex.8		
PRINTER	EQU  18
BUF	ORIG *+3000
1H	ENT1 1
	ENT2 0
	LDX  4F
2H	ENT3 0,1
3H	STZ  BUF,2
	INC2 1
	DEC3 1
	J3P  3B
	STX  BUF,2
	INC2 1
	INC1 1
	CMP1 =75=
	JL   2B
	ENN2 2400
	OUT  BUF+2400,2(PRINTER)
	INC2 24
	J2N  *-2
	HLT
4H	ALF  AAAAA
	END  1B
