      
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');      

Define WidthList
 (   9,   9,  11,   9,   7,  10,  10,  10,   5,   8,  12,   8,  19,  12,   9,  11,  
    10,  10,   8,  12,   9,  11,  14,  16,  16,  12);
      
Define RectList
 ( (   0,  0,  8, 21), (  16,  0,  8, 21), (  32,  0, 10, 21), (  49,  0,  8, 21), 
   (  64,  0,  6, 21), (  77,  0,  9, 21), (  93,  0,  9, 21), ( 108,  0,  9, 21), 
   ( 125,  0,  4, 21), ( 137,  0,  7, 21), ( 152,  0, 11, 21), ( 170,  0,  7, 21), 
   ( 184,  0, 18, 21), ( 209,  0, 11, 21), ( 228,  0,  8, 21), ( 243,  0, 10, 21), 
   ( 260,  0,  9, 21), ( 277,  0,  9, 21), ( 294,  0,  7, 21), ( 307,  0, 11, 21), 
   ( 325,  0,  8, 21), ( 340,  0, 10, 21), ( 357,  0, 13, 21), ( 376,  0, 15, 21), 
   ( 396,  0, 15, 21), ( 416,  0, 11, 21));
    
CreateLayer          Main;
LayerSetImage        Main '../images/wizardfont';
LayerSetAscent       Main 19;
LayerSetCharWidths   Main CharList WidthList;
LayerSetCharWidths   Main (' ') (5);
LayerSetImageMap     Main CharList RectList;