home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / demosrce / hardin / hardin.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-03  |  58.2 KB  |  1,046 lines
  1. {///////////////////////////////////////////////////////////////////////////}
  2. { Ca y est...  je  me suis  décidé  à mettre  le source  de  HARDIN  dans le
  3.   domaine public!  A mon point  de vue,  c'est  un petit programme assez peu
  4.   important, mais c'est a priori c'est susceptible d'intéresser quelques uns
  5.   d'entre vous.  Ceux-ci  sont  évidemment  curieux  de savoir  comment "ça"
  6.   marche! En fait, c'est relativement simple (une fois  que l'on a visualisé
  7.   le fichier PCX);  les emplacements des points et pavés des  deux scrollers
  8.   de textes sont  prédessinés à  l'aide  de  235 couleurs  de la palette; un
  9.   cyclage astucieux crée l'illusion  de l'animation (il  fallait y penser!).
  10.   Le programme initial  utilise  goldplay (player de MODs des CodeBlasters),
  11.   alors que cette version n'est que graphique (les spots ont donc été ôtés).
  12.   Sachez donc tirer profit  de ce petit cadeau  et évitez de faire partie du
  13.   club  très large  des  LAMERS  en "pompant"  bêtement  et en changeant les
  14.   textes des messages...
  15.  
  16.   ATTENTION! l'adresse+téléphone  dans la démo  ne sont plus  valables!!!...
  17.   Pour  de  plus  amples  informations,  d'éventuelles suggestions,  ou tout
  18.   simplement pour le fun, vous pouvez m'écrire à l'adresse suivante:
  19.  
  20.                                Patrick Ruelle
  21.                          43, av. de Grande Bretagne
  22.                                 98000 Monaco
  23.                             Principauté de Monaco
  24.  
  25.   Evidemment  je n'ai pas pris  la décision  de diffuser  ce source  dans le
  26.   but de demander de l'argent,  mais il va de soit que toutes sortes de dons
  27.   sont acceptés (carte  postale,  matos,  argent, spécialités locales, docs,
  28.   etc...).  N'oubliez pas non plus que cette diffusion ne m'enlève nullement
  29.   mes  droits d'auteur  de cette mmm... de démo;  ce petit package peut être
  30.   diffusé librement à condition de rester sous sa forme initiale:
  31.  
  32.  HARDIN  .EXE  03/08/94  22928 L'exécutable de la démo
  33.  HARDIN  .PAS  03/08/94  59644 Le source de la démo
  34.  ANIMAGE .PAS  03/08/94   5054 Biblio graphique pour mode 13h
  35.  HARDIN  .PCX  29/09/93  13556 L'image PCX du tableau interne compressé
  36.                         ------
  37.                TOTAL    101182
  38.  
  39.   La version  actuelle  est remaniée exprès pour la diffusion de ce package,
  40.   mais en fait ce programme date de fin 1993...
  41.  
  42.                                           Patrick Ruelle (Monac) / GRYPHAEA }
  43. {///////////////////////////////////////////////////////////////////////////}
  44. {$M 4000,0,150000}
  45. {$R-,V-,A+}
  46. PROGRAM HARDIN;
  47.  
  48. USES Crt,Dos,Animage;
  49.  
  50. CONST img:ARRAY[0..13366] OF BYTE=
  51. (242,1,242,0,5,40,245,247,1,241,7,1,246,5,247,1,0,10,244,1,241,
  52. 13,246,246,1,241,6,246,247,1,0,6,244,1,241,4,246,246,247,1,0,7,
  53. 247,1,241,8,1,246,5,241,247,0,0,244,1,241,21,247,245,1,0,7,244,
  54. 1,241,11,247,1,0,8,245,1,241,5,247,1,0,18,246,1,0,18,244,1,
  55. 241,16,1,246,11,241,247,1,0,18,246,1,0,86,247,241,241,1,242,9,241,
  56. 241,1,246,4,247,1,0,7,245,247,1,242,7,241,1,246,5,241,241,1,242,
  57. 5,241,246,246,247,1,0,5,245,242,242,0,1,1,241,3,246,241,247,1,0,
  58. 5,247,241,243,243,1,242,3,241,246,241,241,1,246,3,241,245,1,0,3,245,
  59. 247,1,243,6,242,242,0,1,242,242,0,1,1,243,12,241,246,247,245,1,0,
  60. 5,245,247,1,242,10,241,1,0,8,245,247,1,242,4,241,1,0,17,247,246,
  61. 247,1,0,17,245,247,1,242,14,241,241,1,246,7,1,241,3,245,1,0,18,
  62. 247,246,247,1,0,84,245,247,1,242,9,241,1,246,4,241,241,242,242,0,1,
  63. 242,242,0,1,246,247,1,0,5,245,247,1,243,5,242,242,0,1,242,242,0,
  64. 1,241,1,246,4,241,241,242,242,0,1,1,243,4,242,242,0,1,241,241,246,
  65. 246,247,1,0,5,247,241,246,246,1,241,3,1,0,5,241,1,243,3,1,242,
  66. 3,241,241,246,241,246,241,242,242,0,1,247,1,0,4,245,247,1,243,6,1,
  67. 242,5,1,243,8,242,242,0,1,241,241,246,247,245,1,0,4,245,247,1,243,
  68. 4,1,242,6,241,1,0,8,245,247,1,243,3,242,242,0,1,241,1,0,17,
  69. 241,246,246,1,0,17,245,247,1,243,12,242,242,0,1,1,241,3,246,1,241,
  70. 7,242,242,0,1,245,1,0,19,241,246,246,1,0,83,247,1,243,5,1,242,
  71. 6,246,246,1,241,3,1,242,5,241,247,1,0,4,245,247,1,243,5,242,242,
  72. 0,1,242,242,0,1,241,246,246,1,241,3,242,242,0,1,242,242,0,1,1,
  73. 243,3,242,242,0,1,242,242,0,1,241,241,1,246,3,1,0,5,245,246,246,
  74. 1,241,4,247,1,0,3,247,241,1,243,3,242,242,0,1,242,242,0,1,247,
  75. 0,245,247,246,241,241,242,242,0,1,245,1,0,4,245,247,1,243,6,1,242,
  76. 3,241,1,242,4,1,243,4,242,242,0,1,242,242,0,1,241,241,246,246,247,
  77. 245,1,0,3,245,247,1,243,9,242,242,0,1,246,1,0,8,245,247,1,243,
  78. 3,242,242,0,1,246,1,0,16,247,241,246,241,247,1,0,16,245,247,1,243,
  79. 10,1,242,3,241,246,246,1,241,5,1,242,3,245,1,0,19,247,241,246,241,
  80. 247,1,0,81,245,1,243,7,1,242,3,1,241,4,243,1,242,8,241,247,1,
  81. 0,3,245,247,1,243,3,247,245,244,247,1,246,3,241,241,242,242,0,1,247,
  82. 245,245,1,242,3,241,241,246,246,241,246,247,1,0,5,247,1,241,3,242,242,
  83. 0,1,242,242,0,1,241,1,0,3,241,1,243,5,247,0,0,246,241,241,242,
  84. 242,0,1,242,242,0,1,247,1,0,5,245,247,1,243,3,247,245,244,247,242,
  85. 242,0,1,241,241,242,242,0,1,241,242,242,0,1,247,245,245,1,242,3,241,
  86. 241,246,246,241,246,247,1,0,3,245,247,1,243,8,242,242,0,1,242,242,0,
  87. 1,246,1,0,8,245,247,1,243,3,242,242,0,1,246,1,0,16,241,241,242,
  88. 242,0,1,242,242,0,1,241,1,0,16,245,247,1,243,3,242,242,0,1,247,
  89. 245,244,247,243,242,242,0,1,242,242,0,1,1,241,3,246,241,241,1,242,5,
  90. 243,245,1,0,20,241,241,242,242,0,1,242,242,0,1,241,1,0,80,247,1,
  91. 243,6,247,245,242,242,0,1,242,242,0,1,241,241,1,245,4,247,247,1,243,
  92. 5,242,242,0,1,242,242,0,1,241,1,0,3,245,247,1,243,3,241,0,245,
  93. 247,246,241,246,1,0,6,245,245,241,241,246,246,241,241,246,246,1,0,5,245,
  94. 1,242,4,243,241,247,0,247,241,1,243,5,245,0,247,241,241,1,242,3,245,
  95. 1,0,5,245,247,1,243,3,241,0,245,247,241,241,246,1,0,6,245,245,241,
  96. 241,246,246,241,241,246,247,1,0,3,245,247,1,243,4,247,245,244,247,242,242,
  97. 0,1,241,246,1,0,8,245,247,1,243,3,242,242,0,1,246,1,0,15,247,
  98. 241,242,242,0,1,242,242,0,1,243,241,247,1,0,15,245,247,1,243,3,242,
  99. 242,0,1,241,0,245,247,242,242,0,1,242,242,0,1,247,1,245,12,1,0,
  100. 20,247,241,242,242,0,1,242,242,0,1,243,241,247,1,0,78,245,1,243,5,
  101. 247,245,245,0,242,242,0,1,241,246,241,246,1,0,3,245,245,247,247,1,243,
  102. 4,247,1,0,4,245,247,243,243,242,242,0,1,241,0,245,247,246,241,246,1,
  103. 0,8,245,246,246,1,241,4,246,1,0,6,247,242,242,0,1,242,242,0,1,
  104. 1,243,3,241,0,241,1,243,5,247,0,0,241,241,242,242,0,1,242,242,0,
  105. 1,243,247,1,0,6,245,247,1,243,3,241,0,245,247,241,241,246,1,0,8,
  106. 245,246,246,1,241,4,246,1,0,3,245,247,1,243,4,241,0,245,247,241,241,
  107. 246,1,0,8,245,247,1,243,3,242,242,0,1,246,1,0,15,241,1,242,3,
  108. 243,242,242,0,1,241,1,0,15,245,247,243,243,242,242,0,1,242,242,0,1,
  109. 241,0,245,247,242,242,0,1,241,246,1,0,32,241,1,242,3,243,242,242,0,
  110. 1,241,1,0,78,247,1,243,4,247,245,0,247,241,1,246,3,241,246,1,0,
  111. 5,245,245,247,243,243,247,1,0,5,245,247,243,243,242,242,0,1,241,0,245,
  112. 247,246,241,246,1,0,9,245,243,241,241,242,242,0,1,242,242,0,1,241,1,
  113. 0,6,245,242,242,0,1,242,242,0,1,1,243,3,242,242,0,1,247,242,242,
  114. 0,1,1,243,5,245,0,247,241,242,242,0,1,242,242,0,1,243,243,245,1,
  115. 0,6,245,247,1,243,3,241,0,245,247,246,241,246,1,0,9,245,243,241,241,
  116. 242,242,0,1,242,242,0,1,241,1,0,3,245,247,1,243,3,242,242,0,1,
  117. 241,0,245,247,241,246,246,1,0,8,245,247,243,243,242,242,0,1,242,242,0,
  118. 1,246,1,0,14,247,241,242,242,0,1,1,243,3,242,242,0,1,241,247,1,
  119. 0,14,245,247,243,243,242,242,0,1,242,242,0,1,241,0,245,247,241,241,246,
  120. 1,0,31,247,241,242,242,0,1,1,243,3,242,242,0,1,241,247,1,0,76,
  121. 245,1,243,5,245,247,1,241,4,1,242,3,241,1,0,7,245,247,247,1,0,
  122. 6,245,247,243,243,242,242,0,1,241,0,245,247,1,241,3,1,0,4,247,1,
  123. 0,5,245,1,242,3,243,241,1,0,7,247,1,243,5,242,242,0,1,1,243,
  124. 5,247,0,0,241,242,242,0,1,242,242,0,1,243,243,247,1,0,7,245,247,
  125. 1,243,3,241,0,245,247,1,241,3,1,0,10,245,1,242,3,243,241,1,0,
  126. 3,245,247,243,1,242,3,241,0,245,247,246,246,241,1,0,8,245,247,243,243,
  127. 242,242,0,1,242,242,0,1,246,1,0,14,241,242,242,0,1,242,242,0,1,
  128. 1,243,4,242,242,0,1,241,1,0,14,245,247,243,1,242,3,241,0,245,247,
  129. 246,246,241,1,0,31,241,242,242,0,1,242,242,0,1,1,243,4,242,242,0,
  130. 1,241,1,0,76,247,1,243,4,247,0,242,242,0,1,1,241,3,242,242,0,
  131. 1,242,242,0,1,243,243,241,1,0,8,247,1,0,7,245,247,243,243,242,242,
  132. 0,1,241,0,245,247,1,241,3,1,0,4,241,1,0,5,245,241,1,243,3,
  133. 242,242,0,1,1,0,7,245,1,243,11,245,0,247,242,242,0,1,242,242,0,
  134. 1,1,243,3,245,1,0,7,245,247,1,243,3,241,0,245,247,1,241,3,1,
  135. 0,10,245,1,243,4,242,242,0,1,1,0,3,245,247,243,1,242,3,241,0,
  136. 245,247,246,241,241,1,0,8,245,247,243,1,242,3,246,1,0,13,247,241,242,
  137. 242,0,1,1,243,5,242,242,0,1,241,247,1,0,13,245,247,243,1,242,3,
  138. 246,0,245,247,246,241,241,1,0,30,247,241,242,242,0,1,1,243,5,242,242,
  139. 0,1,241,247,1,0,75,247,1,243,3,247,0,1,242,6,243,245,245,247,1,
  140. 0,16,245,247,1,242,3,246,0,245,247,242,242,0,1,242,242,0,1,241,1,
  141. 0,3,247,241,247,1,0,4,245,1,243,4,241,1,0,8,247,1,243,9,247,
  142. 0,0,241,1,243,4,247,1,0,8,245,247,1,242,3,246,0,245,247,243,243,
  143. 241,1,0,10,245,1,243,4,241,1,0,3,245,247,1,242,3,241,241,0,245,
  144. 247,246,241,241,1,0,8,245,247,1,242,4,246,1,0,13,241,242,242,0,1,
  145. 1,243,3,247,1,243,3,242,242,0,1,241,1,0,13,245,247,1,242,3,241,
  146. 246,0,245,247,246,241,241,1,0,30,241,242,242,0,1,1,243,3,247,1,243,
  147. 3,242,242,0,1,241,1,0,74,245,247,1,243,3,247,0,242,242,0,1,242,
  148. 242,0,1,1,243,3,245,245,1,0,19,245,247,1,242,3,246,0,245,247,242,
  149. 242,0,1,242,242,0,1,241,1,0,3,241,242,242,0,1,241,1,0,3,247,
  150. 1,243,5,247,1,0,8,245,1,243,9,245,0,247,241,1,243,4,245,1,0,
  151. 8,245,247,1,242,3,246,0,245,247,243,243,241,1,0,8,245,247,1,243,5,
  152. 247,1,0,3,245,247,242,242,0,1,1,241,3,246,0,245,247,1,241,3,1,
  153. 0,8,245,247,1,242,4,246,1,0,12,247,241,242,242,0,1,243,243,247,245,
  154. 1,243,3,242,242,0,1,241,247,1,0,12,245,247,242,242,0,1,1,241,3,
  155. 246,0,245,247,1,241,3,1,0,29,247,241,242,242,0,1,243,243,247,245,1,
  156. 243,3,242,242,0,1,241,247,1,0,73,247,1,243,3,242,242,0,1,0,247,
  157. 242,242,0,1,1,243,3,245,1,0,21,245,247,242,242,0,1,242,242,0,1,
  158. 241,246,0,245,247,243,242,242,0,1,241,0,0,247,241,242,242,0,1,241,247,
  159. 0,1,242,3,1,243,4,247,1,0,9,247,1,243,7,247,0,0,241,242,242,
  160. 0,1,1,243,3,247,1,0,9,245,247,242,242,0,1,242,242,0,1,241,246,
  161. 0,245,247,243,243,241,1,0,6,245,247,242,242,0,1,1,243,6,247,1,0,
  162. 3,245,247,1,241,3,246,246,0,245,247,241,242,242,0,1,241,1,0,8,245,
  163. 247,242,242,0,1,242,242,0,1,241,241,246,1,0,12,241,242,242,0,1,1,
  164. 243,3,245,0,247,243,243,242,242,0,1,242,242,0,1,241,1,0,12,245,247,
  165. 1,241,3,246,246,0,245,247,241,242,242,0,1,241,1,0,29,241,242,242,0,
  166. 1,1,243,3,245,0,247,243,243,242,242,0,1,242,242,0,1,241,1,0,73,
  167. 247,1,243,3,242,242,0,1,245,247,1,243,3,245,1,0,22,245,247,242,242,
  168. 0,1,242,242,0,1,241,246,0,245,247,243,242,242,0,1,241,0,0,241,1,
  169. 242,4,241,242,242,0,1,242,242,0,1,1,243,4,247,247,1,0,9,245,1,
  170. 243,7,245,0,247,241,242,242,0,1,1,243,3,245,1,0,9,245,247,242,242,
  171. 0,1,242,242,0,1,241,246,0,245,247,243,243,241,0,244,1,245,3,247,241,
  172. 242,242,0,1,242,242,0,1,1,243,5,247,245,1,0,3,245,247,1,246,3,
  173. 241,241,0,245,247,242,242,0,1,242,242,0,1,241,1,0,8,1,245,5,246,
  174. 246,1,0,11,247,241,242,242,0,1,1,243,3,245,247,245,243,243,242,242,0,
  175. 1,242,242,0,1,246,247,1,0,11,245,247,1,246,3,241,241,0,245,247,242,
  176. 242,0,1,242,242,0,1,241,1,0,28,247,241,242,242,0,1,1,243,3,245,
  177. 247,245,243,243,242,242,0,1,242,242,0,1,246,247,1,0,72,247,1,243,3,
  178. 242,242,0,1,245,247,243,243,241,1,0,23,245,247,1,241,3,246,0,245,247,
  179. 243,242,242,0,1,241,0,247,241,242,242,0,1,243,243,1,242,3,1,243,5,
  180. 247,1,0,11,247,1,243,5,247,0,0,241,242,242,0,1,242,242,0,1,243,
  181. 243,247,1,0,10,245,247,1,241,3,246,0,245,247,243,243,241,0,245,247,246,
  182. 241,241,1,242,3,1,243,5,247,1,0,4,245,247,246,1,241,4,0,245,247,
  183. 242,242,0,1,242,242,0,1,246,1,241,11,243,247,246,246,1,0,11,241,242,
  184. 242,0,1,1,243,3,247,243,241,0,247,1,242,3,241,246,1,0,11,245,247,
  185. 246,1,241,4,0,245,247,242,242,0,1,242,242,0,1,246,1,241,13,247,1,
  186. 0,14,241,242,242,0,1,1,243,3,247,243,241,0,247,1,242,3,241,246,1,
  187. 0,72,247,1,243,3,242,242,0,1,245,247,243,242,242,0,1,241,1,0,23,
  188. 245,247,1,246,4,0,245,247,243,242,242,0,1,241,0,241,242,242,0,1,242,
  189. 242,0,1,243,243,1,242,3,1,243,3,247,245,245,1,0,11,245,1,243,5,
  190. 0,245,247,241,242,242,0,1,1,243,3,245,1,0,10,245,247,1,246,4,0,
  191. 245,247,243,243,241,0,245,247,241,1,242,4,1,243,5,245,245,1,0,4,245,
  192. 247,1,241,3,242,242,0,1,241,0,245,247,243,1,242,12,245,247,1,246,3,
  193. 1,0,10,247,241,242,242,0,1,1,243,3,245,247,241,247,245,1,242,3,241,
  194. 246,247,1,0,10,245,247,1,241,3,242,242,0,1,241,0,245,247,243,1,242,
  195. 14,245,1,0,14,247,241,242,242,0,1,1,243,3,245,247,241,247,245,1,242,
  196. 3,241,246,247,1,0,71,247,1,243,3,242,242,0,1,245,247,242,242,0,1,
  197. 242,242,0,1,241,247,0,0,244,1,241,7,1,246,10,0,0,245,247,246,246,
  198. 241,246,0,245,247,243,242,242,0,1,241,247,241,242,242,0,1,1,243,3,242,
  199. 242,0,1,242,242,0,1,1,243,3,247,245,244,1,0,13,247,1,243,3,247,
  200. 0,0,246,241,242,242,0,1,243,243,247,1,0,11,245,247,246,246,241,246,0,
  201. 245,247,243,243,241,0,245,247,241,242,242,0,1,1,243,7,245,244,1,0,5,
  202. 245,247,241,1,242,3,241,0,245,247,243,242,242,0,1,1,243,10,245,247,246,
  203. 241,241,246,1,0,10,241,242,242,0,1,1,243,3,247,0,243,243,241,0,247,
  204. 242,242,0,1,242,242,0,1,241,241,246,1,0,10,245,247,241,1,242,3,241,
  205. 0,245,247,243,242,242,0,1,1,243,12,245,1,0,15,241,242,242,0,1,1,
  206. 243,3,247,0,243,243,241,0,247,242,242,0,1,242,242,0,1,241,241,246,1,
  207. 0,71,245,247,243,243,242,242,0,1,245,247,242,242,0,1,242,242,0,1,241,
  208. 246,1,0,3,245,247,1,243,5,242,242,0,1,242,242,0,1,1,241,4,1,
  209. 246,3,241,0,0,245,247,246,246,241,246,0,245,247,243,242,242,0,1,241,241,
  210. 242,242,0,1,242,242,0,1,1,243,3,1,242,3,243,245,244,244,1,0,14,
  211. 245,1,243,3,0,245,247,246,241,242,242,0,1,243,243,245,1,0,11,245,247,
  212. 246,246,241,246,0,245,247,243,243,241,0,245,247,242,242,0,1,242,242,0,1,
  213. 1,243,5,245,244,1,0,7,245,247,1,242,4,241,0,245,247,1,243,11,245,
  214. 247,246,246,241,241,246,1,0,9,247,241,242,242,0,1,1,243,3,245,247,243,
  215. 243,246,247,245,243,1,241,3,246,247,1,0,9,245,247,1,242,4,241,0,245,
  216. 247,1,243,13,245,1,0,15,247,241,242,242,0,1,1,243,3,245,247,243,243,
  217. 246,247,245,243,1,241,3,246,247,1,0,71,247,243,243,242,242,0,1,0,245,
  218. 247,241,241,246,247,1,0,3,245,247,1,243,4,1,242,3,241,241,1,246,3,
  219. 241,242,242,0,1,0,0,245,247,246,246,241,246,0,245,247,243,247,245,247,242,
  220. 242,0,1,1,243,5,1,242,3,245,1,0,17,247,243,247,0,247,246,241,241,
  221. 242,242,0,1,243,247,1,0,12,245,247,246,246,241,246,0,245,247,243,243,241,
  222. 0,245,247,1,243,5,245,244,1,0,9,245,247,1,242,4,241,0,245,1,247,
  223. 11,245,247,247,246,246,241,241,246,1,0,9,241,242,242,0,1,1,243,3,247,
  224. 0,241,242,242,0,1,242,242,0,1,241,246,0,247,241,241,1,246,3,1,0,
  225. 9,245,247,1,242,4,241,0,245,1,247,13,245,1,0,16,241,242,242,0,1,
  226. 1,243,3,247,0,241,242,242,0,1,242,242,0,1,241,246,0,247,241,241,1,
  227. 246,3,1,0,71,247,243,242,242,0,1,242,242,0,1,247,245,241,241,1,246,
  228. 3,1,0,4,245,247,243,243,242,242,0,1,242,242,0,1,241,241,1,246,3,
  229. 241,241,242,242,0,1,242,242,0,1,0,0,245,247,246,246,241,246,0,245,247,
  230. 247,245,0,1,245,4,244,243,243,1,242,3,241,247,1,0,16,245,247,0,245,
  231. 241,246,241,242,242,0,1,242,242,0,1,243,245,1,0,12,245,247,246,246,241,
  232. 246,0,245,247,243,243,241,0,244,1,245,5,244,1,0,11,245,247,1,242,4,
  233. 241,0,244,1,245,11,0,245,247,246,246,241,241,246,1,0,8,247,241,242,242,
  234. 0,1,1,243,3,245,247,241,242,242,0,1,242,242,0,1,241,246,247,245,241,
  235. 246,246,241,246,247,1,0,8,245,247,1,242,4,241,0,244,1,245,13,1,0,
  236. 16,247,241,242,242,0,1,1,243,3,245,247,241,242,242,0,1,242,242,0,1,
  237. 241,246,247,245,241,246,246,241,246,247,1,0,70,245,247,242,242,0,1,242,242,
  238. 0,1,246,247,1,0,10,245,1,247,6,1,241,3,1,242,3,247,0,0,245,
  239. 247,1,241,4,0,245,247,245,1,0,6,245,247,243,243,242,242,0,1,242,242,
  240. 0,1,241,246,247,1,0,16,245,0,0,246,246,241,242,242,0,1,242,242,0,
  241. 1,247,1,0,13,245,247,1,241,4,0,245,247,243,243,241,1,0,19,245,247,
  242. 242,242,0,1,243,243,242,242,0,1,241,1,0,14,245,247,1,241,5,1,0,
  243. 8,241,242,242,0,1,243,242,242,0,1,242,242,0,1,247,0,241,243,242,242,
  244. 0,1,241,241,246,246,0,247,246,1,241,3,246,1,0,8,245,247,243,1,242,
  245. 3,241,1,0,31,241,242,242,0,1,243,242,242,0,1,242,242,0,1,247,0,
  246. 241,243,242,242,0,1,241,241,246,246,0,247,246,1,241,3,246,1,0,71,247,
  247. 1,242,3,246,247,1,0,10,1,245,6,247,1,242,5,247,0,0,245,247,241,
  248. 241,242,242,0,1,241,0,244,245,1,0,8,245,1,243,3,242,242,0,1,241,
  249. 246,246,247,1,0,17,241,1,246,3,241,243,245,1,0,13,245,247,241,241,242,
  250. 242,0,1,241,0,245,247,243,243,247,1,0,19,245,247,242,242,0,1,243,243,
  251. 242,242,0,1,241,1,0,14,245,247,241,241,242,242,0,1,242,242,0,1,241,
  252. 1,0,7,247,241,1,242,4,245,0,241,242,242,0,1,242,242,0,1,241,241,
  253. 246,246,247,245,241,242,242,0,1,242,242,0,1,241,241,247,1,0,7,245,247,
  254. 243,1,242,3,241,1,0,30,247,241,1,242,4,245,0,241,242,242,0,1,242,
  255. 242,0,1,241,241,246,246,247,245,241,242,242,0,1,242,242,0,1,241,241,247,
  256. 1,0,70,247,243,242,242,0,1,242,242,0,1,241,246,247,1,0,14,245,247,
  257. 1,242,4,247,245,0,0,245,247,1,242,3,241,0,244,1,0,10,245,243,243,
  258. 242,242,0,1,242,242,0,1,241,246,246,247,1,0,15,247,246,241,241,246,241,
  259. 247,1,0,14,245,247,1,242,3,241,0,245,247,243,245,1,0,20,245,247,242,
  260. 242,0,1,243,243,242,242,0,1,241,1,0,14,245,247,1,242,4,241,1,0,
  261. 7,241,1,242,4,247,0,0,245,245,243,1,246,3,241,246,0,247,1,242,4,
  262. 241,1,0,7,245,247,243,1,242,3,241,1,0,30,241,1,242,4,247,0,0,
  263. 245,245,243,1,246,3,241,246,0,247,1,242,4,241,1,0,70,245,244,243,241,
  264. 1,246,4,247,1,0,11,245,247,1,242,5,245,1,0,3,245,247,1,242,3,
  265. 241,1,0,13,245,243,1,242,3,241,246,246,1,0,15,241,246,241,246,246,241,
  266. 245,1,0,14,245,247,242,242,0,1,242,242,0,1,243,241,0,245,247,245,1,
  267. 0,21,245,247,242,242,0,1,243,243,242,242,0,1,241,1,0,14,245,247,242,
  268. 242,0,1,242,242,0,1,243,242,242,0,1,241,1,0,6,247,241,242,242,0,
  269. 1,241,242,242,0,1,242,242,0,1,245,1,0,4,245,246,1,241,4,247,245,
  270. 1,242,4,241,247,1,0,6,245,247,243,243,242,242,0,1,242,242,0,1,241,
  271. 1,0,29,247,241,242,242,0,1,241,242,242,0,1,242,242,0,1,245,1,0,
  272. 4,245,246,1,241,4,247,245,1,242,4,241,247,1,0,70,245,247,241,1,246,
  273. 3,241,246,246,247,1,0,7,1,247,3,1,242,6,245,1,0,3,245,247,1,
  274. 242,3,241,1,0,13,244,245,243,242,242,0,1,242,242,0,1,241,241,246,247,
  275. 1,0,13,247,241,242,242,0,1,241,246,241,247,1,0,15,245,247,242,242,0,
  276. 1,242,242,0,1,243,241,0,244,245,1,0,22,245,247,1,243,3,242,242,0,
  277. 1,241,1,0,14,245,247,242,242,0,1,242,242,0,1,243,242,242,0,1,241,
  278. 1,0,6,241,242,242,0,1,1,241,3,247,1,0,6,245,241,1,242,3,241,
  279. 0,247,242,242,0,1,242,242,0,1,243,242,242,0,1,241,1,0,6,245,247,
  280. 243,243,242,242,0,1,242,242,0,1,246,1,0,29,241,242,242,0,1,1,241,
  281. 3,247,1,0,6,245,241,1,242,3,241,0,247,242,242,0,1,242,242,0,1,
  282. 243,242,242,0,1,241,1,0,71,245,247,241,241,242,242,0,1,242,242,0,1,
  283. 241,241,1,246,3,1,241,5,243,243,242,242,0,1,241,241,1,246,3,247,245,
  284. 1,0,3,245,247,243,242,242,0,1,242,242,0,1,241,1,0,14,244,245,1,
  285. 242,3,241,246,246,1,0,13,241,241,242,242,0,1,241,246,241,245,1,0,15,
  286. 245,247,1,243,3,241,0,244,1,0,23,245,247,1,243,3,242,242,0,1,241,
  287. 1,0,14,245,247,1,243,3,242,242,0,1,241,1,0,5,247,241,241,1,242,
  288. 3,245,1,0,6,245,1,243,4,241,247,245,1,243,3,242,242,0,1,241,247,
  289. 1,0,5,245,247,1,243,3,242,242,0,1,246,1,241,8,1,246,10,1,241,
  290. 4,243,1,0,5,247,241,241,1,242,3,245,1,0,6,245,1,243,4,241,247,
  291. 245,1,243,3,242,242,0,1,241,247,1,0,71,245,247,243,1,242,7,1,243,
  292. 5,1,242,3,241,246,241,241,247,245,1,0,4,245,247,243,242,242,0,1,242,
  293. 242,0,1,241,1,0,15,244,1,242,3,241,246,246,247,1,0,11,247,241,242,
  294. 242,0,1,242,242,0,1,241,246,247,1,0,16,245,247,1,243,3,241,1,0,
  295. 25,245,247,1,243,3,242,242,0,1,241,1,0,14,245,247,1,243,3,242,242,
  296. 0,1,241,1,0,5,241,1,242,4,247,1,0,8,245,1,243,3,246,245,1,
  297. 243,5,242,242,0,1,241,1,0,5,245,247,1,243,3,1,242,11,241,241,1,
  298. 246,3,1,241,3,1,242,3,243,245,1,0,6,241,1,242,4,247,1,0,8,
  299. 245,1,243,3,246,245,1,243,5,242,242,0,1,241,1,0,73,245,247,247,242,
  300. 242,0,1,242,242,0,1,1,243,7,242,242,0,1,242,242,0,1,241,241,246,
  301. 241,241,247,245,1,0,5,245,247,243,242,242,0,1,242,242,0,1,241,1,0,
  302. 16,245,242,242,0,1,241,241,1,246,3,1,0,11,241,241,243,242,242,0,1,
  303. 241,246,245,1,0,16,245,247,1,243,3,241,1,0,25,245,247,1,243,3,242,
  304. 242,0,1,241,1,0,14,245,247,1,243,3,242,242,0,1,241,1,0,4,247,
  305. 241,242,242,0,1,1,243,3,245,1,0,8,245,1,243,10,242,242,0,1,241,
  306. 247,1,0,4,245,247,1,243,10,1,242,3,241,241,246,1,241,5,242,242,0,
  307. 1,242,242,0,1,243,243,245,1,0,6,247,241,242,242,0,1,1,243,3,245,
  308. 1,0,8,245,1,243,10,242,242,0,1,241,247,1,0,74,245,1,247,3,243,
  309. 242,242,0,1,243,1,242,4,241,241,246,241,247,245,245,1,0,6,245,247,243,
  310. 243,242,242,0,1,241,1,0,16,244,242,242,0,1,241,241,1,246,3,1,0,
  311. 10,247,241,243,243,242,242,0,1,241,247,1,0,17,245,247,1,243,3,241,1,
  312. 0,25,245,247,1,243,3,242,242,0,1,241,1,0,14,245,247,1,243,3,242,
  313. 242,0,1,241,1,0,4,241,242,242,0,1,1,243,3,245,1,0,10,245,1,
  314. 243,10,242,242,0,1,241,1,0,4,245,247,1,243,7,1,242,4,1,241,3,
  315. 246,1,241,5,242,242,0,1,242,242,0,1,243,243,245,1,0,7,241,242,242,
  316. 0,1,1,243,3,245,1,0,10,245,1,243,10,242,242,0,1,241,1,0,77,
  317. 245,1,247,9,1,245,4,1,0,7,245,1,247,4,241,1,0,17,245,241,241,
  318. 1,246,3,1,0,10,1,247,6,245,1,0,17,245,1,247,4,241,1,0,25,
  319. 245,1,247,5,241,1,0,14,245,1,247,5,241,1,0,3,1,247,5,245,1,
  320. 0,12,245,1,247,11,241,1,0,3,245,1,247,24,245,1,0,7,1,247,5,
  321. 245,1,0,12,245,1,247,11,241,1,0,77,244,1,245,8,1,0,11,244,1,
  322. 245,4,247,1,0,17,244,1,245,4,244,1,0,34,244,1,245,4,247,1,0,
  323. 25,244,1,245,5,247,1,0,14,244,1,245,5,247,1,0,3,244,1,245,4,
  324. 1,0,13,244,1,245,11,244,1,0,3,244,1,245,24,1,0,8,244,1,245,
  325. 4,1,0,13,244,1,245,11,244,242,0,7,160,242,243,1,64,242,242,1,64,
  326. 242,241,1,64,242,242,1,64,242,243,1,64,242,0,6,216,106,1,0,3,111,
  327. 1,0,3,116,1,0,3,121,1,0,3,126,242,0,1,43,101,1,0,23,131,
  328. 242,0,1,35,96,1,0,31,136,242,0,1,27,91,1,0,39,141,242,0,1,
  329. 19,86,1,0,16,107,0,0,112,1,0,3,117,1,0,3,122,0,0,127,1,
  330. 0,16,146,242,0,1,24,97,1,0,3,102,1,0,21,132,1,0,3,137,242,
  331. 0,1,20,81,1,0,8,92,1,0,37,142,1,0,8,151,242,0,1,12,87,
  332. 1,0,15,108,0,0,113,1,0,3,118,1,0,3,123,0,0,128,1,0,15,
  333. 147,242,0,1,8,76,1,0,17,98,0,0,103,1,0,21,133,0,0,138,1,
  334. 0,17,156,242,0,1,5,82,1,0,7,93,1,0,35,143,1,0,7,152,242,
  335. 0,1,2,71,1,0,13,88,1,0,13,109,1,0,3,114,0,0,119,0,0,
  336. 124,1,0,3,129,1,0,13,148,1,0,13,161,1,0,254,77,1,0,16,99,
  337. 0,0,104,1,0,19,134,0,0,139,1,0,16,157,1,0,251,66,1,0,12,
  338. 83,1,0,7,94,1,0,33,144,1,0,7,153,1,0,12,166,1,0,248,72,
  339. 1,0,12,89,1,0,13,110,0,0,115,0,0,120,0,0,125,0,0,130,1,
  340. 0,13,149,1,0,12,162,1,0,245,61,1,0,12,78,1,0,14,100,1,0,
  341. 3,105,1,0,17,135,1,0,3,140,1,0,14,158,1,0,12,171,1,0,243,
  342. 67,1,0,11,84,1,0,6,95,1,0,31,145,1,0,6,154,1,0,11,167,
  343. 1,0,254,73,1,0,10,90,1,0,37,150,1,0,10,163,1,0,245,56,1,
  344. 0,5,62,1,0,11,79,1,0,3,85,1,0,14,1,243,15,1,0,14,155,
  345. 1,0,3,159,1,0,11,172,1,0,5,176,1,0,141,1,239,14,1,0,27,
  346. 1,240,14,1,0,46,68,1,0,3,74,1,0,16,1,243,5,1,242,15,1,
  347. 243,5,1,0,16,164,1,0,3,168,1,0,47,1,254,14,1,0,27,1,255,
  348. 14,1,0,48,1,239,18,1,0,23,1,240,18,1,0,35,57,1,0,17,80,
  349. 1,0,8,1,243,3,1,242,25,1,243,3,1,0,8,160,1,0,17,177,1,
  350. 0,36,1,254,18,1,0,23,1,255,18,1,0,45,1,239,20,1,0,21,1,
  351. 240,20,1,0,29,51,1,0,11,63,1,0,3,69,1,0,12,1,243,3,1,
  352. 242,31,1,243,3,1,0,12,169,1,0,3,173,1,0,11,181,1,0,30,1,
  353. 254,20,1,0,21,1,255,20,1,0,44,1,239,20,1,0,21,1,240,20,1,
  354. 0,49,75,1,0,6,243,243,1,242,37,243,243,1,0,6,165,1,0,50,1,
  355. 254,20,1,0,21,1,255,20,1,0,43,1,239,22,1,0,19,1,240,22,1,
  356. 0,31,52,1,0,4,58,1,0,5,64,1,0,3,70,1,0,6,243,243,1,
  357. 242,41,243,243,1,0,6,170,1,0,3,174,1,0,5,178,1,0,4,182,1,
  358. 0,32,1,254,22,1,0,19,1,255,22,1,0,42,1,239,22,1,0,19,1,
  359. 240,22,1,0,25,46,1,0,25,243,243,1,242,45,243,243,1,0,25,186,1,
  360. 0,26,1,254,22,1,0,19,1,255,22,1,0,42,1,239,22,1,0,19,1,
  361. 240,22,1,0,33,53,1,0,5,59,1,0,4,65,1,0,4,243,243,1,242,
  362. 49,243,243,1,0,4,175,1,0,4,179,1,0,5,183,1,0,34,1,254,22,
  363. 1,0,19,1,255,22,1,0,42,1,239,22,1,0,19,1,240,22,1,0,28,
  364. 47,1,0,19,243,1,242,53,243,1,0,19,187,1,0,29,1,254,22,1,0,
  365. 19,1,255,22,1,0,42,1,239,22,1,0,19,1,240,22,1,0,22,41,1,
  366. 0,7,48,1,0,5,54,1,0,4,60,1,0,4,243,243,1,242,55,243,243,
  367. 1,0,4,180,1,0,4,184,1,0,5,188,1,0,7,191,1,0,23,1,254,
  368. 22,1,0,19,1,255,22,1,0,42,1,239,22,1,0,19,1,240,22,1,0,
  369. 45,243,1,242,59,243,1,0,46,1,254,22,1,0,19,1,255,22,1,0,42,
  370. 1,239,22,1,0,19,1,240,22,1,0,25,42,1,0,7,49,1,0,4,55,
  371. 1,0,5,243,1,242,61,243,1,0,5,185,1,0,4,189,1,0,7,192,1,
  372. 0,26,1,254,22,1,0,19,1,255,22,1,0,42,1,239,22,1,0,19,1,
  373. 240,22,1,0,28,43,1,0,14,243,1,242,63,243,1,0,14,193,1,0,29,
  374. 1,254,22,1,0,19,1,255,22,1,0,42,1,239,22,1,0,19,1,240,22,
  375. 1,0,20,36,1,0,15,50,1,0,5,243,1,242,4,1,236,4,242,242,0,
  376. 1,242,242,0,1,1,236,4,1,242,4,1,236,3,1,242,3,1,236,8,1,
  377. 242,3,1,236,7,1,242,4,1,236,7,1,242,4,1,236,3,1,242,5,243,
  378. 1,0,5,190,1,0,15,196,1,0,21,1,254,22,1,0,19,1,255,22,1,
  379. 0,42,1,239,22,1,0,19,1,240,22,1,0,23,37,1,0,7,44,1,0,
  380. 9,243,1,242,5,237,238,238,236,242,242,0,1,242,242,0,1,237,238,238,236,
  381. 1,242,4,237,238,236,1,242,3,237,1,238,6,236,236,242,242,0,1,242,242,
  382. 0,1,237,1,238,5,1,236,3,242,242,0,1,242,242,0,1,237,238,238,236,
  383. 237,238,236,236,1,242,3,237,238,236,1,242,6,243,1,0,9,194,1,0,7,
  384. 197,1,0,24,1,254,22,1,0,19,1,255,22,1,0,42,1,239,22,1,0,
  385. 19,1,240,22,1,0,34,45,1,0,5,243,1,242,6,237,238,238,236,242,242,
  386. 0,1,242,242,0,1,237,238,238,236,1,242,3,237,237,238,236,236,242,242,0,
  387. 1,242,242,0,1,237,238,238,236,237,237,238,238,236,242,242,0,1,242,242,0,
  388. 1,237,238,238,236,237,237,238,238,236,236,242,242,0,1,237,238,238,236,237,238,
  389. 238,236,236,242,242,0,1,242,242,0,1,237,238,236,1,242,7,243,1,0,5,
  390. 195,1,0,35,1,254,22,1,0,19,1,255,22,1,0,42,1,239,22,1,0,
  391. 19,1,240,22,1,0,26,38,1,0,12,243,1,242,7,237,238,238,236,242,242,
  392. 0,1,242,242,0,1,237,238,238,236,1,242,3,237,1,238,3,236,242,242,0,
  393. 1,242,242,0,1,237,238,238,236,242,242,0,1,237,238,238,236,242,242,0,1,
  394. 242,242,0,1,237,238,238,236,242,242,0,1,237,237,238,238,236,242,242,0,1,
  395. 237,238,238,236,237,1,238,3,236,242,242,0,1,242,242,0,1,237,238,236,1,
  396. 242,8,243,1,0,12,198,1,0,27,1,254,22,1,0,19,1,255,22,1,0,
  397. 43,1,239,20,1,0,21,1,240,20,1,0,18,31,1,0,11,39,1,0,8,
  398. 243,1,242,8,237,238,238,1,236,4,238,238,236,242,242,0,1,242,242,0,1,
  399. 237,237,1,238,3,236,242,242,0,1,242,242,0,1,237,238,238,236,242,242,0,
  400. 1,237,238,238,236,242,242,0,1,242,242,0,1,237,238,238,236,242,242,0,1,
  401. 242,242,0,1,237,237,238,236,236,237,238,238,236,237,238,236,238,236,236,242,242,
  402. 0,1,237,238,236,1,242,9,243,1,0,8,199,1,0,11,201,1,0,19,1,
  403. 254,20,1,0,21,1,255,20,1,0,44,1,239,20,1,0,21,1,240,20,1,
  404. 0,22,32,1,0,10,40,1,0,4,243,1,242,9,237,1,238,8,236,242,242,
  405. 0,1,242,242,0,1,237,238,236,237,238,236,236,242,242,0,1,237,238,238,1,
  406. 236,3,238,238,236,242,242,0,1,242,242,0,1,237,238,238,236,1,242,3,237,
  407. 238,238,236,237,238,238,236,237,238,236,238,238,236,236,237,238,236,1,242,10,243,
  408. 1,0,4,200,1,0,10,202,1,0,23,1,254,20,1,0,21,1,255,20,1,
  409. 0,45,1,239,18,1,0,23,1,240,18,1,0,26,33,1,0,11,243,1,242,
  410. 10,237,238,238,236,1,237,3,238,238,236,242,242,0,1,237,237,238,236,236,238,
  411. 238,236,242,242,0,1,237,1,238,6,236,236,242,242,0,1,242,242,0,1,237,
  412. 238,238,236,1,242,3,237,238,238,236,237,238,238,236,237,238,236,237,238,238,236,
  413. 236,238,236,1,242,11,243,1,0,11,203,1,0,27,1,254,18,1,0,23,1,
  414. 255,18,1,0,48,1,239,14,1,0,27,1,240,14,1,0,31,34,1,0,8,
  415. 243,1,242,10,237,238,238,236,242,242,0,1,242,242,0,1,237,238,238,236,242,
  416. 242,0,1,237,1,238,6,236,242,242,0,1,237,238,238,236,238,238,236,236,1,
  417. 242,3,237,238,238,236,1,242,3,237,238,238,236,237,238,238,236,237,238,236,237,
  418. 237,238,238,236,238,236,1,242,11,243,1,0,8,204,1,0,32,1,254,14,1,
  419. 0,27,1,255,14,1,0,124,26,1,0,14,35,1,0,4,243,1,242,11,237,
  420. 238,238,236,242,242,0,1,242,242,0,1,237,238,238,236,237,237,238,236,1,237,
  421. 3,238,236,236,237,238,238,236,237,238,238,236,236,242,242,0,1,242,242,0,1,
  422. 237,238,238,236,242,242,0,1,242,242,0,1,236,237,238,236,236,237,238,238,236,
  423. 237,238,236,242,242,0,1,237,237,238,236,238,236,1,242,12,243,1,0,4,205,
  424. 1,0,14,206,1,0,203,27,1,0,14,243,1,242,12,237,238,238,236,242,242,
  425. 0,1,242,242,0,1,237,238,238,236,237,238,236,236,242,242,0,1,242,242,0,
  426. 1,237,238,238,236,237,238,238,236,237,237,238,238,236,236,242,242,0,1,237,238,
  427. 238,236,242,242,0,1,236,236,238,238,236,242,242,0,1,237,238,238,236,237,238,
  428. 236,242,242,0,1,242,242,0,1,237,1,238,3,236,1,242,13,243,1,0,14,
  429. 207,1,0,210,28,1,0,11,243,1,242,12,237,238,238,236,242,242,0,1,242,
  430. 242,0,1,237,238,238,236,237,238,236,1,242,3,237,238,238,236,237,238,238,236,
  431. 242,242,0,1,237,237,238,238,236,236,237,238,238,1,236,3,238,238,236,236,242,
  432. 242,0,1,237,238,238,236,237,238,236,242,242,0,1,242,242,0,1,237,237,238,
  433. 238,236,1,242,13,243,1,0,11,208,1,0,216,29,0,0,30,1,0,4,243,
  434. 1,242,13,237,238,238,236,242,242,0,1,242,242,0,1,237,238,238,236,237,238,
  435. 236,1,242,3,237,237,238,236,237,238,238,236,242,242,0,1,242,242,0,1,237,
  436. 237,238,238,236,237,1,238,5,1,236,3,242,242,0,1,242,242,0,1,237,238,
  437. 238,236,237,238,236,1,242,3,237,237,238,236,1,242,14,243,1,0,4,210,0,
  438. 0,209,1,0,207,21,1,0,19,243,1,242,13,1,237,3,236,242,242,0,1,
  439. 242,242,0,1,1,237,3,236,237,237,236,1,242,4,237,237,236,1,237,3,236,
  440. 1,242,3,1,237,3,236,1,237,6,236,1,242,4,1,237,3,236,237,237,236,
  441. 1,242,4,237,237,236,1,242,14,243,1,0,19,211,1,0,199,22,0,0,23,
  442. 1,0,11,243,1,242,85,243,1,0,11,213,0,0,212,1,0,209,24,0,0,
  443. 25,1,0,5,243,1,242,85,243,1,0,5,215,0,0,214,1,0,223,243,1,
  444. 242,87,243,1,0,212,16,1,0,18,243,1,242,27,238,238,242,242,0,1,242,
  445. 242,0,1,238,242,242,0,1,238,1,242,5,238,242,242,0,1,238,242,242,0,
  446. 1,1,238,3,242,242,0,1,238,242,242,0,1,238,242,242,0,1,1,238,3,
  447. 242,242,0,1,1,238,3,1,242,29,243,1,0,18,216,1,0,197,17,0,0,
  448. 18,0,0,19,1,0,7,243,1,242,28,238,237,238,242,242,0,1,238,237,238,
  449. 237,1,242,4,1,238,3,237,238,237,238,237,1,238,3,237,238,237,238,237,238,
  450. 1,237,3,1,242,29,243,1,0,7,219,0,0,218,0,0,217,1,0,210,20,
  451. 1,0,4,243,1,242,28,238,238,242,242,0,1,237,238,237,238,237,1,242,4,
  452. 1,238,3,237,238,237,238,237,238,237,238,237,238,237,238,237,238,237,1,242,31,
  453. 243,1,0,4,220,1,0,224,243,1,242,28,238,237,238,242,242,0,1,242,242,
  454. 0,1,238,242,242,0,1,237,1,242,4,238,237,238,237,238,237,238,237,238,237,
  455. 238,237,1,238,3,237,238,237,1,242,31,243,1,0,210,11,1,0,17,243,1,
  456. 242,29,238,238,242,242,0,1,237,242,242,0,1,238,237,1,242,5,238,237,238,
  457. 237,1,238,3,237,238,237,238,237,238,237,238,237,1,238,3,1,242,31,243,1,
  458. 0,17,221,1,0,195,12,0,0,13,0,0,14,1,0,7,243,1,242,30,237,
  459. 237,1,242,3,237,1,242,6,237,242,242,0,1,237,242,242,0,1,1,237,3,
  460. 242,242,0,1,237,242,242,0,1,237,242,242,0,1,237,242,242,0,1,237,242,
  461. 242,0,1,1,237,3,1,242,30,243,1,0,7,224,0,0,223,0,0,222,1,
  462. 0,208,15,1,0,4,243,1,242,91,243,1,0,4,225,1,0,221,243,1,242,
  463. 93,243,1,0,207,6,1,0,3,7,0,0,8,1,0,10,243,1,242,93,243,
  464. 1,0,10,228,0,0,227,1,0,3,226,1,0,199,9,0,0,10,1,0,4,
  465. 243,1,242,93,243,1,0,4,230,0,0,229,1,0,217,243,1,242,93,243,1,
  466. 0,225,243,1,242,93,243,1,0,206,1,1,1,1,0,3,2,0,0,3,0,
  467. 0,4,0,0,5,1,0,4,243,1,242,95,243,1,0,4,235,0,0,234,0,
  468. 0,233,0,0,232,1,0,3,231,1,0,205,243,1,242,95,243,1,0,223,243,
  469. 1,242,95,243,1,0,196,1,249,12,1,252,13,1,249,13,1,252,13,1,249,
  470. 12,1,252,13,1,249,12,1,252,14,1,249,12,1,252,13,1,249,12,1,252,
  471. 13,1,0,165,1,251,13,1,248,14,1,251,12,1,248,14,1,251,13,1,248,
  472. 13,1,251,13,1,248,14,1,251,12,1,248,14,1,251,12,1,248,14,1,0,
  473. 160,1,253,13,1,250,14,1,253,13,1,250,14,1,253,13,1,250,14,1,253,
  474. 13,1,250,14,1,253,13,1,250,14,1,253,14,1,250,14,1,0,154,1,249,
  475. 14,1,252,14,1,249,14,1,252,14,1,249,14,1,252,14,1,249,14,1,252,
  476. 14,1,249,14,1,252,14,1,249,14,1,252,14,1,0,150,1,250,14,1,253,
  477. 15,1,250,14,1,253,15,1,250,13,1,253,15,1,250,14,1,253,15,1,250,
  478. 14,1,253,15,1,250,14,1,253,15,1,0,144,1,252,15,1,249,15,1,252,
  479. 14,1,249,16,1,252,14,1,249,15,1,252,15,1,249,15,1,252,14,1,249,
  480. 16,1,252,14,1,249,15,1,0,140,1,253,15,1,250,15,1,253,15,1,250,
  481. 16,1,253,15,1,250,15,1,253,15,1,250,16,1,253,15,1,250,15,1,253,
  482. 15,1,250,16,1,0,134,1,248,15,1,251,17,1,248,15,1,251,16,1,248,
  483. 15,1,251,16,1,248,15,1,251,17,1,248,15,1,251,16,1,248,15,1,251,
  484. 16,1,0,130,1,250,15,1,253,17,1,250,16,1,253,16,1,250,16,1,253,
  485. 16,1,250,16,1,253,17,1,250,15,1,253,17,1,250,15,1,253,17,1,0,
  486. 124,1,251,16,1,248,17,1,251,16,1,248,17,1,251,16,1,248,17,1,251,
  487. 16,1,248,17,1,251,16,1,248,17,1,251,16,1,248,17,1,0,120,1,252,
  488. 16,1,249,18,1,252,16,1,249,18,1,252,16,1,249,17,1,252,17,1,249,
  489. 17,1,252,17,1,249,17,1,252,16,1,249,18,1,0,114,1,253,17,1,250,
  490. 18,1,253,17,1,250,18,1,253,16,1,250,18,1,253,17,1,250,18,1,253,
  491. 17,1,250,18,1,253,17,1,250,18,1,0,109,1,248,17,1,251,18,1,248,
  492. 18,1,251,18,1,248,17,1,251,18,1,248,18,1,251,18,1,248,17,1,251,
  493. 19,1,248,17,1,251,18,1,0,104,1,249,18,1,252,19,1,249,17,1,252,
  494. 19,1,249,18,1,252,19,1,249,17,1,252,19,1,249,17,1,252,19,1,249,
  495. 18,1,252,19,1,0,99,1,250,18,1,253,19,1,250,18,1,253,19,1,250,
  496. 18,1,253,20,1,250,17,1,253,20,1,250,18,1,253,19,1,250,18,1,253,
  497. 19,1,0,94,1,251,19,1,248,19,1,251,19,1,248,20,1,251,18,1,248,
  498. 20,1,251,18,1,248,20,1,251,18,1,248,20,1,251,18,1,248,20,1,0,
  499. 89,1,252,19,1,249,20,1,252,19,1,249,20,1,252,18,1,249,21,1,252,
  500. 18,1,249,20,1,252,19,1,249,20,1,252,19,1,249,20,1,0,84,1,253,
  501. 20,1,250,20,1,253,19,1,250,21,1,253,19,1,250,21,1,253,19,1,250,
  502. 20,1,253,19,1,250,21,1,253,19,1,250,21,1,0,79,1,248,19,1,251,
  503. 21,1,248,20,1,251,21,1,248,20,1,251,21,1,248,19,1,251,21,1,248,
  504. 20,1,251,21,1,248,19,1,251,21,1,0,74,1,248,20,1,251,22,1,248,
  505. 20,1,251,21,1,248,20,1,251,22,1,248,20,1,251,21,1,248,20,1,251,
  506. 21,1,248,20,1,251,22,1,0,69,1,249,20,1,252,22,1,249,21,1,252,
  507. 21,1,249,21,1,252,22,1,249,20,1,252,22,1,249,20,1,252,22,1,249,
  508. 21,1,252,21,1,0,64,1,250,21,1,253,23,1,250,20,1,253,23,1,250,
  509. 20,1,253,23,1,250,20,1,253,23,1,250,21,1,253,22,1,250,21,1,253,
  510. 22,1,0,59,1,250,21,1,253,23,1,250,21,1,253,23,1,250,21,1,253,
  511. 23,1,250,21,1,253,23,1,250,21,1,253,23,1,250,21,1,253,23,1,0,
  512. 53,1,251,22,1,248,23,1,251,22,1,248,23,1,251,22,1,248,23,1,251,
  513. 21,1,248,24,1,251,21,1,248,23,1,251,22,1,248,23,1,0,49,1,252,
  514. 22,1,249,24,1,252,21,1,249,24,1,252,22,1,249,24,1,252,22,1,249,
  515. 23,1,252,22,1,249,24,1,252,22,1,249,24,1,0,43,1,252,23,1,249,
  516. 24,1,252,22,1,249,24,1,252,23,1,249,24,1,252,22,1,249,24,1,252,
  517. 23,1,249,24,1,252,22,1,249,24,1,0,39,1,253,23,1,250,24,1,253,
  518. 23,1,250,25,1,253,22,1,250,25,1,253,23,1,250,24,1,253,23,1,250,
  519. 24,1,253,23,1,250,25,1,0,33,1,253,24,1,250,25,1,253,23,1,250,
  520. 25,1,253,23,1,250,25,1,253,23,1,250,25,1,253,23,1,250,25,1,253,
  521. 23,1,250,25,1,0,29,1,248,23,1,251,26,1,248,23,1,251,26,1,248,
  522. 23,1,251,26,1,248,23,1,251,26,1,248,23,1,251,26,1,248,23,1,251,
  523. 26,1,0,23,1,248,24,1,251,26,1,248,24,1,251,26,1,248,24,1,251,
  524. 26,1,248,24,1,251,26,1,248,24,1,251,26,1,248,24,1,251,25,1,0,
  525. 19,1,249,24,1,252,27,1,249,24,1,252,26,1,249,25,1,252,26,1,249,
  526. 24,1,252,27,1,249,24,1,252,26,1,249,25,1,252,26,1,0,13,1,249,
  527. 25,1,252,27,1,249,25,1,252,26,1,249,25,1,252,27,1,249,25,1,252,
  528. 26,1,249,25,1,252,27,1,249,25,1,252,26,1,0,9,1,250,25,1,253,
  529. 27,1,250,25,1,253,28,1,250,25,1,253,27,1,250,25,1,253,27,1,250,
  530. 26,1,253,27,1,250,25,1,253,27,1,0,3,1,250,26,1,253,28,1,250,
  531. 25,1,253,28,1,250,25,1,253,28,1,250,26,1,253,27,1,250,26,1,253,
  532. 27,1,250,26,1,253,26,1,251,26,1,248,28,1,251,26,1,248,28,1,251,
  533. 26,1,248,28,1,251,26,1,248,28,1,251,26,1,248,28,1,251,26,1,248,
  534. 24,1,251,24,1,248,28,1,251,27,1,248,28,1,251,27,1,248,28,1,251,
  535. 26,1,248,29,1,251,26,1,248,29,1,251,26,1,248,22,1,252,22,1,249,
  536. 29,1,252,26,1,249,29,1,252,27,1,249,29,1,252,27,1,249,29,1,252,
  537. 27,1,249,28,1,252,27,1,249,20,1,252,20,1,249,29,1,252,27,1,249,
  538. 30,1,252,27,1,249,29,1,252,27,1,249,30,1,252,27,1,249,29,1,252,
  539. 27,1,249,18,1,252,18,1,249,29,1,252,28,1,249,30,1,252,27,1,249,
  540. 30,1,252,28,1,249,29,1,252,28,1,249,30,1,252,28,1,249,15,1,253,
  541. 15,1,250,31,1,253,28,1,250,30,1,253,28,1,250,30,1,253,28,1,250,
  542. 30,1,253,28,1,250,31,1,253,28,1,250,13,1,253,13,1,250,31,1,253,
  543. 28,1,250,31,1,253,29,1,250,30,1,253,29,1,250,30,1,253,29,1,250,
  544. 30,1,253,29,1,250,11,1,248,11,1,251,31,1,248,29,1,251,31,1,248,
  545. 29,1,251,31,1,248,29,1,251,31,1,248,29,1,251,31,1,248,29,1,251,
  546. 9,1,248,9,1,251,32,1,248,29,1,251,31,1,248,30,1,251,31,1,248,
  547. 29,1,251,32,1,248,29,1,251,32,1,248,29,1,251,7,1,248,7,1,251,
  548. 32,1,248,30,1,251,32,1,248,29,1,251,32,1,248,30,1,251,32,1,248,
  549. 29,1,251,32,1,248,30,1,251,5,1,248,5,1,251,32,1,248,30,1,251,
  550. 33,1,248,30,1,251,32,1,248,30,1,251,33,1,248,30,1,251,32,1,248,
  551. 30,1,251,3,1,249,3,1,252,33,1,249,30,1,252,33,1,249,30,1,252,
  552. 33,1,249,31,1,252,33,1,249,30,1,252,33,1,249,30,252,249,1,252,33,
  553. 1,249,31,1,252,33,1,249,31,1,252,33,1,249,31,1,252,33,1,249,31,
  554. 1,252,34,1,249,29,1,252,32,1,249,32,1,252,33,1,249,32,1,252,33,
  555. 1,249,32,1,252,33,1,249,32,1,252,33,1,249,28,1,253,31,1,250,31,
  556. 1,253,35,1,250,31,1,253,34,1,250,32,1,253,34,1,250,32,1,253,34,
  557. 1,250,26,1,253,29,1,250,32,1,253,35,1,250,32,1,253,34,1,250,32,
  558. 1,253,35,1,250,32,1,253,35,1,250,24,1,253,27,1,250,33,1,253,35,
  559. 1,250,32,1,253,35,1,250,33,1,253,35,1,250,32,1,253,35,1,250,23,
  560. 242,243,1,64,242,242,1,64,242,241,1,64,242,242,1,64,242,243,1,64,242,
  561. 0,2,209,244,1,245,7,244,1,0,140,244,1,245,7,244,1,0,162,245,1,
  562. 247,7,246,1,0,140,245,1,247,7,246,1,0,162,245,247,242,242,0,1,243,
  563. 243,242,242,0,1,241,246,246,1,0,140,245,247,242,242,0,1,243,243,242,242,
  564. 0,1,241,246,246,1,0,162,245,247,241,242,242,0,1,243,243,242,242,0,1,
  565. 241,246,1,0,140,245,247,241,242,242,0,1,243,243,242,242,0,1,241,246,1,
  566. 0,162,245,247,241,241,242,242,0,1,243,243,242,242,0,1,241,1,0,140,245,
  567. 247,241,241,242,242,0,1,243,243,242,242,0,1,241,1,0,162,245,247,246,241,
  568. 242,242,0,1,242,242,0,1,243,243,241,1,1,1,6,11,16,21,21,26,26,
  569. 31,31,36,36,1,41,3,1,46,3,1,51,3,1,56,3,1,61,4,1,66,
  570. 4,1,71,4,1,76,4,1,81,4,1,86,4,1,91,4,1,96,4,1,101,
  571. 4,1,106,4,1,111,4,1,116,4,1,121,4,1,126,4,1,131,4,1,136,
  572. 4,1,141,4,1,146,4,1,151,4,1,156,4,1,161,4,1,166,4,1,171,
  573. 4,1,176,3,1,181,3,1,186,3,1,191,3,196,196,201,201,206,206,211,211,
  574. 216,221,226,231,245,247,246,241,242,242,0,1,242,242,0,1,243,243,241,1,0,
  575. 162,245,247,246,246,241,242,242,0,1,242,242,0,1,243,241,1,1,1,6,11,
  576. 16,21,21,26,26,31,31,36,36,1,41,3,1,46,3,1,51,3,1,56,3,
  577. 1,61,4,1,66,4,1,71,4,1,76,4,1,81,4,1,86,4,1,91,4,
  578. 1,96,4,1,101,4,1,106,4,1,111,4,1,116,4,1,121,4,1,126,4,
  579. 1,131,4,1,136,4,1,141,4,1,146,4,1,151,4,1,156,4,1,161,4,
  580. 1,166,4,1,171,4,1,176,3,1,181,3,1,186,3,1,191,3,196,196,201,
  581. 201,206,206,211,211,216,221,226,231,245,247,246,246,241,242,242,0,1,242,242,0,
  582. 1,243,241,1,0,162,245,247,246,246,241,241,242,242,0,1,243,241,1,1,1,
  583. 6,11,16,21,21,26,26,31,31,36,36,1,41,3,1,46,3,1,51,3,1,
  584. 56,3,1,61,4,1,66,4,1,71,4,1,76,4,1,81,4,1,86,4,1,
  585. 91,4,1,96,4,1,101,4,1,106,4,1,111,4,1,116,4,1,121,4,1,
  586. 126,4,1,131,4,1,136,4,1,141,4,1,146,4,1,151,4,1,156,4,1,
  587. 161,4,1,166,4,1,171,4,1,176,3,1,181,3,1,186,3,1,191,3,196,
  588. 196,201,201,206,206,211,211,216,221,226,231,245,247,246,246,241,241,242,242,0,1,
  589. 243,241,1,0,162,245,247,241,246,246,241,241,242,242,0,1,241,2,7,12,17,
  590. 22,22,27,27,32,32,37,37,1,42,3,1,47,3,1,52,3,1,57,3,1,
  591. 62,4,1,67,4,1,72,4,1,77,4,1,82,4,1,87,4,1,92,4,1,
  592. 97,4,1,102,4,1,107,4,1,112,4,1,117,4,1,122,4,1,127,4,1,
  593. 132,4,1,137,4,1,142,4,1,147,4,1,152,4,1,157,4,1,162,4,1,
  594. 167,4,1,172,4,1,177,3,1,182,3,1,187,3,1,192,3,197,197,202,202,
  595. 207,207,212,212,217,222,227,232,245,247,241,246,246,241,241,242,242,0,1,241,1,
  596. 0,162,245,247,242,242,0,1,241,246,246,1,241,3,2,7,12,17,22,22,27,
  597. 27,32,32,37,37,1,42,3,1,47,3,1,52,3,1,57,3,1,62,4,1,
  598. 67,4,1,72,4,1,77,4,1,82,4,1,87,4,1,92,4,1,97,4,1,
  599. 102,4,1,107,4,1,112,4,1,117,4,1,122,4,1,127,4,1,132,4,1,
  600. 137,4,1,142,4,1,147,4,1,152,4,1,157,4,1,162,4,1,167,4,1,
  601. 172,4,1,177,3,1,182,3,1,187,3,1,192,3,197,197,202,202,207,207,212,
  602. 212,217,222,227,232,245,247,242,242,0,1,241,246,246,1,241,3,1,0,162,245,
  603. 247,242,242,0,1,242,242,0,1,241,246,246,241,241,2,7,12,17,22,22,27,
  604. 27,32,32,37,37,1,42,3,1,47,3,1,52,3,1,57,3,1,62,4,1,
  605. 67,4,1,72,4,1,77,4,1,82,4,1,87,4,1,92,4,1,97,4,1,
  606. 102,4,1,107,4,1,112,4,1,117,4,1,122,4,1,127,4,1,132,4,1,
  607. 137,4,1,142,4,1,147,4,1,152,4,1,157,4,1,162,4,1,167,4,1,
  608. 172,4,1,177,3,1,182,3,1,187,3,1,192,3,197,197,202,202,207,207,212,
  609. 212,217,222,227,232,245,247,242,242,0,1,242,242,0,1,241,246,246,241,241,1,
  610. 0,162,245,247,243,242,242,0,1,242,242,0,1,241,246,246,241,3,8,13,18,
  611. 23,23,28,28,33,33,38,38,1,43,3,1,48,3,1,53,3,1,58,3,1,
  612. 63,4,1,68,4,1,73,4,1,78,4,1,83,4,1,88,4,1,93,4,1,
  613. 98,4,1,103,4,1,108,4,1,113,4,1,118,4,1,123,4,1,128,4,1,
  614. 133,4,1,138,4,1,143,4,1,148,4,1,153,4,1,158,4,1,163,4,1,
  615. 168,4,1,173,4,1,178,3,1,183,3,1,188,3,1,193,3,198,198,203,203,
  616. 208,208,213,213,218,223,228,233,245,247,243,242,242,0,1,242,242,0,1,241,246,
  617. 246,241,1,0,162,245,247,243,243,242,242,0,1,242,242,0,1,241,246,246,3,
  618. 8,13,18,23,23,28,28,33,33,38,38,1,43,3,1,48,3,1,53,3,1,
  619. 58,3,1,63,4,1,68,4,1,73,4,1,78,4,1,83,4,1,88,4,1,
  620. 93,4,1,98,4,1,103,4,1,108,4,1,113,4,1,118,4,1,123,4,1,
  621. 128,4,1,133,4,1,138,4,1,143,4,1,148,4,1,153,4,1,158,4,1,
  622. 163,4,1,168,4,1,173,4,1,178,3,1,183,3,1,188,3,1,193,3,198,
  623. 198,203,203,208,208,213,213,218,223,228,233,245,247,243,243,242,242,0,1,242,242,
  624. 0,1,241,246,246,1,0,162,245,247,242,242,0,1,243,243,242,242,0,1,241,
  625. 241,246,3,8,13,18,23,23,28,28,33,33,38,38,1,43,3,1,48,3,1,
  626. 53,3,1,58,3,1,63,4,1,68,4,1,73,4,1,78,4,1,83,4,1,
  627. 88,4,1,93,4,1,98,4,1,103,4,1,108,4,1,113,4,1,118,4,1,
  628. 123,4,1,128,4,1,133,4,1,138,4,1,143,4,1,148,4,1,153,4,1,
  629. 158,4,1,163,4,1,168,4,1,173,4,1,178,3,1,183,3,1,188,3,1,
  630. 193,3,198,198,203,203,208,208,213,213,218,223,228,233,245,247,242,242,0,1,243,
  631. 243,242,242,0,1,241,241,246,1,0,162,245,247,241,242,242,0,1,243,243,242,
  632. 242,0,1,241,241,4,9,14,19,24,24,29,29,34,34,39,39,1,44,3,1,
  633. 49,3,1,54,3,1,59,3,1,64,4,1,69,4,1,74,4,1,79,4,1,
  634. 84,4,1,89,4,1,94,4,1,99,4,1,104,4,1,109,4,1,114,4,1,
  635. 119,4,1,124,4,1,129,4,1,134,4,1,139,4,1,144,4,1,149,4,1,
  636. 154,4,1,159,4,1,164,4,1,169,4,1,174,4,1,179,3,1,184,3,1,
  637. 189,3,1,194,3,199,199,204,204,209,209,214,214,219,224,229,234,245,247,241,242,
  638. 242,0,1,243,243,242,242,0,1,241,241,1,0,162,245,247,246,241,242,242,0,
  639. 1,243,243,242,242,0,1,241,4,9,14,19,24,24,29,29,34,34,39,39,1,
  640. 44,3,1,49,3,1,54,3,1,59,3,1,64,4,1,69,4,1,74,4,1,
  641. 79,4,1,84,4,1,89,4,1,94,4,1,99,4,1,104,4,1,109,4,1,
  642. 114,4,1,119,4,1,124,4,1,129,4,1,134,4,1,139,4,1,144,4,1,
  643. 149,4,1,154,4,1,159,4,1,164,4,1,169,4,1,174,4,1,179,3,1,
  644. 184,3,1,189,3,1,194,3,199,199,204,204,209,209,214,214,219,224,229,234,245,
  645. 247,246,241,242,242,0,1,243,243,242,242,0,1,241,1,0,162,245,247,246,241,
  646. 241,242,242,0,1,243,243,241,4,9,14,19,24,24,29,29,34,34,39,39,1,
  647. 44,3,1,49,3,1,54,3,1,59,3,1,64,4,1,69,4,1,74,4,1,
  648. 79,4,1,84,4,1,89,4,1,94,4,1,99,4,1,104,4,1,109,4,1,
  649. 114,4,1,119,4,1,124,4,1,129,4,1,134,4,1,139,4,1,144,4,1,
  650. 149,4,1,154,4,1,159,4,1,164,4,1,169,4,1,174,4,1,179,3,1,
  651. 184,3,1,189,3,1,194,3,199,199,204,204,209,209,214,214,219,224,229,234,245,
  652. 247,246,241,241,242,242,0,1,243,243,241,1,0,162,245,247,241,246,241,1,242,
  653. 3,241,5,10,15,20,25,25,30,30,35,35,40,40,1,45,3,1,50,3,1,
  654. 55,3,1,60,3,1,65,4,1,70,4,1,75,4,1,80,4,1,85,4,1,
  655. 90,4,1,95,4,1,100,4,1,105,4,1,110,4,1,115,4,1,120,4,1,
  656. 125,4,1,130,4,1,135,4,1,140,4,1,145,4,1,150,4,1,155,4,1,
  657. 160,4,1,165,4,1,170,4,1,175,4,1,180,3,1,185,3,1,190,3,1,
  658. 195,3,200,200,205,205,210,210,215,215,220,225,230,235,245,247,241,246,241,1,242,
  659. 3,241,1,0,162,245,247,242,242,0,1,246,246,241,241,242,242,0,1,241,5,
  660. 10,15,20,25,25,30,30,35,35,40,40,1,45,3,1,50,3,1,55,3,1,
  661. 60,3,1,65,4,1,70,4,1,75,4,1,80,4,1,85,4,1,90,4,1,
  662. 95,4,1,100,4,1,105,4,1,110,4,1,115,4,1,120,4,1,125,4,1,
  663. 130,4,1,135,4,1,140,4,1,145,4,1,150,4,1,155,4,1,160,4,1,
  664. 165,4,1,170,4,1,175,4,1,180,3,1,185,3,1,190,3,1,195,3,200,
  665. 200,205,205,210,210,215,215,220,225,230,235,245,247,242,242,0,1,246,246,241,241,
  666. 242,242,0,1,241,1,0,162,245,247,242,242,0,1,242,242,0,1,241,246,246,
  667. 241,241,5,10,15,20,25,25,30,30,35,35,40,40,1,45,3,1,50,3,1,
  668. 55,3,1,60,3,1,65,4,1,70,4,1,75,4,1,80,4,1,85,4,1,
  669. 90,4,1,95,4,1,100,4,1,105,4,1,110,4,1,115,4,1,120,4,1,
  670. 125,4,1,130,4,1,135,4,1,140,4,1,145,4,1,150,4,1,155,4,1,
  671. 160,4,1,165,4,1,170,4,1,175,4,1,180,3,1,185,3,1,190,3,1,
  672. 195,3,200,200,205,205,210,210,215,215,220,225,230,235,245,247,242,242,0,1,242,
  673. 242,0,1,241,246,246,241,241,1,0,162,245,247,243,242,242,0,1,241,1,246,
  674. 3,241,1,0,140,245,247,243,242,242,0,1,241,1,246,3,241,1,0,162,245,
  675. 247,243,243,242,242,0,1,241,241,246,246,1,0,140,245,247,243,243,242,242,0,
  676. 1,241,241,246,246,1,0,162,245,247,242,242,0,1,243,243,242,242,0,1,242,
  677. 242,0,1,241,246,1,0,140,245,247,242,242,0,1,243,243,242,242,0,1,242,
  678. 242,0,1,241,246,1,0,162,245,247,242,242,0,1,242,242,0,1,1,243,3,
  679. 242,242,0,1,246,1,0,140,245,247,242,242,0,1,242,242,0,1,1,243,3,
  680. 242,242,0,1,246,1,0,162,245,247,241,242,242,0,1,242,242,0,1,1,243,
  681. 3,241,1,0,140,245,247,241,242,242,0,1,242,242,0,1,1,243,3,241,1,
  682. 0,162,245,247,246,241,242,242,0,1,1,243,3,241,1,0,140,245,247,246,241,
  683. 242,242,0,1,1,243,3,241,1,0,162,247,241,241,246,1,241,4,247,1,0,
  684. 140,247,241,241,246,1,241,4,247,242,0,6,213,46,30,5,37,21,2,1,60,
  685. 3,1,0,6,59,55,31,55,39,7,47,31,7,15,0,0,23,0,0,1,55,
  686. 3,39,19,0,52,25,3,52,25,3,52,25,3,60,60,59,60,60,59,60,60,
  687. 59,1,0,3,21,21,20,242,242,0,1);
  688.  
  689.       texte      :ARRAY[1..3067] OF BYTE=
  690.                   (31,4,31,0,17,31,17,0,0,23,0,0,0,0,0,0,1,31,1,0,
  691.                    31,4,31,0,17,31,17,0,23,21,29,0,0,0,0,0,17,31,17,0,
  692.                    31,2,31,0,1,31,1,0,31,13,23,0,31,17,31,0,0,0,0,
  693.                    0,17,31,17,0,23,21,29,0,0,0,0,0,31,13,23,0,31,21,
  694.                    17,0,31,9,31,0,31,16,16,0,31,16,16,0,3,28,3,0,0,
  695.                    0,0,0,23,21,29,0,31,5,7,0,31,21,17,0,31,17,17,0,
  696.                    17,31,17,0,31,9,31,0,31,16,16,0,0,16,0,0,0,16,0,0,
  697.                    0,16,0,0,0,0,0,0, 17,31,17,0,1,31,1,0,0,3,0,0,23,21,
  698.                    29,0,0,0,0,0,1,31,1,0,31,4,31,0,31,21,17,0,0,0,0,0,
  699.                    31,5,1,0,17,31,17,0,31,13,23,0,23,21,29,0,1,31,1,0,
  700.                    0,0,0,0,31,5,7,0,31,16,31,0,31,13,23,0,31,21,17,0,
  701.                    0,0,0,0,31,4,31,0,31,9,31,0,31,13,23,0,
  702.                    31,17,14,0,31,12,31,0,31,9,31,0,31,13,23,0,31,21,17,0,
  703.                    0,0,0,0,17,31,17,0,31,2,31,0,1,31,1,0,31,13,23,0,
  704.                    31,17,31,0,0,23,0,0,0,0,0,0, 17,31,17,0,31,2,31,0,
  705.                    31,17,17,0,31,13,23,0,31,21,17,0,31,17,14,0,17,31,17,0,
  706.                    31,21,10,0,31,16,16,0,31,21,17,0,0,0,0,0,31,21,10,0,
  707.                    31,16,31,0,1,31,1,0,0,0,0,0,1,31,1,0,31,13,23,0,
  708.                    31,16,31,0,31,21,17,0,0,23,0,0,0,0,0,0,1,31,1,0,
  709.                    31,4,31,0,31,21,17,0,0,0,0,0,31,17,17,0,17,31,17,0,
  710.                    31,13,23,0,31,17,17,0,31,16,31,0,31,16,16,0,
  711.                    31,9,31,0,31,13,23,0,0,0,0,0,1,31,1,0,31,21,17,0,
  712.                    27,4,27,0,1,31,1,0,0,0,0,0,23,21,29,0,31,17,17,0,
  713.                    31,13,23,0,31,17,31,0,31,16,16,0,31,16,16,0,
  714.                    31,21,17,0,31,13,23,0,0,0,0,0,17,31,17,0,23,21,29,0,
  715.                    0,0,0,0,18,31,16,0,31,17,31,0,31,17,31,0,25,4,19,0,
  716.                    0,0,0,0,31,4,31,0,31,9,31,0,31,13,23,0,31,17,14,0,
  717.                    0,16,0,0,0,16,0,0,0,16,0,0,0,0,0,0, 1,31,1,0,
  718.                    31,4,31,0,31,21,17,0,0,0,0,0,23,21,29,0,1,31,1,0,
  719.                    31,13,23,0,31,21,17,0,1,31,1,0,31,17,17,0,31,4,31,0,
  720.                    31,21,17,0,31,17,14,0,0,0,0,0,1,31,1,0,31,21,17,0,
  721.                    27,4,27,0,1,31,1,0,0,0,0,0,23,21,29,0,31,17,17,0,
  722.                    31,13,23,0,31,17,31,0,31,16,16,0,31,16,16,0,31,21,17,0,
  723.                    31,13,23,0,0,0,0,0,17,31,17,0,23,21,29,0,0,0,0,0,
  724.                    18,31,16,0,31,17,31,0,31,17,31,0,25,4,19,0,0,0,0,0,
  725.                    31,4,31,0,31,9,31,0,31,13,23,0,31,17,14,0,0,16,0,0,
  726.                    0,16,0,0,0,16,0,0,0,0,0,0, 1,31,1,0,31,4,31,0,31,21,17,
  727.                    0,0,0,0,0,31,17,17,0,31,4,31,0,31,21,17,0,31,17,17,0,
  728.                    31,4,27,0,31,21,17,0,31,13,23,0,31,21,10,0,31,17,31,0,
  729.                    31,9,31,0,31,13,23,0,31,17,14,0,0,0,0,0,23,21,29,0,
  730.                    31,17,17,0,31,13,23,0,31,17,31,0,31,16,16,0,31,16,16,0,
  731.                    31,21,17,0,31,13,23,0,0,0,0,0,17,31,17,0,23,21,29,0,
  732.                    0,0,0,0,18,31,16,0,31,17,31,0,31,17,31,0,25,4,19,0,
  733.                    0,0,0,0,31,4,31,0,31,9,31,0,31,13,23,0,31,17,14,0,
  734.                    0,16,0,0,0,16,0,0,0,16,0,0,0,0,0,0, 1,31,1,0,31,4,31,0,
  735.                    31,21,17,0,0,0,0,0,25,21,19,0,31,17,31,0,31,17,31,0,
  736.                    31,6,31,0,31,21,17,0,31,17,14,0,0,0,0,0,1,31,1,0,
  737.                    17,31,17,0,1,31,1,0,31,16,16,0,31,21,17,0,0,0,0,0,
  738.                    31,9,31,0,1,31,1,0,0,0,0,0,1,31,1,0,31,4,31,0,31,21,17,0,
  739.                    0,0,0,0,31,21,17,0,31,2,31,0,31,17,14,0,0,0,0,0,
  740.                    17,31,17,0,23,21,29,0,0,0,0,0,18,31,16,0,31,17,31,0,
  741.                    31,17,31,0,25,4,19,0,0,0,0,0,31,4,31,0,31,9,31,0,
  742.                    31,13,23,0,31,17,14,0,0,16,0,0,0,16,0,0,0,16,0,0,0,0,0,0,
  743.                    31,9,31,0,31,2,31,0,31,17,14,0,0,0,0,0,
  744.                    1,31,1,0,31,4,31,0,31,21,17,0,0,0,0,0,23,21,29,0,31,5,7,0,
  745.                    31,17,31,0,1,31,1,0,23,21,29,0,0,0,0,0,31,9,31,0,31,13,23,
  746.                    0,31,21,17,0,0,0,0,18,31,16,0,31,17,31,0,31,17,31,0,25,4,
  747.                    19,0,0,0,0,0,31,4,31,0,31,9,31,0,31,13,23,0,31,17,14,0,
  748.                    0,16,0,0,0,16,0,0,0,16,0,0,0,0,0,0,31,17,31,0,31,4,27,0,
  749.                    31,9,31,0,3,28,3,0,0,16,0,0,0,16,0,0,0,16,0,0,0,0,0,0,
  750.                    17,31,17,0,0,0,0,0,31,17,25,0,17,31,17,0,15,16,15,0,
  751.                    31,21,17,0,0,0,0,0,3,28,3,0,31,17,31,0,31,16,31,0,
  752.                    0,0,0,0,31,9,31,0,0,0,0,0,31,17,17,0,31,16,16,0,
  753.                    31,16,31,0,31,21,17,0,0,18,0,0,0,0,0,0,29,21,23,0,
  754.                    21,21,31,0,23,21,29,0,0,0,0,0,31,17,17,0,31,17,31,0,
  755.                    31,16,16,0,31,17,31,0,31,13,23,0,23,21,29,0,0,0,0,0,
  756.                    31,9,31,0,31,13,23,0,31,21,17,0,0,0,0,0,31,2,31,0,
  757.                    31,21,17,0,31,17,17,0,31,21,17,0,23,21,29,0,23,21,29,0,
  758.                    31,9,31,0,31,13,23,0,3,28,3,0,0,0,0,0,31,5,1,0,31,17,
  759.                    31,0,31,13,23,0,0,0,0,0,1,31,1,0,31,4,31,0,31,21,17,0,
  760.                    0,0,0,0,1,31,1,0,31,21,17,0,27,4,27,0,1,31,1,0,0,0,0,0,
  761.                    23,21,29,0,31,17,17,0,31,13,23,0,31,17,31,0,31,16,16,0,
  762.                    31,16,16,0,31,21,17,0,31,13,23,0,23,21,29,0,0,0,0,0,
  763.                    31,21,29,0,0,0,0,0,31,5,1,0,31,17,31,0,31,13,23,0,0,0,0,
  764.                    0,1,31,1,0,31,4,31,0,31,21,17,0,0,0,0,0,31,17,17,0,31,4,
  765.                    31,0,31,21,17,0,31,17,17,0,31,4,27,0,31,21,17,0,31,13,23,
  766.                    0,31,21,10,0,31,17,31,0,31,9,31,0,31,13,23,0,31,17,14,0,
  767.                    0,0,0,0,31,9,31,0,31,2,31,0,31,17,14,0,0,0,0,0,15,8,28,0,
  768.                    0,0,0,0,31,5,1,0,31,17,31,0,31,13,23,0,0,0,0,0,1,31,1,0,
  769.                    31,4,31,0,31,21,17,0,0,0,0,0,23,21,29,0,31,5,7,0,31,17,31,
  770.                    0,1,31,1,0,23,21,29,0,0,23,0,0,0,0,0,0,31,17,14,0,17,31,
  771.                    17,0,31,17,14,0,0,0,0,0,3,28,3,0,31,17,31,0,31,16,31,0,0,
  772.                    0,0,0,31,17,25,0,31,16,31,0,31,21,17,0,23,21,29,0,23,21,
  773.                    29,0,0,0,0,0,31,2,31,0,31,17,31,0,31,12,31,0,3,21,7,0,0,
  774.                    0,0,0,17,31,17,0,0,0,0,0,23,21,29,0,1,31,1,0,31,9,31,0,
  775.                    31,13,23,0,1,31,1,0,31,21,17,0,31,17,14,0,0,0,0,0,
  776.                    1,31,1,0,31,4,31,0,31,21,17,0,0,0,0,0,17,31,17,0,
  777.                    31,17,14,0,31,21,17,0,31,9,31,0,0,0,0,0,1,31,1,0,
  778.                    31,17,31,0,0,0,0,0,31,6,31,0,31,9,31,0,31,4,27,0,
  779.                    31,21,17,0,0,0,0,0,1,31,1,0,31,4,31,0,17,31,17,0,
  780.                    23,21,29,0,0,0,0,0,3,0,3,0,17,31,17,0,31,2,31,0,
  781.                    31,9,31,0,31,2,31,0,17,31,17,0,31,6,31,0,31,9,31,0,
  782.                    1,31,1,0,31,21,17,0,31,17,14,0,3,0,3,0,0,0,0,0,
  783.                    17,31,17,0,31,2,31,0,1,31,1,0,31,13,23,0,31,17,31,0,
  784.                    0,0,0,0,1,31,1,0,31,17,31,0,0,0,0,0,23,21,29,0,
  785.                    31,4,31,0,31,17,31,0,31,12,31,0,0,0,0,0,1,31,1,0,
  786.                    31,4,31,0,31,9,31,0,1,31,1,0,0,0,0,0,17,31,17,0,
  787.                    1,31,1,0,0,3,0,0,23,21,29,0,0,0,0,0,31,2,31,0,31,17,31,0,
  788.                    1,31,1,0,0,0,0,0,31,2,31,0,31,21,17,0,31,17,17,0,
  789.                    31,21,17,0,23,21,29,0,23,21,29,0,31,9,31,0,31,13,23,0,
  790.                    3,28,3,0,0,0,0,0,1,31,1,0,31,17,31,0,0,0,0,0,31,17,17,0,
  791.                    31,13,23,0,31,21,17,0,31,9,31,0,1,31,1,0,31,21,17,0,
  792.                    0,0,0,0,31,4,31,0,31,21,17,0,31,9,31,0,15,16,15,0,3,28,3,0,
  793.                    0,0,0,0,31,17,17,0,31,5,7,0,31,16,31,0,0,0,0,0,31,5,7,0,
  794.                    31,13,23,0,31,17,31,0,31,17,25,0,31,13,23,0,31,9,31,0,
  795.                    31,6,31,0,23,21,29,0,0,0,0,0,1,31,1,0,31,17,31,0,0,0,0,0,
  796.                    31,17,25,0,31,21,17,0,1,31,1,0,0,0,0,0,31,9,31,0,
  797.                    31,6,31,0,31,9,31,0,25,21,19,0,17,31,17,0,31,2,31,0,
  798.                    31,17,25,0,0,0,0,0,31,21,17,0,31,5,1,0,31,5,1,0,
  799.                    31,21,17,0,31,17,17,0,1,31,1,0,23,21,29,0,0,23,0,0,0,0,0,0,
  800.                    1,31,1,0,31,4,31,0,31,16,31,0,23,21,29,0,0,0,0,0,
  801.                    31,4,31,0,31,9,31,0,31,13,23,0,31,17,14,0,17,31,17,0,
  802.                    31,2,31,0,0,0,0,0,31,16,16,0,31,21,17,0,1,31,1,0,
  803.                    0,0,0,0,1,31,1,0,31,4,31,0,31,21,17,0,0,0,0,0,31,17,17,0,
  804.                    31,5,7,0,31,16,31,0,0,0,0,0,31,9,31,0,23,21,29,0,
  805.                    31,16,16,0,31,21,17,0,31,21,17,0,31,5,7,0,0,23,0,0,
  806.                    0,23,0,0,0,23,0,0,0,0,0,0,31,12,31,0,31,21,17,0,31,16,16,
  807.                    0,31,16,16,0,0,0,0,0,1,31,1,0,31,4,31,0,31,9,31,0,1,31,1,
  808.                    0,0,3,0,0,23,21,29,0,0,0,0,0,31,9,31,0,31,16,16,0,31,16,
  809.                    16,0,0,23,0,0,0,0,0,0,31,17,25,0,31,13,23,0,31,21,17,0,31,
  810.                    21,17,0,1,31,1,0,17,31,17,0,31,2,31,0,31,17,25,0,23,21,29,
  811.                    0,0,0,0,0,1,31,1,0,31,17,31,0,0,0,0,0,31,21,17,0,15,16,15,
  812.                    0,31,21,17,0,31,13,23,0,3,28,3,0,31,21,10,0,31,17,31,0,31,
  813.                    17,14,0,3,28,3,0,0,0,0,0,31,9,31,0,31,2,31,0,31,17,14,0,0,
  814.                    0,0,0,31,21,17,0,23,21,29,0,31,5,7,0,31,21,17,0,31,17,17,
  815.                    0,17,31,17,0,31,9,31,0,31,16,16,0,31,16,16,0,3,28,3,0,0,0,
  816.                    0,0,1,31,1,0,31,17,31,0,0,0,0,0,1,31,1,0,31,4,31,0,31,21,
  817.                    17,0,0,0,0,0,31,17,17,0,31,17,31,0,31,17,14,0,31,21,17,0,
  818.                    31,21,10,0,31,16,16,0,31,9,31,0,23,21,29,0,1,31,1,0,
  819.                    31,21,17,0,31,13,23,0,23,21,29,0,0,0,0,0,31,5,1,0,
  820.                    31,17,31,0,31,13,23,0,0,0,0,0,1,31,1,0,31,4,31,0,
  821.                    31,21,17,0,17,31,17,0,31,13,23,0,0,0,0,0,31,17,25,0,
  822.                    31,17,31,0,31,16,16,0,31,17,14,0,31,5,7,0,31,16,16,0,
  823.                    31,9,31,0,3,28,3,0,0,16,0,0,0,16,0,0,0,16,0,0,0,0,0,0,
  824.                    1,31,1,0,31,17,31,0,0,0,0,0,31,17,17,0,31,17,31,0,
  825.                    31,2,31,0,1,31,1,0,31,9,31,0,31,17,17,0,1,31,1,0,0,0,0,0,
  826.                    31,6,31,0,31,21,17,0,0,18,0,0,0,0,0,0,31,5,7,0,31,9,31,0,
  827.                    1,31,1,0,31,13,23,0,17,31,17,0,31,17,17,0,31,4,27,0,0,0,
  828.                    0,0,31,13,23,0,31,16,31,0,31,21,17,0,31,16,16,0,31,16,16,0,
  829.                    31,21,17,0,24,4,3,0,18,31,16,0,31,21,29,0,21,21,31,0,0,0,
  830.                    0,0,31,13,23,0,31,16,31,0,31,21,17,0,0,0,0,0,31,17,14,0,
  831.                    31,21,17,0,0,0,0,0,31,17,17,0,31,4,31,0,31,9,31,0,31,13,
  832.                    23,0,31,17,31,0,31,2,31,0,31,2,31,0,31,21,17,0,24,4,3,0,
  833.                    1,1,31,0,23,21,29,0,31,17,31,0,18,31,16,0,18,31,16,0,0,0,
  834.                    0,0,31,5,7,0,31,9,31,0,31,13,23,0,17,31,17,0,23,21,29,0,
  835.                    0,16,0,0,0,16,0,0,0,16,0,0,0,0,0,0);
  836.  
  837.       couleurs   :ARRAY[0..14] OF BYTE=
  838.                   (62,60,0,62,60,14,62,61,30,62,62,46,63,63,63);
  839.  
  840.  TYPE ecran=^image;
  841.       image=ARRAY[0..64999] OF BYTE;
  842.  
  843.  VAR  palette,
  844.       palette2   :ARRAY[0..767] OF BYTE;
  845.       image1     :ecran;
  846.       fic        :FILE;
  847.       compteur   :BYTE;
  848.       segment    :WORD;
  849.       compdelay  :LongInt;
  850.       i,j        :BYTE;
  851.       key        :Char;
  852.       str1       :STRING;
  853.       rien       :Integer;
  854.  
  855. {DECOMPRESSEUR DE L'IMAGE DU TABLEAU INTERNE (compressée en RSF)}
  856. PROCEDURE Decompacte;
  857. VAR
  858.   i,cptimg3,cptimg4,ox:WORD;
  859.   o1,o2,o3,o4         :BYTE;
  860.   min1,min2           :BYTE;
  861. BEGIN
  862.   min1   :=img[0];
  863.   min2   :=img[1];
  864.   cptimg4:=2;
  865.   cptimg3:=0;
  866.   REPEAT
  867.     o1:=img[cptimg4];
  868.     IF o1=min1 THEN
  869.     BEGIN
  870.       o2:=img[cptimg4+1];
  871.       o3:=img[cptimg4+2];
  872.       o4:=img[cptimg4+3];
  873.       ox:=256*o3+o4;
  874.       FOR i:=cptimg3 TO cptimg3+ox-1 DO
  875.         image1^[i]:=o2;
  876.       Inc(cptimg3,ox);
  877.       Inc(cptimg4,4);
  878.     END;
  879.     IF o1=min2 THEN
  880.     BEGIN
  881.       o2:=img[cptimg4+1];
  882.       o3:=img[cptimg4+2];
  883.       FOR i:=cptimg3 TO cptimg3+o3-1 DO
  884.         image1^[i]:=o2;
  885.       Inc(cptimg3,o3);
  886.       Inc(cptimg4,3);
  887.     END;
  888.     IF ((o1<>min1) AND (o1<>min2)) THEN
  889.     BEGIN
  890.       image1^[cptimg3]:=o1;
  891.       Inc(cptimg3);
  892.       Inc(cptimg4);
  893.     END;
  894.   UNTIL cptimg3>64767;
  895. END;
  896.  
  897.  
  898. PROCEDURE Cyclage(deb,fin:BYTE);
  899. VAR
  900.   i,j1,j2:WORD;
  901.   r,v,b  :BYTE;
  902. BEGIN
  903.   j1:=fin*3;
  904.   r :=palette[j1];
  905.   v :=palette[j1+1];
  906.   b :=palette[j1+2];
  907.   FOR i:=fin-1 DOWNTO deb DO
  908.   BEGIN
  909.     j1:=i*3; j2:=(i+1)*3;
  910.     palette[j2]  :=palette[j1];
  911.     palette[j2+1]:=palette[j1+1];
  912.     palette[j2+2]:=palette[j1+2];
  913.   END;
  914.   j1:=deb*3;
  915.   palette[j1]  :=r;
  916.   palette[j1+1]:=v;
  917.   palette[j1+2]:=b;
  918. END;
  919.  
  920.  
  921. PROCEDURE DelayTi(duree:WORD);{durée en 18èmes de sec}
  922. VAR
  923.   tmps, tick:WORD;
  924.   lowclock  :WORD ABSOLUTE $0000:$046C;
  925. BEGIN
  926.   tmps:=0;
  927.   REPEAT
  928.     tick:=lowclock;
  929.     REPEAT
  930.     UNTIL lowclock<>tick;
  931.     Inc(tmps);
  932.   UNTIL tmps=duree;
  933. END;
  934.  
  935.  
  936. PROCEDURE Apparition_Fading;
  937. VAR  i,j:WORD;
  938. BEGIN
  939.   FOR i:=0 TO 63 DO
  940.   BEGIN
  941.     FOR j:=0 TO 767 DO
  942.       IF palette2[j]<palette[j]
  943.         THEN Inc(palette2[j]);
  944.     Attente_Synchro;
  945.     Ecriture_Palette(palette2[0],0,128);
  946.     Attente_Synchro;
  947.     Ecriture_Palette(palette2[384],128,128);
  948.   END;
  949. END;
  950.  
  951.  
  952. PROCEDURE Disparition_Fading;
  953. VAR  i,j:WORD;
  954. BEGIN
  955.   FOR i:=0 TO 63 DO
  956.   BEGIN
  957.     FOR j:=0 TO 767 DO
  958.       IF palette[j]>0
  959.         THEN Dec(palette[j]);
  960.     Attente_Synchro;
  961.     Ecriture_Palette(palette[0],0,128);
  962.     Attente_Synchro;
  963.     Ecriture_Palette(palette[384],128,128);
  964.   END;
  965. END;
  966.  
  967.  
  968. PROCEDURE Zoom_Texte;
  969. VAR  j:BYTE;
  970. BEGIN
  971.   Attente_Synchro;
  972.   FillChar(Mem[$A000:36*320],52480,Chr(0));
  973.   FOR compteur:=1 TO 8 DO
  974.   BEGIN
  975.     FOR j:=1 TO 2 DO
  976.     Attente_Synchro;
  977.     Zoom_Vertical(compteur);
  978.   END;
  979.   Delay(999);
  980. END;
  981.  
  982.  
  983. PROCEDURE Actualiser_Textes;{La proc principale: toutes  les animations}
  984.                             {ne sont que de simples cyclages prédéfinis}
  985. BEGIN
  986.   MemW[$40:$1A]:=MemW[$40:$1C];
  987.   REPEAT
  988.     INC(segment);
  989.     IF segment>3067 THEN segment:=1;
  990.     Move(palette2[18],palette[3],690);
  991.     j:=1;
  992.     FOR i:=231 TO 235 DO
  993.     BEGIN
  994.       IF (texte[segment] AND j)=j THEN
  995.       BEGIN
  996.         palette[i*3  ]:=couleurs[(i-231)*3  ];
  997.         palette[i*3+1]:=couleurs[(i-231)*3+1];
  998.         palette[i*3+2]:=couleurs[(i-231)*3+2];
  999.       END
  1000.       ELSE
  1001.       BEGIN
  1002.         palette[i*3  ]:=0;
  1003.         palette[i*3+1]:=0;
  1004.         palette[i*3+2]:=0;
  1005.       END;
  1006.       j:=j*2;
  1007.     END;
  1008.     Cyclage(248,253);
  1009.     Move(palette[0],palette2[0],768);
  1010.     Attente_Synchro;
  1011.     Ecriture_Palette(palette2[3],1,240);
  1012.     Attente_Synchro;
  1013.     Ecriture_Palette(palette2[248*3],248,8);
  1014.   UNTIL KeyPressed;
  1015. END;
  1016.  
  1017.  
  1018. BEGIN
  1019.   Randomize;
  1020.   IF Activation_MCGA=False THEN
  1021.     WriteLn('Mode VGA non disponible!');
  1022.   Activation_Texte;
  1023.   WriteLn('GRYPHAEA presents the 1st hardware graphics intro: HardIn!!!');
  1024.   DelayTi(36);
  1025.   New(image1);
  1026.   IF Activation_MCGA=False THEN;
  1027.   Decompacte;
  1028.   segment:=0;
  1029.   FillChar(palette[0],768,Chr(0));
  1030.   Move(image1^[64000],palette[0],765);
  1031.   FillChar(palette2[0],768,Chr(0));
  1032.   Ecriture_Palette(palette2[0],0,256);
  1033.   Move(image1^[0],Mem[$A000:$0],64000);
  1034.   Move(palette[0],palette2[0],768);
  1035.   DelayTi(18);
  1036.   Attente_Synchro;
  1037.   Ecriture_Palette(palette2[0],0,255);
  1038.   DelayTi(18);
  1039.   Port[$21]:=$5C;{on inhibes qques IRQs}
  1040.   Actualiser_Textes;
  1041.   Dispose(image1);
  1042.   Zoom_Texte;
  1043.   Port[$21]:=0;{on les restaure}
  1044.   Disparition_Fading;
  1045.   Activation_Texte;
  1046. END.