home *** CD-ROM | disk | FTP | other *** search
/ Game Hack 1 / GHM01.ZIP / GENFONTS.PAS < prev    next >
Pascal/Delphi Source File  |  1992-08-29  |  13KB  |  569 lines
  1. Program GenFonts;
  2.  
  3. Uses DOS,CRT;
  4.  
  5. Type
  6.   AlphaType=Array [0..6,33..126] of Byte;
  7.   String80=String[80];
  8.  
  9. Var
  10.   AlphaFile:File of Byte;
  11.   AlphaChar:^AlphaType;
  12.   X,Y:Integer;
  13.  
  14. Procedure GenerateFonts;
  15. Var
  16.   I,J:Integer;
  17. Begin
  18.   {Zero all bytes}
  19.   For I:=0 to 7 do For J:=30 to 96 do AlphaChar^[I,J]:=$00;
  20.   {!}
  21.   AlphaChar^[0,33]:=$18;
  22.   AlphaChar^[1,33]:=$3C;
  23.   AlphaChar^[2,33]:=$3C;
  24.   AlphaChar^[3,33]:=$18;
  25.   AlphaChar^[4,33]:=$18;
  26.   AlphaChar^[5,33]:=$00;
  27.   AlphaChar^[6,33]:=$18;
  28.   {"}
  29.   AlphaChar^[0,34]:=$36;
  30.   AlphaChar^[1,34]:=$36;
  31.   AlphaChar^[2,34]:=$12;
  32.   AlphaChar^[3,34]:=$00;
  33.   AlphaChar^[4,34]:=$00;
  34.   AlphaChar^[5,34]:=$00;
  35.   AlphaChar^[6,34]:=$00;
  36.   {#}
  37.   AlphaChar^[0,35]:=$6C;
  38.   AlphaChar^[1,35]:=$6C;
  39.   AlphaChar^[2,35]:=$FE;
  40.   AlphaChar^[3,35]:=$6C;
  41.   AlphaChar^[4,35]:=$FE;
  42.   AlphaChar^[5,35]:=$6C;
  43.   AlphaChar^[6,35]:=$6C;
  44.   {Dollar sign}
  45.   AlphaChar^[0,36]:=$10;
  46.   AlphaChar^[1,36]:=$FE;
  47.   AlphaChar^[2,36]:=$D0;
  48.   AlphaChar^[3,36]:=$FE;
  49.   AlphaChar^[4,36]:=$16;
  50.   AlphaChar^[5,36]:=$FE;
  51.   AlphaChar^[6,36]:=$10;
  52.   {%}
  53.   AlphaChar^[0,37]:=$62;
  54.   AlphaChar^[1,37]:=$64;
  55.   AlphaChar^[2,37]:=$08;
  56.   AlphaChar^[3,37]:=$10;
  57.   AlphaChar^[4,37]:=$20;
  58.   AlphaChar^[5,37]:=$4C;
  59.   AlphaChar^[6,37]:=$8C;
  60.   {&}
  61.   AlphaChar^[0,38]:=$38;
  62.   AlphaChar^[1,38]:=$6C;
  63.   AlphaChar^[2,38]:=$6C;
  64.   AlphaChar^[3,38]:=$38;
  65.   AlphaChar^[4,38]:=$6A;
  66.   AlphaChar^[5,38]:=$E4;
  67.   AlphaChar^[6,38]:=$7A;
  68.   {'}
  69.   AlphaChar^[0,39]:=$18;
  70.   AlphaChar^[1,39]:=$18;
  71.   AlphaChar^[2,39]:=$08;
  72.   AlphaChar^[3,39]:=$00;
  73.   AlphaChar^[4,39]:=$00;
  74.   AlphaChar^[5,39]:=$00;
  75.   AlphaChar^[6,39]:=$00;
  76.   {(}
  77.   AlphaChar^[0,40]:=$18;
  78.   AlphaChar^[1,40]:=$30;
  79.   AlphaChar^[2,40]:=$60;
  80.   AlphaChar^[3,40]:=$60;
  81.   AlphaChar^[4,40]:=$60;
  82.   AlphaChar^[5,40]:=$30;
  83.   AlphaChar^[6,40]:=$18;
  84.   {)}
  85.   AlphaChar^[0,41]:=$30;
  86.   AlphaChar^[1,41]:=$18;
  87.   AlphaChar^[2,41]:=$0C;
  88.   AlphaChar^[3,41]:=$0C;
  89.   AlphaChar^[4,41]:=$0C;
  90.   AlphaChar^[5,41]:=$18;
  91.   AlphaChar^[6,41]:=$30;
  92.   {*}
  93.   AlphaChar^[0,42]:=$44;
  94.   AlphaChar^[1,42]:=$6C;
  95.   AlphaChar^[2,42]:=$38;
  96.   AlphaChar^[3,42]:=$FE;
  97.   AlphaChar^[4,42]:=$38;
  98.   AlphaChar^[5,42]:=$6C;
  99.   AlphaChar^[6,42]:=$44;
  100.   {+}
  101.   AlphaChar^[0,43]:=$00;
  102.   AlphaChar^[1,43]:=$18;
  103.   AlphaChar^[2,43]:=$18;
  104.   AlphaChar^[3,43]:=$7E;
  105.   AlphaChar^[4,43]:=$18;
  106.   AlphaChar^[5,43]:=$18;
  107.   AlphaChar^[6,43]:=$00;
  108.   {,}
  109.   AlphaChar^[0,44]:=$00;
  110.   AlphaChar^[1,44]:=$00;
  111.   AlphaChar^[2,44]:=$00;
  112.   AlphaChar^[3,44]:=$00;
  113.   AlphaChar^[4,44]:=$18;
  114.   AlphaChar^[5,44]:=$18;
  115.   AlphaChar^[6,44]:=$08;
  116.   {-}
  117.   AlphaChar^[0,45]:=$00;
  118.   AlphaChar^[1,45]:=$00;
  119.   AlphaChar^[2,45]:=$00;
  120.   AlphaChar^[3,45]:=$7E;
  121.   AlphaChar^[4,45]:=$00;
  122.   AlphaChar^[5,45]:=$00;
  123.   AlphaChar^[6,45]:=$00;
  124.   {.}
  125.   AlphaChar^[0,46]:=$00;
  126.   AlphaChar^[1,46]:=$00;
  127.   AlphaChar^[2,46]:=$00;
  128.   AlphaChar^[3,46]:=$00;
  129.   AlphaChar^[4,46]:=$00;
  130.   AlphaChar^[5,46]:=$18;
  131.   AlphaChar^[6,46]:=$18;
  132.   {/}
  133.   AlphaChar^[0,47]:=$02;
  134.   AlphaChar^[1,47]:=$06;
  135.   AlphaChar^[2,47]:=$0C;
  136.   AlphaChar^[3,47]:=$18;
  137.   AlphaChar^[4,47]:=$30;
  138.   AlphaChar^[5,47]:=$60;
  139.   AlphaChar^[6,47]:=$40;
  140.   {0}
  141.   AlphaChar^[0,48]:=$7C;
  142.   AlphaChar^[1,48]:=$C6;
  143.   AlphaChar^[2,48]:=$D6;
  144.   AlphaChar^[3,48]:=$D6;
  145.   AlphaChar^[4,48]:=$D6;
  146.   AlphaChar^[5,48]:=$C6;
  147.   AlphaChar^[6,48]:=$7C;
  148.   {1}
  149.   AlphaChar^[0,49]:=$38;
  150.   AlphaChar^[1,49]:=$18;
  151.   AlphaChar^[2,49]:=$18;
  152.   AlphaChar^[3,49]:=$18;
  153.   AlphaChar^[4,49]:=$18;
  154.   AlphaChar^[5,49]:=$18;
  155.   AlphaChar^[6,49]:=$3C;
  156.   {2}
  157.   AlphaChar^[0,50]:=$7C;
  158.   AlphaChar^[1,50]:=$C6;
  159.   AlphaChar^[2,50]:=$06;
  160.   AlphaChar^[3,50]:=$1C;
  161.   AlphaChar^[4,50]:=$70;
  162.   AlphaChar^[5,50]:=$C0;
  163.   AlphaChar^[6,50]:=$FE;
  164.   {3}
  165.   AlphaChar^[0,51]:=$7C;
  166.   AlphaChar^[1,51]:=$C6;
  167.   AlphaChar^[2,51]:=$06;
  168.   AlphaChar^[3,51]:=$1C;
  169.   AlphaChar^[4,51]:=$06;
  170.   AlphaChar^[5,51]:=$C6;
  171.   AlphaChar^[6,51]:=$7C;
  172.   {4}
  173.   AlphaChar^[0,52]:=$1C;
  174.   AlphaChar^[1,52]:=$3C;
  175.   AlphaChar^[2,52]:=$6C;
  176.   AlphaChar^[3,52]:=$CC;
  177.   AlphaChar^[4,52]:=$FE;
  178.   AlphaChar^[5,52]:=$0C;
  179.   AlphaChar^[6,52]:=$0C;
  180.   {5}
  181.   AlphaChar^[0,53]:=$FE;
  182.   AlphaChar^[1,53]:=$C0;
  183.   AlphaChar^[2,53]:=$C0;
  184.   AlphaChar^[3,53]:=$FC;
  185.   AlphaChar^[4,53]:=$06;
  186.   AlphaChar^[5,53]:=$C6;
  187.   AlphaChar^[6,53]:=$7C;
  188.   {6}
  189.   AlphaChar^[0,54]:=$7C;
  190.   AlphaChar^[1,54]:=$C7;
  191.   AlphaChar^[2,54]:=$C0;
  192.   AlphaChar^[3,54]:=$FC;
  193.   AlphaChar^[4,54]:=$C6;
  194.   AlphaChar^[5,54]:=$C6;
  195.   AlphaChar^[6,54]:=$7C;
  196.   {7}
  197.   AlphaChar^[0,55]:=$FE;
  198.   AlphaChar^[1,55]:=$06;
  199.   AlphaChar^[2,55]:=$06;
  200.   AlphaChar^[3,55]:=$0C;
  201.   AlphaChar^[4,55]:=$18;
  202.   AlphaChar^[5,55]:=$30;
  203.   AlphaChar^[6,55]:=$30;
  204.   {8}
  205.   AlphaChar^[0,56]:=$7C;
  206.   AlphaChar^[1,56]:=$C6;
  207.   AlphaChar^[2,56]:=$C6;
  208.   AlphaChar^[3,56]:=$7C;
  209.   AlphaChar^[4,56]:=$C6;
  210.   AlphaChar^[5,56]:=$C6;
  211.   AlphaChar^[6,56]:=$7C;
  212.   {9}
  213.   AlphaChar^[0,57]:=$7C;
  214.   AlphaChar^[1,57]:=$C6;
  215.   AlphaChar^[2,57]:=$C6;
  216.   AlphaChar^[3,57]:=$7E;
  217.   AlphaChar^[4,57]:=$06;
  218.   AlphaChar^[5,57]:=$C6;
  219.   AlphaChar^[6,57]:=$7C;
  220.   {:}
  221.   AlphaChar^[0,58]:=$00;
  222.   AlphaChar^[1,58]:=$18;
  223.   AlphaChar^[2,58]:=$18;
  224.   AlphaChar^[3,58]:=$00;
  225.   AlphaChar^[4,58]:=$18;
  226.   AlphaChar^[5,58]:=$18;
  227.   AlphaChar^[6,58]:=$00;
  228.   {;}
  229.   AlphaChar^[0,59]:=$00;
  230.   AlphaChar^[1,59]:=$18;
  231.   AlphaChar^[2,59]:=$18;
  232.   AlphaChar^[3,59]:=$00;
  233.   AlphaChar^[4,59]:=$18;
  234.   AlphaChar^[5,59]:=$18;
  235.   AlphaChar^[6,59]:=$08;
  236.   {<}
  237.   AlphaChar^[0,60]:=$06;
  238.   AlphaChar^[1,60]:=$1E;
  239.   AlphaChar^[2,60]:=$78;
  240.   AlphaChar^[3,60]:=$E0;
  241.   AlphaChar^[4,60]:=$78;
  242.   AlphaChar^[5,60]:=$1E;
  243.   AlphaChar^[6,60]:=$06;
  244.   {=}
  245.   AlphaChar^[0,61]:=$00;
  246.   AlphaChar^[1,61]:=$00;
  247.   AlphaChar^[2,61]:=$7C;
  248.   AlphaChar^[3,61]:=$00;
  249.   AlphaChar^[4,61]:=$7C;
  250.   AlphaChar^[5,61]:=$00;
  251.   AlphaChar^[6,61]:=$00;
  252.   {>}
  253.   AlphaChar^[0,62]:=$C0;
  254.   AlphaChar^[1,62]:=$F0;
  255.   AlphaChar^[2,62]:=$3C;
  256.   AlphaChar^[3,62]:=$0E;
  257.   AlphaChar^[4,62]:=$3C;
  258.   AlphaChar^[5,62]:=$F0;
  259.   AlphaChar^[6,62]:=$C0;
  260.   {?}
  261.   AlphaChar^[0,63]:=$7C;
  262.   AlphaChar^[1,63]:=$C6;
  263.   AlphaChar^[2,63]:=$06;
  264.   AlphaChar^[3,63]:=$1C;
  265.   AlphaChar^[4,63]:=$30;
  266.   AlphaChar^[5,63]:=$00;
  267.   AlphaChar^[6,63]:=$30;
  268.   {@}
  269.   AlphaChar^[0,64]:=$7C;
  270.   AlphaChar^[1,64]:=$82;
  271.   AlphaChar^[2,64]:=$BA;
  272.   AlphaChar^[3,64]:=$AA;
  273.   AlphaChar^[4,64]:=$BC;
  274.   AlphaChar^[5,64]:=$80;
  275.   AlphaChar^[6,64]:=$7C;
  276.   {A}
  277.   AlphaChar^[0,65]:=$38;
  278.   AlphaChar^[1,65]:=$6C;
  279.   AlphaChar^[2,65]:=$C6;
  280.   AlphaChar^[3,65]:=$FE;
  281.   AlphaChar^[4,65]:=$C6;
  282.   AlphaChar^[5,65]:=$C6;
  283.   AlphaChar^[6,65]:=$C6;
  284.   {B}
  285.   AlphaChar^[0,66]:=$FC;
  286.   AlphaChar^[1,66]:=$C6;
  287.   AlphaChar^[2,66]:=$C6;
  288.   AlphaChar^[3,66]:=$FC;
  289.   AlphaChar^[4,66]:=$C6;
  290.   AlphaChar^[5,66]:=$C6;
  291.   AlphaChar^[6,66]:=$FC;
  292.   {C}
  293.   AlphaChar^[0,67]:=$7C;
  294.   AlphaChar^[1,67]:=$C6;
  295.   AlphaChar^[2,67]:=$C0;
  296.   AlphaChar^[3,67]:=$C0;
  297.   AlphaChar^[4,67]:=$C0;
  298.   AlphaChar^[5,67]:=$C6;
  299.   AlphaChar^[6,67]:=$7C;
  300.   {D}
  301.   AlphaChar^[0,68]:=$FC;
  302.   AlphaChar^[1,68]:=$C6;
  303.   AlphaChar^[2,68]:=$C6;
  304.   AlphaChar^[3,68]:=$C6;
  305.   AlphaChar^[4,68]:=$C6;
  306.   AlphaChar^[5,68]:=$C6;
  307.   AlphaChar^[6,68]:=$FC;
  308.   {E}
  309.   AlphaChar^[0,69]:=$FE;
  310.   AlphaChar^[1,69]:=$C0;
  311.   AlphaChar^[2,69]:=$C0;
  312.   AlphaChar^[3,69]:=$F0;
  313.   AlphaChar^[4,69]:=$C0;
  314.   AlphaChar^[5,69]:=$C0;
  315.   AlphaChar^[6,69]:=$FE;
  316.   {F}
  317.   AlphaChar^[0,70]:=$FE;
  318.   AlphaChar^[1,70]:=$C0;
  319.   AlphaChar^[2,70]:=$C0;
  320.   AlphaChar^[3,70]:=$F0;
  321.   AlphaChar^[4,70]:=$C0;
  322.   AlphaChar^[5,70]:=$C0;
  323.   AlphaChar^[6,70]:=$C0;
  324.   {G}
  325.   AlphaChar^[0,71]:=$7C;
  326.   AlphaChar^[1,71]:=$C6;
  327.   AlphaChar^[2,71]:=$C0;
  328.   AlphaChar^[3,71]:=$DF;
  329.   AlphaChar^[4,71]:=$C6;
  330.   AlphaChar^[5,71]:=$C6;
  331.   AlphaChar^[6,71]:=$7F;
  332.   {H}
  333.   AlphaChar^[0,72]:=$C6;
  334.   AlphaChar^[1,72]:=$C6;
  335.   AlphaChar^[2,72]:=$C6;
  336.   AlphaChar^[3,72]:=$FE;
  337.   AlphaChar^[4,72]:=$C6;
  338.   AlphaChar^[5,72]:=$C6;
  339.   AlphaChar^[6,72]:=$C6;
  340.   {I}
  341.   AlphaChar^[0,73]:=$3C;
  342.   AlphaChar^[1,73]:=$18;
  343.   AlphaChar^[2,73]:=$18;
  344.   AlphaChar^[3,73]:=$18;
  345.   AlphaChar^[4,73]:=$18;
  346.   AlphaChar^[5,73]:=$18;
  347.   AlphaChar^[6,73]:=$3C;
  348.   {J}
  349.   AlphaChar^[0,74]:=$06;
  350.   AlphaChar^[1,74]:=$06;
  351.   AlphaChar^[2,74]:=$06;
  352.   AlphaChar^[3,74]:=$06;
  353.   AlphaChar^[4,74]:=$C6;
  354.   AlphaChar^[5,74]:=$C6;
  355.   AlphaChar^[6,74]:=$7C;
  356.   {K}
  357.   AlphaChar^[0,75]:=$C6;
  358.   AlphaChar^[1,75]:=$CC;
  359.   AlphaChar^[2,75]:=$D8;
  360.   AlphaChar^[3,75]:=$F0;
  361.   AlphaChar^[4,75]:=$D8;
  362.   AlphaChar^[5,75]:=$CC;
  363.   AlphaChar^[6,75]:=$C6;
  364.   {L}
  365.   AlphaChar^[0,76]:=$C0;
  366.   AlphaChar^[1,76]:=$C0;
  367.   AlphaChar^[2,76]:=$C0;
  368.   AlphaChar^[3,76]:=$C0;
  369.   AlphaChar^[4,76]:=$C0;
  370.   AlphaChar^[5,76]:=$C0;
  371.   AlphaChar^[6,76]:=$FE;
  372.   {M}
  373.   AlphaChar^[0,77]:=$C6;
  374.   AlphaChar^[1,77]:=$EE;
  375.   AlphaChar^[2,77]:=$FE;
  376.   AlphaChar^[3,77]:=$D6;
  377.   AlphaChar^[4,77]:=$C6;
  378.   AlphaChar^[5,77]:=$C6;
  379.   AlphaChar^[6,77]:=$C6;
  380.   {N}
  381.   AlphaChar^[0,78]:=$C6;
  382.   AlphaChar^[1,78]:=$E6;
  383.   AlphaChar^[2,78]:=$F6;
  384.   AlphaChar^[3,78]:=$FE;
  385.   AlphaChar^[4,78]:=$DE;
  386.   AlphaChar^[5,78]:=$CE;
  387.   AlphaChar^[6,78]:=$C6;
  388.   {O}
  389.   AlphaChar^[0,79]:=$7C;
  390.   AlphaChar^[1,79]:=$C6;
  391.   AlphaChar^[2,79]:=$C6;
  392.   AlphaChar^[3,79]:=$C6;
  393.   AlphaChar^[4,79]:=$C6;
  394.   AlphaChar^[5,79]:=$C6;
  395.   AlphaChar^[6,79]:=$7C;
  396.   {P}
  397.   AlphaChar^[0,80]:=$FC;
  398.   AlphaChar^[1,80]:=$C6;
  399.   AlphaChar^[2,80]:=$C6;
  400.   AlphaChar^[3,80]:=$FC;
  401.   AlphaChar^[4,80]:=$C0;
  402.   AlphaChar^[5,80]:=$C0;
  403.   AlphaChar^[6,80]:=$C0;
  404.   {Q}
  405.   AlphaChar^[0,81]:=$7C;
  406.   AlphaChar^[1,81]:=$C6;
  407.   AlphaChar^[2,81]:=$C6;
  408.   AlphaChar^[3,81]:=$C6;
  409.   AlphaChar^[4,81]:=$D6;
  410.   AlphaChar^[5,81]:=$CD;
  411.   AlphaChar^[6,81]:=$7A;
  412.   {R}
  413.   AlphaChar^[0,82]:=$FC;
  414.   AlphaChar^[1,82]:=$C6;
  415.   AlphaChar^[2,82]:=$C6;
  416.   AlphaChar^[3,82]:=$FC;
  417.   AlphaChar^[4,82]:=$C6;
  418.   AlphaChar^[5,82]:=$C6;
  419.   AlphaChar^[6,82]:=$C6;
  420.   {S}
  421.   AlphaChar^[0,83]:=$7C;
  422.   AlphaChar^[1,83]:=$C6;
  423.   AlphaChar^[2,83]:=$C0;
  424.   AlphaChar^[3,83]:=$7C;
  425.   AlphaChar^[4,83]:=$07;
  426.   AlphaChar^[5,83]:=$C7;
  427.   AlphaChar^[6,83]:=$7C;
  428.   {T}
  429.   AlphaChar^[0,84]:=$7E;
  430.   AlphaChar^[1,84]:=$18;
  431.   AlphaChar^[2,84]:=$18;
  432.   AlphaChar^[3,84]:=$18;
  433.   AlphaChar^[4,84]:=$18;
  434.   AlphaChar^[5,84]:=$18;
  435.   AlphaChar^[6,84]:=$18;
  436.   {U}
  437.   AlphaChar^[0,85]:=$C6;
  438.   AlphaChar^[1,85]:=$C6;
  439.   AlphaChar^[2,85]:=$C6;
  440.   AlphaChar^[3,85]:=$C6;
  441.   AlphaChar^[4,85]:=$C6;
  442.   AlphaChar^[5,85]:=$C6;
  443.   AlphaChar^[6,85]:=$7C;
  444.   {V}
  445.   AlphaChar^[0,86]:=$C6;
  446.   AlphaChar^[1,86]:=$C6;
  447.   AlphaChar^[2,86]:=$6C;
  448.   AlphaChar^[3,86]:=$6C;
  449.   AlphaChar^[4,86]:=$38;
  450.   AlphaChar^[5,86]:=$38;
  451.   AlphaChar^[6,86]:=$10;
  452.   {W}
  453.   AlphaChar^[0,87]:=$C6;
  454.   AlphaChar^[1,87]:=$C6;
  455.   AlphaChar^[2,87]:=$C6;
  456.   AlphaChar^[3,87]:=$D6;
  457.   AlphaChar^[4,87]:=$FE;
  458.   AlphaChar^[5,87]:=$EE;
  459.   AlphaChar^[6,87]:=$C6;
  460.   {X}
  461.   AlphaChar^[0,88]:=$C6;
  462.   AlphaChar^[1,88]:=$6C;
  463.   AlphaChar^[2,88]:=$38;
  464.   AlphaChar^[3,88]:=$10;
  465.   AlphaChar^[4,88]:=$38;
  466.   AlphaChar^[5,88]:=$6C;
  467.   AlphaChar^[6,88]:=$C6;
  468.   {Y}
  469.   AlphaChar^[0,89]:=$66;
  470.   AlphaChar^[1,89]:=$66;
  471.   AlphaChar^[2,89]:=$66;
  472.   AlphaChar^[3,89]:=$3C;
  473.   AlphaChar^[4,89]:=$18;
  474.   AlphaChar^[5,89]:=$18;
  475.   AlphaChar^[6,89]:=$18;
  476.   {Z}
  477.   AlphaChar^[0,90]:=$FE;
  478.   AlphaChar^[1,90]:=$0E;
  479.   AlphaChar^[2,90]:=$1C;
  480.   AlphaChar^[3,90]:=$38;
  481.   AlphaChar^[4,90]:=$70;
  482.   AlphaChar^[5,90]:=$E0;
  483.   AlphaChar^[6,90]:=$FE;
  484.   {[}
  485.   AlphaChar^[0,91]:=$3C;
  486.   AlphaChar^[1,91]:=$30;
  487.   AlphaChar^[2,91]:=$30;
  488.   AlphaChar^[3,91]:=$30;
  489.   AlphaChar^[4,91]:=$30;
  490.   AlphaChar^[5,91]:=$30;
  491.   AlphaChar^[6,91]:=$3C;
  492.   {\}
  493.   AlphaChar^[0,92]:=$40;
  494.   AlphaChar^[1,92]:=$60;
  495.   AlphaChar^[2,92]:=$30;
  496.   AlphaChar^[3,92]:=$18;
  497.   AlphaChar^[4,92]:=$0C;
  498.   AlphaChar^[5,92]:=$06;
  499.   AlphaChar^[6,92]:=$02;
  500.   {]}
  501.   AlphaChar^[0,93]:=$3C;
  502.   AlphaChar^[1,93]:=$0C;
  503.   AlphaChar^[2,93]:=$0C;
  504.   AlphaChar^[3,93]:=$0C;
  505.   AlphaChar^[4,93]:=$0C;
  506.   AlphaChar^[5,93]:=$0C;
  507.   AlphaChar^[6,93]:=$3C;
  508.   {^}
  509.   AlphaChar^[0,94]:=$10;
  510.   AlphaChar^[1,94]:=$38;
  511.   AlphaChar^[2,94]:=$6C;
  512.   AlphaChar^[3,94]:=$C6;
  513.   AlphaChar^[4,94]:=$82;
  514.   AlphaChar^[5,94]:=$00;
  515.   AlphaChar^[6,94]:=$00;
  516.   {_}
  517.   AlphaChar^[0,95]:=$00;
  518.   AlphaChar^[1,95]:=$00;
  519.   AlphaChar^[2,95]:=$00;
  520.   AlphaChar^[3,95]:=$00;
  521.   AlphaChar^[4,95]:=$00;
  522.   AlphaChar^[5,95]:=$7E;
  523.   {`}
  524.   AlphaChar^[0,96]:=$18;
  525.   AlphaChar^[1,96]:=$18;
  526.   AlphaChar^[2,96]:=$10;
  527.   AlphaChar^[3,96]:=$00;
  528.   AlphaChar^[4,96]:=$00;
  529.   AlphaChar^[5,96]:=$00;
  530.   AlphaChar^[6,96]:=$00;
  531.  
  532.   {Characters 97-122 (lowercase letters) are transposed to their
  533.    uppercase equivalents in the WriteString Procedure}
  534.  
  535.   {Open Curly bracket}
  536.   AlphaChar^[0,123]:=$1C;
  537.   AlphaChar^[1,123]:=$30;
  538.   AlphaChar^[2,123]:=$30;
  539.   AlphaChar^[3,123]:=$60;
  540.   AlphaChar^[4,123]:=$30;
  541.   AlphaChar^[5,123]:=$30;
  542.   AlphaChar^[6,123]:=$1C;
  543.   {|}
  544.   AlphaChar^[0,124]:=$18;
  545.   AlphaChar^[1,124]:=$18;
  546.   AlphaChar^[2,124]:=$18;
  547.   AlphaChar^[3,124]:=$00;
  548.   AlphaChar^[4,124]:=$18;
  549.   AlphaChar^[5,124]:=$18;
  550.   AlphaChar^[6,124]:=$18;
  551.   {Close curly bracket}
  552.   AlphaChar^[0,125]:=$70;
  553.   AlphaChar^[1,125]:=$18;
  554.   AlphaChar^[2,125]:=$18;
  555.   AlphaChar^[3,125]:=$0C;
  556.   AlphaChar^[4,125]:=$18;
  557.   AlphaChar^[5,125]:=$18;
  558.   AlphaChar^[6,125]:=$70;
  559. End;
  560.  
  561. Begin
  562.   New(AlphaChar);
  563.   GenerateFonts;
  564.   Assign(AlphaFile,'FONT7X7.DAT');
  565.   Rewrite(AlphaFile);
  566.   For X:=0 to 6 do For Y:=33 to 126 do Write(AlphaFile,AlphaChar^[X,Y]);
  567.   Close(AlphaFile);
  568. End.
  569.