Author Topic: My 1996 Tiny Dungeon Game  (Read 433 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

  • Forum Resident
  • Posts: 1333
My 1996 Tiny Dungeon Game
« on: January 11, 2021, 06:40:02 PM »
I made this in 1996 with QBasic. It uses SCREEN 13 so the window will be very small. It starts after the music plays. It's a very short game, I might make something larger sometime. It has some graphics that I made using DATA lines. If you die, the game ends, so you just start over. :) But mostly I want to show you guys how I used to code. :) The PSET loops I got from someone else and never really "learned" them. Which is why I still don't do it this way exactly. Although I do use 2 loops.

Edit: I just removed the MATRIX unused variable.

Code: QB64: [Select]
  1. 'Dungeon Of Motion And Sound
  2. 'By SierraKen
  3. 'Written April 24, 1996
  4. SCREEN 13: 'Sprites have to be in this Screen.
  5. PLAY "abcdabcd#"
  6. PLAY "abcdabcd#"
  7. PRINT "       Dungeon Of Motion And Sound"
  8. PRINT "By SierraKen"
  9. PRINT "This is a game on how well you": PRINT "can use your resources."
  10. PRINT "To end the game at any screen": PRINT "type end or END at any curser."
  11. INPUT "Enter a chosen name: "; nm$
  12. IF nm$ = "end" OR nm$ = "END" THEN END
  13. PRINT "Hello "; nm$; ", you are on a vacation in": PRINT "the Sierra Nevada Mountains and": PRINT "you decide to take a hike. ": PRINT "Then you find a cave and": PRINT "decide to enter it.": PRINT "All of a sudden, the entrance": PRINT "to the cave disappears!"
  14. GOSUB You
  15. CIRCLE (285, 200), 75: 'To draw the cave
  16. INPUT "Press enter here"; a$
  17. IF a$ = "end" OR a$ = "END" THEN END
  18. GOSUB You: 'To Draw You
  19. 'What you need to draw the sprite (dragon) from the data at the end of this program.
  20. FOR Y2 = 0 TO 63
  21.     FOR X2 = 0 TO 63
  22.         READ DC$
  23.         PSET (X2, Y2), VAL("&H" + DC$)
  24.     NEXT X2
  25. NEXT Y2
  26. PRINT "You see a Monster, and he says..."
  27. INPUT "Press enter here"; b$
  28. IF b$ = "end" OR b$ = "END" THEN END
  29. GOSUB You
  30. PRINT "Hello, my name is Joe the"
  31. PRINT "Friendly Monster."
  32. PRINT "I guard this cave and since you have": PRINT "no way out except at the end, I will"
  33. PRINT "help you by giving you a bow and": PRINT "some arrows."
  34. PRINT "If you get rid of the bad things in this": PRINT "cave, it will be mine forever again."
  35. PRINT "Goodbye and good luck."
  36. INPUT "Press enter here"; c$
  37. IF c$ = "end" OR c$ = "END" THEN END
  38. GOSUB You
  39. CIRCLE (20, 100), 10, 1: 'To draw a canteen
  40. PRINT "You enter another room in the cave."
  41. PRINT "You find a canteen full of water!"
  42. INPUT "Press enter here"; d$
  43. IF d$ = "end" OR d$ = "END" THEN END
  44. GOSUB You
  45. PRINT "Now you are in a room with": PRINT "a waterfall coming down."
  46. FOR w = 1 TO 100 STEP 10
  47.     FOR wt = 130 TO 240 STEP 10
  48.         LINE (w, wt)-(w, wt + 3): 'To draw the water drops
  49.         FOR tm = 1 TO 200: NEXT tm
  50.         SOUND 100, .1
  51.         LINE (w, wt)-(w, wt + 3), 0: 'To erase the water drops
  52.     NEXT wt
  53. PRINT "You find a gold nugget worth $100!"
  54. INPUT "Press enter here"; e$
  55. IF e$ = "end" OR e$ = "END" THEN END
  56. PRINT "There's snakes everywhere here!"
  57. GOSUB You
  58. FOR s = 1 TO 50 STEP 10
  59.     LINE (s, 100)-(s + 10, 110): 'To Draw The Snakes
  60. fight:
  61. LOCATE 2, 1
  62. INPUT "What should you use:"; f$
  63. IF f$ = "fight" OR f$ = "FIGHT" THEN LOCATE 3, 1: PRINT "Use what weapon?": GOTO fight
  64. IF f$ = "bow" OR f$ = "BOW" OR f$ = "Bow and Arrows" OR f$ = "bow and arrows" OR f$ = "BOW AND ARROWS" OR f$ = "BOW and ARROWS" THEN GOTO cool
  65. IF f$ = "fists" OR f$ = "FISTS" OR f$ = "hands" OR f$ = "HANDS" THEN PRINT "You attempt to punch the snakes, but it doesn't work."
  66. IF f$ = "shoot snakes" OR f$ = "SHOOT SNAKES" THEN PRINT "Type out your weapon."
  67. IF f$ = "gun" OR f$ = "GUN" THEN PRINT "You don't own a gun."
  68. IF f$ = "rocks" THEN PRINT "You attempt to throw rocks at the snakes but it doesn't harm them."
  69. IF f$ = "feet" OR f$ = "FEET" THEN PRINT "You try and step on the snakes, but it doesn't work."
  70. IF f$ = "help" OR f$ = "HELP" OR f$ = "HINT" OR f$ = "hint" THEN PRINT "Here's a hint, use a weapon that the dragon gave you."
  71. IF f$ = "END" OR f$ = "end" THEN END
  72. IF LEFT$(o$, 1) = " " OR o$ = "" THEN PRINT "You must type something.": PRINT "Type end to quit game."
  73. IF f$ = "rifle" OR f$ = "RIFLE" OR f$ = "artillery" OR f$ = "grenade" OR f$ = "GRENADE" OR f$ = "TANK" OR f$ = "tank" OR f$ = "bomb" OR f$ = "BOMB" THEN PRINT "This game doesn't use those weapons."
  74. IF f$ = "end" OR f$ = "END" THEN END
  75. tim:
  76. t = t + 1
  77. IF t > 5 THEN PRINT "You took too long to decide the": PRINT "right choice and you die.": END
  78. GOTO fight
  79. cool:
  80. PRINT "You use your bow and arrows": PRINT "and kill all the snakes!"
  81. PRINT "You also find many silver dollars": PRINT "that are worth $500!"
  82. INPUT "Press enter here"; g$
  83. IF g$ = "end" OR g$ = "END" THEN END
  84. GOSUB You
  85. PRINT "Now you see holes along side the walls."
  86. PRINT "You remember an Indiana Jones movie and"
  87. PRINT "you throw a rock into the room."
  88. FOR sn = 1 TO 35
  89.     SOUND 100, .1
  90.     FOR tm = 1 TO 600: NEXT tm
  91. NEXT sn
  92. FOR dart = 160 TO 200 STEP 5
  93.     FOR dt = 60 TO 200 STEP 5
  94.         LINE (dart, dt)-(dart, dt + 3): 'To draw the darts
  95.         FOR tm = 1 TO 200: NEXT tm
  96.         LINE (dart, dt)-(dart, dt + 3), 0: 'To erase the darts
  97.     NEXT dt
  98. NEXT dart
  99. PRINT "You see many darts flying out": PRINT "of the walls and to the rock."
  100. PRINT "So you keep throwing all the rocks": PRINT "it takes so there won't be any"
  101. PRINT "arrows left."
  102. INPUT "Press enter here"; h$
  103. IF h$ = "end" OR h$ = "END" THEN END
  104. GOSUB You
  105. FOR cl = 1 TO 12
  106.     LINE (20, 100)-(40, 130), cl, BF: 'To make the glowing jacket.
  107.     FOR tm = 1 TO 3000: NEXT tm
  108. NEXT cl
  109. PRINT "Now, you see a jacket in the middle"
  110. PRINT "of the room and it is glowing!:"
  111. PRINT "There is a note next to the jacket": PRINT "saying, 'this magic jacket will cause"
  112. PRINT "you to have two images of yourself."
  113. PRINT "So, you pick it up."
  114. INPUT "Press enter here"; j$
  115. IF j$ = "end" OR j$ = "END" THEN END
  116. GOSUB You
  117. LINE (100, 50)-(90, 105): 'To draw the rope
  118. LINE (80, 60)-(80, 190): LINE (150, 60)-(150, 190): 'To draw the chasm
  119. PRINT "You come to a place where there is"
  120. PRINT "a chasm seperating your path."
  121. PRINT "You see a rope and you swing across."
  122. INPUT "Press enter here"; k$
  123. IF k$ = "end" OR k$ = "END" THEN END
  124. GOSUB You
  125. PRINT "You now see a small drum in the": PRINT "middle of the room."
  126. PRINT "You see another note saying,": PRINT "'Tap twice on the drum head": PRINT "and it will play some magic beats."
  127. 'To draw the drum
  128. CIRCLE (20, 100), 10, , , , .7
  129. LINE (30, 100)-(30, 115): LINE (10, 100)-(10, 115): CIRCLE (20, 115), 10, , , , .7
  130. INPUT "Do you pick up the drum(Y/N)"; l$
  131. IF l$ = "Y" OR l$ = "y" OR l$ = "yes" OR l$ = "YES" OR l$ = "Yes" THEN drum = 1
  132. IF l$ = "end" OR l$ = "END" THEN END
  133. GOSUB You
  134. FOR bats = 1 TO 30
  135.     X = RND * 200: Y = RND * 200
  136.     CIRCLE (X, Y), 5, , , , .7: 'To draw the bats
  137.     SOUND 800, .1
  138. NEXT bats
  139. PRINT "There are bats everywhere!"
  140. ti = 0
  141. bat:
  142. INPUT "What should you use:"; m$
  143. IF drum = 0 THEN PRINT "You don't have the right item": PRINT "to scare away the bats!": END
  144. IF m$ = "drum" OR m$ = "DRUM" OR m$ = "DRUMS" OR m$ = "magic drum" OR m$ = "MAGIC DRUM" OR m$ = "Drum" OR m$ = "Drums" OR m$ = "drums" THEN GOTO drumming:
  145. IF m$ = "bow" OR m$ = "BOW" OR m$ = "bow and arrows" OR m$ = "BOW AND ARROWS" THEN PRINT "You attempt to shoot all the bats,": PRINT "but there are too many and they are": PRINT "moving too fast."
  146. IF m$ = "fists" OR m$ = "fist" OR m$ = "foot" OR m$ = "foot" OR m$ = "FISTS" OR m$ = "FIST" OR m$ = "FOOT" THEN PRINT "Your body isn't useful as a weapon."
  147. IF m$ = "jacket" OR m$ = "magic jacket" OR m$ = "MAGIC JACKET" OR m$ = "JACKET" THEN PRINT "You put on the jacket, but the bats still bite you."
  148. IF m$ = "" THEN PRINT "You must type something.": PRINT "Type end to quit game."
  149. IF m$ = "gun" OR m$ = "GUN" OR m$ = "rifle" OR m$ = "RIFLE" OR m$ = "artillery" OR m$ = "grenade" OR m$ = "GRENADE" OR m$ = "TANK" OR m$ = "tank" OR m$ = "bomb" OR m$ = "BOMB" THEN PRINT "This game doesn't use those weapons."
  150. IF m$ = "end" OR m$ = "END" THEN END
  151. tiem:
  152. ti = ti + 1
  153. IF ti > 5 THEN PRINT "It took too long and the bats killed you!": END
  154. GOTO bat
  155. drumming:
  156. FOR dr = 1 TO 20 STEP 2
  157.     SOUND 100 + dr * 10, .1
  158.     FOR tm = 1 TO 3000: NEXT tm
  159. NEXT dr
  160. PRINT "The sound scared all the bats away!"
  161. INPUT "Press enter here"; n$
  162. IF n$ = "end" OR f$ = "END" THEN END
  163. GOSUB You
  164. 'To draw the gremlin from data below
  165. FOR Y2 = 0 TO 63
  166.     FOR X2 = 0 TO 63
  167.         READ DC$
  168.         PSET (X2, Y2 + 100), VAL("&H" + DC$)
  169.     NEXT X2
  170. NEXT Y2
  171. Gremlin:
  172. PRINT "You see a gremlin!"
  173. INPUT "What should you use:"; o$
  174. IF o$ = "bow" OR o$ = "BOW" THEN PRINT "You are out of arrows."
  175. IF o$ = "drum" OR o$ = "DRUM" THEN PRINT "The gremlin doen't respond to it."
  176. IF o$ = "jacket" OR o$ = "JACKET" OR o$ = "MAGIC JACKET" OR o$ = "magic jacket" THEN PRINT "You put it on to trick the Gremlin.": GOTO great
  177. IF LEFT$(o$, 1) = " " OR o$ = "" THEN PRINT "You must type something.": PRINT "Type end to quit your game."
  178. IF o$ = "gun" OR o$ = "GUN" OR o$ = "rifle" OR o$ = "RIFLE" OR o$ = "artillery" OR o$ = "grenade" OR o$ = "GRENADE" OR o$ = "TANK" OR o$ = "tank" OR o$ = "bomb" OR o$ = "BOMB" THEN PRINT "This game doesn't use those weapons."
  179. tym:
  180. ty = ty + 1
  181. IF ty > 5 THEN PRINT "It took you too long to get the right choice.": END
  182. IF o$ = "end" OR o$ = "END" THEN END
  183. GOTO Gremlin
  184. great:
  185. 'To draw the other image of yourself
  186. LINE (150, 150)-(160, 180), 1, BF
  187. LINE (150, 180)-(140, 190), 1
  188. LINE (160, 180)-(170, 190), 1
  189. LINE (155, 150)-(155, 145), 1
  190. LINE (150, 160)-(140, 155), 1
  191. LINE (160, 160)-(170, 155), 1
  192. CIRCLE (155, 135), 10
  193. CIRCLE (155, 138), 3, , , , .6
  194. LINE (152, 132)-(152, 132)
  195. LINE (158, 132)-(158, 132)
  196. PRINT "The Gremlin runs toward it": PRINT "and you run!"
  197. INPUT "Press enter here"; p$
  198. IF p$ = "END" OR p$ = "end" THEN END
  199. GOSUB You
  200. PRINT "You are now in another room": PRINT "and you see a light": PRINT "up ahead!"
  201. PRINT "Then, you hear a sound in back": PRINT "of you and it's the monster eating": PRINT "the Gremlin!"
  202. PRINT "After he's done, he says,": PRINT "'Thank you "; nm$; "!'"
  203. INPUT "Press enter here"; q$
  204. IF q$ = "end" OR q$ = "END" THEN END
  205. GOSUB You
  206. PRINT "You see $1,000 worth of gold!"
  207. PRINT "And then you find the exit out of": PRINT "the cave!"
  208. PRINT "When you leave the cave, all the magic": PRINT "items disappear and so does the cave!"
  209. GOSUB You
  210. PRINT "            THE    END"
  211. 'To draw the dragon again from the data.
  212. FOR Y2 = 0 TO 63
  213.     FOR X2 = 0 TO 63
  214.         READ DC$
  215.         PSET (X2, Y2 + 100), VAL("&H" + DC$)
  216.     NEXT X2
  217. NEXT Y2
  218. 'To draw you
  219. You:
  220. LINE (100, 100)-(110, 130), 1, BF
  221. LINE (100, 130)-(90, 140), 1
  222. LINE (110, 130)-(120, 140), 1
  223. LINE (105, 100)-(105, 95), 1
  224. LINE (100, 110)-(90, 105), 1
  225. LINE (110, 110)-(120, 105), 1
  226. CIRCLE (105, 85), 10
  227. CIRCLE (105, 88), 3, , , , .6
  228. LINE (102, 82)-(102, 82)
  229. LINE (108, 82)-(108, 82)
  230. 'Data for the monster picture. I used a Sprite Maker.
  231. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  232. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  233. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  234. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  235. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  236. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  237. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  238. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  239. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  240. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  241. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  242. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  243. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  244. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  245. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  246. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  247. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  248. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  249. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  250. DATA 0,0,0,0,0,0,0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  251. DATA 0,0,0,0,0,0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  252. DATA 0,0,0,0,0,0,0,0,0,6,6,6,2B,2B,6,6,6,6,2B,2B,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  253. DATA 0,0,0,0,0,0,0,0,6,6,6,6,2B,2B,6,6,6,6,2B,2B,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  254. DATA 0,0,0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  255. DATA 0,0,0,0,0,0,0,0,6,6,6,2B,6,6,6,6,6,6,6,6,2B,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  256. DATA 0,0,0,0,0,0,0,0,0,6,6,2B,6,6,6,6,6,6,6,6,2B,6,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  257. DATA 0,0,0,0,0,0,0,0,0,0,6,6,2B,2B,2B,2B,2B,2B,6,6,6,0,0,0,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  258. DATA 0,0,0,0,0,0,0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  259. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,28,28,28,28,28,28,28,0,0,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  260. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,28,28,28,28,28,28,28,0,0,0,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  261. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,28,28,28,28,28,28,28,0,0,0,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  262. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,28,28,28,28,28,28,28,0,0,0,0,0,28,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  263. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,28,28,28,28,28,28,28,0,0,0,0,28,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  264. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,28,28,28,28,28,28,28,0,0,0,28,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  265. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,28,28,28,28,28,28,28,0,0,28,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  266. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,28,28,28,28,28,28,28,0,28,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  267. DATA 0,0,0,0,0,0,0,0,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  268. DATA 0,0,0,0,0,0,0,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  269. DATA 0,0,0,0,0,0,28,28,0,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  270. DATA 0,28,28,28,28,28,28,28,0,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  271. DATA 28,0,0,0,28,28,28,28,0,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  272. DATA 0,0,0,28,0,28,28,28,0,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  273. DATA 0,28,28,0,0,28,0,28,0,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  274. DATA 0,0,0,0,0,28,0,28,0,0,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  275. DATA 0,0,0,0,0,0,0,0,0,0,28,28,28,28,28,0,0,0,0,0,0,0,28,28,28,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  276. DATA 0,0,0,0,0,0,0,0,28,28,28,28,28,28,28,0,0,0,0,0,0,0,28,28,28,28,28,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  277. DATA 0,0,0,0,0,0,28,28,28,28,28,28,28,28,28,0,0,0,0,0,0,0,28,28,28,28,28,28,28,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  278. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  279. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  280. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  281. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  282. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  283. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  284. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  285. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  286. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  287. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  288. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  289. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  290. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  291. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  292. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  293. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  294. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  295. 'DATA FOR THE GREMLIN PICTURE
  296. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  297. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  298. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  299. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  300. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  301. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  302. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  303. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  304. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  305. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  306. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  307. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  308. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  309. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  310. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  311. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,77,0,0,77,0,0,0,0,77,0,0,77,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  312. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,77,D9,77,77,D9,77,0,0,77,D9,77,77,D9,77,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  313. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,77,77,77,77,77,77,77,77,77,77,77,77,77,77,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  314. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,D9,77,77,77,77,77,77,77,77,77,77,77,77,77,77,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  315. DATA 0,0,0,D9,0,D9,0,D9,0,0,0,0,0,D9,77,77,77,D3,D3,77,77,77,77,D3,D3,77,77,77,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  316. DATA D9,0,0,D9,0,D9,0,D9,0,0,0,D9,0,D9,77,77,77,D3,D3,77,77,77,77,D3,D3,77,77,77,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  317. DATA 0,D9,0,D9,0,D9,0,D9,0,0,D9,0,0,0,77,77,77,77,77,77,77,77,77,77,77,77,77,77,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  318. DATA 0,0,D9,D9,D9,D9,D9,D9,D9,D9,0,0,0,0,77,77,77,77,77,77,77,77,77,77,77,77,77,77,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  319. DATA 0,0,0,D9,D9,D9,D9,D9,0,0,0,0,0,0,77,77,77,D3,19,D3,D3,19,D3,D3,19,77,77,77,0,0,0,0,0,0,0,0,0,0,0,0,0,D9,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  320. DATA 0,0,0,D9,D9,D9,D9,D9,0,0,0,0,0,0,77,77,77,19,D3,D3,19,D3,D3,19,D3,77,77,77,0,0,0,0,0,0,0,0,0,D9,D9,D9,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  321. DATA 0,0,0,D9,D9,D9,D9,D9,0,0,0,0,0,0,0,0,77,77,77,77,77,77,77,77,77,77,0,0,0,0,0,0,77,77,77,77,77,D9,D9,D9,D9,0,D9,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  322. DATA 0,0,0,0,77,77,77,0,0,0,0,0,0,0,0,0,77,77,77,77,77,77,77,77,77,77,0,0,0,0,0,77,77,77,77,77,77,D9,D9,D9,D9,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  323. DATA 0,0,0,0,77,77,77,0,0,0,0,0,0,0,0,0,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,78,D9,D9,D9,D9,0,0,D9,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  324. DATA 0,0,0,0,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,0,0,0,0,D9,D9,D9,D9,D9,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  325. DATA 0,0,0,0,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  326. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,77,77,77,77,77,77,77,77,77,77,77,77,77,77,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  327. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,77,D9,D9,D9,D9,D9,D9,D9,D9,D9,D9,D9,77,77,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  328. DATA 0,0,0,0,0,0,77,77,77,77,77,77,77,77,77,D9,D9,D9,D9,D9,D9,D9,D9,D9,D9,D9,77,77,77,77,77,77,77,77,77,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  329. DATA 0,0,0,0,0,0,77,77,77,77,77,77,77,77,77,D9,D9,D9,D9,D9,D9,D9,D9,D9,D9,D9,77,77,77,77,77,77,77,77,77,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  330. DATA 0,0,0,0,0,0,77,77,77,77,77,77,77,77,D9,D9,D9,D9,D9,D9,D9,D9,D9,D9,D9,D9,D9,77,77,77,77,77,77,77,77,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  331. DATA 0,0,0,0,0,0,77,77,77,77,77,0,0,D9,D9,D9,D9,D9,D9,D9,D9,D9,D9,D9,D9,D9,D9,D9,0,0,77,77,77,77,77,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  332. DATA 0,0,0,0,0,0,77,77,77,77,77,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,77,77,77,77,77,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  333. DATA 0,0,0,0,0,0,D9,D9,D9,D9,D9,D9,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,77,77,77,77,77,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  334. DATA 0,0,0,0,0,0,D9,D9,D9,D9,D9,D9,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,D9,D9,D9,D9,D9,D9,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  335. DATA 0,0,0,0,0,0,D9,0,D9,0,D9,0,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,D9,D9,D9,D9,D9,D9,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  336. DATA 0,0,0,0,0,0,D9,0,D9,0,D9,0,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,D9,0,D9,0,D9,0,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  337. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,D9,0,D9,0,D9,0,D9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  338. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  339. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  340. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  341. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  342. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  343. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  344. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  345. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  346. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  347. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  348. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  349. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  350. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  351. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  352. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  353. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  354. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  355. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  356. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  357. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  358. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  359. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  360.  

« Last Edit: January 11, 2021, 07:21:48 PM by SierraKen »

Marked as best answer by SierraKen on January 12, 2021, 01:38:07 AM

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3481
    • Steve’s QB64 Archive Forum
Re: My 1996 Tiny Dungeon Game
« Reply #1 on: January 11, 2021, 08:18:33 PM »
I worked and worked and worked and worked and worked and worked, but I finally got this to become a resizable, scalable window for us, so folks won't go blind staring at such a tiny little SCREEN 13 screen!

Code: QB64: [Select]
  1. 'Massive modification by STEVE!!
  2.  
  3.  
  4. 'Dungeon Of Motion And Sound
  5. 'By SierraKen
  6. 'Written April 24, 1996
  7. SCREEN 13: 'Sprites have to be in this Screen.
  8. PLAY "abcdabcd#"
  9. PLAY "abcdabcd#"
  10. PRINT "       Dungeon Of Motion And Sound"
  11. PRINT "By SierraKen"
  12. PRINT "This is a game on how well you": PRINT "can use your resources."
  13. PRINT "To end the game at any screen": PRINT "type end or END at any curser."
  14. INPUT "Enter a chosen name: "; nm$
  15. IF nm$ = "end" OR nm$ = "END" THEN END
  16. PRINT "Hello "; nm$; ", you are on a vacation in": PRINT "the Sierra Nevada Mountains and": PRINT "you decide to take a hike. ": PRINT "Then you find a cave and": PRINT "decide to enter it.": PRINT "All of a sudden, the entrance": PRINT "to the cave disappears!"
  17. GOSUB You
  18. CIRCLE (285, 200), 75: 'To draw the cave
  19. INPUT "Press enter here"; a$
  20. IF a$ = "end" OR a$ = "END" THEN END
  21. GOSUB You: 'To Draw You
  22. 'What you need to draw the sprite (dragon) from the data at the end of this program.
  23. FOR Y2 = 0 TO 63
  24.     FOR X2 = 0 TO 63
  25.         READ DC$
  26.         PSET (X2, Y2), VAL("&H" + DC$)
  27.     NEXT X2
  28. NEXT Y2
  29. PRINT "You see a Monster, and he says..."
  30. INPUT "Press enter here"; b$
  31. IF b$ = "end" OR b$ = "END" THEN END
  32. GOSUB You
  33. PRINT "Hello, my name is Joe the"
  34. PRINT "Friendly Monster."
  35. PRINT "I guard this cave and since you have": PRINT "no way out except at the end, I will"
  36. PRINT "help you by giving you a bow and": PRINT "some arrows."
  37. PRINT "If you get rid of the bad things in this": PRINT "cave, it will be mine forever again."
  38. PRINT "Goodbye and good luck."
  39. INPUT "Press enter here"; c$
  40. IF c$ = "end" OR c$ = "END" THEN END
  41. GOSUB You
  42. CIRCLE (20, 100), 10, 1: 'To draw a canteen
  43. PRINT "You enter another room in the cave."
  44. PRINT "You find a canteen full of water!"
  45. INPUT "Press enter here"; d$
  46. IF d$ = "end" OR d$ = "END" THEN END
  47. GOSUB You
  48. PRINT "Now you are in a room with": PRINT "a waterfall coming down."
  49. FOR w = 1 TO 100 STEP 10
  50.     FOR wt = 130 TO 240 STEP 10
  51.         LINE (w, wt)-(w, wt + 3): 'To draw the water drops
  52.         FOR tm = 1 TO 200: NEXT tm
  53.         SOUND 100, .1
  54.         LINE (w, wt)-(w, wt + 3), 0: 'To erase the water drops
  55.     NEXT wt
  56. PRINT "You find a gold nugget worth $100!"
  57. INPUT "Press enter here"; e$
  58. IF e$ = "end" OR e$ = "END" THEN END
  59. PRINT "There's snakes everywhere here!"
  60. GOSUB You
  61. FOR s = 1 TO 50 STEP 10
  62.     LINE (s, 100)-(s + 10, 110): 'To Draw The Snakes
  63. fight:
  64. LOCATE 2, 1
  65. INPUT "What should you use:"; f$
  66. IF f$ = "fight" OR f$ = "FIGHT" THEN LOCATE 3, 1: PRINT "Use what weapon?": GOTO fight
  67. IF f$ = "bow" OR f$ = "BOW" OR f$ = "Bow and Arrows" OR f$ = "bow and arrows" OR f$ = "BOW AND ARROWS" OR f$ = "BOW and ARROWS" THEN GOTO cool
  68. IF f$ = "fists" OR f$ = "FISTS" OR f$ = "hands" OR f$ = "HANDS" THEN PRINT "You attempt to punch the snakes, but it doesn't work."
  69. IF f$ = "shoot snakes" OR f$ = "SHOOT SNAKES" THEN PRINT "Type out your weapon."
  70. IF f$ = "gun" OR f$ = "GUN" THEN PRINT "You don't own a gun."
  71. IF f$ = "rocks" THEN PRINT "You attempt to throw rocks at the snakes but it doesn't harm them."
  72. IF f$ = "feet" OR f$ = "FEET" THEN PRINT "You try and step on the snakes, but it doesn't work."
  73. IF f$ = "help" OR f$ = "HELP" OR f$ = "HINT" OR f$ = "hint" THEN PRINT "Here's a hint, use a weapon that the dragon gave you."
  74. IF f$ = "END" OR f$ = "end" THEN END
  75. IF LEFT$(o$, 1) = " " OR o$ = "" THEN PRINT "You must type something.": PRINT "Type end to quit game."
  76. IF f$ = "rifle" OR f$ = "RIFLE" OR f$ = "artillery" OR f$ = "grenade" OR f$ = "GRENADE" OR f$ = "TANK" OR f$ = "tank" OR f$ = "bomb" OR f$ = "BOMB" THEN PRINT "This game doesn't use those weapons."
  77. IF f$ = "end" OR f$ = "END" THEN END
  78. tim:
  79. t = t + 1
  80. IF t > 5 THEN PRINT "You took too long to decide the": PRINT "right choice and you die.": END
  81. GOTO fight
  82. cool:
  83. PRINT "You use your bow and arrows": PRINT "and kill all the snakes!"
  84. PRINT "You also find many silver dollars": PRINT "that are worth $500!"
  85. INPUT "Press enter here"; g$
  86. IF g$ = "end" OR g$ = "END" THEN END
  87. GOSUB You
  88. PRINT "Now you see holes along side the walls."
  89. PRINT "You remember an Indiana Jones movie and"
  90. PRINT "you throw a rock into the room."
  91. FOR sn = 1 TO 35
  92.     SOUND 100, .1
  93.     FOR tm = 1 TO 600: NEXT tm
  94. NEXT sn
  95. FOR dart = 160 TO 200 STEP 5
  96.     FOR dt = 60 TO 200 STEP 5
  97.         LINE (dart, dt)-(dart, dt + 3): 'To draw the darts
  98.         FOR tm = 1 TO 200: NEXT tm
  99.         LINE (dart, dt)-(dart, dt + 3), 0: 'To erase the darts
  100.     NEXT dt
  101. NEXT dart
  102. PRINT "You see many darts flying out": PRINT "of the walls and to the rock."
  103. PRINT "So you keep throwing all the rocks": PRINT "it takes so there won't be any"
  104. PRINT "arrows left."
  105. INPUT "Press enter here"; h$
  106. IF h$ = "end" OR h$ = "END" THEN END
  107. GOSUB You
  108. FOR cl = 1 TO 12
  109.     LINE (20, 100)-(40, 130), cl, BF: 'To make the glowing jacket.
  110.     FOR tm = 1 TO 3000: NEXT tm
  111. NEXT cl
  112. PRINT "Now, you see a jacket in the middle"
  113. PRINT "of the room and it is glowing!:"
  114. PRINT "There is a note next to the jacket": PRINT "saying, 'this magic jacket will cause"
  115. PRINT "you to have two images of yourself."
  116. PRINT "So, you pick it up."
  117. INPUT "Press enter here"; j$
  118. IF j$ = "end" OR j$ = "END" THEN END
  119. GOSUB You
  120. LINE (100, 50)-(90, 105): 'To draw the rope
  121. LINE (80, 60)-(80, 190): LINE (150, 60)-(150, 190): 'To draw the chasm
  122. PRINT "You come to a place where there is"
  123. PRINT "a chasm seperating your path."
  124. PRINT "You see a rope and you swing across."
  125. INPUT "Press enter here"; k$
  126. IF k$ = "end" OR k$ = "END" THEN END
  127. GOSUB You
  128. PRINT "You now see a small drum in the": PRINT "middle of the room."
  129. PRINT "You see another note saying,": PRINT "'Tap twice on the drum head": PRINT "and it will play some magic beats."
  130. 'To draw the drum
  131. CIRCLE (20, 100), 10, , , , .7
  132. LINE (30, 100)-(30, 115): LINE (10, 100)-(10, 115): CIRCLE (20, 115), 10, , , , .7
  133. INPUT "Do you pick up the drum(Y/N)"; l$
  134. IF l$ = "Y" OR l$ = "y" OR l$ = "yes" OR l$ = "YES" OR l$ = "Yes" THEN drum = 1
  135. IF l$ = "end" OR l$ = "END" THEN END
  136. GOSUB You
  137. FOR bats = 1 TO 30
  138.     X = RND * 200: Y = RND * 200
  139.     CIRCLE (X, Y), 5, , , , .7: 'To draw the bats
  140.     SOUND 800, .1
  141. NEXT bats
  142. PRINT "There are bats everywhere!"
  143. ti = 0
  144. bat:
  145. INPUT "What should you use:"; m$
  146. IF drum = 0 THEN PRINT "You don't have the right item": PRINT "to scare away the bats!": END
  147. IF m$ = "drum" OR m$ = "DRUM" OR m$ = "DRUMS" OR m$ = "magic drum" OR m$ = "MAGIC DRUM" OR m$ = "Drum" OR m$ = "Drums" OR m$ = "drums" THEN GOTO drumming:
  148. IF m$ = "bow" OR m$ = "BOW" OR m$ = "bow and arrows" OR m$ = "BOW AND ARROWS" THEN PRINT "You attempt to shoot all the bats,": PRINT "but there are too many and they are": PRINT "moving too fast."
  149. IF m$ = "fists" OR m$ = "fist" OR m$ = "foot" OR m$ = "foot" OR m$ = "FISTS" OR m$ = "FIST" OR m$ = "FOOT" THEN PRINT "Your body isn't useful as a weapon."
  150. IF m$ = "jacket" OR m$ = "magic jacket" OR m$ = "MAGIC JACKET" OR m$ = "JACKET" THEN PRINT "You put on the jacket, but the bats still bite you."
  151. IF m$ = "" THEN PRINT "You must type something.": PRINT "Type end to quit game."
  152. IF m$ = "gun" OR m$ = "GUN" OR m$ = "rifle" OR m$ = "RIFLE" OR m$ = "artillery" OR m$ = "grenade" OR m$ = "GRENADE" OR m$ = "TANK" OR m$ = "tank" OR m$ = "bomb" OR m$ = "BOMB" THEN PRINT "This game doesn't use those weapons."
  153. IF m$ = "end" OR m$ = "END" THEN END
  154. tiem:
  155. ti = ti + 1
  156. IF ti > 5 THEN PRINT "It took too long and the bats killed you!": END
  157. GOTO bat
  158. drumming:
  159. FOR dr = 1 TO 20 STEP 2
  160.     SOUND 100 + dr * 10, .1
  161.     FOR tm = 1 TO 3000: NEXT tm
  162. NEXT dr
  163. PRINT "The sound scared all the bats away!"
  164. INPUT "Press enter here"; n$
  165. IF n$ = "end" OR f$ = "END" THEN END
  166. GOSUB You
  167. 'To draw the gremlin from data below
  168. FOR Y2 = 0 TO 63
  169.     FOR X2 = 0 TO 63
  170.         READ DC$
  171.         PSET (X2, Y2 + 100), VAL("&H" + DC$)
  172.     NEXT X2
  173. NEXT Y2
  174. Gremlin:
  175. PRINT "You see a gremlin!"
  176. INPUT "What should you use:"; o$
  177. IF o$ = "bow" OR o$ = "BOW" THEN PRINT "You are out of arrows."
  178. IF o$ = "drum" OR o$ = "DRUM" THEN PRINT "The gremlin doen't respond to it."
  179. IF o$ = "jacket" OR o$ = "JACKET" OR o$ = "MAGIC JACKET" OR o$ = "magic jacket" THEN PRINT "You put it on to trick the Gremlin.": GOTO great
  180. IF LEFT$(o$, 1) = " " OR o$ = "" THEN PRINT "You must type something.": PRINT "Type end to quit your game."
  181. IF o$ = "gun" OR o$ = "GUN" OR o$ = "rifle" OR o$ = "RIFLE" OR o$ = "artillery" OR o$ = "grenade" OR o$ = "GRENADE" OR o$ = "TANK" OR o$ = "tank" OR o$ = "bomb" OR o$ = "BOMB" THEN PRINT "This game doesn't use those weapons."
  182. tym:
  183. ty = ty + 1
  184. IF ty > 5 THEN PRINT "It took you too long to get the right choice.": END
  185. IF o$ = "end" OR o$ = "END" THEN END
  186. GOTO Gremlin
  187. great:
  188. 'To draw the other image of yourself
  189. LINE (150, 150)-(160, 180), 1, BF
  190. LINE (150, 180)-(140, 190), 1
  191. LINE (160, 180)-(170, 190), 1
  192. LINE (155, 150)-(155, 145), 1
  193. LINE (150, 160)-(140, 155), 1
  194. LINE (160, 160)-(170, 155), 1
  195. CIRCLE (155, 135), 10
  196. CIRCLE (155, 138), 3, , , , .6
  197. LINE (152, 132)-(152, 132)
  198. LINE (158, 132)-(158, 132)
  199. PRINT "The Gremlin runs toward it": PRINT "and you run!"
  200. INPUT "Press enter here"; p$
  201. IF p$ = "END" OR p$ = "end" THEN END
  202. GOSUB You
  203. PRINT "You are now in another room": PRINT "and you see a light": PRINT "up ahead!"
  204. PRINT "Then, you hear a sound in back": PRINT "of you and it's the monster eating": PRINT "the Gremlin!"
  205. PRINT "After he's done, he says,": PRINT "'Thank you "; nm$; "!'"
  206. INPUT "Press enter here"; q$
  207. IF q$ = "end" OR q$ = "END" THEN END
  208. GOSUB You
  209. PRINT "You see $1,000 worth of gold!"
  210. PRINT "And then you find the exit out of": PRINT "the cave!"
  211. PRINT "When you leave the cave, all the magic": PRINT "items disappear and so does the cave!"
  212. GOSUB You
  213. PRINT "            THE    END"
  214. 'To draw the dragon again from the data.
  215. FOR Y2 = 0 TO 63
  216.     FOR X2 = 0 TO 63
  217.         READ DC$
  218.         PSET (X2, Y2 + 100), VAL("&H" + DC$)
  219.     NEXT X2
  220. NEXT Y2
  221. 'To draw you
  222. You:
  223. LINE (100, 100)-(110, 130), 1, BF
  224. LINE (100, 130)-(90, 140), 1
  225. LINE (110, 130)-(120, 140), 1
  226. LINE (105, 100)-(105, 95), 1
  227. LINE (100, 110)-(90, 105), 1
  228. LINE (110, 110)-(120, 105), 1
  229. CIRCLE (105, 85), 10
  230. CIRCLE (105, 88), 3, , , , .6
  231. LINE (102, 82)-(102, 82)
  232. LINE (108, 82)-(108, 82)
  233. 'Data for the monster picture. I used a Sprite Maker.
  234. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  235. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  236. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  237. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  238. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  239. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  240. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  241. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,