Define CharList
 ( ' ', '!', '"', '#', '$', '%', '&',"'", '(', ')', '*', '+', ',', '-', '.', '/',
   '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', ':', ';', '<', '=', '>', '?',
   '@', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
   'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', '[','\\', ']', '^', '_',
   '`', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
   'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', '{', '|', '}', '~');

Define WidthList
 (   4,   7,   8,  11,   9,  15,   0,   4,   6,   6,   8,  12,   6,   3,   6,   5,
     9,   9,   9,   9,   9,   9,   9,   9,   9,   9,   6,   6,   8,  12,   8,   8,
    12,   9,   9,  12,  11,   7,   7,  10,  10,   5,   5,  10,   5,  13,   9,  12,
     9,  12,   9,   6,   8,   9,   8,  13,   8,   8,   8,   6,   5,   6,   8,   8,
     8,   9,   9,   9,   9,   9,   5,   9,   8,   4,   5,   8,   4,  12,   8,   9,
     9,   9,   5,   6,   5,   8,   6,  12,   8,   8,   8,   6,   8,   6,  10);

Define RectList
 ( (   0,  0,  0, 18), (   1,  0,  5, 18), (   7,  0,  7, 18), (  15,  0,  9, 18),
   (  25,  0,  6, 18), (  32,  0, 13, 18), (  46,  0,  9, 18), (  56,  0,  4, 18),
   (  61,  0,  5, 18), (  67,  0,  5, 18), (  73,  0,  6, 18), (  80,  0,  8, 18),
   (  89,  0,  4, 18), (  94,  0,  4, 18), (  99,  0,  4, 18), ( 104,  0,  5, 18),
   ( 110,  0,  9, 18), ( 120,  0,  3, 18), ( 124,  0,  8, 18), ( 133,  0,  7, 18),
   ( 141,  0,  9, 18), ( 151,  0,  7, 18), ( 159,  0,  9, 18), ( 169,  0,  8, 18),
   ( 178,  0,  8, 18), ( 187,  0,  9, 18), ( 197,  0,  4, 18), ( 202,  0,  4, 18),
   ( 207,  0,  8, 18), ( 216,  0,  8, 18), ( 225,  0,  8, 18), ( 234,  0,  8, 18),
   ( 243,  0, 12, 18), ( 256,  0,  8, 18), ( 265,  0,  8, 18), ( 274,  0, 12, 18),
   ( 287,  0, 11, 18), ( 299,  0,  6, 18), ( 306,  0,  7, 18), ( 314,  0, 10, 18),
   ( 325,  0,  8, 18), ( 334,  0,  3, 18), ( 338,  0,  4, 18), ( 343,  0, 10, 18),
   ( 354,  0,  5, 18), ( 360,  0, 11, 18), ( 372,  0,  8, 18), ( 381,  0, 12, 18),
   ( 394,  0,  8, 18), ( 403,  0, 12, 18), ( 416,  0,  9, 18), ( 426,  0,  6, 18),
   ( 433,  0,  8, 18), ( 442,  0,  8, 18), ( 451,  0, 10, 18), ( 462,  0, 11, 18),
   ( 474,  0, 10, 18), ( 485,  0, 10, 18), ( 496,  0,  8, 18), ( 505,  0,  5, 18),
   ( 511,  0,  5, 18), ( 517,  0,  5, 18), ( 523,  0,  8, 18), ( 532,  0,  8, 18),
   ( 541,  0,  5, 18), ( 547,  0,  9, 18), ( 557,  0,  9, 18), ( 567,  0,  9, 18),
   ( 577,  0,  9, 18), ( 587,  0,  9, 18), ( 597,  0,  4, 18), ( 602,  0,  9, 18),
   ( 612,  0,  7, 18), ( 620,  0,  3, 18), ( 624,  0,  6, 18), ( 631,  0,  8, 18),
   ( 640,  0,  3, 18), ( 644,  0, 11, 18), ( 656,  0,  7, 18), ( 664,  0,  9, 18),
   ( 674,  0,  9, 18), ( 684,  0,  9, 18), ( 694,  0,  4, 18), ( 699,  0,  6, 18),
   ( 706,  0,  5, 18), ( 712,  0,  7, 18), ( 720,  0,  8, 18), ( 729,  0, 11, 18),
   ( 741,  0,  7, 18), ( 749,  0,  7, 18), ( 757,  0,  8, 18), ( 766,  0,  6, 18),
   ( 773,  0,  4, 18), ( 778,  0,  6, 18), ( 785,  0,  9, 18));

Define OffsetList
 ( (256, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 2, 0), ( 1, 0), ( 2, 0), ( 0, 0),
   ( 1, 0), ( 0, 0), ( 1, 0), ( 2, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 0, 0),
   ( 0, 0), ( 3, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 0, 0), ( 1, 0),
   ( 1, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 2, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 0, 0),
   ( 1, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 0, 0),
   ( 1, 0), ( 0, 0), ( 1, 0), ( 0, 0), ( 0, 0), ( 1, 0), (-1, 0), ( 1, 0),
   (-1, 0), (-1, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 1, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 1, 0), ( 0, 0),
   ( 1, 0), ( 1, 0), (-1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 1, 0), ( 0, 0), ( 0, 0), ( 1, 0), (-1, 0), ( 1, 0),
   ( 1, 0), ( 1, 0), ( 0, 0), ( 0, 0), ( 2, 0), ( 0, 0), ( 1, 0));

CreateLayer          Main;
LayerSetImage        Main 'Bauhaus9312';
LayerSetAscent       Main 14;
LayerSetCharWidths   Main CharList WidthList;
LayerSetCharWidths   Main (' ') (8);
LayerSetImageMap     Main CharList RectList;
LayerSetCharOffsets  Main CharList OffsetList;
LayerSetPointSize    Main 12;

SetDefaultPointSize  12;
