(* ************************************************************ *
 *								*	
 *	      	       Mystery Program				*
 *								*
 *	  Knuth's Exercise 8 in Fundamental Algorithms	 	*
 *								*
 * ************************************************************ *)


		MIXAL

18 		EQU	printer

| 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

			        (* End of File *)