home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 18 / CD_ASCQ_18_111294_W.iso / dos / prg / pas / gfxfx / effect2.pas < prev    next >
Pascal/Delphi Source File  |  1994-04-20  |  17KB  |  331 lines
  1.  
  2. program Effect;
  3. { Bitmap effect, no2, by Bas van Gaalen, Holland, PD }
  4. uses
  5.   crt;
  6.  
  7. const
  8.   Palette : array[0..$2ff] of byte = (
  9. 0,0,0,2,2,2,4,4,4,6,6,6,8,8,8,
  10. 10,10,10,12,12,12,14,14,14,16,16,16,18,18,18,20,
  11. 20,20,22,22,22,24,24,24,26,26,26,28,28,28,30,30,
  12. 30,33,33,33,35,35,35,37,37,37,39,39,39,41,41,41,
  13. 43,43,43,45,45,45,47,47,47,49,49,49,51,51,51,53,
  14. 53,53,55,55,55,57,57,57,59,59,59,61,61,61,63,63,
  15. 63,63,51,51,63,63,51,51,63,51,51,63,63,51,51,63,
  16. 63,51,63,63,39,39,63,51,39,63,63,39,51,63,39,39,
  17. 63,39,39,63,51,39,63,63,39,51,63,39,39,63,51,39,
  18. 63,63,39,63,63,39,51,63,27,27,63,39,27,63,51,27,
  19. 63,63,27,51,63,27,39,63,27,27,63,27,27,63,39,27,
  20. 63,51,27,63,63,27,51,63,27,39,63,27,27,63,39,27,
  21. 63,51,27,63,63,27,63,63,27,51,63,27,39,63,15,15,
  22. 63,27,15,63,39,15,63,51,15,63,63,15,51,63,15,39,
  23. 63,15,27,63,15,15,63,15,15,63,27,15,63,39,15,63,
  24. 51,15,63,63,15,51,63,15,39,63,15,27,63,15,15,63,
  25. 27,15,63,39,15,63,51,15,63,63,15,63,63,15,51,63,
  26. 15,39,63,15,27,63,3,15,63,3,3,63,15,3,63,27,
  27. 3,63,39,3,63,51,3,63,63,3,51,63,3,39,63,3,
  28. 27,63,3,15,63,3,3,63,3,3,63,15,3,63,27,3,
  29. 63,39,3,63,51,3,63,63,3,51,63,3,39,63,3,27,
  30. 63,3,15,63,3,3,63,15,3,63,27,3,63,39,3,63,
  31. 51,3,63,63,3,63,63,3,51,63,3,39,63,3,27,51,
  32. 3,15,51,3,3,51,15,3,51,27,3,51,39,3,51,51,
  33. 3,39,51,3,27,51,3,15,51,3,3,51,3,3,51,15,
  34. 3,51,27,3,51,39,3,51,51,3,39,51,3,27,51,3,
  35. 15,51,3,3,51,15,3,51,27,3,51,39,3,51,51,3,
  36. 51,51,3,39,51,3,27,39,3,15,39,3,3,39,15,3,
  37. 39,27,3,39,39,3,27,39,3,15,39,3,3,39,3,3,
  38. 39,15,3,39,27,3,39,39,3,27,39,3,15,39,3,3,
  39. 39,15,3,39,27,3,39,39,3,39,39,3,27,27,3,15,
  40. 27,3,3,27,15,3,27,27,3,15,27,3,3,27,3,3,
  41. 27,15,3,27,27,3,15,27,3,3,27,15,3,27,27,3,
  42. 27,15,3,3,15,15,3,3,15,3,3,15,15,3,3,15,
  43. 15,3,15,27,15,15,27,27,15,15,27,15,15,27,27,15,
  44. 15,27,27,15,27,39,15,15,39,27,15,39,39,15,27,39,
  45. 15,15,39,15,15,39,27,15,39,39,15,27,39,15,15,39,
  46. 27,15,39,39,15,39,39,15,27,51,15,15,51,27,15,51,
  47. 39,15,51,51,15,39,51,15,27,51,15,15,51,15,15,51,
  48. 27,15,51,39,15,51,51,15,39,51,15,27,51,15,15,51,
  49. 27,15,51,39,15,51,51,15,51,51,15,39,51,15,27,51,
  50. 27,27,51,39,27,51,51,27,39,51,27,27,51,27,27,51,
  51. 39,27,51,51,27,39,51,27,27,51,39,27,51,51,27,51,
  52. 51,27,39,51,39,39,51,51,39,39,51,39,39,51,51,39,
  53. 39,51,51,39,51,39,27,27,39,39,27,27,39,27,27,39,
  54. 39,27,27,39,39,27,39,3,3,3,15,15,15,27,27,27,
  55. 39,39,39,51,51,51,63,63,63,63,22,3,39,7,5,36,
  56. 36,63,0,0,0,22,22,22,38,38,38,52,52,52,63,0,0);
  57.  
  58.   Picture : array[0..102*32] of byte = (
  59. 0,0,0,0,242,242,2,180,180,180,180,180,180,180,180,180,
  60. 180,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
  61. 0,0,0,0,0,0,0,1,2,180,180,180,180,180,180,180,
  62. 180,180,180,242,0,0,0,0,0,0,0,0,0,0,0,0,
  63. 0,0,0,0,1,242,242,242,242,242,242,1,1,1,242,242,
  64. 242,242,242,180,180,173,173,173,173,173,159,159,159,159,159,180,
  65. 173,173,180,1,0,0,0,0,0,173,173,173,173,159,139,139,
  66. 139,139,139,139,139,139,159,173,180,180,242,242,242,242,1,0,
  67. 0,0,0,0,0,0,0,0,0,0,0,0,1,180,173,159,
  68. 139,139,138,138,159,139,139,139,159,173,242,0,0,0,1,1,
  69. 242,242,242,1,1,0,1,242,2,2,180,180,180,180,180,180,
  70. 180,180,180,173,173,173,173,173,173,173,173,159,159,138,138,138,
  71. 113,113,113,113,139,173,158,158,173,2,0,0,0,0,173,139,
  72. 139,138,138,138,112,112,112,112,112,112,112,112,138,159,159,173,
  73. 173,173,173,173,180,2,242,242,242,242,242,242,242,1,0,0,
  74. 1,242,180,159,138,112,112,112,112,112,138,112,112,112,139,173,
  75. 180,242,242,242,180,173,173,173,173,173,180,2,3,3,180,180,
  76. 179,173,173,173,173,173,173,173,159,139,139,137,139,138,138,139,
  77. 138,138,138,112,112,112,111,110,110,110,137,111,138,158,172,180,
  78. 1,0,0,180,159,112,112,112,112,112,111,138,138,138,138,138,
  79. 138,138,138,138,159,159,159,138,138,139,159,173,173,173,173,173,
  80. 173,173,173,173,180,180,173,173,159,139,112,111,138,138,138,138,
  81. 138,138,138,138,138,159,173,180,173,173,159,139,138,138,139,159,
  82. 173,180,4,180,173,172,172,158,159,159,158,137,139,139,139,111,
  83. 111,111,112,112,112,112,112,112,111,138,138,138,138,138,138,138,
  84. 138,138,138,138,158,180,2,1,0,180,139,112,111,138,138,138,
  85. 138,138,138,138,138,138,138,138,138,138,138,138,138,112,112,138,
  86. 138,159,138,138,138,138,138,138,139,159,173,173,159,139,138,138,
  87. 112,138,138,138,138,138,138,138,138,138,138,159,159,158,138,138,
  88. 138,112,112,112,138,139,173,173,173,159,158,158,138,138,138,159,
  89. 111,112,112,111,111,111,138,138,138,138,138,138,138,138,138,138,
  90. 138,138,138,138,138,138,138,138,138,138,158,172,180,242,0,180,
  91. 139,112,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  92. 138,138,138,138,138,138,138,138,138,112,112,112,112,112,138,138,
  93. 159,139,138,112,112,111,111,138,138,138,138,138,138,138,138,138,
  94. 138,138,111,111,111,111,111,111,138,138,138,138,159,159,158,138,
  95. 138,138,112,112,112,112,111,138,138,138,138,138,138,138,138,138,
  96. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  97. 138,158,172,180,1,180,139,112,138,138,138,138,138,138,138,138,
  98. 138,138,138,211,211,211,211,138,138,138,138,138,138,138,138,138,
  99. 138,138,138,138,138,138,138,159,111,111,138,138,138,138,138,138,
  100. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  101. 138,138,158,138,138,138,112,112,138,138,138,138,138,138,138,138,
  102. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  103. 138,138,138,138,138,138,138,138,158,180,2,180,139,112,138,138,
  104. 138,138,138,211,211,211,211,211,225,46,46,46,62,212,138,138,
  105. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,111,138,
  106. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  107. 138,138,138,138,138,138,138,138,138,112,112,112,112,138,138,138,
  108. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  109. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,158,172,
  110. 180,180,159,138,138,138,138,138,211,46,46,46,46,46,45,36,
  111. 46,250,62,212,138,138,138,138,138,138,138,138,138,138,138,138,
  112. 138,138,138,138,138,138,211,211,211,211,138,138,138,138,211,211,
  113. 211,211,211,211,138,138,138,138,138,138,138,138,138,138,138,138,
  114. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  115. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  116. 138,138,138,138,138,158,172,1,180,173,159,158,138,138,225,36,
  117. 46,46,46,46,46,250,62,62,84,138,138,138,211,211,138,138,
  118. 138,138,138,138,211,138,138,138,138,138,226,46,46,46,46,250,
  119. 211,138,138,211,46,46,46,46,46,226,212,138,138,138,138,138,
  120. 211,211,138,138,138,138,138,138,138,138,138,211,211,211,211,211,
  121. 211,138,138,138,138,138,138,138,138,138,138,138,211,211,138,138,
  122. 211,211,211,211,211,211,211,138,138,138,138,158,172,0,242,180,
  123. 173,158,137,211,61,46,250,62,62,62,62,62,62,212,138,138,
  124. 138,211,46,250,211,138,138,138,138,211,226,211,138,138,138,226,
  125. 45,36,46,250,250,250,62,212,138,211,46,46,46,250,62,212,
  126. 138,138,138,138,138,226,46,46,46,46,46,250,211,138,138,211,
  127. 225,46,46,46,46,46,250,211,211,138,138,138,138,138,211,211,
  128. 211,225,46,250,212,211,46,46,46,46,46,46,61,212,138,138,
  129. 138,158,172,0,2,173,159,138,111,137,211,250,250,62,212,212,
  130. 212,212,138,138,138,138,138,211,46,46,62,138,138,138,138,226,
  131. 225,212,138,138,211,46,36,250,62,212,212,62,62,62,138,211,
  132. 46,46,250,62,212,138,138,138,138,138,226,45,36,46,250,250,
  133. 250,250,62,138,212,225,46,36,46,46,46,46,250,250,61,211,
  134. 138,138,138,226,46,46,46,45,36,250,212,226,36,46,250,62,
  135. 250,250,250,211,138,138,138,158,179,1,180,159,138,111,111,137,
  136. 226,46,46,62,212,138,138,138,138,138,137,138,138,211,250,250,
  137. 62,212,138,138,211,225,226,138,138,138,225,36,46,62,212,138,
  138. 138,211,250,62,212,211,46,46,250,62,138,138,137,138,138,211,
  139. 46,36,250,84,212,212,62,250,62,212,138,211,46,250,62,62,
  140. 62,62,62,250,250,62,212,138,211,46,36,46,46,46,250,62,
  141. 211,46,36,62,212,138,212,62,62,62,138,138,138,158,179,242,
  142. 173,139,112,111,138,211,46,36,250,62,211,211,211,137,138,138,
  143. 138,138,138,138,211,62,62,62,211,137,225,46,211,138,138,211,
  144. 61,46,62,212,138,138,137,211,46,250,212,211,46,46,62,212,
  145. 138,138,138,138,138,225,36,250,212,138,138,138,211,62,62,211,
  146. 138,211,46,250,212,212,212,212,211,62,250,250,62,138,211,46,
  147. 46,62,62,62,62,84,211,250,250,84,138,138,137,211,62,62,
  148. 212,138,138,158,179,2,173,138,112,138,138,211,46,46,250,250,
  149. 250,46,61,212,138,138,138,138,138,138,138,212,62,62,62,62,
  150. 46,46,212,138,138,138,211,250,62,212,138,137,138,211,46,62,
  151. 212,211,45,46,62,212,138,137,138,138,211,46,45,62,138,138,
  152. 138,137,138,211,250,62,137,211,46,250,212,138,138,138,138,211,
  153. 250,46,62,212,211,46,250,212,212,212,212,138,211,250,62,212,
  154. 138,137,211,211,61,62,212,138,138,158,172,180,159,138,112,138,
  155. 138,211,46,46,250,250,250,250,62,212,138,138,138,138,138,138,
  156. 138,138,211,62,250,46,46,226,138,138,138,138,211,46,62,212,
  157. 138,138,138,225,45,62,138,211,45,46,62,212,138,138,138,138,
  158. 211,46,250,212,138,138,138,138,138,211,46,250,212,211,46,250,
  159. 62,137,138,138,137,225,46,46,62,138,211,46,250,212,138,138,
  160. 138,138,211,46,62,212,137,225,45,46,46,62,212,138,138,158,
  161. 172,173,138,112,111,138,138,211,46,46,250,62,212,212,138,138,
  162. 138,138,138,138,138,138,138,226,46,46,46,46,250,211,211,137,
  163. 138,138,211,46,250,211,211,211,225,45,45,62,138,211,45,46,
  164. 62,212,138,138,138,138,211,46,62,138,138,137,138,138,138,211,
  165. 46,62,212,211,46,46,62,212,138,138,226,45,36,62,212,138,
  166. 225,45,250,62,211,211,137,138,211,46,250,62,61,45,36,46,
  167. 62,212,138,138,138,158,172,173,138,111,138,138,138,226,46,250,
  168. 250,62,212,138,138,138,137,211,211,138,138,211,225,45,36,46,
  169. 250,62,62,250,61,211,138,138,211,46,250,62,46,46,46,46,
  170. 62,212,138,211,45,46,62,212,138,138,138,138,211,46,62,138,
  171. 138,138,138,138,138,211,46,62,138,211,45,46,62,211,138,211,
  172. 46,36,250,84,138,211,45,36,250,250,250,61,211,138,211,46,
  173. 46,250,46,45,46,62,84,138,138,137,138,158,172,173,138,138,
  174. 138,138,226,45,45,250,250,62,211,137,137,211,225,46,250,212,
  175. 211,46,36,36,46,250,62,212,212,62,250,62,212,138,211,46,
  176. 46,250,250,62,62,212,212,138,138,210,46,46,62,212,138,138,
  177. 138,138,211,46,250,211,211,138,138,138,138,211,46,62,138,211,
  178. 45,46,250,62,211,225,36,46,62,212,138,211,46,46,62,62,
  179. 62,62,211,138,211,46,46,250,250,250,250,62,62,211,211,211,
  180. 211,158,158,173,158,138,138,211,61,45,46,250,250,250,62,211,
  181. 225,46,36,36,250,212,211,45,46,250,62,62,62,138,138,211,
  182. 250,250,62,138,211,46,46,62,212,212,138,138,138,138,137,225,
  183. 45,46,62,212,138,138,138,138,211,46,250,62,61,211,138,138,
  184. 138,211,46,62,138,211,45,46,250,250,250,46,45,62,84,138,
  185. 138,137,211,250,62,212,212,212,138,138,211,46,46,250,62,62,
  186. 250,250,250,62,61,61,226,196,158,173,159,138,138,211,61,46,
  187. 250,250,250,250,250,250,46,36,46,250,62,212,225,45,46,250,
  188. 62,212,138,138,138,211,46,46,62,138,211,46,46,62,212,138,
  189. 138,138,137,137,226,45,36,250,62,211,211,211,211,211,211,46,
  190. 46,250,250,211,211,211,211,226,46,62,138,211,45,46,250,250,
  191. 250,250,62,62,62,211,137,138,211,46,62,212,138,138,138,138,
  192. 211,46,46,62,212,212,61,250,250,250,250,250,211,196,172,180,
  193. 159,139,138,211,225,250,62,62,62,250,250,46,46,250,250,250,
  194. 62,211,61,45,250,62,62,138,138,138,138,211,46,250,212,138,
  195. 225,45,46,62,212,138,138,138,138,211,46,36,46,250,250,250,
  196. 46,46,250,62,62,250,250,250,250,250,46,46,250,61,46,62,
  197. 212,225,45,46,250,62,212,212,211,250,250,62,211,138,211,46,
  198. 250,211,211,211,137,138,211,46,46,62,212,138,211,62,250,250,
  199. 250,62,212,172,1,180,159,138,138,138,211,211,212,212,211,62,
  200. 62,62,250,250,250,250,62,212,211,62,62,212,138,138,138,138,
  201. 138,211,61,62,138,211,45,36,250,62,211,138,138,138,138,225,
  202. 36,46,250,250,250,46,46,46,250,250,62,83,62,250,250,46,
  203. 46,46,250,250,46,62,211,46,36,250,62,212,138,138,211,61,
  204. 250,250,62,211,211,250,250,62,46,250,211,211,226,46,46,62,
  205. 212,138,138,211,250,46,250,83,138,172,1,180,139,112,111,138,
  206. 138,138,138,138,138,137,212,211,62,62,62,62,212,138,138,138,
  207. 138,138,138,138,138,138,138,138,212,212,138,225,36,46,250,250,
  208. 62,137,138,138,211,225,46,62,62,62,62,62,250,250,250,250,
  209. 62,212,212,62,250,250,250,250,250,250,250,83,211,250,46,250,
  210. 62,212,138,137,137,211,250,250,250,62,212,211,62,62,46,250,
  211. 250,62,226,61,250,62,211,138,138,211,61,62,62,212,158,172,
  212. 180,180,139,112,138,138,138,138,138,138,138,138,138,138,137,212,
  213. 212,138,138,138,137,138,138,138,137,138,138,138,138,138,138,138,
  214. 211,225,46,62,62,62,62,138,138,138,138,211,211,212,212,212,
  215. 212,211,62,250,250,62,212,138,138,211,62,62,62,62,62,62,
  216. 62,212,138,211,62,62,62,211,211,137,138,212,62,250,250,62,
  217. 212,138,138,212,62,62,250,62,211,212,211,62,211,138,138,138,
  218. 211,212,138,138,138,158,180,180,139,112,138,138,138,138,138,138,
  219. 138,138,138,138,138,138,138,138,138,137,138,138,138,138,138,138,
  220. 138,138,138,138,138,138,138,211,211,212,212,212,138,138,138,138,
  221. 138,138,138,138,138,138,138,138,211,62,62,62,138,138,137,138,
  222. 138,212,212,212,212,212,138,138,138,138,211,62,62,62,226,212,
  223. 138,138,211,62,250,62,212,138,138,138,138,211,62,62,138,138,
  224. 138,138,138,138,138,138,138,138,138,138,138,158,180,180,139,112,
  225. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  226. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  227. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  228. 212,138,138,138,138,138,138,138,138,138,138,138,138,138,137,138,
  229. 138,138,212,212,212,138,138,138,138,211,62,62,138,138,138,138,
  230. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  231. 138,158,179,180,139,112,138,138,138,138,138,138,138,138,138,138,
  232. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  233. 138,138,138,138,138,158,158,159,159,159,138,138,138,138,138,138,
  234. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  235. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  236. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  237. 138,138,138,138,138,138,138,158,172,180,159,139,138,138,138,138,
  238. 138,138,138,138,138,138,138,138,138,158,158,172,159,159,138,138,
  239. 138,138,138,138,138,138,138,138,138,159,173,180,180,180,180,173,
  240. 159,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  241. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  242. 138,138,138,138,138,138,139,139,138,138,138,138,138,138,138,138,
  243. 138,138,138,138,138,138,138,138,138,158,159,159,159,159,173,242,
  244. 173,173,159,159,159,138,138,138,138,159,159,159,158,158,172,172,
  245. 179,180,180,173,159,159,159,159,159,159,158,159,159,159,173,180,
  246. 180,242,1,0,1,180,173,159,138,138,138,138,138,138,138,138,
  247. 138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
  248. 138,138,138,138,138,138,159,159,159,159,159,173,173,173,159,159,
  249. 158,159,159,159,158,159,159,159,158,158,138,138,138,158,159,173,
  250. 180,180,180,180,180,0,242,180,180,180,173,159,159,159,173,173,
  251. 180,180,180,180,180,2,1,0,1,180,180,180,180,180,180,180,
  252. 180,180,180,180,180,242,1,0,0,0,0,242,180,173,159,159,
  253. 159,159,159,158,158,158,158,158,158,158,158,158,158,158,138,138,
  254. 138,138,138,138,138,138,158,158,158,158,159,173,180,180,180,180,
  255. 180,180,180,180,180,180,180,180,180,180,180,180,180,180,180,172,
  256. 158,159,159,173,180,180,2,2,2,2,2,0,0,1,1,1,
  257. 180,180,180,180,180,2,242,0,0,0,0,0,0,0,0,1,
  258. 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  259. 0,0,242,180,180,180,180,180,180,180,180,180,180,180,180,180,
  260. 180,180,180,173,173,173,173,173,173,173,173,173,173,180,180,180,
  261. 180,180,242,1,0,0,0,0,0,0,0,0,0,0,0,0,
  262. 0,0,1,242,180,180,180,180,180,180,2,242,1,1,1,1,1);
  263.  
  264. {----------------------------------------------------------------------------}
  265.  
  266. procedure SetGraphics(Mode : byte); assembler;
  267. asm mov AH,0; mov AL,Mode; int 10h; end;
  268.  
  269. {----------------------------------------------------------------------------}
  270.  
  271. procedure InstallColors;
  272.  
  273. var I : byte; C : word;
  274.  
  275. begin
  276.   C := 0;
  277.   for I := 0 to $ff do begin
  278.     port[$3C8] := I;
  279.     port[$3C9] := Palette[C];
  280.     port[$3C9] := Palette[C+1];
  281.     port[$3C9] := Palette[C+2];
  282.     inc(C,3);
  283.   end;
  284. end;
  285.  
  286. {----------------------------------------------------------------------------}
  287.  
  288. procedure PutPicture;
  289.  
  290. var
  291.   PosArray : array[0..21] of byte;
  292.   X,Y,J,K : word;
  293.   I : byte;
  294.   Escape : boolean;
  295.  
  296. begin
  297.  
  298.   Escape := false;
  299.   randomize;
  300.  
  301.   for X := 1 to 102 do
  302.     for Y := 0 to 31 do
  303.       mem[$a000:(Y+150)*320+X+110] := Picture[Y*102+X];
  304.  
  305.   delay(1000);
  306.   K := 0;
  307.   for I := 0 to 21 do PosArray[I] := 199;
  308.  
  309.   repeat
  310.     I := random(22); if PosArray[I] > 149 then dec(PosArray[I],5);
  311.     for X := 110+I*5 to 114+I*5 do mem[$a000:PosArray[I]*320+X] := 0;
  312.     for I := 0 to 21 do
  313.       for Y := 199 downto PosArray[I] do
  314.         for X := 110+I*5 to 114+I*5 do
  315.           mem[$a000:(Y+1)*320+X] := mem[$a000:Y*320+X];
  316.     if not Escape then begin
  317.       J := 0; for I := 0 to 21 do inc(J,PosArray[I]);
  318.       Escape := J = 22*149;
  319.     end else inc(K);
  320.   until K = 50;
  321. end;
  322.  
  323. {----------------------------------------------------------------------------}
  324.  
  325. begin
  326.   SetGraphics($13);
  327.   InstallColors;
  328.   PutPicture;
  329.   textmode(lastmode);
  330. end.
  331.