p80=300
p1=20
9f6		coords of start of char
70s50		x coord of first char
79s6		x coord of start of char in a(6)

59f30(95	read letter number
19f8		store letter number
46f10
34f8
48f8		store letter number times 10 = entry in bit patterns

70s30		set or reset y coord of start of char
79s7		y coord of start of char in a(7)

70t0		initialise count for quartets of rows
9f4		set current column and row numbers to 0, in a(4) and a(5)
70s0		set column 0, column count in s
4f9		add letter number
10tp80(96	start of letter

54p97(99	test pixel, if =1 construct coords of pixel
109f2		preserve current bit pattern
10f6		coords of start of char
32f4		add current row coords
6f2		multiply by 4 since pixel is 4x4 rect
62p81		mask to remove overflow digits
121f1		brighten pixel
10f2		reload bit pattern
72s1(97		increment column count
76s10		after 10 columns decrement row and reset column
50p98		skip reset column and decrement row
71s1		step in row count
82s5		add row count
79s5		store new row count
70s0		reset column to zero after 10 pixels
79s4(98		store column count
6f1		shift to examine next pixel
53p99		loop if there are more pixels in row

72t2		no more pixels in row, increment t to get next bit pattern
2t0
3t0
70s0		set s=-2t
79s5		set row count for start of quartet
70s0		set column count to 0
76t10
50p96		loop over quartets of rows

80t6
72t12		increment x coord to start of next char
79t6
50p95		loop to new char

101f0

r0f1023		mask to remove extra bits in coords
0f1023(81

p1=p80		bit patterens of alphabet
0f0
0f0
0f0
0f0
0f0
0f0
0f0
0f0
0f0
0f0
0f0
0f48
60f204
102f390
67r390
127r390
67r390
67r390
0f0
0f0
s50
8  5  12  12 15  0  23  15  26  12  4
****
