c font0 - data defining nodes for symbols in character set integer nkhar,nnode,khar(128),node(1024) integer nod001(128) equivalence ( nod001, node( 1) ) integer nod002(128) equivalence ( nod002, node(129) ) integer nod003(128) equivalence ( nod003, node(257) ) integer nod004(128) equivalence ( nod004, node(385) ) integer nod005(128) equivalence ( nod005, node(513) ) integer nod006(128) equivalence ( nod006, node(641) ) integer nod007(128) equivalence ( nod007, node(769) ) integer nod008(128) equivalence ( nod008, node(897) ) data nkhar,nnode/128, 904/ data khar/ + 1, 3, 5, 7, 9, 11, 13, 15, + 17, 19, 21, 23, 25, 27, 29, 31, + 33, 35, 37, 39, 41, 43, 45, 47, + 49, 51, 53, 55, 57, 59, 61, 63, + 65, 67, 75, 91, 103, 126, 140, 160, + 163, 168, 173, 182, 188, 196, 199, 204, + 207, 227, 234, 247, 258, 263, 270, 281, + 289, 297, 308, 318, 335, 339, 345, 349, + 365, 386, 393, 407, 418, 430, 438, 445, + 458, 467, 476, 482, 491, 495, 501, 506, + 520, 528, 545, 556, 570, 576, 583, 587, + 593, 599, 606, 611, 616, 619, 624, 628, + 631, 634, 642, 650, 655, 663, 677, 686, + 697, 706, 714, 725, 734, 737, 752, 761, + 771, 779, 787, 795, 815, 821, 830, 834, + 840, 846, 855, 860, 876, 879, 895, 903/ data nod001/ + -255, 32639, -255, 32639, -255, 32639, -255, 32639, + -255, 32639, -255, 32639, -255, 32639, -255, 32639, + -255, 4479, -255, 32639, -255, 32515, -255, 32639, + -255, 32639, -255, 32639, -255, 32639, -255, 32639, + -255, 32639, -255, 32639, -255, 32639, -255, 32639, + -255, 32639, -255, 32639, -255, 32639, -255, 32639, + -255, 32639, -255, 32639, -255, 32639, -255, 32639, + -255, 32639, -255, 32639, -255, 32639, -255, 32639, + -255, 32639, -255,-28225,-28271, -255,-28283, -250, + 360,-28289, -255,-29776, -250, 28,-28996, -250, + 360,-30532, -255,-26704, -250, 28,-25924, -250, + 360,-27460, -255,-28993,-31361, -255,-25153,-27521, + -255, 32661,-24427, -255,-32087,-23639, -255,-23635, + -250, 60,-31823, -250, 128,-31836, -250, 28, +-28256, -250, -28,-24420, -250, -128,-24433, -250, + -60, 32659, -255,-28225,-28289, -255,-30275, -250/ data nod002/ + 360,-30295, -250, 40,-23363, 32639, -255,-25985, + -250, 360,-25965, -255,-23660, -250, 88,-25202, + -250, -180, 32654, -250, -88,-28253, -250, 168, +-28229, -250, 92,-30801, -250, 20,-23425, -255, +-29783,-26689, -255,-26689, -250, 72,-26753, -255, +-29761, -250, -72,-29825, -255,-28239,-28275, -255, +-24152,-32362, -255,-32600,-24170, -255, 32671,-23649, + -255,-28239,-28275, -255,-28298, -250, 24,-27518, + -250, 360,-29054, -255, 32671,-23649, -255,-29054, + -250, 360,-27518, -255, 32639,-23617, -255,-30332, + -250, -40, 32671, -250, -40,-30278, -250, -110, +-25670, -250, -40,-23137, -250, -40,-25724, -250, + -110,-30332, -255,-29825,-26753, -255,-28289,-28225, +-29767, -255, 32685, -250, -180,-23635, -250, -60, +-25695,-28261, -250, 60, 32639,-23681, -255,-31817, + -250, -248,-28767,-30303, -255,-28767, -250, -260/ data nod003/ +-32373, -255,-25217,-25153, 32659,-23405, -255,-24641, +-31809, 32671, -250, -288, 32647, -255,-24649, -250, + 128,-31819, -250, 24, 32657, -250, 360,-23663, + -255, 32703,-23617,-23625,-26719, -250, 28,-28289, + -255,-28253, -250, 360,-28289, -250, 360,-28225, + -255,-31865, -250, 128,-24695, -250, 28,-23635, + -250, 360, 32685, -255,-28247, -250, 360,-28253, + -255,-28283, -250, 360,-28289, -255,-28247, -250, + 360,-28253, -255,-28283, -255,-27518, -255,-28298, + -250, 28,-27518, -250, 360,-29054, -255,-23621, + 32671,-23677, -255, 32661,-23659, -255, 32681,-23639, + -255, 32699,-23649, 32643, -255,-30789, -250, -144, +-23639, -250, -60,-25697, -250, 68,-28271, -255, +-28283, -250, 360,-28289, -255,-26753, -250, -90, + 32663, 32679, -250, -180,-20569,-20585, -250, -180, +-24681,-24665, -250, 180,-28761,-28777, -250, 180/ data nod004/ +-24681, -255, 32639,-28225,-23681, -255,-31341,-25197, + -255, 32639, 32703,-28225, -250, -180,-28255, 32673, + -255,-28255, -250, -180,-28289, 32639, -255,-23629, + -250, 140,-31049, -250, 60,-31097, -250, 140, +-23669, -255, 32703,-30529, -250, -90,-23644,-23654, + -250, -90,-30593, 32639, 32703, -255,-23617, 32703, + 32639,-23681, -255, 32674,-26206, -255, 32639, 32703, +-23617, -255, 32674,-26206, -255,-23627, -250, 128, +-31307, -250, 60,-31351, -250, 128,-23671,-23653, +-27237, -255, 32639, 32703, -255, 32671,-23649, -255, +-23681,-23617, -255,-30273,-26689, -255,-28225,-28289, + -255,-30337,-26753, -255,-23617,-23663, -250, -180, + 32657, -255, 32703, 32639, -255,-23617, 32660, -255, +-29019,-23681, -255, 32703, 32639,-23681, -255, 32639, + 32703,-28273,-23617,-23681, -255, 32639, 32703,-23681, +-23617, -255,-32077, -250, -156,-24397, -250, -32/ data nod005/ +-24437, -250, -152,-32117, -250, -32,-32077, -255, + 32639, 32703,-27713, -250, -180,-27745, 32671, -255, +-32077, -250, -156,-24397, -250, -28,-24437, -250, + -156,-32117, -250, -32,-32077, -255,-23681,-28271, + -255, 32639, 32703,-27713, -250, -180,-27745, 32671, + -255,-27745,-23681, -255,-24395, -250, 148, 32688, + -250, 84,-29021, -250, -116,-23666, -250, -156, + 32654, -255, 32703,-23617, -255,-28225,-28289, -255, + 32703, 32657, -250, 180,-23663,-23617, -255, 32703, +-28289,-23617, -255, 32703,-30593,-28241,-25985,-23617, + -255, 32639,-23617, -255, 32703,-23681, -255,-28289, +-28253, -255, 32703,-28253,-23617, -255, 32703,-23617, + 32639,-23681, -255,-28225, 32703, 32639,-28289, -255, + 32703,-23681, -255,-28225,-23617,-23681,-28289, -255, + 32685,-28225,-23635, -255, 32623,-18833, -255,-29761, +-26711, -255,-23646, -250, 276,-23674, -255,-23639/ data nod006/ +-23681, -255, 32674, -250, -276, 32646, -255, 32703, + 32639, -255,-23646, -250, 276,-23674, -255,-23646, + -250, 276,-23674, -255,-23617,-23681, -255, 32660, +-23660,-23657, -250, 180, 32663, 32657, -250, 90, +-28289, -250, 40,-23675, -255,-25157, -250, 148, +-30287,-30337, -255, 32681,-26711, -255,-23646, -250, + 276,-23674, -255,-23639,-23684, -250, -156,-31629, + -255, 32639, 32703, -255, 32663, -250, -180,-23657, +-23681, -255,-28289,-28247, -255,-28739, -250, 360, +-27715, -255,-24133, -250, 360,-24129, -255,-24151, +-24193, -250, -180, 32639, -255, 32639, 32703, -255, + 32659,-23639, -255,-29798,-23681, -255,-28289,-28225, + -255, 32639, 32681, -255, 32672, -250, -180,-28256, +-28289, -255,-28256, -250, -180,-23648,-23681, -255, + 32639, 32681, -255, 32663, -250, -180,-23657,-23681, + -255, 32663, -250, -180,-23657,-23663, -250, -180/ data nod007/ + 32657, 32663, -255, 32674, -250, -276, 32646, -255, + 32681, 32618, -255,-23646, -250, 276,-23674, -255, +-23639,-23702, -255, 32681, 32639, -255, 32669, -250, + -128,-23649, -255,-24159, -250, 88,-31835, -250, + 112,-31848, -250, 28,-28268, -250, -28,-24688, + -250, -112,-24701, -250, -80, 32647, -255,-28225, +-28289, -255,-31319,-25175, -255, 32681, 32657, -250, + 180,-23663, -255,-23639,-23681, -255, 32681,-28289, +-23639, -255, 32681,-30337,-27735,-25217,-22615, -255, + 32639,-23639, -255, 32681,-23681, -255, 32681,-28289, + -255,-23639,-29839, -250, -64, 32618, -255, 32681, +-23639, 32639,-23681, -255,-23617, -250, 88,-26701, +-26711, -250, -60,-29281, -250, -60,-26731,-26741, + -250, 88,-23681, -255,-28217,-28297, -255, 32703, + -250, -88,-29773,-29783, -250, 60,-26977, -250, + 60,-29803,-29813, -250, -88, 32639, -255, 32694/ data nod008/ + -250, -120,-28234, -250, 120,-23626, -255, 32639, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0/