1* Mystery program
2* (Knuth, vol 1, p 153)
3
4printer	equ	18
5buf	orig	*+3000
61H	ent1	1
7	ent2	0
8	ldx	4F
92H	ent3	0,1
103H	stz	buf,2
11	inc2	1
12	dec3	1
13	j3p	3B
14	stx	buf,2
15	inc2	1
16	inc1	1
17	cmp1	=75=
18	jl	2B
19	enn2	2400
20	out	buf+2400,2(printer)
21	inc2	24
22	j2n	*-2
23	hlt
24
254H	con	"aaaaa"
26	end	1B
27
28* End of mystery.mix
29