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', '0', '1', '2', '3', '4', '5',
   '6', '7', '8', '9', '!', '@', '#', '$', '&', '*', '-', '=', '+', ':',"'", '"',
   ',', '.', '?');

Define WidthList
 (  14,  11,  17,  14,  13,  12,  17,  14,   4,   9,  17,  10,  18,  15,  21,  11,
    21,  16,  11,  13,  13,  15,  23,  18,  17,  15,  21,  10,  16,  14,  17,  16,
    16,  15,  14,  15,   5,  13,  13,  11,  18,  13,  11,  13,  13,   6,   6,  13,
     6,   5,  14);

Define RectList
 ( (   0,  0, 13, 26), (  14,  0, 10, 26), (  25,  0, 17, 26), (  43,  0, 13, 26),
   (  57,  0, 12, 26), (  70,  0, 11, 26), (  82,  0, 17, 26), ( 100,  0, 13, 26),
   ( 114,  0,  3, 26), ( 118,  0,  8, 26), ( 127,  0, 15, 26), ( 143,  0,  9, 26),
   ( 153,  0, 17, 26), ( 171,  0, 14, 26), ( 186,  0, 21, 26), ( 208,  0,  9, 26),
   ( 218,  0, 21, 26), ( 240,  0, 14, 26), ( 255,  0, 11, 26), ( 267,  0, 12, 26),
   ( 280,  0, 12, 26), ( 293,  0, 12, 26), ( 306,  0, 22, 26), ( 329,  0, 17, 26),
   ( 347,  0, 16, 26), ( 364,  0, 13, 26), ( 378,  0, 21, 26), ( 400,  0,  8, 26),
   ( 409,  0, 14, 26), ( 424,  0, 14, 26), ( 439,  0, 16, 26), ( 456,  0, 15, 26),
   ( 472,  0, 15, 26), ( 488,  0, 13, 26), ( 502,  0, 13, 26), ( 516,  0, 15, 26),
   ( 532,  0,  4, 26), ( 537,  0, 10, 26), ( 548,  0, 10, 26), ( 559,  0, 10, 26),
   ( 570,  0, 16, 26), ( 587,  0, 11, 26), ( 599,  0, 10, 26), ( 610,  0, 10, 26),
   ( 621,  0, 10, 26), ( 632,  0,  5, 26), ( 638,  0,  6, 26), ( 645,  0, 12, 26),
   ( 658,  0,  6, 26), ( 665,  0,  5, 26), ( 671,  0, 11, 26));

Define OffsetList
 ( ( 0, 0), ( 0, 0), ( 0, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 0, 0), ( 0, 0), ( 1, 0),
   ( 0, 0), ( 1, 0), ( 0, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 0, 0),
   ( 1, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 2, 0));

Define KerningPairs
 ("-A","-J","-T","-V","-W","-X","-Y","AA","BC","BG","BO","BV","BW","C-","CA","CS",
  "D-","DA","DV","DY","F,","F.","F:","FA","GA","H,","J-","JA","K-","KA","KC","KO",
  "KW","KY","L-","LT","LU","LV","LW","LY","O,","O.","OA","OV","OX","OY","P,","P:",
  "PA","R,","R-","R.","R:","RT","RV","RW","RY","T,","T-","T.","T:","TA","UA","V,",
  "V-","V.","V:","VA","VO","W,","W:","WA","X-","XA","XC","XO","Y,","Y-","Y.","Y:",
  "YA","YC","Z-");

Define KerningValues

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

    -1,  -2,  -1,  -2,  -2,  -2,  -1,  -1,  -1,  -1,  -1,  -1,  -2,  -1,  -2,  -2,

    -3,  -3,  -1,  -1,  -1,  -3,  -3,  -3,  -1,  -1,  -1,  -1,  -1,  -1,  -2,  -1,

    -3,  -1,  -2,  -1,  -1,  -4,  -3,  -3,  -4,  -2,  -2,  -2,  -3,  -4,  -1,  -1,

    -1,  -1,  -1,  -1,  -1,  -2,  -2,  -3,  -1,  -1,  -2,  -2,  -3,  -1,  -3,  -3,

    -4,  -2,  -2);

CreateLayer               Main;
LayerSetImage             Main 'QuincyCaps19';
LayerSetAscent            Main 20;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (14);
LayerSetKerningPairs      Main KerningPairs KerningValues;
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 0;
LayerSetLineSpacingOffset Main 0;
LayerSetPointSize         Main 19;

SetDefaultPointSize  19;
