home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / STARS3D.ZIP / FONTS.FNT < prev    next >
Text File  |  1995-12-22  |  18KB  |  517 lines
  1. Const AL : Array[1..16,1..16] Of Byte =
  2. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  3. (0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0),
  4. (0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0),
  5. (0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0),
  6. (0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0),
  7. (0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0),
  8. (0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0),
  9. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1),
  10. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1),
  11. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1),
  12. (1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1),
  13. (1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1),
  14. (1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1),
  15. (1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1),
  16. (1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1),
  17. (1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1));
  18.  
  19.      CL : Array[1..16,1..16] Of Byte =
  20. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  21. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  22. (1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,0),
  23. (1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,0),
  24. (1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0),
  25. (1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0),
  26. (1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0),
  27. (1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0),
  28. (1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0),
  29. (1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0),
  30. (1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0),
  31. (1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0),
  32. (1,1,1,1,1,0,0,0,0,0,1,1,1,1,0,0),
  33. (1,1,1,1,1,0,0,0,0,0,1,1,1,1,0,0),
  34. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0),
  35. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0));
  36.  
  37.  DL : Array[1..16,1..16] Of Byte =
  38. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  39. (0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0),
  40. (0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0),
  41. (0,1,1,0,0,0,0,0,0,0,0,0,1,1,0,0),
  42. (0,1,1,0,0,0,0,0,0,0,0,0,1,1,0,0),
  43. (0,1,1,0,0,0,0,0,0,0,0,0,1,1,0,0),
  44. (0,1,1,0,0,0,0,0,0,0,0,0,1,1,0,0),
  45. (0,1,1,0,0,0,0,0,0,0,0,0,1,1,0,0),
  46. (0,1,1,1,1,0,0,0,0,0,0,0,1,1,0,0),
  47. (0,1,1,1,1,0,0,0,0,0,0,0,1,1,0,0),
  48. (0,1,1,1,1,0,0,0,0,0,0,0,1,1,0,0),
  49. (0,1,1,1,1,0,0,0,0,0,0,0,1,1,0,0),
  50. (0,1,1,1,1,0,0,0,0,0,0,0,1,1,0,0),
  51. (0,1,1,1,1,0,0,0,0,0,0,0,1,1,0,0),
  52. (0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0),
  53. (0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0));
  54.  
  55.  IL : Array[1..16,1..16] Of Byte =
  56. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  57. (0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0),
  58. (0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0),
  59. (0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0),
  60. (0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0),
  61. (0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0),
  62. (0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0),
  63. (0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0),
  64. (0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0),
  65. (0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0),
  66. (0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0),
  67. (0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0),
  68. (0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0),
  69. (0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0),
  70. (0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0),
  71. (0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0));
  72.  
  73.  NL : Array[1..16,1..16] Of Byte =
  74. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  75. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  76. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  77. (1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0),
  78. (1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0),
  79. (1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0),
  80. (1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0),
  81. (1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0),
  82. (1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0),
  83. (1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0),
  84. (1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0),
  85. (1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0),
  86. (1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0),
  87. (1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0),
  88. (1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0),
  89. (1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0));
  90.  
  91.  EL : Array[1..16,1..16] Of Byte =
  92. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  93. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  94. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  95. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  96. (1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  97. (1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  98. (1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  99. (1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0),
  100. (1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0),
  101. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),
  102. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),
  103. (1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0),
  104. (1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0),
  105. (1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0),
  106. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  107. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0));
  108.  
  109.  TL : Array[1..16,1..16] Of Byte =
  110. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  111. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  112. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  113. (0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0),
  114. (0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0),
  115. (0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0),
  116. (0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0),
  117. (0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0),
  118. (0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0),
  119. (0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0),
  120. (0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0),
  121. (0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0),
  122. (0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0),
  123. (0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0),
  124. (0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0),
  125. (0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0));
  126.  
  127.  ML : Array[1..16,1..16] Of Byte =
  128. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  129. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  130. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  131. (1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0),
  132. (1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0),
  133. (1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0),
  134. (1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0),
  135. (1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0),
  136. (1,1,1,1,0,0,0,1,1,0,0,0,0,1,1,0),
  137. (1,1,1,1,0,0,0,1,1,0,0,0,0,1,1,0),
  138. (1,1,1,1,0,0,0,1,1,0,0,0,0,1,1,0),
  139. (1,1,1,1,0,0,0,1,1,1,0,0,0,1,1,0),
  140. (1,1,1,1,0,0,0,1,1,1,0,0,0,1,1,0),
  141. (1,1,1,1,0,0,0,1,1,1,0,0,0,1,1,0),
  142. (1,1,1,1,0,0,0,1,1,1,0,0,0,1,1,0),
  143. (1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,0));
  144.  
  145.  OL : Array[1..16,1..16] Of Byte =
  146. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  147. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  148. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  149. (1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,0),
  150. (1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,0),
  151. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  152. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  153. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  154. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  155. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  156. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  157. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  158. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  159. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  160. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  161. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0));
  162.  
  163.  QL : Array[1..16,1..16] Of Byte =
  164. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  165. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  166. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  167. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  168. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  169. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  170. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  171. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  172. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  173. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  174. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  175. (1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  176. (1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,0),
  177. (1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,0),
  178. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  179. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0));
  180.  
  181.  FL : Array[1..16,1..16] Of Byte =
  182. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  183. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  184. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  185. (1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0),
  186. (1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0),
  187. (1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0),
  188. (1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0),
  189. (1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0),
  190. (1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0),
  191. (1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0),
  192. (1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0),
  193. (1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0),
  194. (1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0),
  195. (1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0),
  196. (1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0),
  197. (1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0));
  198.  
  199.  
  200.  GL : Array[1..16,1..16] Of Byte =
  201. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  202. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0),
  203. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0),
  204. (1,1,0,0,0,0,0,0,0,0,1,1,1,1,0,0),
  205. (1,1,0,0,0,0,0,0,0,0,1,1,1,1,0,0),
  206. (1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  207. (1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  208. (1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  209. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),
  210. (1,1,1,1,0,0,0,0,1,1,1,1,1,1,0,0),
  211. (1,1,1,1,0,0,0,0,1,1,1,1,1,1,0,0),
  212. (1,1,1,1,0,0,0,0,0,0,0,1,1,1,0,0),
  213. (1,1,1,1,0,0,0,0,0,0,0,1,1,1,0,0),
  214. (1,1,1,1,0,0,0,0,0,0,0,1,1,1,0,0),
  215. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0),
  216. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0));
  217.  
  218.  BL : Array[1..16,1..16] Of Byte =
  219. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  220. (0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0),
  221. (0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0),
  222. (0,0,0,1,1,0,0,0,0,0,0,1,0,0,0,0),
  223. (0,0,0,1,1,0,0,0,0,0,0,1,0,0,0,0),
  224. (0,0,0,1,1,0,0,0,0,0,0,1,0,0,0,0),
  225. (0,0,0,1,1,0,0,0,0,0,0,1,0,0,0,0),
  226. (0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0),
  227. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  228. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  229. (1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,0),
  230. (1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,0),
  231. (1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,0),
  232. (1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,0),
  233. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  234. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0));
  235.  
  236.  HL : Array[1..16,1..16] Of Byte =
  237. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  238. (1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0),
  239. (1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0),
  240. (1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0),
  241. (1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0),
  242. (1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0),
  243. (1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0),
  244. (1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0),
  245. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  246. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  247. (1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,0),
  248. (1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,0),
  249. (1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,0),
  250. (1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,0),
  251. (1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,0),
  252. (1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,0));
  253.  
  254.  KL : Array[1..16,1..16] Of Byte =
  255. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  256. (1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0),
  257. (1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0),
  258. (1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0),
  259. (1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0),
  260. (1,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0),
  261. (1,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0),
  262. (1,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0),
  263. (1,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0),
  264. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  265. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  266. (1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,0),
  267. (1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,0),
  268. (1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,0),
  269. (1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,0),
  270. (1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,0));
  271.  
  272.  JL : Array[1..16,1..16] Of Byte =
  273. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  274. (0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0),
  275. (0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0),
  276. (0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0),
  277. (0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0),
  278. (0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0),
  279. (0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0),
  280. (0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0),
  281. (0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0),
  282. (0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0),
  283. (0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0),
  284. (0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0),
  285. (1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,0),
  286. (1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,0),
  287. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  288. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0));
  289.  
  290.  PL : Array[1..16,1..16] Of Byte =
  291. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  292. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  293. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  294. (1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0),
  295. (1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0),
  296. (1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0),
  297. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  298. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  299. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),
  300. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),
  301. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),
  302. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),
  303. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),
  304. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),
  305. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),
  306. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0));
  307.  
  308.  LL : Array[1..16,1..16] Of Byte =
  309. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  310. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),
  311. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),
  312. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),
  313. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),
  314. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),
  315. (1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),
  316. (1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0),
  317. (1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0),
  318. (1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0),
  319. (1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0),
  320. (1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0),
  321. (1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0),
  322. (1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0),
  323. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  324. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0));
  325.  
  326.  RL : Array[1..16,1..16] Of Byte =
  327. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  328. (1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0),
  329. (1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0),
  330. (1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0),
  331. (1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0),
  332. (1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0),
  333. (1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0),
  334. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  335. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  336. (1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,0),
  337. (1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,0),
  338. (1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,0),
  339. (1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,0),
  340. (1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,0),
  341. (1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,0),
  342. (1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,0));
  343.  
  344.  SL : Array[1..16,1..16] Of Byte =
  345. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  346. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  347. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  348. (1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,0),
  349. (1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,0),
  350. (1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  351. (1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  352. (1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  353. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  354. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  355. (0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0),
  356. (0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0),
  357. (1,1,1,1,0,0,0,0,0,0,0,1,1,1,1,0),
  358. (1,1,1,1,0,0,0,0,0,0,0,1,1,1,1,0),
  359. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  360. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0));
  361.  
  362. WL : Array[1..16,1..16] Of Byte =
  363. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  364. (1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0),
  365. (1,1,1,0,0,0,0,1,1,0,0,0,1,1,1,0),
  366. (1,1,1,0,0,0,0,1,1,0,0,0,1,1,1,0),
  367. (1,1,1,0,0,0,0,1,1,0,0,0,1,1,1,0),
  368. (1,1,1,0,0,0,0,1,1,0,0,0,1,1,1,0),
  369. (1,1,1,0,0,0,0,1,1,0,0,0,1,1,1,0),
  370. (1,1,1,0,0,0,0,1,1,0,0,0,1,1,1,0),
  371. (1,1,1,0,0,0,0,1,1,0,0,0,1,1,1,0),
  372. (1,1,1,1,1,0,0,1,1,0,0,0,1,1,1,0),
  373. (1,1,1,1,1,0,0,1,1,0,0,0,1,1,1,0),
  374. (1,1,1,1,1,0,0,1,1,0,0,0,1,1,1,0),
  375. (1,1,1,1,1,0,0,1,1,0,0,0,1,1,1,0),
  376. (1,1,1,1,1,0,0,1,1,0,0,0,1,1,1,0),
  377. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  378. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0));
  379.  
  380.  UL : Array[1..16,1..16] Of Byte =
  381. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  382. (1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0),
  383. (1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0),
  384. (1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0),
  385. (1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0),
  386. (1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0),
  387. (1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0),
  388. (1,1,1,1,1,0,0,0,0,0,0,1,1,1,0,0),
  389. (1,1,1,1,1,0,0,0,0,0,0,1,1,1,0,0),
  390. (1,1,1,1,1,0,0,0,0,0,0,1,1,1,0,0),
  391. (1,1,1,1,1,0,0,0,0,0,0,1,1,1,0,0),
  392. (1,1,1,1,1,0,0,0,0,0,0,1,1,1,0,0),
  393. (1,1,1,1,1,0,0,0,0,0,0,1,1,1,0,0),
  394. (1,1,1,1,1,0,0,0,0,0,0,1,1,1,0,0),
  395. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0),
  396. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0));
  397.  
  398.  VL : Array[1..16,1..16] Of Byte =
  399. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  400. (1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0),
  401. (1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0),
  402. (1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0),
  403. (1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0),
  404. (1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0),
  405. (0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0),
  406. (0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0),
  407. (0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0),
  408. (0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0),
  409. (0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0),
  410. (0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0),
  411. (0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0),
  412. (0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0),
  413. (0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0),
  414. (0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0));
  415.  
  416. ZL : Array[1..16,1..16] Of Byte =
  417. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  418. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  419. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  420. (0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  421. (0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  422. (0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  423. (0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  424. (0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0),
  425. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  426. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  427. (1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  428. (1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  429. (1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,0),
  430. (1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,0),
  431. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  432. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0));
  433.  
  434. YL : Array[1..16,1..16] Of Byte =
  435. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  436. (1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,0),
  437. (1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,0),
  438. (1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,0),
  439. (1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,0),
  440. (1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,0),
  441. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  442. (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0),
  443. (0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0),
  444. (0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0),
  445. (0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0),
  446. (0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0),
  447. (0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0),
  448. (0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0),
  449. (0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0),
  450. (0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0));
  451.  
  452. XL : Array[1..16,1..16] Of Byte =
  453. ((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  454. (1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0),
  455. (1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0),
  456. (1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0),
  457. (1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0),
  458. (1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0),
  459. (0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0),
  460. (0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0),
  461. (1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,0),
  462. (1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,0),
  463. (1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,0),
  464. (1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,0),
  465. (1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,0),
  466. (1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,0),
  467. (1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,0),
  468. (1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,0));
  469.  
  470. Procedure PutMsg(X1,Y1:Word;Msg : String);
  471. Var Which,Letter : Array[1..16,1..16] Of Byte;
  472.     Pos,X,Y,Z : Word;
  473. Begin
  474.      Pos := 1;
  475.      For Z := 1 To Length(Msg) Do Begin
  476.      For X := 1 To 16 Do Begin
  477.      For Y := 1 To 16 Do Begin
  478.  
  479.      {Poor Way Of Matching Letters But Only Way I Can Think Of At Mo}
  480.      {And Cant Be Bothered TO Do It Anyother Way}
  481.      {If AnyOne Can Think Of Something Let Me Know');
  482.  
  483.      If Msg[Z] = 'A' Then Letter[X,Y] := AL[X,Y];
  484.      If Msg[Z] = 'O' Then Letter[X,Y] := OL[X,Y];
  485.      If Msg[Z] = 'N' Then Letter[X,Y] := NL[X,Y];
  486.      If Msg[Z] = 'C' Then Letter[X,Y] := CL[X,Y];
  487.      If Msg[Z] = 'D' Then Letter[X,Y] := DL[X,Y];
  488.      If Msg[Z] = 'I' Then Letter[X,Y] := IL[X,Y];
  489.      If Msg[Z] = 'M' Then Letter[X,Y] := ML[X,Y];
  490.      If Msg[Z] = 'F' Then Letter[X,Y] := FL[X,Y];
  491.      If Msg[Z] = 'E' Then Letter[X,Y] := EL[X,Y];
  492.      If Msg[Z] = 'G' Then Letter[X,Y] := gL[X,Y];
  493.      If Msg[Z] = 'H' Then Letter[X,Y] := hL[X,Y];
  494.      If Msg[Z] = 'J' Then Letter[X,Y] := jL[X,Y];
  495.      If Msg[Z] = 'K' Then Letter[X,Y] := kL[X,Y];
  496.      If Msg[Z] = 'L' Then Letter[X,Y] := lL[X,Y];
  497.      If Msg[Z] = 'P' Then Letter[X,Y] := pL[X,Y];
  498.      If Msg[Z] = 'R' Then Letter[X,Y] := RL[X,Y];
  499.      If Msg[Z] = 'S' Then Letter[X,Y] := sL[X,Y];
  500.      If Msg[Z] = 'U' Then Letter[X,Y] := uL[X,Y];
  501.      if Msg[Z] = 'V' Then Letter[X,Y] := vL[X,Y];
  502.      If Msg[Z] = 'W' Then Letter[X,Y] := wL[X,Y];
  503.      If Msg[Z] = 'X' Then Letter[X,Y] := xL[X,Y];
  504.      If Msg[Z] = 'Y' Then Letter[X,Y] := yL[X,Y];
  505.      If Msg[Z] = 'Z' Then Letter[X,Y] := zL[X,Y];
  506.      If Msg[Z] = 'B' Then Letter[X,Y] := bL[X,Y];
  507.      If Msg[Z] = 'T' Then Letter[X,Y] := TL[X,Y];
  508.      If Msg[Z] = ' ' Then Letter[X,Y] := 0;
  509.  
  510.  
  511.      If Letter[X,Y] <> 0 Then PutPixel(Y+Y1+Pos,X+X1,Letter[X,Y],VirAddr);
  512.      end;
  513. end;
  514.     Inc(Pos,17);
  515. end;
  516. end;
  517.