home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / VGAINTRO.ZIP / PALETTE4.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-06-01  |  44.3 KB  |  939 lines
  1. Program PaletteTricks;
  2.  
  3.   Uses Crt;
  4.  
  5.  
  6.   Const CGA_CharSet_Seg = $0F000;
  7.         CGA_CharSet_Ofs = $0FA6E;
  8.         CharLength      = 8;
  9.         NumChars        = 256;
  10.         VGA_Segment     = $0A000;
  11.         NumCycles       = 200;
  12.         Radius          = 80;
  13.  
  14.         DispStr         : String =
  15.                               '...LOADER BY FRED NIETZCHE......ALBERT IS A WEENIE!......CALL CENTERPOINT! (301) 309-0144...';
  16.  
  17.         Colors : Array[1..15*3] Of Byte =
  18.                  (  7,  7, 63,
  19.                    15, 15, 63,
  20.                    23, 23, 63,
  21.                    31, 31, 63,
  22.                    39, 39, 63,
  23.                    47, 47, 63,
  24.                    55, 55, 63,
  25.                    63, 63, 63,
  26.                    55, 55, 63,
  27.                    47, 47, 63,
  28.                    39, 39, 63,
  29.                    31, 31, 63,
  30.                    23, 23, 63,
  31.                    15, 15, 63,
  32.                     7,  7, 63  );
  33.  
  34.  
  35. Picture : Array[1..13776] Of Byte = 
  36. (* Size is 287 by 48 *)
  37. (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  38. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  39. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  40. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  41. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  42. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  43. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  44. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  45. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  46. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  47. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  48. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  49. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  50. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  51. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  52. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  53. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  54. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  55. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  56. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  57. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  58. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  59. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  60. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  61. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  62. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  63. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  64. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  65. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  66. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  67. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  68. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  69. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  70. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  71. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  72. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  73. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  74. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  75. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  76. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  77. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  78. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  79. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  80. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  81. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  82. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  83. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  84. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  85. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  86. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  87. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  88. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  89. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  90. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  91. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  92. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  93. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  94. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  95. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  96. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  97. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  98. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  99. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  100. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  101. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  102. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  103. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  104. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  105. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  106. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  107. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  108. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  109. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  110. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  111. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  112. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,241,245,245,245,245,
  113. 245,246,246,247,247,248,248,249,249,250,250,249,249,248,248,247,247,246,246,
  114. 245,245,244,244,243,243,242,242,241,241,242,242,243,244,244,245,245,246,246,
  115. 247,247,248,248,249,249,250,250,251,251,252,252,251,250,249,248,247,246,245,
  116. 246,247,251,239,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  117. 0,0,250,246,244,244,245,245,246,246,247,247,248,248,249,249,249,249,249,
  118. 248,248,247,247,247,246,246,246,245,245,245,245,242,0,0,0,244,247,248,
  119. 248,249,248,247,246,245,242,0,0,0,0,0,0,0,0,0,0,0,0,
  120. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  121. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,244,246,
  122. 245,245,244,244,243,243,243,242,242,241,241,242,242,243,243,243,243,244,243,
  123. 244,244,245,245,246,246,247,247,248,248,249,249,250,250,251,251,250,250,249,
  124. 249,248,248,248,249,254,239,0,0,0,0,0,0,0,249,249,244,244,246,
  125. 246,247,247,248,248,249,249,250,250,251,251,250,249,248,248,247,247,246,246,
  126. 245,245,244,244,243,243,243,243,243,243,242,242,241,241,242,242,242,243,243,
  127. 243,244,244,245,245,246,244,0,0,0,0,0,0,0,0,0,242,241,245,
  128. 245,245,245,245,246,246,247,247,248,248,249,249,250,250,249,249,248,248,247,
  129. 247,246,246,245,245,244,244,243,243,242,242,241,241,242,243,244,244,245,245,
  130. 246,246,247,248,248,249,249,250,250,251,251,252,252,251,250,249,248,247,246,
  131. 245,244,244,244,245,248,251,239,0,0,0,0,0,0,0,0,0,0,0,
  132. 0,0,250,246,243,243,243,244,244,245,245,246,246,247,247,248,248,249,249,
  133. 249,249,249,248,248,247,247,247,246,246,246,245,245,243,244,0,0,0,243,
  134. 244,247,248,249,248,246,245,243,244,0,0,0,0,0,0,0,0,0,0,
  135. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  136. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  137. 247,244,246,245,245,244,244,243,243,243,242,242,241,241,242,242,243,243,244,
  138. 244,244,244,245,245,246,246,247,247,248,248,249,249,250,250,251,251,250,250,
  139. 249,249,248,248,245,246,247,247,248,249,251,254,239,239,249,249,245,243,243,
  140. 244,245,246,246,247,247,248,248,249,249,250,250,251,251,249,249,248,248,247,
  141. 247,246,246,245,245,244,244,244,244,243,243,242,242,241,241,242,242,243,243,
  142. 243,243,244,244,245,245,246,244,247,0,0,0,0,0,0,0,0,0,243,
  143. 242,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  144. 249,249,249,249,249,249,249,249,249,249,248,248,248,248,247,247,246,246,246,
  145. 246,246,246,246,246,246,246,246,246,246,246,246,246,247,247,248,248,248,248,
  146. 249,249,249,249,248,247,245,246,246,249,239,0,0,0,0,0,0,0,0,
  147. 0,0,0,247,242,242,244,246,249,249,249,249,249,249,249,249,249,249,249,
  148. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,244,246,0,0,
  149. 0,242,243,249,249,249,249,249,249,244,246,0,0,0,0,0,0,0,0,
  150. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  151. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  152. 0,0,246,245,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  153. 249,249,249,249,249,249,249,249,248,248,248,247,247,246,246,246,246,246,246,
  154. 246,246,246,247,247,248,248,249,249,249,249,249,249,247,247,247,251,251,249,
  155. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  156. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,248,247,
  157. 247,247,247,246,246,246,246,246,246,245,246,0,0,0,0,0,0,0,0,
  158. 0,244,243,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  159. 249,249,249,249,249,249,249,249,249,249,249,249,248,248,248,248,247,247,246,
  160. 246,246,246,246,246,246,246,246,246,246,246,246,246,246,247,247,248,248,248,
  161. 248,249,249,249,249,249,249,249,249,248,247,247,250,239,0,0,0,0,0,
  162. 0,0,0,0,245,242,243,246,249,249,249,249,249,249,249,249,249,249,249,
  163. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,246,246,
  164. 0,0,0,241,242,249,249,249,249,249,249,246,246,0,0,0,0,0,0,
  165. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  166. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  167. 0,0,0,0,246,246,249,249,249,249,249,249,249,249,249,249,249,249,249,
  168. 249,249,249,249,249,249,249,249,249,248,248,248,247,247,246,246,246,246,246,
  169. 246,246,246,246,246,246,247,247,248,248,249,249,249,249,249,249,249,247,247,
  170. 248,251,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  171. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  172. 248,247,247,247,247,247,246,246,246,246,246,246,246,0,0,0,0,0,0,
  173. 0,0,0,245,245,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  174. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,248,248,248,248,247,
  175. 247,246,246,246,246,246,246,246,246,246,246,246,246,246,246,247,247,248,248,
  176. 248,248,249,249,249,249,249,249,249,249,249,249,249,248,248,251,239,0,0,
  177. 0,0,0,0,0,248,243,245,249,249,249,249,249,249,249,249,249,249,249,
  178. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  179. 246,247,0,0,0,242,241,249,249,249,249,249,249,246,247,0,0,0,0,
  180. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  181. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  182. 0,0,0,0,0,0,246,246,249,249,249,249,249,249,249,249,249,249,249,
  183. 249,249,249,249,249,249,249,249,249,249,249,248,248,248,247,247,246,246,246,
  184. 246,246,246,246,246,246,246,246,247,247,248,248,249,249,249,249,249,249,249,
  185. 249,249,247,248,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  186. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  187. 249,249,248,247,247,247,247,247,246,246,246,246,246,246,246,0,0,0,0,
  188. 0,0,0,0,0,246,247,249,249,249,249,249,249,249,249,249,249,249,249,
  189. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,248,248,248,248,
  190. 247,247,246,246,246,246,246,246,246,246,246,246,246,246,246,246,246,247,247,
  191. 248,248,248,248,249,249,249,249,249,249,249,249,249,249,249,249,249,249,254,
  192. 0,0,0,0,0,0,251,245,244,249,249,249,249,249,249,249,249,249,249,
  193. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  194. 249,249,247,247,0,0,0,243,242,249,249,249,249,249,249,247,247,0,0,
  195. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  196. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  197. 0,0,0,0,0,0,0,0,247,246,249,249,249,249,249,249,249,249,249,
  198. 249,249,249,249,249,249,249,249,249,249,249,249,249,248,248,248,247,247,246,
  199. 246,246,246,246,246,246,246,246,246,246,246,247,247,248,248,249,249,249,249,
  200. 249,249,249,249,249,247,247,248,249,249,249,249,249,249,249,249,249,249,249,
  201. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  202. 249,249,249,249,249,249,248,248,247,247,247,247,246,246,246,246,247,0,0,
  203. 0,0,0,0,0,0,0,247,249,249,249,249,249,249,249,249,249,249,249,
  204. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,248,248,
  205. 248,248,247,247,246,246,246,246,246,246,246,246,246,246,246,246,246,246,247,
  206. 247,248,248,248,248,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  207. 250,250,0,0,0,0,0,0,247,246,248,249,249,249,249,249,249,249,249,
  208. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  209. 249,249,249,249,247,248,0,0,0,244,243,249,249,249,249,249,249,247,248,
  210. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  211. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  212. 0,0,0,0,0,0,0,0,0,0,247,247,249,249,249,249,249,249,249,
  213. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,248,248,248,247,
  214. 247,246,246,246,246,246,246,246,246,246,246,246,246,246,247,248,248,249,249,
  215. 249,249,249,249,249,249,249,249,247,247,248,249,249,249,249,249,249,249,249,
  216. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  217. 249,249,249,249,249,249,249,249,248,248,248,247,247,247,245,246,246,247,247,
  218. 0,0,0,0,0,0,0,0,0,249,249,249,249,249,249,249,249,249,249,
  219. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  220. 248,248,248,248,247,247,246,246,246,246,246,246,246,246,246,246,246,246,246,
  221. 246,247,247,248,248,248,248,249,249,249,249,249,249,249,249,249,249,249,249,
  222. 249,249,250,250,239,0,0,0,0,251,247,247,249,249,249,249,249,249,249,
  223. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  224. 249,249,249,249,249,249,248,248,0,0,0,245,244,249,249,249,249,249,249,
  225. 248,248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  226. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  227. 0,0,0,0,0,0,0,0,0,0,0,0,248,247,249,249,249,249,249,
  228. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,248,248,248,
  229. 247,247,246,246,246,246,246,246,246,246,246,246,246,246,246,246,247,248,248,
  230. 248,249,249,249,249,249,249,249,249,249,249,249,247,248,249,249,249,249,249,
  231. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  232. 249,249,249,249,249,249,249,249,249,249,249,249,248,247,247,245,245,245,246,
  233. 247,248,0,0,0,0,0,0,0,0,0,249,238,237,237,236,236,235,235,
  234. 234,234,233,233,234,234,248,249,249,249,249,249,249,247,232,232,232,232,232,
  235. 232,232,236,236,235,235,234,234,233,233,234,234,235,235,236,236,237,238,239,
  236. 238,237,237,236,236,235,235,234,234,233,234,235,235,236,236,235,249,249,249,
  237. 249,249,249,249,249,249,251,0,0,0,0,248,248,237,237,237,237,237,237,
  238. 237,237,236,236,236,235,235,234,234,233,234,235,236,237,238,239,238,237,237,
  239. 236,236,235,235,234,234,234,233,233,249,0,0,0,245,245,249,249,249,249,
  240. 249,249,248,249,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  241. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  242. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,248,238,238,237,237,
  243. 236,236,235,235,234,234,233,233,234,234,234,249,249,249,249,249,249,249,238,
  244. 238,237,237,236,236,235,235,234,233,233,235,235,236,239,239,238,238,237,237,
  245. 236,236,232,235,235,249,249,249,249,249,249,249,249,249,249,247,248,247,235,
  246. 235,234,234,235,235,235,235,235,234,234,235,235,236,236,237,237,238,238,249,
  247. 249,249,249,249,249,249,234,234,234,233,233,234,234,234,235,235,236,236,237,
  248. 237,238,238,248,0,0,0,0,0,0,0,0,0,238,237,237,236,236,235,
  249. 235,234,234,233,233,234,234,248,248,249,249,249,249,249,249,247,247,232,232,
  250. 232,232,232,232,232,236,236,235,235,234,234,233,233,234,234,235,235,236,237,
  251. 238,239,238,237,236,236,235,235,234,234,233,234,235,235,236,236,235,235,232,
  252. 249,249,249,249,249,249,249,248,248,0,0,0,0,248,237,237,237,237,237,
  253. 237,237,237,237,237,236,236,236,235,235,234,234,233,234,235,236,237,238,239,
  254. 238,237,237,236,236,235,235,234,234,234,233,233,0,0,0,246,245,249,249,
  255. 249,249,249,249,249,249,0,0,0,0,0,0,0,0,0,0,0,0,0,
  256. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  257. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,237,237,238,
  258. 238,237,237,236,236,235,235,234,234,233,233,234,252,249,249,249,249,249,249,
  259. 249,245,238,237,236,236,235,235,234,233,233,235,235,236,239,239,238,238,237,
  260. 237,236,236,235,235,235,234,234,235,249,249,249,249,249,249,249,249,249,247,
  261. 247,249,234,235,235,235,236,235,236,236,235,233,234,235,235,236,236,237,238,
  262. 245,249,249,249,249,249,249,249,252,234,233,233,234,234,235,235,235,236,236,
  263. 237,237,238,238,237,237,0,0,0,0,0,0,0,0,0,0,0,0,0,
  264. 0,0,0,0,0,0,0,0,0,247,248,249,249,249,249,249,249,247,247,
  265. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  266. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  267. 232,232,232,249,249,249,249,249,249,246,246,0,0,0,0,0,0,0,0,
  268. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  269. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,246,246,
  270. 249,249,249,249,249,249,249,248,0,0,0,0,0,0,0,0,0,0,0,
  271. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  272. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  273. 0,0,0,0,0,0,0,0,0,0,0,0,0,252,252,249,249,249,249,
  274. 249,249,249,245,245,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  275. 0,245,243,250,250,250,249,249,249,233,233,233,249,249,249,249,249,249,249,
  276. 249,249,247,247,249,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  277. 0,245,245,249,249,249,249,249,249,249,252,252,0,0,0,0,0,0,0,
  278. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  279. 0,0,0,0,0,0,0,0,0,0,0,246,247,249,249,249,249,249,249,
  280. 247,248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  281. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  282. 0,0,0,232,232,249,249,249,249,249,249,232,232,0,0,0,0,0,0,
  283. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  284. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  285. 247,246,249,249,249,249,249,249,248,248,0,0,0,0,0,0,0,0,0,
  286. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  287. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  288. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,252,252,249,249,
  289. 249,249,249,249,249,246,245,0,0,0,0,0,0,0,0,0,0,0,0,
  290. 0,0,248,243,250,249,249,249,249,249,249,249,249,233,233,249,249,249,249,
  291. 249,249,249,249,249,247,247,249,0,0,0,0,0,0,0,0,0,0,0,
  292. 0,0,0,245,246,249,249,249,249,249,249,249,252,252,0,0,0,0,0,
  293. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  294. 0,0,0,0,0,0,0,0,0,0,0,0,0,245,246,249,249,249,249,
  295. 249,249,248,249,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  296. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  297. 0,0,0,0,243,244,232,249,249,249,249,249,249,232,232,0,0,0,0,
  298. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  299. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  300. 0,0,247,247,249,249,249,249,249,249,248,247,0,0,0,0,0,0,0,
  301. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  302. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  303. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,252,252,
  304. 249,249,249,249,249,249,249,246,246,0,0,0,0,0,0,0,0,0,0,
  305. 0,0,0,251,245,244,249,249,249,249,249,249,249,249,249,249,234,234,249,
  306. 249,249,249,249,249,249,249,249,247,247,0,0,0,0,0,0,0,0,0,
  307. 0,0,0,0,0,246,246,249,249,249,249,249,249,249,252,252,0,0,0,
  308. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  309. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,245,245,249,249,
  310. 249,249,249,249,249,250,0,0,0,0,0,0,0,0,0,0,0,0,0,
  311. 241,247,247,246,246,245,245,244,244,245,246,247,248,249,250,251,252,251,250,
  312. 249,249,248,247,246,245,244,242,248,249,249,249,249,249,249,235,232,0,0,
  313. 0,0,241,242,243,243,244,244,245,245,246,246,247,247,248,248,247,247,246,
  314. 246,245,245,244,244,243,243,244,244,245,249,252,0,0,0,0,0,0,0,
  315. 0,0,0,0,248,247,249,249,249,249,249,249,247,247,0,0,0,0,0,
  316. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  317. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  318. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  319. 252,252,249,249,249,249,249,249,249,247,246,0,0,0,0,0,0,0,0,
  320. 0,0,0,0,0,247,246,248,249,249,249,249,249,249,249,249,251,251,0,
  321. 234,234,249,249,249,249,249,249,249,249,249,246,247,0,0,0,0,0,0,
  322. 0,0,0,0,0,0,0,246,247,249,249,249,249,249,249,249,252,252,0,
  323. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  324. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,244,245,
  325. 249,249,249,249,249,249,250,250,0,0,0,0,0,0,0,0,0,0,0,
  326. 0,0,242,241,246,246,245,245,244,244,245,246,247,248,248,249,250,251,252,
  327. 251,250,250,249,249,248,247,246,245,247,249,249,249,249,249,249,249,235,237,
  328. 0,0,0,0,232,242,242,243,243,244,244,245,245,246,246,247,247,248,248,
  329. 247,246,246,245,244,244,243,243,244,244,245,245,246,246,249,254,0,0,0,
  330. 0,0,0,0,0,0,248,248,249,249,249,249,249,249,246,246,0,0,0,
  331. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  332. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  333. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  334. 0,0,252,251,249,249,249,249,249,249,249,247,247,0,0,0,0,0,0,
  335. 0,0,0,0,0,0,0,247,247,249,249,249,249,249,249,249,249,251,251,
  336. 0,0,0,237,235,249,249,249,249,249,249,249,249,248,244,246,0,0,0,
  337. 0,0,0,0,0,0,0,0,0,247,247,249,249,249,249,249,249,249,251,
  338. 252,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  339. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  340. 243,244,249,249,249,249,249,249,250,251,0,0,0,0,0,0,0,0,0,
  341. 0,0,0,0,243,242,246,246,246,246,246,246,247,247,248,248,248,248,249,
  342. 249,247,246,246,246,246,246,246,246,247,248,249,249,249,249,249,249,249,234,
  343. 235,239,0,0,0,0,238,232,232,249,249,249,249,249,249,249,249,249,249,
  344. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,248,247,247,248,251,
  345. 0,0,0,0,0,0,0,0,249,248,249,249,249,249,249,249,247,247,0,
  346. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  347. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  348. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  349. 0,0,0,0,251,251,249,249,249,249,249,249,249,248,247,0,0,0,0,
  350. 0,0,0,0,0,0,0,0,0,248,249,249,249,249,249,249,249,249,251,
  351. 251,0,0,0,0,0,236,236,249,249,249,249,249,249,249,249,248,244,247,
  352. 0,0,0,0,0,0,0,0,0,0,0,247,248,249,249,249,249,249,249,
  353. 249,251,251,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  354. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  355. 0,0,243,243,249,249,249,249,249,249,251,251,0,0,0,0,0,0,0,
  356. 0,0,0,0,0,0,244,243,246,246,246,246,246,246,247,247,248,248,248,
  357. 248,249,249,248,247,246,246,246,246,246,246,246,247,248,249,249,249,249,249,
  358. 249,234,236,0,0,0,0,0,0,232,232,249,249,249,249,249,249,249,249,
  359. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  360. 248,248,250,0,0,0,0,0,0,0,249,249,249,249,249,249,249,249,248,
  361. 247,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  362. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  363. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  364. 0,0,0,0,0,0,250,250,249,249,249,249,249,249,249,248,248,0,0,
  365. 0,0,0,0,0,0,0,0,0,0,0,248,249,249,249,249,249,249,249,
  366. 249,251,0,0,0,0,0,0,0,236,237,249,249,249,249,249,249,249,249,
  367. 248,245,248,0,0,0,0,0,0,0,0,0,0,248,248,249,249,249,249,
  368. 249,249,249,250,250,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  369. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  370. 0,0,0,0,242,242,249,249,249,249,249,249,251,251,0,0,0,0,0,
  371. 0,0,0,0,0,0,0,0,245,244,246,246,246,246,246,246,247,247,248,
  372. 248,248,248,249,249,249,248,247,246,246,246,246,246,246,246,247,248,249,249,
  373. 249,249,233,233,239,0,0,0,0,0,0,239,235,235,249,249,249,249,249,
  374. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  375. 249,249,249,248,250,251,0,0,0,0,0,0,250,250,249,249,249,249,249,
  376. 249,248,248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  377. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  378. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  379. 0,0,0,0,0,0,0,0,250,250,249,249,249,249,249,249,249,248,248,
  380. 0,0,0,0,0,0,0,0,0,0,0,0,0,248,249,249,249,249,249,
  381. 249,249,249,251,0,0,0,0,0,0,0,0,237,237,249,249,249,249,249,
  382. 249,249,248,245,248,0,0,0,0,0,0,0,0,0,0,248,248,249,249,
  383. 249,249,249,249,249,250,250,0,0,0,0,0,0,0,0,0,0,0,0,
  384. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  385. 0,0,0,0,0,0,241,241,249,249,249,249,249,249,251,250,0,0,0,
  386. 0,0,0,0,0,0,0,0,0,0,246,245,246,246,246,246,246,247,247,
  387. 248,248,248,248,249,249,249,249,248,248,247,247,246,246,246,246,246,246,247,
  388. 248,248,249,232,234,236,0,0,0,0,0,0,0,0,238,235,232,249,249,
  389. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  390. 249,249,249,249,249,249,251,251,239,0,0,0,0,0,250,250,249,249,249,
  391. 249,249,249,249,248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  392. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  393. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  394. 0,0,0,0,0,0,0,0,0,0,250,250,249,249,249,249,249,249,249,
  395. 249,248,0,0,0,0,0,0,0,0,0,0,0,0,0,249,249,249,249,
  396. 249,249,249,249,250,250,0,0,0,0,0,0,0,0,0,238,238,249,249,
  397. 249,249,249,249,249,247,245,251,0,0,0,0,0,0,0,0,0,248,249,
  398. 249,249,249,249,249,249,249,250,250,0,0,0,0,0,0,0,0,0,0,
  399. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  400. 0,0,0,0,0,0,0,0,242,242,249,249,249,249,249,249,250,250,0,
  401. 0,0,0,0,0,0,0,0,0,0,0,0,247,246,246,246,246,246,246,
  402. 247,247,248,248,248,248,249,249,249,249,249,249,248,248,247,246,246,246,246,
  403. 246,246,247,232,236,235,236,239,0,0,0,0,0,0,0,0,0,238,236,
  404. 236,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  405. 249,249,249,249,249,249,249,249,249,250,250,0,0,0,0,0,251,251,249,
  406. 249,249,249,249,249,249,249,0,0,0,0,0,0,0,0,0,0,0,0,
  407. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  408. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  409. 0,0,0,0,0,0,0,0,0,0,0,0,249,249,249,249,249,249,249,
  410. 249,249,250,249,0,0,0,0,0,0,0,0,0,0,0,0,0,249,250,
  411. 249,249,249,249,249,249,250,249,0,0,0,0,0,0,0,0,0,239,238,
  412. 237,249,249,249,249,249,249,249,246,249,0,0,0,0,0,0,0,0,0,
  413. 249,250,249,249,249,249,249,249,249,249,249,0,0,0,0,0,0,0,0,
  414. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  415. 0,0,0,0,0,0,0,0,0,0,243,243,249,249,249,249,249,249,250,
  416. 249,0,0,0,0,0,0,0,0,0,0,0,0,0,247,247,246,246,246,
  417. 246,247,247,248,248,248,248,249,249,249,249,249,249,249,249,248,248,247,246,
  418. 246,246,246,232,237,237,237,238,239,0,0,0,0,0,0,0,0,0,0,
  419. 0,238,236,237,237,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  420. 249,249,249,249,249,249,249,249,249,249,249,250,250,239,0,0,0,0,251,
  421. 251,249,249,249,249,249,249,250,249,0,0,0,0,0,0,0,0,0,0,
  422. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  423. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  424. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,249,249,249,249,249,
  425. 249,249,249,249,250,250,0,0,0,0,0,0,0,0,0,0,0,0,0,
  426. 250,250,249,249,249,249,249,249,249,249,0,0,0,0,0,0,0,0,0,
  427. 0,239,237,235,249,249,249,249,249,249,248,246,253,0,0,0,0,0,0,
  428. 0,0,250,250,249,249,249,249,249,249,249,249,249,0,0,0,0,0,0,
  429. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  430. 0,0,0,0,0,0,0,0,0,0,0,0,243,244,249,249,249,249,249,
  431. 249,249,249,0,0,0,0,0,0,0,0,0,0,0,0,0,248,248,246,
  432. 246,246,246,247,247,248,248,248,248,249,249,249,249,249,249,249,249,249,248,
  433. 248,232,236,236,236,236,237,237,239,0,0,0,0,0,0,0,0,0,0,
  434. 0,0,0,0,239,238,237,238,238,238,239,238,238,237,237,236,236,237,237,
  435. 236,236,235,235,234,234,232,249,249,249,249,249,249,249,249,251,0,0,0,
  436. 0,250,250,249,249,249,249,249,249,250,250,0,0,0,0,0,0,0,0,
  437. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  438. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  439. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,248,248,249,
  440. 249,249,249,249,249,249,249,249,0,0,0,0,0,0,0,0,0,0,0,
  441. 0,0,250,251,249,249,249,249,249,249,249,247,0,0,0,0,0,0,0,
  442. 0,0,0,0,239,235,249,249,249,249,249,249,249,247,250,0,0,0,0,
  443. 0,0,0,0,249,249,249,249,249,249,249,249,249,248,248,0,0,0,0,
  444. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  445. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,244,245,249,249,249,
  446. 249,249,249,248,248,0,0,0,0,0,0,0,0,0,0,0,0,0,249,
  447. 249,246,246,246,246,247,247,251,251,235,235,249,249,249,249,249,249,249,249,
  448. 236,236,236,236,236,236,236,238,239,0,0,0,0,0,0,0,0,0,0,
  449. 0,0,0,0,0,0,0,0,239,238,238,239,238,238,237,237,236,236,236,
  450. 236,237,237,236,236,235,235,234,234,248,249,249,249,249,249,249,249,248,0,
  451. 0,0,0,250,249,249,249,248,248,249,249,251,250,0,0,0,0,0,0,
  452. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  453. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  454. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,248,
  455. 248,249,249,249,249,249,249,249,248,248,0,0,0,0,0,0,0,0,0,
  456. 0,0,0,0,251,251,249,249,249,249,249,249,247,247,0,0,0,0,0,
  457. 0,0,0,0,0,0,0,237,249,249,249,249,249,249,249,247,247,0,0,
  458. 0,0,0,0,0,0,248,248,249,249,249,249,249,249,249,248,248,0,0,
  459. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  460. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,245,245,249,
  461. 249,249,249,249,249,247,247,0,0,0,0,0,0,0,0,0,0,0,0,
  462. 0,249,249,246,246,246,247,247,248,251,251,235,236,236,249,249,249,249,249,
  463. 249,249,249,249,249,249,0,0,0,0,0,0,0,0,0,0,0,0,0,
  464. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  465. 0,0,0,0,0,0,0,0,0,236,233,233,248,249,249,249,249,249,248,
  466. 248,0,0,0,0,249,249,248,248,248,247,247,248,251,251,0,0,0,0,
  467. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  468. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  469. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  470. 0,248,248,249,249,249,249,249,249,249,248,248,0,0,0,0,0,0,0,
  471. 0,0,0,0,0,0,251,251,249,249,249,249,249,249,247,247,0,0,0,
  472. 0,0,0,0,0,0,0,0,0,237,249,249,249,249,249,249,249,247,247,
  473. 0,0,0,0,0,0,0,0,248,248,249,249,249,249,249,249,249,248,248,
  474. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  475. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,245,
  476. 246,249,249,249,249,249,249,246,246,0,0,0,0,0,0,0,0,0,0,
  477. 0,0,0,248,248,246,246,246,247,247,248,250,250,0,236,237,237,249,249,
  478. 249,249,249,249,249,249,249,248,247,0,0,0,0,0,0,0,0,0,0,
  479. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  480. 0,0,0,0,0,0,0,0,0,0,0,0,244,244,249,249,249,249,249,
  481. 249,248,232,0,0,0,0,249,248,246,246,246,247,247,247,252,251,0,0,
  482. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  483. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  484. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  485. 0,0,0,247,248,249,249,249,249,249,249,249,247,247,0,0,0,0,0,
  486. 0,0,0,0,0,0,0,0,251,250,250,249,249,249,249,249,247,246,0,
  487. 0,0,0,0,0,0,0,0,0,0,0,254,249,249,249,249,249,249,249,
  488. 248,247,254,0,0,0,0,0,0,0,247,247,249,249,249,249,249,249,249,
  489. 248,247,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  490. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  491. 0,246,246,249,249,249,249,249,249,245,246,0,0,0,0,0,0,0,0,
  492. 0,0,0,0,0,247,247,246,246,246,247,247,248,250,250,0,0,237,238,
  493. 238,249,249,249,249,249,249,249,249,247,246,246,0,0,0,0,0,0,0,
  494. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  495. 0,0,0,0,0,0,0,0,0,0,0,0,0,249,245,245,247,248,249,
  496. 249,249,249,232,232,0,0,0,0,248,248,246,246,246,246,246,246,252,252,
  497. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  498. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  499. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  500. 0,0,0,0,0,247,247,249,249,249,249,249,249,249,246,246,0,0,0,
  501. 0,0,0,0,0,0,0,0,0,0,250,250,249,249,249,248,249,249,246,
  502. 246,0,0,0,0,0,0,0,0,0,0,0,0,0,248,248,249,249,249,
  503. 249,249,249,248,250,0,0,0,0,0,0,0,246,246,249,249,249,249,249,
  504. 249,249,247,247,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  505. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  506. 0,0,0,246,247,249,249,249,249,249,249,245,245,0,0,0,0,0,0,
  507. 0,0,0,0,0,0,0,247,246,246,246,247,247,248,248,249,249,0,0,
  508. 0,238,237,237,249,249,249,249,249,249,249,249,246,245,245,0,0,0,0,
  509. 0,0,0,0,0,0,0,0,246,247,247,246,246,245,245,244,244,243,243,
  510. 242,241,241,242,242,243,243,244,244,245,245,246,246,247,247,247,246,247,247,
  511. 248,249,249,249,249,232,232,0,0,0,0,248,247,246,246,246,246,246,246,
  512. 252,249,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  513. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  514. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  515. 0,0,0,0,0,0,0,246,247,249,249,249,249,249,249,249,245,245,0,
  516. 0,0,0,0,0,0,0,0,0,0,0,0,250,249,249,248,248,248,247,
  517. 248,246,245,0,0,0,0,0,0,0,0,0,0,0,0,0,249,247,249,
  518. 249,249,249,249,249,248,250,0,0,0,0,0,0,0,245,245,249,249,249,
  519. 249,249,249,249,247,246,0,0,0,0,0,0,0,0,0,0,0,0,0,
  520. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  521. 0,0,0,0,0,247,247,249,249,249,249,249,249,246,245,0,0,0,0,
  522. 0,0,0,0,0,0,0,0,0,246,245,246,246,247,247,248,248,248,248,
  523. 0,0,0,0,237,236,236,249,249,249,249,249,249,249,249,245,246,246,0,
  524. 0,0,0,0,0,0,0,0,0,0,247,246,246,246,245,245,244,244,243,
  525. 243,242,242,241,241,241,242,242,243,243,244,244,245,245,246,246,247,247,246,
  526. 246,247,247,248,248,249,249,236,238,0,0,0,0,247,247,246,246,246,246,
  527. 246,246,249,249,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  528. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  529. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  530. 0,0,0,0,0,0,0,0,0,246,246,249,249,249,249,249,249,249,244,
  531. 245,0,0,0,0,0,0,0,0,0,0,0,0,0,249,249,248,246,246,
  532. 246,247,247,245,245,0,0,0,0,0,0,0,0,0,0,0,0,0,246,
  533. 246,249,249,249,249,249,249,248,250,0,0,0,0,0,0,0,245,244,249,
  534. 249,249,249,249,249,248,246,246,0,0,0,0,0,0,0,0,0,0,0,
  535. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  536. 0,0,0,0,0,0,0,247,248,249,249,249,249,249,249,246,246,0,0,
  537. 0,0,0,0,0,0,0,0,0,0,0,245,244,246,246,247,246,247,247,
  538. 247,248,0,0,0,0,0,236,235,235,249,249,249,249,249,249,249,249,246,
  539. 247,247,0,0,0,0,0,0,0,0,0,0,246,246,248,248,249,249,249,
  540. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,247,
  541. 247,246,247,247,247,247,247,248,237,236,239,0,0,0,0,247,246,246,246,
  542. 246,246,246,246,249,247,0,0,0,0,0,0,0,0,0,0,0,0,0,
  543. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  544. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  545. 0,0,0,0,0,0,0,0,0,0,0,246,246,249,249,248,248,249,248,
  546. 249,244,244,0,0,0,0,0,0,0,0,0,0,0,0,0,249,247,247,
  547. 246,246,246,246,246,245,244,0,0,0,0,0,0,0,0,0,0,0,0,
  548. 0,246,247,249,249,249,249,249,249,248,250,0,0,0,0,0,0,0,244,
  549. 244,249,248,248,249,249,248,248,246,246,0,0,0,0,0,0,0,0,0,
  550. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  551. 0,0,0,0,0,0,0,0,0,248,248,249,249,249,249,249,249,247,246,
  552. 0,0,0,0,0,0,0,0,0,0,0,0,0,244,245,246,246,247,245,
  553. 246,246,246,247,0,0,0,0,0,0,235,235,232,249,249,249,249,249,249,
  554. 249,249,247,247,247,0,0,0,0,0,0,0,0,0,246,245,248,248,249,
  555. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  556. 249,249,247,246,246,247,247,247,247,248,237,238,0,0,0,0,0,246,246,
  557. 246,246,246,246,246,246,247,247,0,0,0,0,0,0,0,0,0,0,0,
  558. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  559. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  560. 0,0,0,0,0,0,0,0,0,0,0,0,0,245,246,248,248,248,247,
  561. 248,248,248,243,244,0,0,0,0,0,0,0,0,0,0,0,0,0,247,
  562. 247,247,246,246,246,246,246,244,247,247,246,246,246,245,246,246,247,247,248,
  563. 248,249,248,247,248,249,249,249,249,249,249,249,254,0,0,0,0,0,0,
  564. 0,244,243,248,248,247,248,248,248,248,246,245,0,0,0,0,0,0,0,
  565. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  566. 0,0,0,0,0,0,0,0,0,0,0,248,249,249,249,249,249,249,249,
  567. 247,247,0,0,0,0,0,0,0,0,0,0,0,0,0,245,246,246,247,
  568. 246,246,245,245,246,246,0,0,0,0,0,0,0,232,232,232,248,249,249,
  569. 249,249,249,249,249,247,248,248,0,0,0,0,0,0,0,0,245,245,248,
  570. 248,248,248,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  571. 249,249,249,249,248,246,246,246,246,247,247,236,236,239,0,0,0,0,0,
  572. 246,245,246,246,246,246,246,246,247,246,0,0,0,0,0,0,0,0,0,
  573. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  574. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  575. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,245,246,248,248,
  576. 248,247,248,248,248,243,244,0,0,0,0,0,0,0,0,0,0,0,0,
  577. 0,247,247,247,246,246,246,246,246,244,247,247,246,246,246,245,246,246,247,
  578. 247,248,248,249,248,247,248,249,249,249,249,249,249,249,254,0,0,0,0,
  579. 0,0,0,244,243,248,248,247,248,248,248,248,246,245,0,0,0,0,0,
  580. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  581. 0,0,0,0,0,0,0,0,0,0,0,0,0,249,249,249,249,249,249,
  582. 249,249,248,247,0,0,0,0,0,0,0,0,0,0,0,0,0,246,247,
  583. 246,247,247,247,245,246,245,246,0,0,0,0,0,0,0,0,232,232,235,
  584. 248,248,249,249,249,249,248,248,248,249,249,0,0,0,0,0,0,0,245,
  585. 244,247,248,248,248,249,249,249,249,249,249,249,249,249,249,249,249,249,249,
  586. 249,249,249,249,249,249,249,247,246,246,246,247,232,235,238,0,0,0,0,
  587. 0,0,245,245,246,246,246,246,246,246,246,246,0,0,0,0,0,0,0,
  588. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  589. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  590. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,245,245,
  591. 248,248,247,247,247,247,248,242,243,0,0,0,0,0,0,0,0,0,0,
  592. 0,0,0,247,246,246,246,246,246,246,246,246,246,246,247,247,247,248,248,
  593. 249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,249,0,0,0,
  594. 0,0,0,0,0,243,242,248,247,247,247,247,248,248,245,245,0,0,0,
  595. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  596. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,249,249,249,249,
  597. 249,249,249,249,248,248,0,0,0,0,0,0,0,0,0,0,0,0,0,
  598. 247,248,246,247,246,247,246,246,245,245,0,0,0,0,0,0,0,0,0,
  599. 232,232,235,248,248,248,248,248,248,248,248,249,250,250,0,0,0,0,0,
  600. 0,244,244,247,248,248,249,249,249,249,249,249,249,249,249,249,249,249,249,
  601. 249,249,249,249,248,249,249,249,249,248,247,246,246,234,235,237,0,0,0,
  602. 0,0,0,0,245,246,246,246,246,246,246,246,246,247,0,0,0,0,0,
  603. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  604. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  605. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  606. 245,245,247,247,247,246,247,247,247,241,242,0,0,0,0,0,0,0,0,
  607. 0,0,0,0,0,246,246,246,246,246,246,246,246,246,246,246,247,247,247,
  608. 248,248,249,249,249,249,249,249,249,249,249,249,249,249,249,249,236,237,0,
  609. 0,0,0,0,0,0,0,242,241,247,247,246,247,247,247,247,245,245,0,
  610. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  611. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,249,249,
  612. 249,249,249,249,249,249,249,248,0,0,0,0,0,0,0,0,0,0,0,
  613. 0,0,248,249,246,247,247,248,247,247,246,245,0,0,0,0,0,0,0,
  614. 0,0,0,232,232,235,248,248,248,248,248,249,248,248,250,250,249,0,0,
  615. 0,0,0,244,243,248,248,248,249,249,249,249,249,249,249,249,249,249,249,
  616. 249,249,249,249,249,249,249,248,248,248,249,248,248,233,234,234,237,0,0,
  617. 0,0,0,0,0,0,246,247,246,246,246,246,246,247,247,248,0,0,0,
  618. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  619. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  620. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  621. 0,0,244,245,246,246,246,246,246,246,246,242,241,0,0,0,0,0,0,
  622. 0,0,0,0,0,0,0,246,245,245,246,246,246,246,246,246,246,246,246,
  623. 247,247,248,248,248,248,249,249,249,249,249,249,249,249,249,249,249,235,236,
  624. 238,0,0,0,0,0,0,0,0,241,242,246,246,246,246,246,246,246,245,
  625. 244,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  626. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  627. 249,234,234,235,236,237,238,238,237,249,0,0,0,0,0,0,0,0,0,
  628. 0,0,0,0,249,235,234,233,235,236,237,237,246,246,0,0,0,0,0,
  629. 0,0,0,0,0,0,232,232,235,248,248,249,249,249,249,249,248,249,249,
  630. 249,0,0,0,0,243,243,238,237,237,236,236,235,235,234,234,233,233,234,
  631. 234,235,235,236,236,237,237,236,236,235,235,234,234,233,233,233,236,239,0,
  632. 0,0,0,0,0,0,0,0,247,233,233,234,234,235,235,236,236,248,0,
  633. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  634. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  635. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  636. 0,0,0,0,244,244,246,246,246,246,246,246,246,243,242,0,0,0,0,
  637. 0,0,0,0,0,0,0,0,0,245,245,246,246,246,246,246,246,246,247,
  638. 247,247,247,247,247,248,248,249,249,249,249,249,249,249,249,249,249,249,234,
  639. 233,237,0,0,0,0,0,0,0,0,0,242,243,246,246,246,246,246,246,
  640. 246,244,244,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  641. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  642. 0,0,234,234,235,235,236,237,238,239,238,237,0,0,0,0,0,0,0,
  643. 0,0,0,0,0,0,235,234,233,234,235,236,236,237,237,246,0,0,0,
  644. 0,0,0,0,0,0,0,0,0,232,235,234,248,249,249,249,248,249,249,
  645. 247,249,249,248,0,0,0,243,239,237,237,236,236,235,235,234,234,234,233,
  646. 233,234,234,234,235,235,236,236,237,237,236,236,235,235,234,234,236,239,0,
  647. 0,0,0,0,0,0,0,0,0,0,233,233,234,234,235,235,236,236,237,
  648. 237,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  649. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  650. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  651. 0,0,0,0,0,0,244,244,246,246,246,246,246,246,246,244,243,0,0,
  652. 0,0,0,0,0,0,0,0,0,0,0,245,245,247,246,246,246,246,247,
  653. 247,248,248,248,248,248,248,248,248,249,249,249,249,249,249,249,249,249,249,
  654. 236,235,237,0,0,0,0,0,0,0,0,0,0,243,244,246,246,246,246,
  655. 246,246,246,244,244,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  656. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  657. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  658. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  659. 0,0,0,0,0,0,0,0,0,0,0,0,232,235,234,248,249,248,249,
  660. 248,248,248,247,248,248,248,0,0,0,0,0,0,0,0,0,0,0,0,
  661. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  662. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  663. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  664. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  665. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  666. 0,0,0,0,0,0,0,0,244,244,246,246,246,246,246,246,246,244,243,
  667. 0,0,0,0,0,0,0,0,0,0,0,0,0,245,245,247,246,246,246,
  668. 246,247,247,248,248,248,248,248,248,248,248,249,249,249,249,249,249,249,249,
  669. 237,237,236,235,237,0,0,0,0,0,0,0,0,0,0,243,244,246,246,
  670. 246,246,246,246,246,244,244,0,0,0,0,0,0,0,0,0,0,0,0,
  671. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  672. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  673. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  674. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,235,235,234,248,
  675. 248,248,248,248,248,248,247,248,248,247,0,0,0,0,0,0,0,0,0,
  676. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  677. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  678. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  679. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  680. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  681. 0,0,0,0,0,0,0,0,0,0,244,233,234,235,236,237,237,238,238,
  682. 239,244,0,0,0,0,0,0,0,0,0,0,0,0,0,245,234,234,235,
  683. 235,236,236,237,237,238,238,239,238,238,237,237,236,236,237,238,238,239,239,
  684. 238,238,238,237,238,239,0,0,0,0,0,0,0,0,0,0,0,244,244,
  685. 239,238,237,237,236,235,234,233,244,0,0,0,0,0,0,0,0,0,0,
  686. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  687. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  688. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  689. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,235,
  690. 234,233,248,248,248,248,247,247,247,247,247,247,247,0,0,0,0,0,0,
  691. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  692. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  693. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  694. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  695. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  696. 0,0,0,0,0,0,0,0,0,0,0,0,233,234,234,235,236,236,237,
  697. 237,238,238,239,0,0,0,0,0,0,0,0,0,0,0,0,0,234,234,
  698. 235,235,236,236,237,237,238,238,239,238,238,238,237,237,236,236,237,237,238,
  699. 238,239,239,238,239,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  700. 244,239,238,237,237,236,236,235,234,234,233,0,0,0,0,0,0,0,0,
  701. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  702. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  703. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  704. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  705. 0,0,235,234,233,247,247,247,247,247,247,247,247,246,246,246,0,0,0,
  706. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  707. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  708. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  709. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  710. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  711. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  712. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  713. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  714. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  715. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  716. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  717. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  718. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  719. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  720. 0,0,0,0,0,234,234,233,246,246,246,246,247,247,247,247,245,245,245,
  721. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  722. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  723. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  724. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  725. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  726. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  727. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  728. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  729. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  730. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  731. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  732. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  733. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  734. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  735. 0,0,0,0,0,0,0,0,233,233,238,239,238,237,236,235,234,233,234,
  736. 235,245,245,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  737. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  738. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  739. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  740. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  741. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  742. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  743. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  744. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  745. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  746. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  747. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  748. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  749. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  750. 0,0,0,0,0,0,0,0,0,0,0,238,239,238,237,236,236,235,234,
  751. 233,234,234,235,235,245,0,0,0,0,0,0,0,0,0,0,0,0,0,
  752. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  753. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  754. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  755. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  756. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  757. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  758. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  759. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  760. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  761. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
  762.  
  763.  
  764. PicPalette : Array[1..22*4] Of Byte = 
  765. (232,31,25,23,
  766. 233,28,22,19,
  767. 234,25,19,16,
  768. 235,22,16,12,
  769. 236,19,14,9,
  770. 237,16,12,7,
  771. 238,13,10,5,
  772. 239,10,8,3,
  773. 241,46,47,63,
  774. 242,40,42,60,
  775. 243,35,38,56,
  776. 244,30,34,53,
  777. 245,25,30,50,
  778. 246,21,28,47,
  779. 247,17,25,44,
  780. 248,14,22,41,
  781. 249,11,20,38,
  782. 250,8,19,34,
  783. 251,5,16,31,
  784. 252,3,15,28,
  785. 253,1,13,25,
  786. 254,0,12,22);
  787.  
  788.  
  789. Type  OneChar =Array[1..CharLength] Of Byte;
  790.  
  791.  
  792. Var   CharSet : Array[1..NumChars] Of OneChar;
  793.       Locs    : Array[1..NumCycles] Of Integer;
  794.       BarLocs : Array[1..4] Of Integer;
  795.  
  796.  
  797.   Procedure GetChars;
  798.  
  799.     Var NumCounter,
  800.         ByteCounter,
  801.         MemCounter   :Integer;
  802.   
  803.     Begin { GetChars }
  804.       MemCounter:=0;
  805.       For NumCounter:=1 To NumChars Do
  806.         For ByteCounter:=1 To CharLength Do
  807.           Begin
  808.             CharSet[NumCounter][ByteCounter]:=Mem[CGA_CharSet_Seg:CGA_CharSet_Ofs+MemCounter];
  809.             Inc(MemCounter);
  810.           End;
  811.     End;  { GetChars }
  812.  
  813.  
  814.   Procedure VideoMode ( Mode : Byte );
  815.  
  816.     Begin { VideoMode }
  817.       Asm
  818.         Mov  AH,00
  819.         Mov  AL,Mode
  820.         Int  10h
  821.       End;
  822.     End;  { VideoMode }
  823.  
  824.  
  825.   Procedure SetColor ( Color, Red, Green, Blue : Byte );
  826.  
  827.     Begin { SetColor }
  828.       Port[$3C8] := Color;
  829.       Port[$3C9] := Red;
  830.       Port[$3C9] := Green;
  831.       Port[$3C9] := Blue;
  832.     End;  { SetColor }
  833.  
  834.  
  835.   Procedure DispVert ( Var CurrLine : Integer );
  836.  
  837.     Var Letter : OneChar;
  838.         VertLine,
  839.         Count  : Integer;
  840.  
  841.     Begin { DispVert }
  842.       Letter := CharSet[Ord(DispStr[(CurrLine Div 8)+1])+1];
  843.       VertLine := (CurrLine-1) Mod 8;
  844.       For Count := 1 To 8 Do
  845.         If Letter[Count] And ($80 Shr VertLine) = 0
  846.           Then Mem[VGA_Segment:185*320+(Count-1)*320+319] := 0
  847.           Else Mem[VGa_Segment:185*320+(Count-1)*320+319] := 181;
  848.     End;  { DispVert }
  849.  
  850.  
  851.   Procedure CalcLocs;
  852.  
  853.     Var Count : Integer;
  854.  
  855.     Begin { CalcLocs }
  856.       For Count := 1 To NumCycles Do
  857.         Locs[Count] := Round(Radius*Sin((2*Pi/NumCycles)*Count))+Radius+1;
  858.     End;  { CalcLocs }
  859.  
  860.  
  861.   Procedure DrawBar ( Var Bar : Integer );
  862.  
  863.     Var Count,
  864.         PrevBar : Integer;
  865.  
  866.     Begin { DrawBar }
  867.       If BarLocs[Bar] = 1
  868.         Then PrevBar := Locs[NumCycles]
  869.         Else PrevBar := Locs[BarLocs[Bar]-1];
  870.       Port[$3C8] := PrevBar;
  871.       For Count := 1 To 15*3 Do
  872.         Port[$3C9] := 0;
  873.       Port[$3C8] := Locs[BarLocs[Bar]];
  874.       For Count := 1 To 15*3 Do
  875.         Port[$3C9] := Colors[Count];
  876.       Inc(BarLocs[Bar]);
  877.     End;  { DrawBar }
  878.  
  879.  
  880.   Var CurrVert,
  881.       XCount,
  882.       Count     : Integer;
  883.       Key       : Char;
  884.       MemPos    : Word;
  885.  
  886.   Begin { PaletteTricks }
  887.  
  888.     VideoMode($13);
  889.     Port[$3C8] := 1;
  890.     For Count := 1 To 180 Do
  891.       SetColor(Count,0,0,0);
  892.     For Count := 1 To 23 Do
  893.       Begin
  894.         Port[$3C8] := PicPalette[(Count-1)*4+1];
  895.         Port[$3C9] := PicPalette[(Count-1)*4+2];
  896.         Port[$3C9] := PicPalette[(Count-1)*4+3];
  897.         Port[$3C9] := PicPalette[(Count-1)*4+4];
  898.       End;
  899.     MemPos := 0;
  900.     For Count := 1 To 180 Do
  901.       Begin
  902.         FillChar(Mem[VGA_Segment:MemPos],320,Chr(Count));
  903.         MemPos := MemPos + 320;
  904.       End;
  905.  
  906.     For Count := 1 To 48 Do
  907.       For XCount := 1 To 287 Do
  908.         If Picture[(Count-1)*287+XCount] <> 0
  909.           Then Mem[VGA_Segment:50*320+(Count-1)*320+20+XCount] := Picture[(Count-1)*287+XCount];
  910.  
  911.     SetColor(181,63,63,0);
  912.     CalcLocs;
  913.     For Count := 1 To 4 Do
  914.       BarLocs[Count] := Count*10;
  915.  
  916.     GetChars;
  917.     CurrVert := 1;
  918.     Repeat
  919.       Repeat Until (Port[$3DA] And $08) = 0;
  920.       Repeat Until (Port[$3DA] And $08) <> 0;
  921.       For Count := 1 To 4 Do
  922.         Begin
  923.           DrawBar(Count);
  924.           If BarLocs[Count] > NumCycles Then BarLocs[Count] := 1;
  925.         End;
  926.  
  927.       For Count := 1 To 8 Do
  928.         Move(Mem[VGA_Segment:185*320+(Count-1)*320+1],
  929.              Mem[VGA_Segment:185*320+(Count-1)*320],319);
  930.       DispVert(CurrVert);
  931.       Inc(CurrVert);
  932.       If CurrVert > Length(DispStr) * 8
  933.         Then CurrVert := 1;
  934.  
  935.     Until Keypressed;
  936.     Key := ReadKey;
  937.     VideoMode(3);
  938.   End.  { PaletteTricks }
  939.