home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / apps / misc / zx_sp207 / source / zx_bild.gfa (.txt) < prev    next >
GFA-BASIC Atari  |  1993-03-24  |  15KB  |  841 lines
  1. ' ## INLINE:
  2. ' $0000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  3. ' $0010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 11 
  4. ' $0020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  5. ' $0030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 11 
  6. ' $0040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  7. ' $0050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 11 
  8. ' $0060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  9. ' $0070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  10. ' $0080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  11. ' $0090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  12. ' $00a0: aa aa aa aa aa aa aa aa aa aa aa aa aa aa aa aa 
  13. ' $00b0: aa aa aa aa aa aa aa aa aa aa aa aa aa aa aa aa 
  14. ' $00c0: 00 00 00 00 00 00 00 00 11 11 00 00 00 00 00 00 
  15. ' $00d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  16. ' $00e0: 00 00 00 00 00 00 00 00 11 11 00 00 00 00 00 00 
  17. ' $00f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  18. ' $0100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  19. ' $0110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 22 22 
  20. ' $0120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  21. ' $0130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 22 22 
  22. ' $0140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  23. ' $0150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 22 22 
  24. ' $0160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  25. ' $0170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  26. ' $0180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  27. ' $0190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  28. ' $01a0: a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 
  29. ' $01b0: a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 
  30. ' $01c0: 00 00 00 00 00 00 00 00 22 22 00 00 00 00 00 00 
  31. ' $01d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  32. ' $01e0: 00 00 00 00 00 00 00 00 22 22 00 00 00 00 00 00 
  33. ' $01f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  34. ' $0200: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  35. ' $0210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 88 88 
  36. ' $0220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  37. ' $0230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 88 88 
  38. ' $0240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  39. ' $0250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 88 88 
  40. ' $0260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  41. ' $0270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  42. ' $0280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  43. ' $0290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  44. ' $02a0: ad ad ad ad ad ad ad ad ad ad ad ad ad ad ad ad 
  45. ' $02b0: ad ad ad ad ad ad ad ad ad ad ad ad ad ad ad ad 
  46. ' $02c0: 00 00 00 00 00 00 00 00 88 88 00 00 00 00 00 00 
  47. ' $02d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  48. ' $02e0: 00 00 00 00 00 00 00 00 88 88 00 00 00 00 07 e0 
  49. ' $02f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  50. ' $0300: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  51. ' $0310: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 11 
  52. ' $0320: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  53. ' $0330: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 11 
  54. ' $0340: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  55. ' $0350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 11 
  56. ' $0360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  57. ' $0370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  58. ' $0380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  59. ' $0390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  60. ' $03a0: af af af af af af af af af af af af af af af af 
  61. ' $03b0: af af af af af af af af af af af af af af af af 
  62. ' $03c0: 00 00 00 00 00 00 00 00 11 11 00 00 00 00 00 00 
  63. ' $03d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  64. ' $03e0: 00 00 00 00 00 00 00 00 11 11 00 00 00 00 0f f0 
  65. ' $03f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  66. ' $0400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  67. ' $0410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 44 44 
  68. ' $0420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  69. ' $0430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 44 44 
  70. ' $0440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  71. ' $0450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 44 44 
  72. ' $0460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  73. ' $0470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  74. ' $0480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  75. ' $0490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  76. ' $04a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 
  77. ' $04b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 
  78. ' $04c0: 00 00 00 00 00 00 00 00 44 44 00 00 00 00 00 00 
  79. ' $04d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  80. ' $04e0: 00 00 00 00 00 00 00 00 44 44 00 00 00 00 df fb 
  81. ' $04f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  82. ' $0500: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  83. ' $0510: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 88 88 
  84. ' $0520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  85. ' $0530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 88 88 
  86. ' $0540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  87. ' $0550: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 88 88 
  88. ' $0560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  89. ' $0570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  90. ' $0580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  91. ' $0590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  92. ' $05a0: aa aa aa aa aa aa aa aa aa aa aa aa aa aa aa aa 
  93. ' $05b0: aa aa aa aa aa aa aa aa aa aa aa aa aa aa aa aa 
  94. ' $05c0: 00 00 00 00 00 00 00 00 88 88 00 00 00 00 00 00 
  95. ' $05d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  96. ' $05e0: 00 00 00 00 00 00 00 00 88 88 00 00 00 00 3f fc 
  97. ' $05f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  98. ' $0600: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  99. ' $0610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 22 22 
  100. ' $0620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  101. ' $0630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 22 22 
  102. ' $0640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  103. ' $0650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 22 22 
  104. ' $0660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  105. ' $0670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  106. ' $0680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  107. ' $0690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  108. ' $06a0: 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 
  109. ' $06b0: 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 
  110. ' $06c0: 00 00 00 00 00 00 00 00 22 22 00 00 00 00 00 00 
  111. ' $06d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  112. ' $06e0: 00 00 00 00 00 00 00 00 22 22 00 00 00 00 1f f8 
  113. ' $06f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  114. ' $0700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  115. ' $0710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 44 44 
  116. ' $0720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  117. ' $0730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 44 44 
  118. ' $0740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  119. ' $0750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 44 44 
  120. ' $0760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  121. ' $0770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  122. ' $0780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  123. ' $0790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  124. ' $07a0: 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 
  125. ' $07b0: 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 
  126. ' $07c0: 00 00 00 00 00 00 00 00 44 44 00 00 00 00 00 00 
  127. ' $07d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  128. ' $07e0: 00 00 00 00 00 00 00 00 44 44 00 00 00 00 1f f8 
  129. ' $07f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  130. ' $0800: 00 00 00 00 00 00 00 00 11 11 00 00 00 00 31 8c 
  131. ' $0810: 00 00 00 00 00 00 00 00 aa aa aa aa aa aa aa aa 
  132. ' $0820: 00 00 00 00 00 00 3f fc 11 11 00 00 00 00 8c 31 
  133. ' $0830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  134. ' $0840: c0 00 00 00 00 00 1d b8 11 11 00 00 00 00 00 00 
  135. ' $0850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  136. ' $0860: 00 c0 00 00 00 00 00 00 11 11 00 00 00 00 00 00 
  137. ' $0870: 00 00 00 00 00 00 04 00 00 00 00 00 00 00 00 00 
  138. ' $0880: 00 00 c0 00 3c 00 00 00 00 00 00 00 00 00 00 00 
  139. ' $0890: 00 00 00 00 04 00 04 04 00 04 00 04 00 00 00 00 
  140. ' $08a0: 00 00 00 c0 7e 00 00 00 00 00 00 00 00 00 00 00 
  141. ' $08b0: ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 
  142. ' $08c0: aa aa aa aa aa aa aa aa aa aa aa aa aa aa aa aa 
  143. ' $08d0: aa aa aa aa aa aa aa aa aa aa aa aa aa aa aa aa 
  144. ' $08e0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 
  145. ' $08f0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 
  146. ' $0900: 00 00 00 00 00 00 00 00 22 22 00 00 00 00 6a 56 
  147. ' $0910: 00 00 00 00 00 00 00 00 a8 a8 a8 a8 a8 a8 a8 a8 
  148. ' $0920: 00 00 00 00 00 00 1f f8 22 22 00 00 00 00 07 e0 
  149. ' $0930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  150. ' $0940: c0 00 00 00 00 00 36 6c 22 22 00 00 00 00 00 00 
  151. ' $0950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  152. ' $0960: 00 c0 00 00 00 00 00 00 22 22 00 00 00 00 00 00 
  153. ' $0970: 00 00 00 00 00 00 04 00 00 00 00 00 00 00 00 00 
  154. ' $0980: 00 00 c0 00 3c 00 00 00 00 00 00 00 00 00 00 00 
  155. ' $0990: 00 00 00 00 04 00 04 04 00 04 00 04 00 00 00 00 
  156. ' $09a0: 00 00 00 c0 7e 00 00 00 00 00 00 00 00 00 00 00 
  157. ' $09b0: ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 
  158. ' $09c0: a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 
  159. ' $09d0: a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 
  160. ' $09e0: 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 
  161. ' $09f0: 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 
  162. ' $0a00: 00 00 00 00 00 00 00 00 88 88 00 00 00 00 b1 8d 
  163. ' $0a10: 00 00 00 00 00 00 00 00 ad ad ad ad ad ad ad ad 
  164. ' $0a20: 00 00 00 00 00 00 1f f8 88 88 00 00 00 00 00 00 
  165. ' $0a30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  166. ' $0a40: 30 00 00 00 00 00 59 9a 88 88 00 00 00 00 00 00 
  167. ' $0a50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  168. ' $0a60: 00 30 00 00 00 00 00 00 88 88 00 00 00 00 00 00 
  169. ' $0a70: 00 00 00 00 00 00 0c 00 00 00 00 00 00 00 00 00 
  170. ' $0a80: 00 00 30 00 7e 00 00 00 00 00 00 00 00 00 00 00 
  171. ' $0a90: 00 00 00 00 ae 00 ae ae 00 ae 00 ae 00 00 00 00 
  172. ' $0aa0: 00 00 00 30 f7 00 00 00 00 00 00 00 00 00 00 00 
  173. ' $0ab0: ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 
  174. ' $0ac0: ad ad ad ad ad ad ad ad ad ad ad ad ad ad ad ad 
  175. ' $0ad0: ad ad ad ad ad ad ad ad ad ad ad ad ad ad ad ad 
  176. ' $0ae0: 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 
  177. ' $0af0: 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 
  178. ' $0b00: 00 00 00 00 00 00 00 00 11 11 00 00 00 00 9e f9 
  179. ' $0b10: 00 00 00 00 00 00 00 00 af af af af af af af af 
  180. ' $0b20: 00 00 00 00 00 00 31 8c 11 11 00 00 00 00 00 00 
  181. ' $0b30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  182. ' $0b40: b0 00 00 00 00 00 8c 31 11 11 00 00 00 00 00 00 
  183. ' $0b50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  184. ' $0b60: 00 b0 00 00 00 00 00 00 11 11 00 00 00 00 00 00 
  185. ' $0b70: 00 00 00 00 00 00 0c 00 00 00 00 00 00 00 00 00 
  186. ' $0b80: 00 00 b0 00 34 00 00 00 00 00 00 00 00 00 00 00 
  187. ' $0b90: 00 00 00 00 ae 00 ae ae 00 ae 00 ae 00 00 00 00 
  188. ' $0ba0: 00 00 00 b0 fb 00 00 00 00 00 00 00 00 00 00 00 
  189. ' $0bb0: aa aa aa aa aa aa aa aa aa aa aa aa 00 00 00 00 
  190. ' $0bc0: af af af af af af af af af af af af af af af af 
  191. ' $0bd0: af af af af af af af af af af af af af af af af 
  192. ' $0be0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 
  193. ' $0bf0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 
  194. ' $0c00: 00 00 00 00 00 00 00 00 44 44 00 00 00 00 0d f0 
  195. ' $0c10: 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 
  196. ' $0c20: 00 00 00 00 00 00 6a 56 44 44 00 00 00 00 00 00 
  197. ' $0c30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  198. ' $0c40: 0c 00 00 00 00 00 07 e0 44 44 00 00 00 00 00 00 
  199. ' $0c50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  200. ' $0c60: 00 0c 00 00 00 00 00 00 44 44 00 00 00 00 00 00 
  201. ' $0c70: 00 00 00 00 00 00 16 00 00 00 00 00 00 00 00 00 
  202. ' $0c80: 00 00 0c 00 3e 00 00 00 00 00 00 00 00 00 00 00 
  203. ' $0c90: 00 00 00 00 a2 00 a2 a2 00 a2 00 a2 00 00 00 00 
  204. ' $0ca0: 00 00 00 0c 3c 00 00 00 00 00 00 00 00 00 00 00 
  205. ' $0cb0: 55 55 55 55 55 55 55 55 55 55 55 55 00 00 00 00 
  206. ' $0cc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 
  207. ' $0cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 
  208. ' $0ce0: 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 
  209. ' $0cf0: 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 
  210. ' $0d00: 00 00 00 00 00 00 07 e0 88 88 00 00 00 00 1d b8 
  211. ' $0d10: 00 00 00 00 00 00 00 00 aa aa aa aa aa aa aa aa 
  212. ' $0d20: 00 00 00 00 00 00 b1 8d 88 88 00 00 00 00 00 00 
  213. ' $0d30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  214. ' $0d40: 0c 00 00 00 00 00 00 00 88 88 00 00 00 00 00 00 
  215. ' $0d50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  216. ' $0d60: 00 0c 00 00 00 00 00 00 88 88 00 00 00 00 00 00 
  217. ' $0d70: 00 00 00 00 00 00 1e 00 00 00 00 00 00 00 00 00 
  218. ' $0d80: 00 00 0c 00 3c 00 00 00 00 00 00 00 00 00 00 00 
  219. ' $0d90: 00 00 00 00 42 00 42 42 00 42 00 42 00 00 00 00 
  220. ' $0da0: 00 00 00 0c 76 00 00 00 00 00 00 00 00 00 00 00 
  221. ' $0db0: 18 18 18 18 18 18 18 18 18 18 18 18 00 00 00 00 
  222. ' $0dc0: aa aa aa aa aa aa aa aa aa aa aa aa aa aa aa aa 
  223. ' $0dd0: aa aa aa aa aa aa aa aa aa aa aa aa aa aa aa aa 
  224. ' $0de0: 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 
  225. ' $0df0: 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 
  226. ' $0e00: 00 00 00 00 00 00 0f f0 22 22 00 00 00 00 36 6c 
  227. ' $0e10: 00 00 00 00 00 00 00 00 55 55 55 55 55 55 55 55 
  228. ' $0e20: 00 00 00 00 00 00 9e f9 22 22 00 00 00 00 00 00 
  229. ' $0e30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  230. ' $0e40: 03 00 00 00 00 00 00 00 22 22 00 00 00 00 00 00 
  231. ' $0e50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  232. ' $0e60: 00 03 00 00 00 00 00 00 22 22 00 00 00 00 00 00 
  233. ' $0e70: 00 00 00 00 00 00 3e 00 00 00 00 00 00 00 00 00 
  234. ' $0e80: 00 00 03 00 18 00 00 00 00 00 00 00 00 00 00 00 
  235. ' $0e90: 00 00 00 00 42 00 42 42 00 42 00 42 00 00 00 00 
  236. ' $0ea0: 00 00 00 03 6e 00 00 00 00 00 00 00 00 00 00 00 
  237. ' $0eb0: 18 18 18 18 18 18 18 18 18 18 18 18 00 00 00 00 
  238. ' $0ec0: 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 
  239. ' $0ed0: 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 
  240. ' $0ee0: 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 
  241. ' $0ef0: 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 
  242. ' $0f00: 00 00 00 00 00 00 df fb 44 44 00 00 00 00 59 9a 
  243. ' $0f10: 00 00 00 00 00 00 00 00 55 55 55 55 55 55 55 55 
  244. ' $0f20: 00 00 00 00 00 00 0d f0 44 44 00 00 00 00 00 00 
  245. ' $0f30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  246. ' $0f40: 0b 00 00 00 00 00 00 00 44 44 00 00 00 00 00 00 
  247. ' $0f50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  248. ' $0f60: 00 0b 00 00 00 00 00 00 44 44 00 00 00 00 00 00 
  249. ' $0f70: 00 00 00 00 00 00 6c 00 00 00 00 00 00 00 00 00 
  250. ' $0f80: 00 00 0b 00 3c 00 00 00 00 00 00 00 00 00 00 00 
  251. ' $0f90: 00 00 00 00 ee 00 ee ee 00 ee 00 ee 00 00 00 00 
  252. ' $0fa0: 00 00 00 0b 77 00 00 00 00 00 00 00 00 00 00 00 
  253. ' $0fb0: 18 18 18 18 18 18 18 18 18 18 18 18 00 00 00 00 
  254. ' $0fc0: 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 
  255. ' $0fd0: 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 
  256. ' $0fe0: 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 
  257. ' $0ff0: 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 
  258. ' $1000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  259. ' $1010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  260. ' $1020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  261. ' $1030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  262. ' $1040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  263. ' $1050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  264. ' $1060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  265. ' $1070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  266. ' $1080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  267. ' $1090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  268. ' $10a0: 03 c0 03 c0 03 c0 03 c0 03 c0 00 00 00 00 00 00 
  269. ' $10b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  270. ' $10c0: 07 e0 07 e0 07 e0 07 e0 07 e0 00 00 00 00 00 00 
  271. ' $10d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  272. ' $10e0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  273. ' $10f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  274. ' $1100: 00 00 00 00 00 00 00 00 00 7c 00 10 10 00 00 00 
  275. ' $1110: 00 00 42 00 00 10 00 00 00 00 00 00 00 00 00 00 
  276. ' $1120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  277. ' $1130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  278. ' $1140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  279. ' $1150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  280. ' $1160: 3e 10 00 00 00 00 00 00 10 10 00 00 10 00 04 00 
  281. ' $1170: 3c 3c 3c 00 fe 10 00 00 00 00 7e 00 3c 08 00 00 
  282. ' $1180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  283. ' $1190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  284. ' $11a0: 03 c0 03 c0 03 c0 03 c0 03 c0 00 00 00 00 00 00 
  285. ' $11b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  286. ' $11c0: 07 e0 07 e0 07 e0 07 e0 07 e0 00 00 00 00 00 00 
  287. ' $11d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  288. ' $11e0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  289. ' $11f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  290. ' $1200: 00 00 00 00 00 00 00 00 00 42 38 10 10 1c 38 38 
  291. ' $1210: 68 00 42 38 38 38 00 00 00 00 00 00 00 00 00 00 
  292. ' $1220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  293. ' $1230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  294. ' $1240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  295. ' $1250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  296. ' $1260: 08 38 38 68 38 00 1c 38 10 10 38 1c 38 38 04 00 
  297. ' $1270: 46 46 42 00 10 00 68 38 00 00 02 00 46 18 38 68 
  298. ' $1280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  299. ' $1290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  300. ' $12a0: 07 e0 07 e0 07 e0 07 e0 07 e0 00 00 00 00 00 00 
  301. ' $12b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  302. ' $12c0: 0f 70 0f 70 0f 70 0f 70 0f 70 00 00 00 00 00 00 
  303. ' $12d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  304. ' $12e0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  305. ' $12f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  306. ' $1300: 00 00 00 00 00 00 00 00 00 7c 04 10 10 20 44 44 
  307. ' $1310: 54 00 42 44 40 10 00 00 00 00 00 00 00 00 00 00 
  308. ' $1320: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  309. ' $1330: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  310. ' $1340: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  311. ' $1350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  312. ' $1360: 08 10 44 54 40 00 20 44 10 10 44 20 10 44 3c 00 
  313. ' $1370: 4a 4a 0c 00 10 30 54 44 00 00 04 10 4a 28 04 54 
  314. ' $1380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  315. ' $1390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  316. ' $13a0: 03 40 03 40 03 40 03 40 03 40 00 00 00 00 00 00 
  317. ' $13b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  318. ' $13c0: 0f b0 0f b0 0f b0 0f b0 0f b0 00 00 00 00 00 00 
  319. ' $13d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  320. ' $13e0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  321. ' $13f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  322. ' $1400: 00 00 00 00 00 00 00 00 00 42 3c 10 10 20 44 44 
  323. ' $1410: 54 00 42 78 38 10 00 00 00 00 00 00 00 00 00 00 
  324. ' $1420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  325. ' $1430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  326. ' $1440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  327. ' $1450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  328. ' $1460: 08 10 78 54 38 00 20 44 10 10 78 20 10 78 44 00 
  329. ' $1470: 52 52 02 00 10 10 54 78 00 00 08 00 52 48 3c 54 
  330. ' $1480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  331. ' $1490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  332. ' $14a0: 03 e0 03 e0 03 e0 03 e0 03 e0 00 00 00 00 00 00 
  333. ' $14b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  334. ' $14c0: 03 c0 03 c0 03 c0 03 c0 03 c0 00 00 00 00 00 00 
  335. ' $14d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  336. ' $14e0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  337. ' $14f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  338. ' $1500: 00 00 00 00 00 00 00 00 00 42 44 10 10 20 44 44 
  339. ' $1510: 54 00 5a 40 04 10 00 00 00 00 00 00 00 00 00 00 
  340. ' $1520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  341. ' $1530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  342. ' $1540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  343. ' $1550: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  344. ' $1560: 08 10 40 54 04 00 20 44 10 10 40 20 10 40 44 00 
  345. ' $1570: 62 62 42 00 10 10 54 40 00 00 10 00 62 7e 44 54 
  346. ' $1580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  347. ' $1590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  348. ' $15a0: 03 c0 03 c0 03 c0 03 c0 03 c0 00 00 00 00 00 00 
  349. ' $15b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  350. ' $15c0: 07 60 07 60 07 60 07 60 07 60 00 00 00 00 00 00 
  351. ' $15d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  352. ' $15e0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  353. ' $15f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  354. ' $1600: 00 00 00 00 00 00 00 00 00 7c 3c 0c 0c 20 38 38 
  355. ' $1610: 54 00 24 3c 78 0c 00 00 00 00 00 00 00 00 00 00 
  356. ' $1620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  357. ' $1630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  358. ' $1640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  359. ' $1650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  360. ' $1660: 3e 0c 3c 54 78 00 1c 38 0c 0c 3c 1c 0c 3c 3c 00 
  361. ' $1670: 3c 3c 3c 00 10 38 54 3c 00 00 10 10 3c 08 3c 54 
  362. ' $1680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  363. ' $1690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  364. ' $16a0: 01 80 01 80 01 80 01 80 01 80 00 00 00 00 00 00 
  365. ' $16b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  366. ' $16c0: 06 e0 06 e0 06 e0 06 e0 06 e0 00 00 00 00 00 00 
  367. ' $16d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  368. ' $16e0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  369. ' $16f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  370. ' $1700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  371. ' $1710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  372. ' $1720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  373. ' $1730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  374. ' $1740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  375. ' $1750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  376. ' $1760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  377. ' $1770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  378. ' $1780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  379. ' $1790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  380. ' $17a0: 03 c0 03 c0 03 c0 03 c0 03 c0 00 00 00 00 00 00 
  381. ' $17b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  382. ' $17c0: 07 70 07 70 07 70 07 70 07 70 00 00 00 00 00 00 
  383. ' $17d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  384. ' $17e0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  385. ' $17f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  386. ' $1800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  387. ' $1810: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 23 23 
  388. ' $1820: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  389. ' $1830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 23 23 
  390. ' $1840: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  391. ' $1850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 23 23 
  392. ' $1860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  393. ' $1870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  394. ' $1880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  395. ' $1890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  396. ' $18a0: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 
  397. ' $18b0: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 
  398. ' $18c0: 00 00 00 00 00 00 00 00 23 23 00 00 00 00 00 00 
  399. ' $18d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  400. ' $18e0: 00 00 00 00 00 00 00 00 23 23 00 00 00 00 05 05 
  401. ' $18f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  402. ' $1900: 00 00 00 00 00 00 43 43 23 23 00 00 00 00 05 05 
  403. ' $1910: 00 00 00 00 00 00 00 00 32 32 32 32 32 32 32 32 
  404. ' $1920: 00 00 00 00 00 00 43 43 23 23 00 00 00 00 00 00 
  405. ' $1930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  406. ' $1940: 07 00 00 00 00 00 43 43 23 23 00 00 00 00 00 00 
  407. ' $1950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  408. ' $1960: 00 07 00 00 00 00 00 00 23 23 00 00 00 00 00 00 
  409. ' $1970: 00 00 00 00 00 03 03 00 00 00 00 00 00 00 00 00 
  410. ' $1980: 00 00 07 00 07 07 00 00 00 00 00 00 00 00 00 00 
  411. ' $1990: 00 00 00 00 06 03 03 04 00 03 00 04 00 00 00 00 
  412. ' $19a0: 00 00 00 07 07 07 00 00 00 00 00 00 00 00 00 00 
  413. ' $19b0: 46 46 46 46 46 46 46 46 46 46 46 46 00 00 00 00 
  414. ' $19c0: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 
  415. ' $19d0: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 
  416. ' $19e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 
  417. ' $19f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 
  418. ' $1a00: 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 
  419. ' $1a10: 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 
  420. ' $1a20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  421. ' $1a30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  422. ' $1a40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  423. ' $1a50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  424. ' $1a60: 01 02 03 04 05 06 07 07 07 07 07 07 07 07 07 07 
  425. ' $1a70: 07 07 07 07 07 07 07 07 07 07 06 05 04 03 02 01 
  426. ' $1a80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  427. ' $1a90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  428. ' $1aa0: 45 45 06 06 04 04 41 41 05 05 43 43 44 44 00 00 
  429. ' $1ab0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  430. ' $1ac0: 45 45 06 06 04 04 41 41 05 05 43 43 44 44 00 00 
  431. ' $1ad0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  432. ' $1ae0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  433. ' $1af0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  434. ' $1b00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  435. ' $1b10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  436. ' $1b20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  437. ' $1b30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  438. ' $1b40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  439. ' $1b50: 00 00 00 00 00 00 00 00 
  440. ' 7000  Bytes.
  441. INLINE zx%,7000
  442. CLS
  443. DEFMOUSE 0
  444. res&=XBIOS(4)
  445. IF res&<>0 AND res&<>2
  446.   ALERT 1,"Supporting only resolutions|ST low and ST high!|",1,"SORRY",i%
  447.   END
  448. ENDIF
  449. pfad$=CHR$(GEMDOS(25)+ASC("A"))+":"+DIR$(0)+"\"
  450. screen$=pfad$+"NONAME.SCX"
  451. zx_slen%=32*192+32*24
  452. sx%=WORK_OUT(0)
  453. sy%=WORK_OUT(1)
  454. DIM pop$(20)
  455. DIM work%(4)
  456. '
  457. DIM start_pos%(16,2)
  458. FOR i%=0 TO 15
  459.   READ start_pos%(i%,0)
  460.   READ start_pos%(i%,1)
  461. NEXT i%
  462. DATA 1,1,3,3,3,1,1,3
  463. DATA 2,2,4,4,4,2,2,4
  464. DATA 2,1,4,3,4,1,2,3
  465. DATA 1,2,3,4,3,2,1,4
  466. DIM curr_grid%(16)
  467. DIM bit_list%(16)
  468. FOR i%=0 TO 15
  469.   READ bit_list%(i%)
  470. NEXT i%
  471. DATA 1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384,32768
  472. DIM grid%(256,16)
  473. muster%=0
  474. DIM zuord&(16)
  475. FOR i&=0 TO 15
  476.   READ zuord&(i&)
  477. NEXT i&
  478. DATA 255,223,191,159,127,95,63,31
  479. DATA 255,207,175,143,111,79,15,0
  480. DIM doppler%(256)
  481. FOR i&=0 TO 255
  482.   doppler%(i&)=@doppel(i&)
  483. NEXT i&
  484. DIM msprite$(256)
  485. IF res&=0
  486.   DIM palette%(16)
  487.   FOR i&=0 TO 15
  488.     palette%(i&)=LPEEK(&HFF8240+2*i&)
  489.   NEXT i&
  490.   FOR i&=0 TO 15
  491.     READ c%
  492.     SETCOLOR i&,c%
  493.   NEXT i&
  494. ENDIF
  495. DATA &h0,&h7,&h600,&h606,&h060,&h066,&h660,&h666
  496. DATA &h0,&h227,&h722,&h727,&h272,&h277,&h772,&h777
  497. '
  498. FOR i%=0 TO 15
  499.   FOR j%=0 TO 15
  500.     IF i%=0 AND j%=0
  501.       @store_grid
  502.     ENDIF
  503.     x%=(start_pos%(j%,0)-1)*4+start_pos%(i%,0)
  504.     y%=(start_pos%(j%,1)-1)*4+start_pos%(i%,1)
  505.     curr_grid%(y%-1)=curr_grid%(y%-1) OR bit_list%(x%-1)
  506.     IF (i% OR j%)<>0
  507.       @store_grid
  508.     ENDIF
  509.   NEXT j%
  510. NEXT i%
  511. '
  512. video%=XBIOS(2)
  513. DEFFILL 1,2,8
  514. IF res&=2
  515.   PBOX -1,-1,sx%,sy%
  516.   DEFFILL 0,1
  517.   PBOX 16*4,8,16*4+256*2-1,8+192*2-1
  518. ENDIF
  519. '
  520. exi&=0
  521. f$=CHAR{BASEPAGE+129}
  522. IF LEFT$(f$)="©"
  523.   f$=""
  524. ENDIF
  525. DO
  526.   show_flag&=1
  527.   EXIT IF exi&=-1
  528.   IF f$=""
  529.     fln$=RIGHT$(screen$,LEN(screen$)-RINSTR(screen$,"\"))
  530.     pfn$=LEFT$(screen$,RINSTR(screen$,"\"))+"*.*"
  531.     FILESELECT #"Spectrum-Screen anzeigen:",pfn$,fln$,f$
  532.   ENDIF
  533.   IF EXIST(f$)
  534.     OPEN "i",#2,f$
  535.     i%=LOF(#2)
  536.     IF i%=zx_slen% OR i%=zx_slen%+17
  537.       IF i%=zx_slen%+17
  538.         x$=INPUT$(17,#2)
  539.       ENDIF
  540.       BGET #2,zx%,zx_slen%
  541.       CLOSE #2
  542.       HIDEM
  543.       screen$=f$
  544.       attr%=zx%+32*192
  545.       IF res&=2
  546.         DEFFILL 0,1
  547.         PBOX 16*4,8,16*4+256*2-1,8+192*2-1
  548.       ELSE
  549.         CLS
  550.       ENDIF
  551.       '
  552.       FOR l&=0 TO 23
  553.         FOR c&=0 TO 31
  554.           a&=BYTE{attr%+l&*32+c&}
  555.           ink&=a& AND 7
  556.           paper&=SHR(a&,3) AND 7
  557.           IF BTST(a&,6)
  558.             ADD ink&,8
  559.             ADD paper&,8
  560.           ENDIF
  561.           IF BTST(a&,7)
  562.             SWAP ink&,paper&
  563.           ENDIF
  564.           o&=@pix_add(l&,c&)
  565.           IF res&=0
  566.             a&=BYTE{attr%+l&*32+c&+1}
  567.             ink2&=a& AND 7
  568.             paper2&=SHR(a&,3) AND 7
  569.             IF BTST(a&,6)
  570.               ADD ink2&,8
  571.               ADD paper2&,8
  572.             ENDIF
  573.             IF BTST(a&,7)
  574.               SWAP ink2&,paper2&
  575.             ENDIF
  576.             FOR s&=0 TO 7
  577.               ARRAYFILL work%(),0
  578.               pix%=WORD{zx%+o&}
  579.               FOR b&=0 TO 3
  580.                 FOR z&=0 TO 15
  581.                   IF z&=0 OR z&=8
  582.                     SWAP paper&,paper2&
  583.                     SWAP ink&,ink2&
  584.                   ENDIF
  585.                   IF BTST(pix%,z&)
  586.                     IF BTST(ink&,b&)
  587.                       work%(b&)=BSET(work%(b&),z&)
  588.                     ENDIF
  589.                   ELSE
  590.                     IF BTST(paper&,b&)
  591.                       work%(b&)=BSET(work%(b&),z&)
  592.                     ENDIF
  593.                   ENDIF
  594.                 NEXT z&
  595.               NEXT b&
  596.               v%=video%+160*(l&*8+4+s&)+c&*4+16
  597.               DPOKE v%,work%(0)
  598.               DPOKE v%+2,work%(1)
  599.               DPOKE v%+4,work%(2)
  600.               DPOKE v%+6,work%(3)
  601.               ADD o&,32*8
  602.             NEXT s&
  603.             INC c&
  604.           ELSE
  605.             x$=MKI$(0)+MKI$(0)+MKI$(0)+MKI$(0)+MKI$(1)
  606.             FOR s&=0 TO 7
  607.               pix%=doppler%(BYTE{zx%+o&})
  608.               g%=pix% AND grid%(ink&,s&*2)
  609.               t%=NOT (pix%) AND grid%(paper&,s&*2)
  610.               g%=g% OR (t% AND grid%(paper&,s&*2))
  611.               x$=x$+MKI$(-1)+MKI$(g%)
  612.               g%=pix% AND grid%(ink&,s&*2+1)
  613.               t%=NOT (pix%) AND grid%(paper&,s&*2+1)
  614.               g%=g% OR (t% AND grid%(paper&,s&*2+1))
  615.               x$=x$+MKI$(-1)+MKI$(g%)
  616.               ADD o&,32*8
  617.             NEXT s&
  618.             SPRITE x$,(c&+4)*16,l&*16+8
  619.           ENDIF
  620.         NEXT c&
  621.       NEXT l&
  622.       show_flag&=0
  623.     ELSE
  624.       ALERT 1,"Kein ZX-SCREEN$!",1,"ABBRUCH",i&
  625.       CLOSE #2
  626.     ENDIF
  627.   ENDIF
  628.   SHOWM
  629.   exi&=@menu(show_flag&)
  630.   f$=""
  631. LOOP
  632. IF res&=0
  633.   FOR i&=0 TO 15
  634.     SLPOKE &HFF8240+2*i&,palette%(i&)
  635.   NEXT i&
  636. ENDIF
  637. END
  638. '
  639. FUNCTION doppel(w&)
  640.   LOCAL r%,b&,m%
  641.   r%=0
  642.   FOR b&=0 TO 7
  643.     IF BTST(w&,b&)
  644.       m%=BSET(0,b&*2)
  645.       m%=BSET(m%,b&*2+1)
  646.       r%=r% OR m%
  647.     ENDIF
  648.   NEXT b&
  649.   RETURN r%
  650. ENDFUNC
  651. '
  652. FUNCTION pix_add(zei&,spa&)
  653.   RETURN SHL(zei& MOD 8,5)+(zei& DIV 8)*2048+spa&
  654. ENDFUNC
  655. '
  656. PROCEDURE store_grid
  657.   LOCAL m&,c&,s&
  658.   m&=0
  659.   DO
  660.     FOR c&=m& TO 15
  661.       EXIT IF zuord&(c&)=muster%
  662.     NEXT c&
  663.     EXIT IF c&>15
  664.     m&=c&+1
  665.     FOR s&=0 TO 15
  666.       w%=curr_grid%(s&)
  667.       grid%(c&,s&)=w%
  668.     NEXT s&
  669.     EXIT IF m&>15
  670.   LOOP
  671.   INC muster%
  672. RETURN
  673. '
  674. FUNCTION menu(k&)
  675.   LOCAL pop&,x&,y&,b&,q&,p$
  676.   pop&=0
  677.   IF k&<>0
  678.     x&=sx%/2
  679.     y&=sy%/2
  680.   ENDIF
  681.   DO
  682.     pop&=0
  683.     RESTORE popdata
  684.     DO
  685.       READ p$
  686.       EXIT IF p$="***"
  687.       INC pop&
  688.       pop$(pop&)=p$
  689.     LOOP
  690.     '
  691.     IF exi&<>-1
  692.       REPEAT
  693.       UNTIL MOUSEK=0
  694.       IF k&=0
  695.         REPEAT
  696.           MOUSE x&,y&,k&
  697.         UNTIL k&<>0
  698.       ENDIF
  699.     ELSE
  700.       exi&=0
  701.       x&=sx%/2
  702.       y&=sy%/2
  703.     ENDIF
  704.     b&=@pop_up(x&,y&)
  705.     k&=0
  706.     IF b&>0
  707.       SELECT b&
  708.       CASE 1,2 ! Save as DOODLE.../Save as DEGAS...
  709.         SELECT b&
  710.         CASE 1
  711.           x$="ST-Screen DOODLE"
  712.           i$="DOO"
  713.         CASE 2
  714.           x$="ST-Screen DEGAS"
  715.           i$="PI"+STR$(3-XBIOS(4))
  716.         ENDSELECT
  717.         FILESELECT #x$+" speichern:",pfad$+"*."+i$,"NONAME."+i$,pf$
  718.         IF pf$<>""
  719.           HIDEM
  720.           SELECT b&
  721.           CASE 1
  722.             BSAVE pf$,XBIOS(2),32000
  723.           CASE 2
  724.             OPEN "o",#2,pf$
  725.             PRINT #2;CHR$(0);CHR$(3-XBIOS(4));
  726.             BPUT #2,&HFF8240,32
  727.             BPUT #2,XBIOS(2),32000
  728.             CLOSE #2
  729.           ENDSELECT
  730.           SHOWM
  731.         ENDIF
  732.       CASE 4   ! Select palette...
  733.       CASE 5   ! Select border...
  734.       CASE 7   ! Load ZX-SCREEN
  735.         RETURN 0
  736.       CASE 9  ! Quit programm...
  737.         ALERT 2,"Are you shure, you want|to quit this program?",1," YES | NO ",k&
  738.         IF k&=1
  739.           RETURN -1
  740.         ENDIF
  741.       ENDSELECT
  742.     ENDIF
  743.   LOOP
  744. ENDFUNC
  745. '
  746. FUNCTION pop_up(x&,y&)
  747.   LOCAL i&,w&,xr&,yr&,l&,c&,k&,z&,oz&,s$
  748.   w&=0
  749.   FOR i&=1 TO pop&
  750.     IF LEN(pop$(i&))>w&
  751.       w&=LEN(pop$(i&))
  752.     ENDIF
  753.   NEXT i&
  754.   x&=MAX(x&-w&*4,10)
  755.   y&=MAX(y&-pop&*8,10)
  756.   x&=MIN(x&,sx%-w&*8-10)
  757.   y&=MIN(y&,sy%-pop&*16-10)
  758.   DEFFILL 1,2,8
  759.   xr&=x&+w&*8
  760.   yr&=y&+pop&*16
  761.   GET x&-2,y&-2,xr&+4,yr&+4,s$
  762.   PBOX x&,y&,xr&+4,yr&+4
  763.   IF XBIOS(4)=2
  764.     DEFFILL 0,1
  765.   ELSE
  766.     DEFFILL 2,1
  767.   ENDIF
  768.   PBOX x&-2,y&-2,xr&+2,yr&+2
  769.   BOX x&-2,y&-2,xr&+2,yr&+2
  770.   GRAPHMODE 2
  771.   FOR i&=1 TO pop&
  772.     IF LEFT$(pop$(i&),1)="-"
  773.       DEFTEXT 1,2,0,13
  774.     ELSE
  775.       DEFTEXT 1,0,0,13
  776.     ENDIF
  777.     TEXT x&,y&+i&*16-2,pop$(i&)
  778.   NEXT i&
  779.   GRAPHMODE 1
  780.   REPEAT
  781.   UNTIL MOUSEK=0
  782.   oz&=-1
  783.   SHOWM
  784.   DO
  785.     MOUSE c&,l&,k&
  786.     IF k&=2
  787.       PUT x&-2,y&-2,s$
  788.       RETURN -1
  789.     ENDIF
  790.     IF c&>=x& AND c&<=xr& AND l&>=y& AND l&<yr&
  791.       z&=INT(l&-y&)/16
  792.       IF oz&<>z&
  793.         IF oz&<>-1
  794.           @invert_box(x&,y&,xr&,oz&)
  795.           oz&=-1
  796.         ENDIF
  797.         IF LEFT$(pop$(z&+1),1)<>"-"
  798.           @invert_box(x&,y&,xr&,z&)
  799.           oz&=z&
  800.         ENDIF
  801.       ENDIF
  802.     ELSE
  803.       IF oz&<>-1
  804.         @invert_box(x&,y&,xr&,oz&)
  805.         oz&=-1
  806.       ENDIF
  807.     ENDIF
  808.     IF k&=1
  809.       IF c&>=x& AND c&<=xr& AND l&>=y& AND l&<yr& AND oz&<>-1
  810.         PUT x&-2,y&-2,s$
  811.         RETURN oz&+1
  812.       ELSE
  813.         PUT x&-2,y&-2,s$
  814.         RETURN 0
  815.       ENDIF
  816.     ENDIF
  817.   LOOP
  818. ENDFUNC
  819. '
  820. PROCEDURE invert_box(xl&,yo&,xr&,z&)
  821.   GRAPHMODE 3
  822.   DEFFILL 1,2,8
  823.   BOUNDARY 0
  824.   PBOX xl&,yo&+z&*16,xr&,yo&+z&*16+16
  825.   BOUNDARY 0
  826.   GRAPHMODE 1
  827.   SHOWM
  828. RETURN
  829. '
  830. popdata:
  831. DATA " Save as DOODLE..."
  832. DATA " Save as DEGAS..."
  833. DATA "-----------------------"
  834. DATA " Select palette..."
  835. DATA " Select border..."
  836. DATA "-----------------------"
  837. DATA " Load ZX-SCREEN$..."
  838. DATA "-----------------------"
  839. DATA " Quit program"
  840. DATA "***"
  841.