Define CharList
 ( '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', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '~', '`',
   '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '-', '_', '=', '+', '[', '{',
   ']', '}', ';', ':',"'", '"', ',', '<', '.', '>', '/', '?', '', '', '', '',
   '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '',
   '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '',
   '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '',
   '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '');

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

Define RectList
 ( (   0,  0,  7, 23), (   8,  0,  9, 23), (  18,  0,  6, 23), (  25,  0,  6, 23),
   (  32,  0,  8, 23), (  41,  0,  8, 23), (  50,  0,  6, 23), (  57,  0,  9, 23),
   (  67,  0,  3, 23), (  71,  0,  5, 23), (  77,  0,  7, 23), (  85,  0,  6, 23),
   (  92,  0, 10, 23), ( 103,  0,  7, 23), ( 111,  0,  7, 23), ( 119,  0,  7, 23),
   ( 127,  0,  7, 23), ( 135,  0,  6, 23), ( 142,  0,  5, 23), ( 148,  0,  6, 23),
   ( 155,  0,  7, 23), ( 163,  0,  6, 23), ( 170,  0, 10, 23), ( 181,  0,  6, 23),
   ( 188,  0,  7, 23), ( 196,  0,  7, 23), ( 204,  0,  6, 23), ( 211,  0,  6, 23),
   ( 218,  0,  5, 23), ( 224,  0,  6, 23), ( 231,  0,  7, 23), ( 239,  0,  6, 23),
   ( 246,  0,  6, 23), ( 253,  0,  7, 23), ( 261,  0,  3, 23), ( 265,  0,  3, 23),
   ( 269,  0,  7, 23), ( 277,  0,  4, 23), ( 282,  0, 10, 23), ( 293,  0,  7, 23),
   ( 301,  0,  7, 23), ( 309,  0,  7, 23), ( 317,  0,  7, 23), ( 325,  0,  7, 23),
   ( 333,  0,  5, 23), ( 339,  0,  6, 23), ( 346,  0,  6, 23), ( 353,  0,  6, 23),
   ( 360,  0, 10, 23), ( 371,  0,  7, 23), ( 379,  0,  7, 23), ( 387,  0,  7, 23),
   ( 395,  0,  6, 23), ( 402,  0,  4, 23), ( 407,  0,  7, 23), ( 415,  0,  7, 23),
   ( 423,  0,  8, 23), ( 432,  0,  7, 23), ( 440,  0,  9, 23), ( 450,  0,  6, 23),
   ( 457,  0,  6, 23), ( 464,  0,  7, 23), ( 472,  0, 11, 23), ( 484,  0,  5, 23),
   ( 490,  0,  2, 23), ( 493,  0, 15, 23), ( 509,  0,  8, 23), ( 518,  0,  5, 23),
   ( 524,  0, 12, 23), ( 537,  0, 12, 23), ( 550,  0,  9, 23), ( 560,  0,  5, 23),
   ( 566,  0,  6, 23), ( 573,  0,  6, 23), ( 580,  0,  5, 23), ( 586,  0, 11, 23),
   ( 598,  0,  6, 23), ( 605,  0,  6, 23), ( 612,  0,  3, 23), ( 616,  0,  5, 23),
   ( 622,  0,  4, 23), ( 627,  0,  5, 23), ( 633,  0,  3, 23), ( 637,  0,  3, 23),
   ( 641,  0,  2, 23), ( 644,  0,  4, 23), ( 649,  0,  3, 23), ( 653,  0, 12, 23),
   ( 666,  0,  3, 23), ( 670,  0, 12, 23), ( 683,  0,  7, 23), ( 691,  0,  5, 23),
   ( 697,  0,  4, 23), ( 702,  0,  7, 23), ( 710,  0,  8, 23), ( 719,  0, 11, 23),
   ( 731,  0,  7, 23), ( 739,  0,  7, 23), ( 747,  0,  8, 23), ( 756,  0,  7, 23),
   ( 764,  0, 11, 23), ( 776,  0, 11, 23), ( 788,  0, 11, 23), ( 800,  0, 11, 23),
   ( 812,  0, 11, 23), ( 824,  0, 11, 23), ( 836,  0, 14, 23), ( 851,  0,  8, 23),
   ( 860,  0, 12, 23), ( 873,  0, 12, 23), ( 886,  0, 12, 23), ( 899,  0, 12, 23),
   ( 912,  0,  5, 23), ( 918,  0,  5, 23), ( 924,  0,  5, 23), ( 930,  0,  5, 23),
   ( 936,  0, 14, 23), ( 951,  0, 14, 23), ( 966,  0, 11, 23), ( 978,  0, 11, 23),
   ( 990,  0, 11, 23), (1002,  0, 11, 23), (1014,  0, 11, 23), (1026,  0, 11, 23),
   (1038,  0, 11, 23), (1050,  0, 11, 23), (1062,  0, 11, 23), (1074,  0, 11, 23),
   (1086,  0, 11, 23), (1098,  0, 13, 23), (1112,  0,  8, 23), (1121,  0,  8, 23),
   (1130,  0,  8, 23), (1139,  0,  8, 23), (1148,  0,  8, 23), (1157,  0,  8, 23),
   (1166,  0, 14, 23), (1181,  0,  7, 23), (1189,  0, 11, 23), (1201,  0, 11, 23),
   (1213,  0, 11, 23), (1225,  0, 11, 23), (1237,  0,  5, 23), (1243,  0,  5, 23),
   (1249,  0,  5, 23), (1255,  0,  5, 23), (1261,  0, 11, 23), (1273,  0, 11, 23),
   (1285,  0, 11, 23), (1297,  0, 11, 23), (1309,  0, 11, 23), (1321,  0, 11, 23),
   (1333,  0, 11, 23), (1345,  0, 11, 23), (1357,  0,  8, 23), (1366,  0,  8, 23),
   (1375,  0,  8, 23), (1384,  0,  8, 23), (1393,  0, 11, 23), (1405,  0, 11, 23));

Define OffsetList
 ( ( 0, 0), (-1, 0), ( 0, 0), ( 1, 0), (-1, 0), (-1, 0), ( 0, 0), (-1, 0),
   ( 0, 0), (-2, 0), ( 1, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 1, 0), ( 1, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), (-1, 0), ( 0, 0), ( 1, 0), ( 0, 0), ( 1, 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), ( 1, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 0, 0), (-1, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), (-2, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 2, 0),
   ( 1, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 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), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 0, 0), ( 1, 0), ( 0, 0), (-1, 0), (-1, 0), (-2, 0),
   (-1, 0), (-1, 0), ( 0, 0), ( 0, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0),
   (-2, 0), (-2, 0), (-2, 0), (-1, 0), (-3, 0), (-3, 0), (-3, 0), (-3, 0),
   (-1, 0), (-1, 0), (-1, 0), (-1, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0),
   (-2, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0),
   (-2, 0), (-3, 0), (-1, 0), (-1, 0), (-1, 0), (-1, 0), (-1, 0), (-1, 0),
   (-2, 0), (-1, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0), (-1, 0), (-1, 0),
   (-1, 0), (-1, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0),
   (-2, 0), (-2, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), (-2, 0), (-2, 0));

Define KerningPairs
 ("-B","-e","-g","-k","AV","AY","BB","CE","FA","LE","LY","ME","PA","RY","SE","St",
  "TA","ss","tv","v,","v.","vt");

Define KerningValues

 (   1,   1,   1,   1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,   1,

    -1,  -1,   1,  -1,  -1,   1);

CreateLayer               Main;
LayerSetImage             Main 'DecoTech16';
LayerSetAscent            Main 18;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (4);
LayerSetKerningPairs      Main KerningPairs KerningValues;
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 0;
LayerSetLineSpacingOffset Main 0;
LayerSetPointSize         Main 16;

SetDefaultPointSize  16;
