keypunch16.txt

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
 (  16,  18,  16,  16,  16,  15,  15,  16,   9,  16,  16,  15,  20,  16,  16,  15,
    18,  18,  16,  14,  16,  18,  22,  18,  18,  16,  17,  12,  11,  15,  15,  13,
    15,  13,  18,  15,  11,   9,  11,  18,  18,  14,  17,  11,  19,  10,  10,  10,
    11,  22,  11,  13,  10,   9,  10,  10,   9,  10,   9,   9,   9,  15,  10,  15,
    16,  16);

Define RectList
 ( (   0,  0, 15, 24), (  16,  0, 17, 24), (  34,  0, 15, 24), (  50,  0, 15, 24),
   (  66,  0, 15, 24), (  82,  0, 15, 24), (  98,  0, 14, 24), ( 113,  0, 15, 24),
   ( 129,  0,  8, 24), ( 138,  0, 15, 24), ( 154,  0, 15, 24), ( 170,  0, 15, 24),
   ( 186,  0, 19, 24), ( 206,  0, 15, 24), ( 222,  0, 15, 24), ( 238,  0, 14, 24),
   ( 253,  0, 17, 24), ( 271,  0, 17, 24), ( 289,  0, 15, 24), ( 305,  0, 14, 24),
   ( 320,  0, 15, 24), ( 336,  0, 17, 24), ( 354,  0, 21, 24), ( 376,  0, 17, 24),
   ( 394,  0, 17, 24), ( 412,  0, 15, 24), ( 428,  0, 16, 24), ( 445,  0, 11, 24),
   ( 457,  0, 10, 24), ( 468,  0, 14, 24), ( 483,  0, 14, 24), ( 498,  0, 12, 24),
   ( 511,  0, 14, 24), ( 526,  0, 12, 24), ( 539,  0, 17, 24), ( 557,  0, 14, 24),
   ( 572,  0,  9, 24), ( 582,  0,  8, 24), ( 591,  0,  8, 24), ( 600,  0, 17, 24),
   ( 618,  0, 17, 24), ( 636,  0, 13, 24), ( 650,  0, 15, 24), ( 666,  0, 10, 24),
   ( 677,  0, 18, 24), ( 696,  0,  9, 24), ( 706,  0,  9, 24), ( 716,  0, 10, 24),
   ( 727,  0, 10, 24), ( 738,  0, 24, 24), ( 763,  0, 10, 24), ( 774,  0, 12, 24),
   ( 787,  0,  8, 24), ( 796,  0,  9, 24), ( 806,  0, 10, 24), ( 817,  0,  9, 24),
   ( 827,  0,  9, 24), ( 837,  0,  8, 24), ( 846,  0,  9, 24), ( 856,  0,  9, 24),
   ( 866,  0,  9, 24), ( 876,  0, 13, 24), ( 890,  0,  8, 24), ( 899,  0, 14, 24),
   ( 914,  0, 15, 24), ( 930,  0, 15, 24));

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

CreateLayer               Main;
LayerSetImage             Main 'Keypunch16';
LayerSetAscent            Main 19;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (6);
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 2;
LayerSetLineSpacingOffset Main 0;
LayerSetPointSize         Main 16;

SetDefaultPointSize  16;