home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BIX03.ZIP / LOADFONT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-08-04  |  16.4 KB  |  1,192 lines
  1. {TITLE: Turbo/IBM CGA - Resident Hi-Ascii Font - Editable!
  2. Ascii chars from 128 to 255 are normally not available when in graphics
  3. mode on the CGA. The following Turbo program loads a font table that
  4. gives access to the very same characters available while in text mode.
  5. Additionally, the program has the various representations for Ascii 128
  6. thru 255 in a typed const that you can easily modify and CREATE YOUR OWN
  7. FONT! A portion of the .COM file remains resident and takes up less than
  8. 1300 bytes of RAM! This has not been tested under Turbo v2 but works fine
  9. under v3.x.   Enjoy!  - Jim Keohane}
  10.  
  11. Program LoadFont;
  12.  
  13. Type EightBits=array[0..7] of char;
  14.      EightBytes=array[0..7] of EightBits;
  15.      FontMap=array[128..255] of EightBytes;
  16.      ResFont=array[128..255] of array[0..7] of byte;
  17.  
  18. Var  Res:^ResFont absolute $0000:$007C; {vector for INT $1F}
  19.      X:ResFont;
  20.      I,J,K,L:Integer;
  21.  
  22. Const F:FontMap=(
  23. ('  XXXX  ',
  24.  ' XX  XX ',
  25.  ' XX     ',
  26.  ' XX  XX ',
  27.  '  XXXX  ',
  28.  '    XX  ',
  29.  '     XX ',
  30.  '  XXXX  '), {128}
  31.  
  32. ('        ',
  33.  ' XX  XX ',
  34.  '        ',
  35.  ' XX  XX ',
  36.  ' XX  XX ',
  37.  ' XX  XX ',
  38.  '  XXXXXX',
  39.  '        '), {129}
  40.  
  41. ('    XXX ',
  42.  '        ',
  43.  '  XXXX  ',
  44.  ' XX  XX ',
  45.  ' XXXXXX ',
  46.  ' XX     ',
  47.  '  XXXX  ',
  48.  '        '), {130}
  49.  
  50. (' XXXXXX ',
  51.  'XX    XX',
  52.  '  XXXX  ',
  53.  '     XX ',
  54.  '  XXXXX ',
  55.  ' XX  XX ',
  56.  '  XXXXXX',
  57.  '        '), {131}
  58.  
  59. (' XX  XX ',
  60.  '        ',
  61.  '  XXXX  ',
  62.  '     XX ',
  63.  '  XXXXX ',
  64.  ' XX  XX ',
  65.  '  XXXXXX',
  66.  '        '), {132}
  67.  
  68. (' XXX    ',
  69.  '        ',
  70.  '  XXXX  ',
  71.  '     XX ',
  72.  '  XXXXX ',
  73.  ' XX  XX ',
  74.  '  XXXXXX',
  75.  '        '), {133}
  76.  
  77. ('   XX   ',
  78.  '   XX   ',
  79.  '  XXXX  ',
  80.  '     XX ',
  81.  '  XXXXX ',
  82.  ' XX  XX ',
  83.  '  XXXXXX',
  84.  '        '), {134}
  85.  
  86. ('        ',
  87.  '        ',
  88.  '  XXXX  ',
  89.  ' XX     ',
  90.  ' XX     ',
  91.  '  XXXX  ',
  92.  '     XX ',
  93.  '   XXX  '), {135}
  94.  
  95. (' XXXXXX ',
  96.  'XX    XX',
  97.  '  XXXX  ',
  98.  ' XX  XX ',
  99.  ' XXXXXX ',
  100.  ' XX     ',
  101.  '  XXXX  ',
  102.  '        '), {136}
  103.  
  104. (' XX  XX ',
  105.  '        ',
  106.  '  XXXX  ',
  107.  ' XX  XX ',
  108.  ' XXXXXX ',
  109.  ' XX     ',
  110.  '  XXXX  ',
  111.  '        '), {137}
  112.  
  113. (' XXX    ',
  114.  '        ',
  115.  '  XXXX  ',
  116.  ' XX  XX ',
  117.  ' XXXXXX ',
  118.  ' XX     ',
  119.  '  XXXX  ',
  120.  '        '), {138}
  121.  
  122. (' XX  XX ',
  123.  '        ',
  124.  '  XXX   ',
  125.  '   XX   ',
  126.  '   XX   ',
  127.  '   XX   ',
  128.  '  XXXX  ',
  129.  '        '), {139}
  130.  
  131. (' XXXXX  ',
  132.  'XX   XX ',
  133.  '  XXX   ',
  134.  '   XX   ',
  135.  '   XX   ',
  136.  '   XX   ',
  137.  '  XXXX  ',
  138.  '        '), {140}
  139.  
  140. (' XXX    ',
  141.  '        ',
  142.  '  XXX   ',
  143.  '   XX   ',
  144.  '   XX   ',
  145.  '   XX   ',
  146.  '  XXXX  ',
  147.  '        '), {141}
  148.  
  149. (' XX   XX',
  150.  '   XXX  ',
  151.  '  XX XX ',
  152.  ' XX   XX',
  153.  ' XXXXXXX',
  154.  ' XX   XX',
  155.  ' XX   XX',
  156.  '        '), {142}
  157.  
  158. ('   XX   ',
  159.  '   XX   ',
  160.  '        ',
  161.  '  XXXX  ',
  162.  ' XX  XX ',
  163.  ' XXXXXX ',
  164.  ' XX  XX ',
  165.  '        '), {143}
  166.  
  167. ('    XXX ',
  168.  '        ',
  169.  ' XXXXXX ',
  170.  '  XX    ',
  171.  '  XXXX  ',
  172.  '  XX    ',
  173.  ' XXXXXX ',
  174.  '        '), {144}
  175.  
  176. ('        ',
  177.  '        ',
  178.  ' XXXXXXX',
  179.  '    XX  ',
  180.  ' XXXXXXX',
  181.  'XX  XX  ',
  182.  ' XXXXXXX',
  183.  '        '), {145}
  184.  
  185. ('   XXXXX',
  186.  '  XX XX ',
  187.  ' XX  XX ',
  188.  ' XXXXXXX',
  189.  ' XX  XX ',
  190.  ' XX  XX ',
  191.  ' XX  XXX',
  192.  '        '), {146}
  193.  
  194. ('  XXXX  ',
  195.  ' XX  XX ',
  196.  '        ',
  197.  '  XXXX  ',
  198.  ' XX  XX ',
  199.  ' XX  XX ',
  200.  '  XXXX  ',
  201.  '        '), {147}
  202.  
  203. ('        ',
  204.  ' XX  XX ',
  205.  '        ',
  206.  '  XXXX  ',
  207.  ' XX  XX ',
  208.  ' XX  XX ',
  209.  '  XXXX  ',
  210.  '        '), {148}
  211.  
  212. ('        ',
  213.  ' XXX    ',
  214.  '        ',
  215.  '  XXXX  ',
  216.  ' XX  XX ',
  217.  ' XX  XX ',
  218.  '  XXXX  ',
  219.  '        '), {149}
  220.  
  221. ('  XXXX  ',
  222.  ' XX  XX ',
  223.  '        ',
  224.  ' XX  XX ',
  225.  ' XX  XX ',
  226.  ' XX  XX ',
  227.  '  XXXXXX',
  228.  '        '), {150}
  229.  
  230. ('        ',
  231.  ' XXX    ',
  232.  '        ',
  233.  ' XX  XX ',
  234.  ' XX  XX ',
  235.  ' XX  XX ',
  236.  '  XXXXXX',
  237.  '        '), {151}
  238.  
  239. ('        ',
  240.  ' XX  XX ',
  241.  '        ',
  242.  ' XX  XX ',
  243.  ' XX  XX ',
  244.  '  XXXXX ',
  245.  '     XX ',
  246.  ' XXXXX  '), {152}
  247.  
  248. ('XX    XX',
  249.  '   XX   ',
  250.  '  XXXX  ',
  251.  ' XX  XX ',
  252.  ' XX  XX ',
  253.  '  XXXX  ',
  254.  '   XX   ',
  255.  '        '), {153}
  256.  
  257. (' XX  XX ',
  258.  '        ',
  259.  ' XX  XX ',
  260.  ' XX  XX ',
  261.  ' XX  XX ',
  262.  ' XX  XX ',
  263.  '  XXXX  ',
  264.  '        '), {154}
  265.  
  266. ('   XX   ',
  267.  '   XX   ',
  268.  ' XXXXXX ',
  269.  'XX      ',
  270.  'XX      ',
  271.  ' XXXXXX ',
  272.  '   XX   ',
  273.  '   XX   '), {155}
  274.  
  275. ('   XXX  ',
  276.  '  XX XX ',
  277.  '  XX  X ',
  278.  ' XXXX   ',
  279.  '  XX    ',
  280.  ' XXX  XX',
  281.  ' XXXXXX ',
  282.  '        '), {156}
  283.  
  284. (' XX  XX ',
  285.  ' XX  XX ',
  286.  '  XXXX  ',
  287.  ' XXXXXX ',
  288.  '   XX   ',
  289.  ' XXXXXX ',
  290.  '   XX   ',
  291.  '   XX   '), {157}
  292.  
  293. ('XXXXX   ',
  294.  'XX  XX  ',
  295.  'XX  XX  ',
  296.  'XXXXX X ',
  297.  'XX   XX ',
  298.  'XX  XXXX',
  299.  'XX   XX ',
  300.  'XX   XXX'), {158}
  301.  
  302. ('    XXX ',
  303.  '   XX XX',
  304.  '   XX   ',
  305.  '  XXXX  ',
  306.  '   XX   ',
  307.  '   XX   ',
  308.  'XX XX   ',
  309.  ' XXX    '), {159}
  310.  
  311. ('    XXX ',
  312.  '        ',
  313.  '  XXXX  ',
  314.  '     XX ',
  315.  '  XXXXX ',
  316.  ' XX  XX ',
  317.  '  XXXXXX',
  318.  '        '), {160}
  319.  
  320. ('   XXX  ',
  321.  '        ',
  322.  '  XXX   ',
  323.  '   XX   ',
  324.  '   XX   ',
  325.  '   XX   ',
  326.  '  XXXX  ',
  327.  '        '), {161}
  328.  
  329. ('        ',
  330.  '    XXX ',
  331.  '        ',
  332.  '  XXXX  ',
  333.  ' XX  XX ',
  334.  ' XX  XX ',
  335.  '  XXXX  ',
  336.  '        '), {162}
  337.  
  338. ('        ',
  339.  '    XXX ',
  340.  '        ',
  341.  ' XX  XX ',
  342.  ' XX  XX ',
  343.  ' XX  XX ',
  344.  '  XXXXXX',
  345.  '        '), {163}
  346.  
  347. ('        ',
  348.  ' XXXXX  ',
  349.  '        ',
  350.  ' XXXXX  ',
  351.  ' XX  XX ',
  352.  ' XX  XX ',
  353.  ' XX  XX ',
  354.  '        '), {164}
  355.  
  356. (' XXXXXX ',
  357.  '        ',
  358.  ' XX  XX ',
  359.  ' XXX XX ',
  360.  ' XXXXXX ',
  361.  ' XX XXX ',
  362.  ' XX  XX ',
  363.  '        '), {165}
  364.  
  365. ('  XXXX  ',
  366.  ' XX XX  ',
  367.  ' XX XX  ',
  368.  '  XXXXX ',
  369.  '        ',
  370.  ' XXXXXX ',
  371.  '        ',
  372.  '        '), {166}
  373.  
  374. ('  XXX   ',
  375.  ' XX XX  ',
  376.  ' XX XX  ',
  377.  '  XXX   ',
  378.  '        ',
  379.  ' XXXXX  ',
  380.  '        ',
  381.  '        '), {167}
  382.  
  383. ('   XX   ',
  384.  '        ',
  385.  '   XX   ',
  386.  '  XX    ',
  387.  ' XX     ',
  388.  ' XX  XX ',
  389.  '  XXXX  ',
  390.  '        '), {168}
  391.  
  392. ('        ',
  393.  '        ',
  394.  '        ',
  395.  ' XXXXXX ',
  396.  ' XX     ',
  397.  ' XX     ',
  398.  '        ',
  399.  '        '), {169}
  400.  
  401. ('        ',
  402.  '        ',
  403.  '        ',
  404.  ' XXXXXX ',
  405.  '     XX ',
  406.  '     XX ',
  407.  '        ',
  408.  '        '), {170}
  409.  
  410. ('XX    XX',
  411.  'XX   XX ',
  412.  'XX  XX  ',
  413.  'XX XXXX ',
  414.  '  XX  XX',
  415.  ' XX  XX ',
  416.  'XX  XX  ',
  417.  '    XXXX'), {171}
  418.  
  419. ('XX    XX',
  420.  'XX   XX ',
  421.  'XX  XX  ',
  422.  'XX XX XX',
  423.  '  XX XXX',
  424.  ' XX XXXX',
  425.  'XX  XXXX',
  426.  '      XX'), {172}
  427.  
  428. ('   XX   ',
  429.  '   XX   ',
  430.  '        ',
  431.  '   XX   ',
  432.  '   XX   ',
  433.  '   XX   ',
  434.  '   XX   ',
  435.  '        '), {173}
  436.  
  437. ('        ',
  438.  '  XX  XX',
  439.  ' XX  XX ',
  440.  'XX  XX  ',
  441.  ' XX  XX ',
  442.  '  XX  XX',
  443.  '        ',
  444.  '        '), {174}
  445.  
  446. ('        ',
  447.  'XX  XX  ',
  448.  ' XX  XX ',
  449.  '  XX  XX',
  450.  ' XX  XX ',
  451.  'XX  XX  ',
  452.  '        ',
  453.  '        '), {175}
  454.  
  455. ('  X   X ',
  456.  'X   X   ',
  457.  '  X   X ',
  458.  'X   X   ',
  459.  '  X   X ',
  460.  'X   X   ',
  461.  '  X   X ',
  462.  'X   X   '), {176}
  463.  
  464. (' X X X X',
  465.  'X X X X ',
  466.  ' X X X X',
  467.  'X X X X ',
  468.  ' X X X X',
  469.  'X X X X ',
  470.  ' X X X X',
  471.  'X X X X '), {177}
  472.  
  473. ('XX XX XX',
  474.  ' XXX XXX',
  475.  'XX XX XX',
  476.  'XXX XXX ',
  477.  'XX XX XX',
  478.  ' XXX XXX',
  479.  'XX XX XX',
  480.  'XXX XXX '), {178}
  481.  
  482. ('   XX   ',
  483.  '   XX   ',
  484.  '   XX   ',
  485.  '   XX   ',
  486.  '   XX   ',
  487.  '   XX   ',
  488.  '   XX   ',
  489.  '   XX   '), {179}
  490.  
  491. ('   XX   ',
  492.  '   XX   ',
  493.  '   XX   ',
  494.  '   XX   ',
  495.  'XXXXX   ',
  496.  '   XX   ',
  497.  '   XX   ',
  498.  '   XX   '), {180}
  499.  
  500. ('   XX   ',
  501.  '   XX   ',
  502.  'XXXXX   ',
  503.  '   XX   ',
  504.  'XXXXX   ',
  505.  '   XX   ',
  506.  '   XX   ',
  507.  '   XX   '), {181}
  508.  
  509. ('  XX XX ',
  510.  '  XX XX ',
  511.  '  XX XX ',
  512.  '  XX XX ',
  513.  'XXXX XX ',
  514.  '  XX XX ',
  515.  '  XX XX ',
  516.  '  XX XX '), {182}
  517.  
  518. ('        ',
  519.  '        ',
  520.  '        ',
  521.  '        ',
  522.  'XXXXXXX ',
  523.  '  XX XX ',
  524.  '  XX XX ',
  525.  '  XX XX '), {183}
  526.  
  527. ('        ',
  528.  '        ',
  529.  'XXXXX   ',
  530.  '   XX   ',
  531.  'XXXXX   ',
  532.  '   XX   ',
  533.  '   XX   ',
  534.  '   XX   '), {184}
  535.  
  536. ('  XX XX ',
  537.  '  XX XX ',
  538.  'XXXX XX ',
  539.  '     XX ',
  540.  'XXXX XX ',
  541.  '  XX XX ',
  542.  '  XX XX ',
  543.  '  XX XX '), {185}
  544.  
  545. ('  XX XX ',
  546.  '  XX XX ',
  547.  '  XX XX ',
  548.  '  XX XX ',
  549.  '  XX XX ',
  550.  '  XX XX ',
  551.  '  XX XX ',
  552.  '  XX XX '), {186}
  553.  
  554. ('        ',
  555.  '        ',
  556.  'XXXXXXX ',
  557.  '     XX ',
  558.  'XXXX XX ',
  559.  '  XX XX ',
  560.  '  XX XX ',
  561.  '  XX XX '), {187}
  562.  
  563. ('  XX XX ',
  564.  '  XX XX ',
  565.  'XXXX XX ',
  566.  '     XX ',
  567.  'XXXXXXX ',
  568.  '        ',
  569.  '        ',
  570.  '        '), {188}
  571.  
  572. ('  XX XX ',
  573.  '  XX XX ',
  574.  '  XX XX ',
  575.  '  XX XX ',
  576.  'XXXXXXX ',
  577.  '        ',
  578.  '        ',
  579.  '        '), {189}
  580.  
  581. ('   XX   ',
  582.  '   XX   ',
  583.  'XXXXX   ',
  584.  '   XX   ',
  585.  'XXXXX   ',
  586.  '        ',
  587.  '        ',
  588.  '        '), {190}
  589.  
  590. ('        ',
  591.  '        ',
  592.  '        ',
  593.  '        ',
  594.  'XXXXX   ',
  595.  '   XX   ',
  596.  '   XX   ',
  597.  '   XX   '), {191}
  598.  
  599. ('   XX   ',
  600.  '   XX   ',
  601.  '   XX   ',
  602.  '   XX   ',
  603.  '   XXXXX',
  604.  '        ',
  605.  '        ',
  606.  '        '), {192}
  607.  
  608. ('   XX   ',
  609.  '   XX   ',
  610.  '   XX   ',
  611.  '   XX   ',
  612.  'XXXXXXXX',
  613.  '        ',
  614.  '        ',
  615.  '        '), {193}
  616.  
  617. ('        ',
  618.  '        ',
  619.  '        ',
  620.  '        ',
  621.  'XXXXXXXX',
  622.  '   XX   ',
  623.  '   XX   ',
  624.  '   XX   '), {194}
  625.  
  626. ('   XX   ',
  627.  '   XX   ',
  628.  '   XX   ',
  629.  '   XX   ',
  630.  '   XXXXX',
  631.  '   XX   ',
  632.  '   XX   ',
  633.  '   XX   '), {195}
  634.  
  635. ('        ',
  636.  '        ',
  637.  '        ',
  638.  '        ',
  639.  'XXXXXXXX',
  640.  '        ',
  641.  '        ',
  642.  '        '), {196}
  643.  
  644. ('   XX   ',
  645.  '   XX   ',
  646.  '   XX   ',
  647.  '   XX   ',
  648.  'XXXXXXXX',
  649.  '   XX   ',
  650.  '   XX   ',
  651.  '   XX   '), {197}
  652.  
  653. ('   XX   ',
  654.  '   XX   ',
  655.  '   XXXXX',
  656.  '   XX   ',
  657.  '   XXXXX',
  658.  '   XX   ',
  659.  '   XX   ',
  660.  '   XX   '), {198}
  661.  
  662. ('  XX XX ',
  663.  '  XX XX ',
  664.  '  XX XX ',
  665.  '  XX XX ',
  666.  '  XX XXX',
  667.  '  XX XX ',
  668.  '  XX XX ',
  669.  '  XX XX '), {199}
  670.  
  671. ('  XX XX ',
  672.  '  XX XX ',
  673.  '  XX XXX',
  674.  '  XX    ',
  675.  '  XXXXXX',
  676.  '        ',
  677.  '        ',
  678.  '        '), {200}
  679.  
  680. ('        ',
  681.  '        ',
  682.  '  XXXXXX',
  683.  '  XX    ',
  684.  '  XX XXX',
  685.  '  XX XX ',
  686.  '  XX XX ',
  687.  '  XX XX '), {201}
  688.  
  689. ('  XX XX ',
  690.  '  XX XX ',
  691.  'XXXX XXX',
  692.  '        ',
  693.  'XXXXXXXX',
  694.  '        ',
  695.  '        ',
  696.  '        '), {202}
  697.  
  698. ('        ',
  699.  '        ',
  700.  'XXXXXXXX',
  701.  '        ',
  702.  'XXXX XXX',
  703.  '  XX XX ',
  704.  '  XX XX ',
  705.  '  XX XX '), {203}
  706.  
  707. ('  XX XX ',
  708.  '  XX XX ',
  709.  '  XX XXX',
  710.  '  XX    ',
  711.  '  XX XXX',
  712.  '  XX XX ',
  713.  '  XX XX ',
  714.  '  XX XX '), {204}
  715.  
  716. ('        ',
  717.  '        ',
  718.  'XXXXXXXX',
  719.  '        ',
  720.  'XXXXXXXX',
  721.  '        ',
  722.  '        ',
  723.  '        '), {205}
  724.  
  725. ('  XX XX ',
  726.  '  XX XX ',
  727.  'XXXX XXX',
  728.  '        ',
  729.  'XXXX XXX',
  730.  '  XX XX ',
  731.  '  XX XX ',
  732.  '  XX XX '), {206}
  733.  
  734. ('   XX   ',
  735.  '   XX   ',
  736.  'XXXXXXXX',
  737.  '        ',
  738.  'XXXXXXXX',
  739.  '        ',
  740.  '        ',
  741.  '        '), {207}
  742.  
  743. ('  XX XX ',
  744.  '  XX XX ',
  745.  '  XX XX ',
  746.  '  XX XX ',
  747.  'XXXXXXXX',
  748.  '        ',
  749.  '        ',
  750.  '        '), {208}
  751.  
  752. ('        ',
  753.  '        ',
  754.  'XXXXXXXX',
  755.  '        ',
  756.  'XXXXXXXX',
  757.  '   XX   ',
  758.  '   XX   ',
  759.  '   XX   '), {209}
  760.  
  761. ('        ',
  762.  '        ',
  763.  '        ',
  764.  '        ',
  765.  'XXXXXXXX',
  766.  '  XX XX ',
  767.  '  XX XX ',
  768.  '  XX XX '), {210}
  769.  
  770. ('  XX XX ',
  771.  '  XX XX ',
  772.  '  XX XX ',
  773.  '  XX XX ',
  774.  '  XXXXXX',
  775.  '        ',
  776.  '        ',
  777.  '        '), {211}
  778.  
  779. ('   XX   ',
  780.  '   XX   ',
  781.  '   XXXXX',
  782.  '   XX   ',
  783.  '   XXXXX',
  784.  '        ',
  785.  '        ',
  786.  '        '), {212}
  787.  
  788. ('        ',
  789.  '        ',
  790.  '   XXXXX',
  791.  '   XX   ',
  792.  '   XXXXX',
  793.  '   XX   ',
  794.  '   XX   ',
  795.  '   XX   '), {213}
  796.  
  797. ('        ',
  798.  '        ',
  799.  '        ',
  800.  '        ',
  801.  '  XXXXXX',
  802.  '  XX XX ',
  803.  '  XX XX ',
  804.  '  XX XX '), {214}
  805.  
  806. ('  XX XX ',
  807.  '  XX XX ',
  808.  '  XX XX ',
  809.  '  XX XX ',
  810.  'XXXXXXXX',
  811.  '  XX XX ',
  812.  '  XX XX ',
  813.  '  XX XX '), {215}
  814.  
  815. ('   XX   ',
  816.  '   XX   ',
  817.  'XXXXXXXX',
  818.  '   XX   ',
  819.  'XXXXXXXX',
  820.  '   XX   ',
  821.  '   XX   ',
  822.  '   XX   '), {216}
  823.  
  824. ('   XX   ',
  825.  '   XX   ',
  826.  '   XX   ',
  827.  '   XX   ',
  828.  'XXXXX   ',
  829.  '        ',
  830.  '        ',
  831.  '        '), {217}
  832.  
  833. ('        ',
  834.  '        ',
  835.  '        ',
  836.  '        ',
  837.  '   XXXXX',
  838.  '   XX   ',
  839.  '   XX   ',
  840.  '   XX   '), {218}
  841.  
  842. ('XXXXXXXX',
  843.  'XXXXXXXX',
  844.  'XXXXXXXX',
  845.  'XXXXXXXX',
  846.  'XXXXXXXX',
  847.  'XXXXXXXX',
  848.  'XXXXXXXX',
  849.  'XXXXXXXX'), {219}
  850.  
  851. ('        ',
  852.  '        ',
  853.  '        ',
  854.  '        ',
  855.  'XXXXXXXX',
  856.  'XXXXXXXX',
  857.  'XXXXXXXX',
  858.  'XXXXXXXX'), {220}
  859.  
  860. ('XXXX    ',
  861.  'XXXX    ',
  862.  'XXXX    ',
  863.  'XXXX    ',
  864.  'XXXX    ',
  865.  'XXXX    ',
  866.  'XXXX    ',
  867.  'XXXX    '), {221}
  868.  
  869. ('    XXXX',
  870.  '    XXXX',
  871.  '    XXXX',
  872.  '    XXXX',
  873.  '    XXXX',
  874.  '    XXXX',
  875.  '    XXXX',
  876.  '    XXXX'), {222}
  877.  
  878. ('XXXXXXXX',
  879.  'XXXXXXXX',
  880.  'XXXXXXXX',
  881.  'XXXXXXXX',
  882.  '        ',
  883.  '        ',
  884.  '        ',
  885.  '        '), {223}
  886.  
  887. ('        ',
  888.  '        ',
  889.  '  XXX XX',
  890.  ' XX XXX ',
  891.  ' XX  X  ',
  892.  ' XX XXX ',
  893.  '  XXX XX',
  894.  '        '), {224}
  895.  
  896. ('        ',
  897.  '  XXXX  ',
  898.  ' XX  XX ',
  899.  ' XXXXX  ',
  900.  ' XX  XX ',
  901.  ' XXXXX  ',
  902.  ' XX     ',
  903.  ' XX     '), {225}
  904.  
  905. ('        ',
  906.  ' XXXXXX ',
  907.  ' XX  XX ',
  908.  ' XX     ',
  909.  ' XX     ',
  910.  ' XX     ',
  911.  ' XX     ',
  912.  '        '), {226}
  913.  
  914. ('        ',
  915.  ' XXXXXXX',
  916.  '  XX XX ',
  917.  '  XX XX ',
  918.  '  XX XX ',
  919.  '  XX XX ',
  920.  '  XX XX ',
  921.  '        '), {227}
  922.  
  923. (' XXXXXX ',
  924.  ' XX  XX ',
  925.  '  XX    ',
  926.  '   XX   ',
  927.  '  XX    ',
  928.  ' XX  XX ',
  929.  ' XXXXXX ',
  930.  '        '), {228}
  931.  
  932. ('        ',
  933.  '        ',
  934.  '  XXXXXX',
  935.  ' XX XX  ',
  936.  ' XX XX  ',
  937.  ' XX XX  ',
  938.  '  XXX   ',
  939.  '        '), {229}
  940.  
  941. ('        ',
  942.  '  XX  XX',
  943.  '  XX  XX',
  944.  '  XX  XX',
  945.  '  XX  XX',
  946.  '  XXXXX ',
  947.  '  XX    ',
  948.  ' XX     '), {230}
  949.  
  950. ('        ',
  951.  '  XXX XX',
  952.  ' XX XXX ',
  953.  '    XX  ',
  954.  '    XX  ',
  955.  '    XX  ',
  956.  '    XX  ',
  957.  '        '), {231}
  958.  
  959. (' XXXXXX ',
  960.  '   XX   ',
  961.  '  XXXX  ',
  962.  ' XX  XX ',
  963.  ' XX  XX ',
  964.  '  XXXX  ',
  965.  '   XX   ',
  966.  ' XXXXXX '), {232}
  967.  
  968. ('   XXX  ',
  969.  '  XX XX ',
  970.  ' XX   XX',
  971.  ' XXXXXXX',
  972.  ' XX   XX',
  973.  '  XX XX ',
  974.  '   XXX  ',
  975.  '        '), {233}
  976.  
  977. ('   XXX  ',
  978.  '  XX XX ',
  979.  ' XX   XX',
  980.  ' XX   XX',
  981.  '  XX XX ',
  982.  '  XX XX ',
  983.  ' XXX XXX',
  984.  '        '), {234}
  985.  
  986. ('    XXX ',
  987.  '   XX   ',
  988.  '    XX  ',
  989.  '  XXXXX ',
  990.  ' XX  XX ',
  991.  ' XX  XX ',
  992.  '  XXXX  ',
  993.  '        '), {235}
  994.  
  995. ('        ',
  996.  '        ',
  997.  ' XXXXXX ',
  998.  'XX XX XX',
  999.  'XX XX XX',
  1000.  ' XXXXXX ',
  1001.  '        ',
  1002.  '        '), {236}
  1003.  
  1004. ('     XX ',
  1005.  '    XX  ',
  1006.  ' XXXXXX ',
  1007.  'XX XX XX',
  1008.  'XX XX XX',
  1009.  ' XXXXXX ',
  1010.  ' XX     ',
  1011.  'XX      '), {237}
  1012.  
  1013. ('   XXX  ',
  1014.  ' XX     ',
  1015.  'XX      ',
  1016.  'XXXXXX  ',
  1017.  'XX      ',
  1018.  ' XX     ',
  1019.  '   XXX  ',
  1020.  '        '), {238}
  1021.  
  1022. ('  XXXX  ',
  1023.  ' XX  XX ',
  1024.  ' XX  XX ',
  1025.  ' XX  XX ',
  1026.  ' XX  XX ',
  1027.  ' XX  XX ',
  1028.  ' XX  XX ',
  1029.  '        '), {239}
  1030.  
  1031. ('        ',
  1032.  ' XXXXXX ',
  1033.  '        ',
  1034.  ' XXXXXX ',
  1035.  '        ',
  1036.  ' XXXXXX ',
  1037.  '        ',
  1038.  '        '), {240}
  1039.  
  1040. ('   XX   ',
  1041.  '   XX   ',
  1042.  ' XXXXXX ',
  1043.  '   XX   ',
  1044.  '   XX   ',
  1045.  '        ',
  1046.  ' XXXXXX ',
  1047.  '        '), {241}
  1048.  
  1049. ('  XX    ',
  1050.  '   XX   ',
  1051.  '    XX  ',
  1052.  '   XX   ',
  1053.  '  XX    ',
  1054.  '        ',
  1055.  ' XXXXXX ',
  1056.  '        '), {242}
  1057.  
  1058. ('    XX  ',
  1059.  '   XX   ',
  1060.  '  XX    ',
  1061.  '   XX   ',
  1062.  '    XX  ',
  1063.  '        ',
  1064.  ' XXXXXX ',
  1065.  '        '), {243}
  1066.  
  1067. ('    XXX ',
  1068.  '   XX XX',
  1069.  '   XX XX',
  1070.  '   XX   ',
  1071.  '   XX   ',
  1072.  '   XX   ',
  1073.  '   XX   ',
  1074.  '   XX   '), {244}
  1075.  
  1076. ('   XX   ',
  1077.  '   XX   ',
  1078.  '   XX   ',
  1079.  '   XX   ',
  1080.  '   XX   ',
  1081.  'XX XX   ',
  1082.  'XX XX   ',
  1083.  ' XXX    '), {245}
  1084.  
  1085. ('   XX   ',
  1086.  '   XX   ',
  1087.  '        ',
  1088.  ' XXXXXX ',
  1089.  '        ',
  1090.  '   XX   ',
  1091.  '   XX   ',
  1092.  '        '), {246}
  1093.  
  1094. ('        ',
  1095.  ' XXX XX ',
  1096.  'XX XXX  ',
  1097.  '        ',
  1098.  ' XXX XX ',
  1099.  'XX XXX  ',
  1100.  '        ',
  1101.  '        '), {247}
  1102.  
  1103. ('  XXX   ',
  1104.  ' XX XX  ',
  1105.  ' XX XX  ',
  1106.  '  XXX   ',
  1107.  '        ',
  1108.  '        ',
  1109.  '        ',
  1110.  '        '), {248}
  1111.  
  1112. ('        ',
  1113.  '        ',
  1114.  '        ',
  1115.  '   XX   ',
  1116.  '   XX   ',
  1117.  '        ',
  1118.  '        ',
  1119.  '        '), {249}
  1120.  
  1121. ('        ',
  1122.  '        ',
  1123.  '        ',
  1124.  '        ',
  1125.  '   XX   ',
  1126.  '        ',
  1127.  '        ',
  1128.  '        '), {250}
  1129.  
  1130. ('    XXXX',
  1131.  '    XX  ',
  1132.  '    XX  ',
  1133.  '    XX  ',
  1134.  'XXX XX  ',
  1135.  ' XX XX  ',
  1136.  '  XXXX  ',
  1137.  '   XXX  '), {251}
  1138.  
  1139. (' XXXX   ',
  1140.  ' XX XX  ',
  1141.  ' XX XX  ',
  1142.  ' XX XX  ',
  1143.  ' XX XX  ',
  1144.  '        ',
  1145.  '        ',
  1146.  '        '), {252}
  1147.  
  1148. (' XXX    ',
  1149.  '   XX   ',
  1150.  '  XX    ',
  1151.  ' XX     ',
  1152.  ' XXXX   ',
  1153.  '        ',
  1154.  '        ',
  1155.  '        '), {253}
  1156.  
  1157. ('        ',
  1158.  '        ',
  1159.  '  XXXX  ',
  1160.  '  XXXX  ',
  1161.  '  XXXX  ',
  1162.  '  XXXX  ',
  1163.  '        ',
  1164.  '        '), {254}
  1165.  
  1166. ('        ',
  1167.  '        ',
  1168.  '        ',
  1169.  '        ',
  1170.  '        ',
  1171.  '        ',
  1172.  '        ',
  1173.  '        ')); {255}
  1174.  
  1175.  
  1176. Begin
  1177.  For I:=128 to 255 do
  1178.    For J:=0 to 7 do
  1179.     begin
  1180.      L:=0;
  1181.      For K:=0 to 7 do
  1182.      If F[I,J,K]<>' ' then L:=L OR ($80 shr K);
  1183.      X[I,J]:=L
  1184.     End;
  1185.   Res:=Ptr(CSEG,$0100);
  1186.   Res^:=X;
  1187.   InLine($0E/       {push cs}
  1188.          $1F/       {pop  ds}
  1189.          $BA/$0500/ {mov  dx,1280}
  1190.          $CD/$27);  {int  27h}
  1191. End.
  1192.