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 ****