home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / misc / kombat.bas < prev    next >
BASIC Source File  |  2001-02-10  |  47KB  |  1,351 lines
  1. SCREEN 12: LINE (1, 1)-(1, 100), 4
  2. LINE (1, 110)-(1, 150), 5
  3. DIM EP(1 TO 5000)
  4. GET (0, 0)-(3, 151), EP
  5. TIMESI = 99: SCORE1 = 0: SCORE2 = 0
  6. CLS : LOCATE 12, 1: PRINT "           COMPUWARE PRESENTS"
  7. SLEEP 1: SLEEP 1: CLS : LOCATE 12, 1: PRINT "        A _    "
  8. PRINT "MARK LEARY CREATION"
  9. SLEEP 1: SLEEP 1: CLS : LOCATE 12, 1
  10. FOR T = 1 TO 10
  11. LOCATE 1, 1: COLOR 4: PRINT "Edits and extras by:"
  12. LOCATE 2, 1: COLOR 15: PRINT "Ronald Kuslak"
  13. FOR X = 1 TO 500
  14. NEXT
  15. LOCATE 1, 1: COLOR 14: PRINT "Edits and extras by:"
  16. LOCATE 2, 1: COLOR 15: PRINT "Ronald Kuslak"
  17. FOR X = 1 TO 500
  18. NEXT
  19. NEXT
  20. CLS : SCREEN 13: COLOR 4: DRAW "C4BL120BU70D25R10U15F15E15D15R10U25L10G15H15L10"
  21. DRAW "BD25BL8U5L4U15R4U5L17D5R4D15L4D5R17"
  22. DRAW "BR136BD45"
  23. DRAW "BL70BU70D25R10U15F15E15D15R10U25L10G15H15L10"
  24. DRAW "BR58BD7D11F7R11E7U11H7L11G7"
  25. DRAW "BR34BU7D25R10U10F10R10H10E5U5H5L20"
  26. DRAW "BR34D10R10D15R10U15R10U10L30"
  27. DRAW "BR37BD10D15R10U10R10D10R10U15H10L10G10"
  28. DRAW "BU10BR37D25R20U10L10U15L10"
  29. DRAW "BD35BL245D25R10U15F15R10H15E10L10G10U10L10"
  30. DRAW "BR39BD7D11F7R11E7U11H7L11G7"
  31. DRAW "BR34BU7D25R10U15F15E15D15R10U25L10G15H15L10"
  32. DRAW "BR58D25R20E5U3H5E5U2H5L20"
  33. DRAW "BR33BD10D15R10U10R10D10R10U15H10L10G10"
  34. DRAW "BR34BU10D10R10D15R10U15R10U10L30"
  35. COLOR 7: LOCATE 14, 15: PRINT "THE GAME"
  36. PRINT "2-Player DEATH MATCH mode!"
  37. FOR I = 1 TO 40000: NEXT I
  38. 1 BEEP
  39. CLS
  40. SCREEN 13
  41. LOCATE 2, 2: PRINT "CAGE"
  42. LOCATE 2, 7: PRINT "KANO"
  43. LOCATE 2, 12: PRINT "RAI-"
  44. LOCATE 3, 12: PRINT "DEN"
  45. LOCATE 2, 22: PRINT "SCO-"
  46. LOCATE 3, 22: PRINT "RPI-"
  47. LOCATE 4, 22: PRINT "ON"
  48. LOCATE 2, 27: PRINT "SUB"
  49. LOCATE 3, 27: PRINT "ZERO"
  50. LOCATE 2, 31: PRINT "SONYA"
  51. LINE (0, 0)-(8 * 15, 44), 4, B
  52. LINE (5 * 8, 0)-(5 * 8, 44), 4
  53. LINE (10 * 8, 0)-(10 * 8, 88), 4
  54. LINE (15 * 8 + 1, 0)-(15 * 8, 88), 4
  55. LINE (15 * 8, 44)-(15 * 8, 88), 4
  56. LINE (10 * 8, 88)-(25 * 8, 88), 4
  57. LINE (25 * 8, 88)-(25 * 8, 44), 4
  58. LINE (25 * 8, 44)-(10 * 8, 44), 4
  59. LINE (20 * 8, 88)-(20 * 8, 0), 4
  60. LINE (20 * 8, 0)-(35 * 8, 44), 4, B
  61. LINE (30 * 8, 0)-(30 * 8, 44), 4
  62. LINE (25 * 8, 0)-(25 * 8, 44), 4
  63. PAINT (11 * 8, 46), 4, 4
  64. PAINT (21 * 8, 46), 4, 4
  65. LOCATE 9, 16: PRINT "KANG"
  66. LOCATE 7, 2: PRINT "1    2"
  67. LOCATE 7, 13: PRINT "3"
  68. LOCATE 13, 18: PRINT "4"
  69. LOCATE 7, 23: PRINT "5"
  70. LOCATE 7, 29: PRINT "6    7"
  71. LOCATE 15, 10: PRINT "Enter the number for your characer "
  72. INPUT "Player 1"; C
  73. IF C = 1 THEN CHAR1$ = "J. CAGE": GOTO 2
  74. IF C = 2 THEN CHAR1$ = "KANO": GOTO 2
  75. IF C = 3 THEN CHAR1$ = "RAIDEN": GOTO 2
  76. IF C = 4 THEN CHAR1$ = "LUI KANG": GOTO 2
  77. IF C = 5 THEN CHAR1$ = "SCORPION": GOTO 2
  78. IF C = 6 THEN CHAR1$ = "SUB ZERO": GOTO 2
  79. IF C = 7 THEN CHAR1$ = "SONYA": C = 10: GOTO 2
  80. LOCATE 24, 1: PRINT "INVALID CHARACTER "
  81. LOCATE 25, 1: PRINT "YOU MUST SELECT A # FROM 1 TO 7": SLEEP 2
  82. GOTO 1
  83. 2 BEEP
  84. 3 CLS
  85. LOCATE 2, 2: PRINT "CAGE"
  86. LOCATE 2, 7: PRINT "KANO"
  87. LOCATE 2, 12: PRINT "RAI-"
  88. LOCATE 3, 12: PRINT "DEN"
  89. LOCATE 2, 22: PRINT "SCO-"
  90. LOCATE 3, 22: PRINT "RPI-"
  91. LOCATE 4, 22: PRINT "ON"
  92. LOCATE 2, 27: PRINT "SUB"
  93. LOCATE 3, 27: PRINT "ZERO"
  94. LOCATE 2, 31: PRINT "SONYA"
  95. LINE (0, 0)-(8 * 15, 44), 4, B
  96. LINE (5 * 8, 0)-(5 * 8, 44), 4
  97. LINE (10 * 8, 0)-(10 * 8, 88), 4
  98. LINE (15 * 8 + 1, 0)-(15 * 8, 88), 4
  99. LINE (15 * 8, 44)-(15 * 8, 88), 4
  100. LINE (10 * 8, 88)-(25 * 8, 88), 4
  101. LINE (25 * 8, 88)-(25 * 8, 44), 4
  102. LINE (25 * 8, 44)-(10 * 8, 44), 4
  103. LINE (20 * 8, 88)-(20 * 8, 0), 4
  104. LINE (20 * 8, 0)-(35 * 8, 44), 4, B
  105. LINE (30 * 8, 0)-(30 * 8, 44), 4
  106. LINE (25 * 8, 0)-(25 * 8, 44), 4
  107. PAINT (11 * 8, 46), 4, 4
  108. PAINT (21 * 8, 46), 4, 4
  109. LOCATE 9, 16: PRINT "BLOOD"
  110. LOCATE 7, 2: PRINT "1    2"
  111. LOCATE 7, 13: PRINT "3"
  112. LOCATE 13, 18: PRINT "4"
  113. LOCATE 7, 23: PRINT "5"
  114. LOCATE 7, 29: PRINT "6    7"
  115. LOCATE 15, 10: PRINT "Enter the number for your characer "
  116. INPUT "Player 2"; C2
  117. IF C2 = 1 THEN CHAR2$ = "J. CAGE": GOTO 4
  118. IF C2 = 2 THEN CHAR2$ = "KANO": GOTO 4
  119. IF C2 = 3 THEN CHAR2$ = "RAIDEN": GOTO 4
  120. IF C2 = 4 THEN CHAR2$ = "LUI KANG": GOTO 4
  121. IF C2 = 5 THEN CHAR2$ = "SUB ZERO": GOTO 4
  122. IF C2 = 6 THEN CHAR2$ = "SCORPION": GOTO 4
  123. IF C2 = 7 THEN CHAR2$ = "SONYA": C = 10: GOTO 4
  124. LOCATE 24, 1: PRINT "INVALID CHARACTER "
  125. LOCATE 25, 1: PRINT "YOU MUST SELECT A # FROM 1 TO 7": SLEEP 2
  126. GOTO 3
  127. 4 R = 1: RC1 = 0: IF C = C2 AND C2 > 1 THEN C2 = C2 + 8
  128. 5 SCREEN 13: CLS : COLOR 14: PRINT
  129. PRINT " Player 1                Player 2"
  130. PRINT
  131. PRINT "A - Forward             6 - Forward"
  132. PRINT "D - Back                4 - Back"
  133. PRINT "W - Jump                8 - Jump"
  134. PRINT "X - Duck                2 - Duck"
  135. PRINT "R - Super Jump          9 - Super Jump "
  136. PRINT "T - Punch               + - Punch "
  137. PRINT "G - Kick                - - Kick"
  138. PRINT "V - Jump Kick           * - Jump Kick"
  139. PRINT "F - Special Move        / - Special Move"
  140. PRINT : PRINT "Make sure Num Lock is ON"
  141. PRINT "Player 2 use NUM PAD"
  142. PRINT : PRINT : PRINT "      Press any key to continue..."
  143. SLEEP
  144. CLS : LOCATE 1, 1: COLOR 4: PRINT : PRINT "              _  "
  145. PRINT " ROUND "; R; ""
  146. SLEEP 1: CLS
  147. SCREEN 13: CLS : PAINT (5, 5), 9: LSTE = 50: WSTE = 50: L = 0: W = 0: COLOR 246: LINE (0, 101)-(600, 800), , BF: COLOR 8: PSET (3, 100): PSET (4, 99): PSET (5, 98): PSET (6, 97): PSET (7, 96): LINE (7, 95)-(7, 6): PSET (6, 5): PSET (5, 4): PSET (4, 3): PSET (3, 2): PSET (2, 1): PSET (1, 0)
  148. PSET (30, 100): PSET (29, 99): PSET (28, 98): PSET (27, 97): PSET (26, 96): PSET (25, 95): LINE (25, 94)-(25, 6): PSET (26, 5): PSET (27, 4): PSET (28, 3): PSET (29, 2): PSET (30, 1): PSET (31, 0): LINE (1, 0)-(31, 0): LINE (0, 101)-(31, 101): PAINT (15, 3), 8
  149. COLOR 8: PSET (320 - 3, 100): PSET (320 - 4, 99): PSET (320 - 5, 98): PSET (320 - 6, 97): PSET (320 - 7, 96): LINE (320 - 7, 95)-(320 - 7, 6): PSET (320 - 6, 5): PSET (320 - 5, 4): PSET (320 - 4, 3): PSET (320 - 3, 2): PSET (320 - 2, 1): PSET (320 - 1, 0)
  150. PSET (320 - 30, 100): PSET (320 - 29, 99): PSET (320 - 28, 98): PSET (320 - 27, 97): PSET (320 - 26, 96): PSET (320 - 25, 95): LINE (320 - 25, 94)-(320 - 25, 6): PSET (320 - 26, 5): PSET (320 - 27, 4): PSET (320 - 28, 3): PSET (320 - 29, 2): PSET (320 - 30, 1): PSET (320 - 31, 0): LINE (320 - 1, 0)-(320 - 31, 0): LINE (320 - 0, 101)-(320 - 31, 101): PAINT (320 - 15, 3), 8
  151. COLOR 0: LINE (0, 101)-(600, 101): COLOR 1
  152. FOR T = 1 TO 9
  153. LOCATE 10, 15: COLOR 4: PRINT "FIGHT!": FOR X = 1 TO 500: NEXT X
  154. LOCATE 10, 15: COLOR 14: PRINT "FIGHT!": FOR X = 1 TO 500: NEXT X
  155. NEXT T
  156. SCREEN 13: CLS : PAINT (5, 5), 9: LSTE = 50: WSTE = 50: L = 0: W = 0: COLOR 246: LINE (0, 101)-(600, 800), , BF: COLOR 8: PSET (3, 100): PSET (4, 99): PSET (5, 98): PSET (6, 97): PSET (7, 96): LINE (7, 95)-(7, 6): PSET (6, 5): PSET (5, 4): PSET (4, 3): PSET (3, 2): PSET (2, 1): PSET (1, 0)
  157. PSET (30, 100): PSET (29, 99): PSET (28, 98): PSET (27, 97): PSET (26, 96): PSET (25, 95): LINE (25, 94)-(25, 6): PSET (26, 5): PSET (27, 4): PSET (28, 3): PSET (29, 2): PSET (30, 1): PSET (31, 0): LINE (1, 0)-(31, 0): LINE (0, 101)-(31, 101): PAINT (15, 3), 8
  158. COLOR 8: PSET (320 - 3, 100): PSET (320 - 4, 99): PSET (320 - 5, 98): PSET (320 - 6, 97): PSET (320 - 7, 96): LINE (320 - 7, 95)-(320 - 7, 6): PSET (320 - 6, 5): PSET (320 - 5, 4): PSET (320 - 4, 3): PSET (320 - 3, 2): PSET (320 - 2, 1): PSET (320 - 1, 0)
  159. PSET (320 - 30, 100): PSET (320 - 29, 99): PSET (320 - 28, 98): PSET (320 - 27, 97): PSET (320 - 26, 96): PSET (320 - 25, 95): LINE (320 - 25, 94)-(320 - 25, 6): PSET (320 - 26, 5): PSET (320 - 27, 4): PSET (320 - 28, 3): PSET (320 - 29, 2): PSET (320 - 30, 1): PSET (320 - 31, 0): LINE (320 - 1, 0)-(320 - 31, 0): LINE (320 - 0, 101)-(320 - 31, 101): PAINT (320 - 15, 3), 8
  160. COLOR 0: LINE (0, 101)-(600, 101): COLOR 1
  161. 10 IF WSTE <= 0 THEN GOTO 800:                             
  162. IF LSTE <= 0 THEN GOTO 900:                                
  163. 'S STRENGTH- "                                             
  164. COLOR C2: LOCATE 17, 8: PRINT "#1:"; CHAR1$; "              "
  165. COLOR 7: LINE (255, 128)-(305, 134), 7, BF
  166. COLOR C2: LINE (255, 128)-(255 + LSTE, 134), C2, BF
  167. COLOR C: LOCATE 19, 1: PRINT "#2:"; CHAR2$; "'S STRENGTH- "
  168. COLOR 7:    LINE (200, 145)-(250, 151), 7, BF
  169. LINE (200, 145)-(200 + WSTE, 151), C, BF: COLOR C
  170. 20 LINE (105 + W, 100)-(110 + W, 80)
  171. 30 LINE (110 + W, 80)-(115 + W, 100)
  172. 40 LINE (110 + W, 80)-(110 + W, 72)
  173. 50 LINE (110 + W, 72)-(113 + W, 79)
  174. 60 LINE (113 + W, 79)-(116 + W, 73)
  175. 70 CIRCLE (110 + W, 68), 4: COLOR C2
  176. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  177. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  178. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  179. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  180. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  181. CIRCLE (320 - 110 + L, 68), 4
  182. 75 M$ = INKEY$
  183. 80 IF M$ = "+" THEN GOTO 5000
  184. 90 IF M$ = "-" THEN GOTO 6000
  185. 100 IF M$ = "*" THEN GOTO 7000
  186. 110 IF M$ = "6" THEN GOTO 8000
  187. 120 IF M$ = "4" THEN GOTO 9000
  188. 130 IF M$ = "/" THEN GOTO 10000
  189. 140 IF M$ = "2" THEN GOTO 11000
  190. 150 IF M$ = "8" THEN GOTO 12000
  191. 160 IF M$ = "9" THEN GOTO 13000
  192. 170 IF M$ = "T" OR M$ = "t" THEN GOTO 25000
  193. 180 IF M$ = "g" OR M$ = "G" THEN GOTO 26000
  194. 190 IF M$ = "V" OR M$ = "v" THEN GOTO 27000
  195. 200 IF M$ = "D" OR M$ = "d" THEN GOTO 29000
  196. 210 IF M$ = "A" OR M$ = "a" THEN GOTO 28000
  197. 220 IF M$ = "F" OR M$ = "f" THEN GOTO 210000
  198. 230 IF M$ = "X" OR M$ = "x" THEN GOTO 211000
  199. 240 IF M$ = "w" OR M$ = "W" THEN GOTO 212000
  200. 250 IF M$ = "R" OR M$ = "r" THEN GOTO 213000
  201. TIMESI = TIMESI - .01
  202. TIMESII = INT(TIMESI)
  203. LOCATE 1, 30: PRINT TIMESII
  204. IF TIMESI <= 0 AND WSTE > LSTE THEN GOTO P1WIN
  205. IF TIMESI <= 0 AND LSTE >= WSTE THEN GOTO P2WIN
  206. GOTO 75
  207. 800 SCREEN 12: LOCATE 2, 2: CLS : IF R <> 3 THEN GOTO 850
  208. IF RC1 = 7 OR RC1 = 3 THEN L$ = CHAR1$
  209. IF RC1 = 7 OR RC1 = 3 THEN W$ = CHAR2$ ELSE L$ = CHAR2$: W$ = CHAR1$
  210. PRINT "        "; L$; " LOSSED THE MATCH"
  211. PRINT
  212. PRINT "          "; W$; " WINS"
  213. SLEEP 3
  214. PRINT "Power          "; LSTE
  215. PRINT "Time           "; TIMESII
  216. IF LSTE = 50 THEN
  217. FOR TT = 1 TO 100
  218. COLOR 4: LOCATE 6, 1: PRINT "PERFECT!       1000": FOR XX = 1 TO 500: NEXT
  219. COLOR 14: LOCATE 6, 1: PRINT "PERFECT!       1000": FOR XX = 1 TO 500: NEXT
  220. NEXT
  221. END IF
  222. SCORE1 = SCORE1 + INT(LSTE) + INT(TIMESII)
  223. PRINT "Current Score  "; INT(SCORE1)
  224. TIMESI = 99
  225. SLEEP 1
  226. GOTO ENDER
  227. 850 SCREEN 12
  228. PRINT "Power          "; LSTE * 100
  229. PRINT "Time           "; TIMESII
  230. SCORE1 = SCORE1 + INT(LSTE * 100) + TIMESII
  231. SLEEP
  232. IF LSTE = 50 THEN
  233. FOR TT = 1 TO 50
  234. COLOR 4: LOCATE 6, 1: PRINT "PERFECT!       1000": FOR XX = 1 TO 10
  235. PUT (600, INT(XX * 2)), EP: NEXT
  236. COLOR 14: LOCATE 6, 1: PRINT "PERFECT!       1000": FOR XX = 1 TO 500: NEXT
  237. NEXT
  238. SCORE1 = SCORE1 + 1000
  239. END IF
  240. PRINT "Current Score  "; INT(SCORE1)
  241. SLEEP 3
  242. RC1 = RC1 + 1
  243. IF R = 3 THEN GOTO 800
  244. R = R + 1: CLS
  245. TIMESI = 99: TIMESII = 99
  246. GOTO 5
  247. 900 SCREEN 12: CLS : IF R <> 3 THEN GOTO 950
  248. IF RC1 = 15 OR RC1 = 11 THEN L$ = CHAR2$: W$ = CHAR1$ ELSE
  249. W$ = CHAR2$: L$ = CHAR1$
  250. PRINT "       "; L$; " LOSSED THE MATCH"
  251. PRINT
  252. PRINT "         "; W$; " WINS"
  253. SLEEP 1: SLEEP 1: SLEEP 1
  254. GOTO ENDER
  255. 950   PRINT CHAR2$; " WINS ROUND "; R
  256. SLEEP 1: SLEEP 1: SLEEP 1:                                 
  257. PRINT "Power          "; WSTE * 10
  258. PRINT "Time           "; TIMESII
  259. SLEEP 10
  260. SCORE2 = SCORE2 + INT(WSTE * 10) + TIMESII
  261. SCORE2 = INT(SCORE2)
  262. PRINT "Current Score  "; SCORE2
  263. SLEEP 1
  264. IF WSTE = 50 THEN
  265. FOR TT = 1 TO 20
  266. COLOR 4: LOCATE 6, 1: PRINT "PERFECT!       1000": FOR XX = 1 TO 10
  267. PUT (600, INT(XX * 2)), EP: NEXT
  268. COLOR 14: LOCATE 6, 1: PRINT "PERFECT!       1000": FOR XX = 1 TO 500: NEXT
  269. NEXT
  270. SCORE1 = SCORE1 + 1000
  271. END IF
  272. RC1 = RC1 + 5
  273. CLS : R = R + 1
  274. TIMESI = 99: TIMESII = 99
  275. GOTO 5
  276. 5000                                                       
  277. COLOR 9
  278. LINE (105 + W, 100)-(110 + W, 80)
  279. LINE (110 + W, 80)-(115 + W, 100)
  280. LINE (110 + W, 80)-(110 + W, 72)
  281. LINE (110 + W, 72)-(113 + W, 79)
  282. LINE (113 + W, 79)-(116 + W, 73)
  283. CIRCLE (110 + W, 68), 4
  284. COLOR C
  285. LINE (105 + W, 100)-(110 + W, 80)
  286. LINE (110 + W, 80)-(115 + W, 100)
  287. LINE (110 + W, 80)-(110 + W, 72)
  288. LINE (110 + W, 72)-(117 + W, 74)
  289. LINE (117 + W, 74)-(125 + W, 73)
  290. CIRCLE (110 + W, 68), 4
  291. FOR I = 1 TO 475: NEXT I
  292. COLOR 9
  293. LINE (105 + W, 100)-(110 + W, 80)
  294. LINE (110 + W, 80)-(115 + W, 100)
  295. LINE (110 + W, 80)-(110 + W, 72)
  296. LINE (110 + W, 72)-(117 + W, 74)
  297. LINE (117 + W, 74)-(125 + W, 73)
  298. CIRCLE (110 + W, 68), 4
  299. COLOR C
  300. IF W - L >= 80 AND W - L <= 90 THEN
  301. LSTE = LSTE - 1: GOTO 500000
  302. END IF
  303. GOTO 10
  304. 6000                                                       
  305. 'KICK                                                      
  306. COLOR 9
  307. LINE (105 + W, 100)-(110 + W, 80)
  308. LINE (110 + W, 80)-(115 + W, 100)
  309. LINE (110 + W, 80)-(110 + W, 72)
  310. LINE (110 + W, 72)-(113 + W, 79)
  311. LINE (113 + W, 79)-(116 + W, 73)
  312. CIRCLE (110 + W, 68), 4
  313. COLOR C
  314. LINE (106 + W, 100)-(110 + W, 80)
  315. LINE (110 + W, 80)-(120 + W, 82)
  316. LINE (120 + W, 82)-(122 + W, 94)
  317. LINE (110 + W, 80)-(110 + W, 72)
  318. LINE (110 + W, 72)-(113 + W, 79)
  319. LINE (113 + W, 79)-(116 + W, 73)
  320. CIRCLE (110 + W, 68), 4
  321. FOR h = 1 TO 650: NEXT h
  322. COLOR 9
  323. LINE (110 + W, 80)-(120 + W, 82)
  324. LINE (120 + W, 82)-(122 + W, 94)
  325. COLOR C
  326. LINE (110 + W, 80)-(135 + W, 82)
  327. FOR Q = 1 TO 450: NEXT Q
  328. COLOR 9
  329. LINE (106 + W, 100)-(110 + W, 80)
  330. LINE (110 + W, 80)-(120 + W, 82)
  331. LINE (120 + W, 82)-(122 + W, 94)
  332. LINE (110 + W, 80)-(110 + W, 72)
  333. LINE (110 + W, 72)-(113 + W, 79)
  334. LINE (113 + W, 79)-(116 + W, 73)
  335. CIRCLE (110 + W, 68), 4
  336. LINE (110 + W, 80)-(135 + W, 82)
  337. COLOR C
  338. IF W - L >= 75 AND W - L <= 90 THEN GOTO 500100
  339. GOTO 10
  340. 7000                                                       
  341. COLOR 9
  342. LINE (105 + W, 100)-(110 + W, 80)
  343. LINE (110 + W, 80)-(115 + W, 100)
  344. LINE (110 + W, 80)-(110 + W, 72)
  345. LINE (110 + W, 72)-(113 + W, 79)
  346. LINE (113 + W, 79)-(116 + W, 73)
  347. CIRCLE (110 + W, 68), 4
  348. COLOR C
  349. LINE (109 + W, 80)-(110 + W, 60)
  350. LINE (110 + W, 60)-(133 + W, 62)
  351. LINE (110 + W, 60)-(110 + W, 52)
  352. LINE (110 + W, 52)-(113 + W, 59)
  353. LINE (113 + W, 59)-(116 + W, 53)
  354. CIRCLE (110 + W, 48), 4
  355. FOR A = 1 TO 750: NEXT A
  356. COLOR 9
  357. LINE (109 + W, 80)-(110 + W, 60)
  358. LINE (110 + W, 60)-(133 + W, 62)
  359. LINE (110 + W, 60)-(110 + W, 52)
  360. LINE (110 + W, 52)-(113 + W, 59)
  361. LINE (113 + W, 59)-(116 + W, 53)
  362. CIRCLE (110 + W, 48), 4
  363. COLOR C
  364. IF W - L >= 80 AND W - L <= 90 THEN GOTO 500300
  365. GOTO 10
  366. 8000                                                       
  367. COLOR 9
  368. LINE (105 + W, 100)-(110 + W, 80)
  369. LINE (110 + W, 80)-(115 + W, 100)
  370. LINE (110 + W, 80)-(110 + W, 72)
  371. LINE (110 + W, 72)-(113 + W, 79)
  372. LINE (113 + W, 79)-(116 + W, 73)
  373. CIRCLE (110 + W, 68), 4
  374. COLOR C
  375. LINE (110 + W, 100)-(110 + W, 80)
  376. LINE (110 + W, 80)-(115 + W, 100)
  377. LINE (110 + W, 80)-(110 + W, 72)
  378. LINE (110 + W, 72)-(113 + W, 79)
  379. LINE (113 + W, 79)-(116 + W, 73)
  380. CIRCLE (110 + W, 68), 4
  381. FOR B = 1 TO 350: NEXT B
  382. COLOR 9
  383. LINE (110 + W, 100)-(110 + W, 80)
  384. LINE (110 + W, 80)-(115 + W, 100)
  385. LINE (110 + W, 80)-(110 + W, 72)
  386. LINE (110 + W, 72)-(113 + W, 79)
  387. LINE (113 + W, 79)-(116 + W, 73)
  388. CIRCLE (110 + W, 68), 4
  389. COLOR C
  390. W = W + 5
  391. IF W >= 160 THEN W = 155
  392. GOTO 10
  393. 9000                                                       
  394. COLOR 9
  395. LINE (105 + W, 100)-(110 + W, 80)
  396. LINE (110 + W, 80)-(115 + W, 100)
  397. LINE (110 + W, 80)-(110 + W, 72)
  398. LINE (110 + W, 72)-(113 + W, 79)
  399. LINE (113 + W, 79)-(116 + W, 73)
  400. CIRCLE (110 + W, 68), 4
  401. COLOR C
  402. LINE (105 + W, 100)-(110 + W, 80)
  403. LINE (110 + W, 80)-(110 + W, 100)
  404. LINE (110 + W, 80)-(110 + W, 72)
  405. LINE (110 + W, 72)-(113 + W, 79)
  406. LINE (113 + W, 79)-(116 + W, 73)
  407. CIRCLE (110 + W, 68), 4
  408. FOR d = 1 TO 350: NEXT d
  409. COLOR 9
  410. LINE (105 + W, 100)-(110 + W, 80)
  411. LINE (110 + W, 80)-(110 + W, 100)
  412. LINE (110 + W, 80)-(110 + W, 72)
  413. LINE (110 + W, 72)-(113 + W, 79)
  414. LINE (113 + W, 79)-(116 + W, 73)
  415. CIRCLE (110 + W, 68), 4
  416. COLOR 3
  417. W = W - 5
  418. IF W <= -70 THEN W = -65
  419. GOTO 10
  420. 10000                                                      
  421. IF W >= 105 THEN GOTO 10
  422. COLOR 9
  423. LINE (105 + W, 100)-(110 + W, 80)
  424. LINE (110 + W, 80)-(115 + W, 100)
  425. LINE (110 + W, 80)-(110 + W, 72)
  426. LINE (110 + W, 72)-(113 + W, 79)
  427. LINE (113 + W, 79)-(116 + W, 73)
  428. CIRCLE (110 + W, 68), 4
  429. COLOR C
  430. LINE (105 + W, 95)-(125 + W, 90)
  431. LINE (105 + W, 85)-(125 + W, 90)
  432. LINE (125 + W, 90)-(135 + W, 90)
  433. CIRCLE (139 + W, 90), 4
  434. FOR F = 1 TO 650: NEXT F
  435. COLOR 9
  436. LINE (105 + W, 95)-(125 + W, 90)
  437. LINE (105 + W, 85)-(125 + W, 90)
  438. LINE (125 + W, 90)-(135 + W, 90)
  439. CIRCLE (139 + W, 90), 4
  440. COLOR C
  441. W = W + 15
  442. IF W >= 170 THEN W = 170
  443. LINE (105 + W, 95)-(125 + W, 90)
  444. LINE (105 + W, 85)-(125 + W, 90)
  445. LINE (125 + W, 90)-(135 + W, 90)
  446. CIRCLE (139 + W, 90), 4
  447. FOR g = g TO 650: NEXT g
  448. COLOR 9
  449. LINE (105 + W, 95)-(125 + W, 90)
  450. LINE (105 + W, 85)-(125 + W, 90)
  451. LINE (125 + W, 90)-(135 + W, 90)
  452. CIRCLE (139 + W, 90), 4
  453. COLOR C
  454. W = W + 15
  455. IF W >= 170 THEN W = 170
  456. LINE (105 + W, 95)-(125 + W, 90)
  457. LINE (105 + W, 85)-(125 + W, 90)
  458. LINE (125 + W, 90)-(135 + W, 90)
  459. CIRCLE (139 + W, 90), 4
  460. FOR g = g TO 650: NEXT g
  461. COLOR 9
  462. LINE (105 + W, 95)-(125 + W, 90)
  463. LINE (105 + W, 85)-(125 + W, 90)
  464. LINE (125 + W, 90)-(135 + W, 90)
  465. CIRCLE (139 + W, 90), 4
  466. COLOR C
  467. IF W - L >= 70 AND W - L <= 115 THEN GOTO 500400
  468. GOTO 10
  469. 11000                                                      
  470. COLOR 9
  471. LINE (105 + W, 100)-(110 + W, 80)
  472. LINE (110 + W, 80)-(115 + W, 100)
  473. LINE (110 + W, 80)-(110 + W, 72)
  474. LINE (110 + W, 72)-(113 + W, 79)
  475. LINE (113 + W, 79)-(116 + W, 73)
  476. CIRCLE (110 + W, 68), 4
  477. COLOR C
  478. LINE (105 + W, 100)-(112 + W, 90)
  479. LINE (112 + W, 90)-(103 + W, 98)
  480. LINE (103 + W, 98)-(103 + W, 87)
  481. CIRCLE (103 + W, 83), 4
  482. LINE (103 + W, 87)-(106 + W, 94)
  483. LINE (106 + W, 94)-(109 + W, 87)
  484. FOR Z = 1 TO 4000: NEXT Z
  485. COLOR 9
  486. LINE (105 + W, 100)-(112 + W, 90)
  487. LINE (112 + W, 90)-(103 + W, 98)
  488. LINE (103 + W, 98)-(103 + W, 87)
  489. LINE (103 + W, 87)-(106 + W, 94)
  490. LINE (106 + W, 94)-(109 + W, 87)
  491. CIRCLE (103 + W, 83), 4
  492. COLOR C: GOTO 10
  493. 12000                                                      
  494. COLOR 9
  495. LINE (105 + W, 100)-(110 + W, 80)
  496. LINE (110 + W, 80)-(115 + W, 100)
  497. LINE (110 + W, 80)-(110 + W, 72)
  498. LINE (110 + W, 72)-(113 + W, 79)
  499. LINE (113 + W, 79)-(116 + W, 73)
  500. CIRCLE (110 + W, 68), 4
  501. COLOR C
  502. LINE (108 + W, 60)-(110 + W, 40)
  503. LINE (110 + W, 40)-(112 + W, 60)
  504. LINE (110 + W, 40)-(110 + W, 32)
  505. LINE (110 + W, 32)-(113 + W, 39)
  506. LINE (113 + W, 39)-(116 + W, 33)
  507. CIRCLE (110 + W, 28), 4
  508. FOR J = 1 TO 800: NEXT J
  509. COLOR 9
  510. LINE (108 + W, 60)-(110 + W, 40)
  511. LINE (110 + W, 40)-(112 + W, 60)
  512. LINE (110 + W, 40)-(110 + W, 32)
  513. LINE (110 + W, 32)-(113 + W, 39)
  514. LINE (113 + W, 39)-(116 + W, 33)
  515. CIRCLE (110 + W, 28), 4
  516. COLOR C: GOTO 10
  517. 13000                                                      
  518. IF W >= 115 THEN GOTO 10
  519. COLOR 9
  520. LINE (105 + W, 100)-(110 + W, 80)
  521. LINE (110 + W, 80)-(115 + W, 100)
  522. LINE (110 + W, 80)-(110 + W, 72)
  523. LINE (110 + W, 72)-(113 + W, 79)
  524. LINE (113 + W, 79)-(116 + W, 73)
  525. CIRCLE (110 + W, 68), 4
  526. COLOR C
  527. LINE (107 + W, 50)-(127 + W, 55)
  528. LINE (127 + W, 55)-(107 + W, 60)
  529. LINE (127 + W, 55)-(135 + W, 55)
  530. CIRCLE (139 + W, 55), 4
  531. FOR V = 1 TO 500: NEXT V
  532. COLOR 9
  533. LINE (107 + W, 50)-(127 + W, 55)
  534. LINE (127 + W, 55)-(107 + W, 60)
  535. LINE (127 + W, 55)-(135 + W, 55)
  536. CIRCLE (139 + W, 55), 4
  537. COLOR C
  538. CIRCLE (140 + W, 53), 4
  539. LINE (140 + W, 49)-(140 + W, 41)
  540. LINE (140 + W, 41)-(145 + W, 21)
  541. LINE (140 + W, 41)-(135 + W, 21)
  542. FOR X = 1 TO 500: NEXT X
  543. COLOR 9
  544. CIRCLE (140 + W, 53), 4
  545. LINE (140 + W, 49)-(140 + W, 41)
  546. LINE (140 + W, 41)-(145 + W, 21)
  547. LINE (140 + W, 41)-(135 + W, 21)
  548. CIRCLE (140 + W, 53), 4
  549. LINE (140 + W, 49)-(140 + W, 41)
  550. LINE (140 + W, 41)-(145 + W, 21)
  551. LINE (140 + W, 41)-(135 + W, 21)
  552. FOR X = 1 TO 500: NEXT X
  553. COLOR 9
  554. CIRCLE (140 + W, 53), 4
  555. LINE (140 + W, 49)-(140 + W, 41)
  556. LINE (140 + W, 41)-(145 + W, 21)
  557. LINE (140 + W, 41)-(135 + W, 21)
  558. FOR X = 1 TO 500: NEXT X
  559.                                                             
  560. COLOR C
  561.                                                             
  562. CIRCLE (150 + W, 55), 4
  563. LINE (154 + W, 55)-(162 + W, 55)
  564. LINE (162 + W, 55)-(182 + W, 50)
  565. LINE (162 + W, 55)-(182 + W, 60)
  566. FOR X = 1 TO 500: NEXT X
  567. COLOR 9
  568. CIRCLE (150 + W, 55), 4
  569. LINE (154 + W, 55)-(162 + W, 55)
  570. LINE (162 + W, 55)-(182 + W, 50)
  571. LINE (162 + W, 55)-(182 + W, 60)
  572. FOR X = 1 TO 500: NEXT X
  573. COLOR C
  574.                                                             
  575. W = W + 60
  576. IF W >= 165 THEN W = 165
  577. GOTO 10
  578.                                                             
  579.                                                             
  580.                                                             
  581.                                                             
  582.                                                             
  583. 25000                                                      
  584. 'PUNCH                                                     
  585. COLOR 9
  586. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  587. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  588. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  589. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  590. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  591. CIRCLE (320 - 110 + L, 68), 4
  592.                                                             
  593. COLOR C2
  594. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  595. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  596. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  597. LINE (320 - 110 + L, 72)-(320 - 117 + L, 74)
  598. LINE (320 - 117 + L, 74)-(320 - 125 + L, 73)
  599. CIRCLE (320 - 110 + L, 68), 4
  600. FOR I = 1 TO 475: NEXT I
  601.                                                             
  602. COLOR 9
  603. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  604. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  605. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  606. LINE (320 - 110 + L, 72)-(320 - 117 + L, 74)
  607. LINE (320 - 117 + L, 74)-(320 - 125 + L, 73)
  608. CIRCLE (320 - 110 + L, 68), 4
  609. COLOR C
  610. IF W - L >= 80 AND W - L <= 90 THEN GOTO 600000
  611. GOTO 10
  612.                                                             
  613. 26000                                                      
  614. 'KICK                                                      
  615.                                                             
  616. COLOR 9
  617. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  618. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  619. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  620. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  621. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  622. CIRCLE (320 - 110 + L, 68), 4
  623.                                                             
  624.                                                             
  625.                                                             
  626.                                                             
  627. COLOR C2
  628. LINE (320 - 106 + L, 100)-(320 - 110 + L, 80)
  629. LINE (320 - 110 + L, 80)-(320 - 120 + L, 82)
  630. LINE (320 - 120 + L, 82)-(320 - 122 + L, 94)
  631. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  632. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  633. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  634. CIRCLE (320 - 110 + L, 68), 4
  635. FOR h = 1 TO 650: NEXT h
  636. COLOR 9
  637.                                                             
  638. LINE (320 - 110 + L, 80)-(320 - 120 + L, 82)
  639. LINE (320 - 120 + L, 82)-(320 - 122 + L, 94)
  640.                                                             
  641.                                                             
  642. COLOR C2
  643. LINE (320 - 110 + L, 80)-(320 - 135 + L, 82)
  644. FOR Q = 1 TO 450: NEXT Q
  645. COLOR 9
  646. LINE (320 - 106 + L, 100)-(320 - 110 + L, 80)
  647. LINE (320 - 110 + L, 80)-(320 - 120 + L, 82)
  648. LINE (320 - 120 + L, 82)-(320 - 122 + L, 94)
  649. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  650. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  651. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  652. CIRCLE (320 - 110 + L, 68), 4
  653. LINE (320 - 110 + L, 80)-(320 - 135 + L, 82)
  654. COLOR C
  655. IF W - L <= 95 AND W - L >= 75 THEN GOTO 600100
  656. GOTO 10
  657.                                                             
  658. 27000                                                      
  659. 'JUMPKICK                                                  
  660.                                                             
  661. COLOR 9
  662. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  663. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  664. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  665. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  666. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  667. CIRCLE (320 - 110 + L, 68), 4
  668.                                                             
  669. COLOR C2
  670. LINE (320 - 109 + L, 80)-(320 - 110 + L, 60)
  671. LINE (320 - 110 + L, 60)-(320 - 133 + L, 62)
  672. LINE (320 - 110 + L, 60)-(320 - 110 + L, 52)
  673. LINE (320 - 110 + L, 52)-(320 - 113 + L, 59)
  674. LINE (320 - 113 + L, 59)-(320 - 116 + L, 53)
  675. CIRCLE (320 - 110 + L, 48), 4
  676. FOR A = 1 TO 750: NEXT A
  677. COLOR 9
  678. LINE (320 - 109 + L, 80)-(320 - 110 + L, 60)
  679. LINE (320 - 110 + L, 60)-(320 - 133 + L, 62)
  680. LINE (320 - 110 + L, 60)-(320 - 110 + L, 52)
  681. LINE (320 - 110 + L, 52)-(320 - 113 + L, 59)
  682. LINE (320 - 113 + L, 59)-(320 - 116 + L, 53)
  683. CIRCLE (320 - 110 + L, 48), 4
  684.                                                             
  685. COLOR C
  686. IF W - L >= 80 AND W - L < 90 THEN GOTO 600300
  687. GOTO 10
  688. 28000                                                      
  689. 'WALK FORWARD                                              
  690.                                                             
  691.                                                             
  692. COLOR 9
  693. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  694. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  695. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  696. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  697. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  698. CIRCLE (320 - 110 + L, 68), 4
  699.                                                             
  700. COLOR C2
  701. LINE (320 - 110 + L, 100)-(320 - 110 + L, 80)
  702. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  703. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  704. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  705. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  706. CIRCLE (320 - 110 + L, 68), 4
  707. FOR B = 1 TO 350: NEXT B:                                  
  708. COLOR 9
  709. LINE (320 - 110 + L, 100)-(320 - 110 + L, 80):             
  710. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100):             
  711. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72):              
  712. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79):              
  713. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73):              
  714. CIRCLE (320 - 110 + L, 68), 4:                             
  715. COLOR C
  716.                                                             
  717. L = L - 5
  718. IF L <= -160 THEN L = -155
  719. GOTO 10
  720. 29000                                                      
  721. 'WALK BACKWARD                                             
  722. COLOR 9
  723. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  724. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  725. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  726. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  727. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  728. CIRCLE (320 - 110 + L, 68), 4
  729. COLOR C2
  730. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  731. LINE (320 - 110 + L, 80)-(320 - 110 + L, 100)
  732. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  733. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  734. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  735. CIRCLE (320 - 110 + L, 68), 4
  736. FOR g = 1 TO 350: NEXT g
  737. COLOR 9
  738. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  739. LINE (320 - 110 + L, 80)-(320 - 110 + L, 100)
  740. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  741. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  742. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  743. CIRCLE (320 - 110 + L, 68), 4
  744.                                                             
  745. COLOR C
  746. L = L + 5
  747. IF L >= 70 THEN L = 65
  748. GOTO 10
  749.                                                             
  750. 210000                                                     
  751. 'SPECIAL MOVE                                              
  752. IF L <= -105 THEN GOTO 10
  753. COLOR 9
  754. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  755. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  756. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  757. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  758. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  759. CIRCLE (320 - 110 + L, 68), 4
  760.                                                             
  761. COLOR C2
  762. L = L - 35
  763. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  764. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  765. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  766. LINE (320 - 110 + L, 72)-(320 - 115 + L, 73)
  767. LINE (320 - 115 + L, 73)-(320 - 118 + L, 73)
  768. CIRCLE (320 - 110 + L, 68), 4
  769. FOR F = 1 TO 350: NEXT F
  770.                                                             
  771. COLOR 9
  772. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  773. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  774. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  775. LINE (320 - 110 + L, 72)-(320 - 115 + L, 73)
  776. LINE (320 - 115 + L, 73)-(320 - 118 + L, 73)
  777. CIRCLE (320 - 110 + L, 68), 4
  778. COLOR C2
  779.                                                             
  780. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  781. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  782. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  783. LINE (320 - 110 + L, 72)-(320 - 115 + L, 73)
  784. LINE (320 - 115 + L, 73)-(320 - 118 + L, 73)
  785. CIRCLE (320 - 110 + L, 68), 4
  786. FOR S = 1 TO 100: NEXT S
  787. COLOR 9
  788. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  789. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  790. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  791. LINE (320 - 110 + L, 72)-(320 - 115 + L, 73)
  792. LINE (320 - 115 + L, 73)-(320 - 118 + L, 73)
  793. CIRCLE (320 - 110 + L, 68), 4
  794. COLOR C2
  795.                                                             
  796.                                                             
  797. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  798. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  799. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  800. LINE (320 - 110 + L, 72)-(320 - 115 + L, 73)
  801. LINE (320 - 115 + L, 73)-(320 - 118 + L, 73)
  802. CIRCLE (320 - 110 + L, 68), 4
  803. FOR Y = 1 TO 500: NEXT Y
  804. COLOR 9
  805.                                                             
  806. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  807. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  808. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  809. LINE (320 - 110 + L, 72)-(320 - 115 + L, 73)
  810. LINE (320 - 115 + L, 73)-(320 - 118 + L, 73)
  811. CIRCLE (320 - 110 + L, 68), 4
  812.                                                             
  813.                                                             
  814.                                                             
  815. FOR g = g TO 650: NEXT g
  816. L = L - 5
  817. COLOR
  818. IF W - L >= 65 AND W - L < 115 THEN GOTO 600400
  819. GOTO 10
  820. 211000                                                     
  821. 'DUCK                                                      
  822. COLOR 9
  823.                                                             
  824. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  825. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  826. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  827. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  828. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  829. CIRCLE (320 - 110 + L, 68), 4
  830.                                                             
  831. COLOR C2
  832. LINE (320 - 105 + L, 100)-(320 - 112 + L, 90)
  833. LINE (320 - 112 + L, 90)-(320 - 103 + L, 98)
  834. LINE (320 - 103 + L, 98)-(320 - 103 + L, 87)
  835. CIRCLE (320 - 103 + L, 83), 4
  836. LINE (320 - 103 + L, 87)-(320 - 106 + L, 94)
  837. LINE (320 - 106 + L, 94)-(320 - 109 + L, 87)
  838. FOR g = 1 TO 4000: NEXT g
  839.                                                             
  840. COLOR 9
  841. LINE (320 - 105 + L, 100)-(320 - 112 + L, 90)
  842. LINE (320 - 112 + L, 90)-(320 - 103 + L, 98)
  843. LINE (320 - 103 + L, 98)-(320 - 103 + L, 87)
  844. LINE (320 - 103 + L, 87)-(320 - 106 + L, 94)
  845. LINE (320 - 106 + L, 94)-(320 - 109 + L, 87)
  846.                                                             
  847. CIRCLE (320 - 103 + L, 83), 4
  848. COLOR C: GOTO 10
  849. 212000                                                     
  850. 'JUMP                                                      
  851. COLOR 9
  852.                                                             
  853.                                                             
  854. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  855. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  856. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  857. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  858. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  859. CIRCLE (320 - 110 + L, 68), 4
  860.                                                             
  861.                                                             
  862.                                                             
  863.                                                             
  864. COLOR C2
  865.                                                             
  866.                                                             
  867.                                                             
  868. LINE (320 - 108 + L, 60)-(320 - 110 + L, 40)
  869. LINE (320 - 110 + L, 40)-(320 - 112 + L, 60)
  870. LINE (320 - 110 + L, 40)-(320 - 110 + L, 32)
  871. LINE (320 - 110 + L, 32)-(320 - 113 + L, 39)
  872.                                                             
  873. LINE (320 - 113 + L, 39)-(320 - 116 + L, 33)
  874. CIRCLE (320 - 110 + L, 28), 4
  875.                                                             
  876.                                                             
  877. FOR J = 1 TO 800: NEXT J
  878.                                                             
  879. COLOR 9
  880. LINE (320 - 108 + L, 60)-(320 - 110 + L, 40)
  881. LINE (320 - 110 + L, 40)-(320 - 112 + L, 60)
  882. LINE (320 - 110 + L, 40)-(320 - 110 + L, 32)
  883. LINE (320 - 110 + L, 32)-(320 - 113 + L, 39)
  884. LINE (320 - 113 + L, 39)-(320 - 116 + L, 33)
  885. CIRCLE (320 - 110 + L, 28), 4
  886.                                                             
  887. COLOR C: GOTO 10
  888. 213000                                                     
  889. 'SUPER JUMP                                                
  890. IF L <= -115 THEN GOTO 10
  891. COLOR 9
  892. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  893. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  894. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  895. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  896. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  897. CIRCLE (320 - 110 + L, 68), 4
  898. COLOR C2
  899. LINE (320 - 107 + L, 50)-(320 - 127 + L, 55)
  900.                                                             
  901. LINE (320 - 127 + L, 55)-(320 - 107 + L, 60)
  902. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  903. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  904. CIRCLE (320 - 109 + L, 68), 4
  905. FOR k = 1 TO 500: NEXT k
  906. COLOR 9: LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  907. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  908. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  909. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  910. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  911. CIRCLE (320 - 109 + L, 68), 4
  912. GOTO 10
  913. 500100                                                     
  914. LSTE = LSTE - 1
  915. IF INKEY$ = "" THEN SOUND 100, 1: SOUND 50, 1
  916. GOTO 10
  917. 500300                                                     
  918. LSTE = LSTE - 2
  919. IF INKEY$ = "" THEN SOUND 100, 1: SOUND 50, 1
  920. COLOR 4
  921. CIRCLE (320 - 110 + L, 69), 1
  922. PSET (320 - 110 + L, 75)
  923. PSET (320 - 110 + L, 73)
  924. PSET (320 - 108 + L, 73)
  925. PSET (320 - 110 + L, 70)
  926. PSET (320 - 105 + L, 71)
  927. PSET (320 - 106 + L, 76)
  928. PSET (320 - 105 + L, 75)
  929. PSET (320 - 110 + L, 69)
  930. PSET (320 - 108 + L, 70)
  931. FOR g = 1 TO 1000: NEXT g
  932. COLOR 9
  933. CIRCLE (320 - 110 + L, 69), 1
  934. PSET (320 - 110 + L, 75)
  935. PSET (320 - 110 + L, 73)
  936. PSET (320 - 108 + L, 73)
  937. PSET (320 - 110 + L, 70)
  938. PSET (320 - 106 + L, 76)
  939. PSET (320 - 105 + L, 75)
  940. PSET (320 - 105 + L, 71)
  941. PSET (320 - 110 + L, 69)
  942. PSET (320 - 108 + L, 70)
  943. GOTO 10
  944. 500400                                                     
  945. LSTE = LSTE - 4
  946. WSTE = WSTE - 1
  947. IF INKEY$ = "" THEN SOUND 100, 2: SOUND 50, 1
  948. COLOR 9
  949. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  950. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  951. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  952. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  953. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  954. CIRCLE (320 - 110 + L, 68), 4
  955. COLOR C2
  956. LINE (320 - 110 + L, 80)-(320 - 90 + L, 78)
  957. LINE (320 - 90 + L, 78)-(320 - 102 + L, 84)
  958. LINE (320 - 90 + L, 78)-(320 - 82 + L, 76)
  959. CIRCLE (320 - 81 + L, 72), 4
  960. FOR J = 1 TO 500: NEXT J
  961. COLOR 4
  962. LINE (320 - 127 + L, 55)-(320 - 135 + L, 55)
  963. CIRCLE (320 - 139 + L, 55), 4
  964. FOR V = 1 TO 500: NEXT V
  965. COLOR 9
  966. LINE (320 - 107 + L, 50)-(320 - 127 + L, 55)
  967. LINE (320 - 127 + L, 55)-(320 - 107 + L, 60)
  968. LINE (320 - 127 + L, 55)-(320 - 135 + L, 55)
  969. CIRCLE (320 - 139 + L, 55), 4
  970. COLOR C2
  971. CIRCLE (320 - 140 + L, 53), 4
  972. LINE (320 - 140 + L, 49)-(320 - 140 + L, 41)
  973. LINE (320 - 140 + L, 41)-(320 - 145 + L, 21)
  974. LINE (320 - 140 + L, 41)-(320 - 135 + L, 21)
  975. FOR X = 1 TO 500: NEXT X
  976. COLOR 9
  977. CIRCLE (320 - 140 + L, 53), 4
  978. LINE (320 - 140 + L, 49)-(320 - 140 + L, 41)
  979. LINE (320 - 140 + L, 41)-(320 - 145 + L, 21)
  980. LINE (320 - 140 + L, 41)-(320 - 135 + L, 21)
  981. FOR X = 1 TO 500: NEXT X
  982. COLOR C2
  983. CIRCLE (320 - 150 + L, 55), 4
  984. LINE (320 - 154 + L, 55)-(320 - 162 + L, 55)
  985. LINE (320 - 162 + L, 55)-(320 - 182 + L, 50)
  986. LINE (320 - 162 + L, 55)-(320 - 182 + L, 60)
  987. FOR X = 1 TO 500: NEXT X
  988. COLOR 9
  989. CIRCLE (320 - 150 + L, 55), 4
  990. LINE (320 - 154 + L, 55)-(320 - 162 + L, 55)
  991. LINE (320 - 162 + L, 55)-(320 - 182 + L, 50)
  992. LINE (320 - 162 + L, 55)-(320 - 182 + L, 60)
  993. COLOR C2
  994. CIRCLE (320 - 150 + L, 55), 4
  995. LINE (320 - 154 + L, 55)-(320 - 162 + L, 55)
  996. LINE (320 - 162 + L, 55)-(320 - 182 + L, 50)
  997. LINE (320 - 162 + L, 55)-(320 - 182 + L, 60)
  998. FOR X = 1 TO 500: NEXT X
  999. COLOR 9
  1000. CIRCLE (320 - 150 + L, 55), 4
  1001. LINE (320 - 154 + L, 55)-(320 - 162 + L, 55)
  1002. LINE (320 - 162 + L, 55)-(320 - 182 + L, 50)
  1003. LINE (320 - 162 + L, 55)-(320 - 182 + L, 60)
  1004. FOR X = 1 TO 500: NEXT X
  1005. COLOR C
  1006. L = L - 60
  1007. IF L <= -165 THEN L = -165
  1008. GOTO 10
  1009. 500000                                                     
  1010.                                                             
  1011. COLOR 9
  1012. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  1013. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  1014. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  1015. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  1016. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  1017. CIRCLE (320 - 110 + L, 68), 4
  1018. IF INKEY$ = "" THEN SOUND 100, 1: SOUND 50, 1
  1019. COLOR C2
  1020. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  1021. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  1022. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  1023. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  1024. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  1025. CIRCLE (320 - 109 + L, 68), 4
  1026. FOR k = 1 TO 500: NEXT k
  1027. COLOR 9: LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  1028. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  1029. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  1030. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  1031. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  1032. CIRCLE (320 - 109 + L, 68), 4
  1033. GOTO 10
  1034. 500101                                                   
  1035. LSTE = LSTE - 1
  1036. IF INKEY$ = "" THEN SOUND 100, 1: SOUND 50, 1
  1037. GOTO 10
  1038. 500301                                                   
  1039. LSTE = LSTE - 2
  1040. IF INKEY$ = "" THEN SOUND 100, 1: SOUND 50, 1
  1041. COLOR 4
  1042. CIRCLE (320 - 110 + L, 69), 1
  1043. PSET (320 - 110 + L, 75)
  1044. PSET (320 - 110 + L, 73)
  1045. PSET (320 - 108 + L, 73)
  1046. PSET (320 - 110 + L, 70)
  1047. PSET (320 - 105 + L, 71)
  1048. PSET (320 - 106 + L, 76)
  1049. PSET (320 - 105 + L, 75)
  1050. PSET (320 - 110 + L, 69)
  1051. PSET (320 - 108 + L, 70)
  1052. FOR g = 1 TO 1000: NEXT g
  1053. COLOR 9
  1054. CIRCLE (320 - 110 + L, 69), 1
  1055. PSET (320 - 110 + L, 75)
  1056. PSET (320 - 110 + L, 73)
  1057. PSET (320 - 108 + L, 73)
  1058. PSET (320 - 110 + L, 70)
  1059. PSET (320 - 106 + L, 76)
  1060. PSET (320 - 105 + L, 75)
  1061. PSET (320 - 105 + L, 71)
  1062. PSET (320 - 110 + L, 69)
  1063. PSET (320 - 108 + L, 70)
  1064. GOTO 10
  1065. 500401                                                   
  1066. LSTE = LSTE - 4
  1067. WSTE = WSTE - 1
  1068. IF INKEY$ = "" THEN SOUND 100, 2: SOUND 50, 1
  1069. COLOR 9
  1070. LINE (320 - 105 + L, 100)-(320 - 110 + L, 80)
  1071. LINE (320 - 110 + L, 80)-(320 - 115 + L, 100)
  1072. LINE (320 - 110 + L, 80)-(320 - 110 + L, 72)
  1073. LINE (320 - 110 + L, 72)-(320 - 113 + L, 79)
  1074. LINE (320 - 113 + L, 79)-(320 - 116 + L, 73)
  1075. CIRCLE (320 - 110 + L, 68), 4
  1076. COLOR C2
  1077. LINE (320 - 110 + L, 80)-(320 - 90 + L, 78)
  1078. LINE (320 - 90 + L, 78)-(320 - 102 + L, 84)
  1079. LINE (320 - 90 + L, 78)-(320 - 82 + L, 76)
  1080. CIRCLE (320 - 81 + L, 72), 4
  1081. FOR J = 1 TO 500: NEXT J
  1082. COLOR 4
  1083. CIRCLE (320 - 110 + L, 69), 1
  1084. PSET (320 - 110 + L, 75)
  1085. PSET (320 - 110 + L, 73)
  1086. PSET (320 - 108 + L, 73)
  1087. PSET (320 - 110 + L, 70)
  1088. PSET (320 - 105 + L, 71)
  1089. PSET (320 - 106 + L, 76)
  1090. PSET (320 - 105 + L, 75)
  1091. PSET (320 - 110 + L, 69)
  1092. PSET (320 - 108 + L, 70)
  1093. FOR g = 1 TO 1000: NEXT g
  1094. COLOR 9
  1095. CIRCLE (320 - 110 + L, 69), 1
  1096. PSET (320 - 110 + L, 75)
  1097. PSET (320 - 110 + L, 73)
  1098. PSET (320 - 108 + L, 73)
  1099. PSET (320 - 110 + L, 70)
  1100. PSET (320 - 106 + L, 76)
  1101. PSET (320 - 105 + L, 75)
  1102. PSET (320 - 105 + L, 71)
  1103. PSET (320 - 110 + L, 69)
  1104. PSET (320 - 108 + L, 70)
  1105. COLOR 9
  1106. LINE (320 - 110 + L, 80)-(320 - 90 + L, 78)
  1107. LINE (320 - 90 + L, 78)-(320 - 102 + L, 84)
  1108. LINE (320 - 90 + L, 78)-(320 - 82 + L, 76)
  1109. CIRCLE (320 - 81 + L, 72), 4
  1110. COLOR C2
  1111. LINE (320 - 100 + L, 100)-(320 - 90 + L, 99)
  1112. LINE (320 - 90 + L, 98)-(320 - 80 + L, 100)
  1113. LINE (320 - 80 + L, 100)-(320 - 72 + L, 100)
  1114. CIRCLE (320 - 72 + L, 96), 4
  1115. COLOR 4: PSET (320 - 72 + L, 96)
  1116. COLOR 4: PSET (320 - 72 + L, 94)
  1117. FOR J = 1 TO 4000: NEXT J
  1118. COLOR 9
  1119. LINE (320 - 100 + L, 100)-(320 - 90 + L, 99)
  1120. LINE (320 - 90 + L, 98)-(320 - 80 + L, 100)
  1121. LINE (320 - 80 + L, 100)-(320 - 72 + L, 100)
  1122. CIRCLE (320 - 72 + L, 96), 4
  1123. COLOR 9: PSET (320 - 72 + L, 96)
  1124. COLOR 9: PSET (320 - 72 + L, 94)
  1125. COLOR 4: PSET (320 - 72 + L, 93)
  1126. PSET (320 - 73 + L, 94)
  1127. PSET (320 - 70 + L, 92)
  1128. COLOR 9
  1129. PSET (320 - 72 + L, 93)
  1130. PSET (320 - 73 + L, 94)
  1131. PSET (320 - 70 + L, 92)
  1132. L = L + 12
  1133. GOTO 10
  1134. 600000                                                     
  1135. COLOR 9
  1136. LINE (105 + W, 100)-(110 + W, 80)
  1137. LINE (110 + W, 80)-(115 + W, 100)
  1138. LINE (110 + W, 80)-(110 + W, 72)
  1139. LINE (110 + W, 72)-(113 + W, 79)
  1140. LINE (113 + W, 79)-(116 + W, 73)
  1141. CIRCLE (110 + W, 68), 4
  1142. IF INKEY$ = "" THEN SOUND 100, 1: SOUND 50, 1
  1143. COLOR C
  1144. LINE (105 + W, 100)-(110 + W, 80)
  1145. LINE (110 + W, 80)-(115 + W, 100)
  1146. LINE (110 + W, 80)-(110 + W, 72)
  1147. LINE (110 + W, 72)-(113 + W, 79)
  1148. LINE (113 + W, 79)-(116 + W, 73)
  1149. CIRCLE (109 + W, 68), 4
  1150. FOR h = 1 TO 500: NEXT h
  1151. WSTE = WSTE - 1: COLOR 9
  1152. LINE (105 + W, 100)-(110 + W, 80)
  1153. LINE (110 + W, 80)-(115 + W, 100)
  1154. LINE (110 + W, 80)-(110 + W, 72)
  1155. LINE (110 + W, 72)-(113 + W, 79)
  1156. LINE (113 + W, 79)-(116 + W, 73)
  1157. CIRCLE (109 + W, 68), 4
  1158. GOTO 10
  1159. 600100                                                     
  1160. WSTE = WSTE - 1
  1161. IF INKEY$ = "" THEN SOUND 100, 1: SOUND 50, 1
  1162. GOTO 10
  1163. 600300                                                     
  1164. WSTE = WSTE - 2
  1165. IF INKEY$ = "" THEN SOUND 100, 1: SOUND 50, 1
  1166. COLOR 4
  1167. CIRCLE (110 + W, 69), 1
  1168. PSET (110 + W, 75)
  1169. PSET (110 + W, 73)
  1170. PSET (108 + W, 73)
  1171. PSET (110 + W, 70)
  1172. PSET (105 + W, 71)
  1173. PSET (106 + W, 76)
  1174. PSET (105 + W, 75)
  1175. PSET (110 + W, 69)
  1176. PSET (108 + W, 70)
  1177. FOR g = 1 TO 1000: NEXT g
  1178. COLOR 9
  1179. CIRCLE (110 + W, 69), 1
  1180. PSET (110 + W, 75)
  1181. PSET (110 + W, 73)
  1182. PSET (108 + W, 73)
  1183. PSET (110 + W, 70)
  1184. PSET (105 + W, 71)
  1185. PSET (106 + W, 76)
  1186. PSET (105 + W, 75)
  1187. PSET (110 + W, 69)
  1188. PSET (108 + W, 70)
  1189. GOTO 10
  1190. 600400                                                     
  1191. WSTE = WSTE - 4
  1192. IF INKEY$ = "" THEN SOUND 100, 2: SOUND 50, 1
  1193. COLOR 9
  1194. LINE (105 + W, 100)-(110 + W, 80)
  1195. LINE (110 + W, 80)-(115 + W, 100)
  1196. LINE (110 + W, 80)-(110 + W, 72)
  1197. LINE (110 + W, 72)-(113 + W, 79)
  1198. LINE (113 + W, 79)-(116 + W, 73)
  1199. CIRCLE (110 + W, 68), 4
  1200. COLOR C
  1201. LINE (110 + W, 80)-(90 + W, 78)
  1202. LINE (90 + W, 78)-(102 + W, 84)
  1203. LINE (90 + W, 78)-(82 + W, 76)
  1204. CIRCLE (81 + W, 72), 4
  1205. FOR J = 1 TO 500: NEXT J
  1206. COLOR 4
  1207. CIRCLE (110 + W, 69), 1
  1208. PSET (110 + W, 75)
  1209. PSET (110 + W, 73)
  1210. PSET (108 + W, 73)
  1211. PSET (110 + W, 70)
  1212. PSET (105 + W, 71)
  1213. PSET (106 + W, 76)
  1214. PSET (105 + W, 75)
  1215. PSET (110 + W, 69)
  1216. PSET (108 + W, 70)
  1217. FOR g = 1 TO 1000: NEXT g
  1218. COLOR 9
  1219. CIRCLE (110 + W, 69), 1
  1220. PSET (110 + W, 75)
  1221. PSET (110 + W, 73)
  1222. PSET (108 + W, 73)
  1223. PSET (110 + W, 70)
  1224. PSET (106 + W, 76)
  1225. PSET (105 + W, 75)
  1226. PSET (105 + W, 71)
  1227. PSET (110 + W, 69)
  1228. PSET (108 + W, 70)
  1229. COLOR 9
  1230. LINE (110 + W, 80)-(90 + W, 78)
  1231. LINE (90 + W, 78)-(102 + W, 84)
  1232. LINE (90 + W, 78)-(82 + W, 76)
  1233. CIRCLE (81 + W, 72), 4
  1234. COLOR C
  1235. LINE (100 + W, 100)-(90 + W, 99)
  1236. LINE (90 + W, 98)-(80 + W, 100)
  1237. LINE (80 + W, 100)-(72 + W, 100)
  1238. CIRCLE (72 + W, 96), 4
  1239. COLOR 4: PSET (72 + W, 96)
  1240. COLOR 4: PSET (72 + W, 94)
  1241. FOR J = 1 TO 4000: NEXT J
  1242. COLOR 9
  1243. LINE (100 + W, 100)-(90 + W, 99)
  1244. LINE (90 + W, 98)-(80 + W, 100)
  1245. LINE (80 + W, 100)-(72 + W, 100)
  1246. CIRCLE (72 + W, 96), 4
  1247. COLOR 9: PSET (72 + W, 96)
  1248. COLOR 9: PSET (72 + W, 94)
  1249. COLOR 4: PSET (72 + W, 93)
  1250. PSET (73 + W, 94)
  1251. PSET (70 + W, 92)
  1252. COLOR 9
  1253. PSET (72 + W, 93)
  1254. PSET (73 + W, 94)
  1255. PSET (70 + W, 92)
  1256. W = W - 12
  1257. GOTO 10
  1258. ENDER:                                                     
  1259. CLS
  1260. PRINT "GAME"
  1261. PRINT "    OVER"
  1262. PRINT "SCORE FOR Player 1:"; SCORE1
  1263. PRINT "    SCORE FOR Player 2:"; SCORE2
  1264. SLEEP 2
  1265. CLS
  1266. INPUT "NEW GAME(Y/N)"; ANSER$
  1267. IF ANSER$ = "Y" OR ANSER$ = "y" THEN RUN
  1268. IF ANSER$ = "N" OR ANSER$ = "n" THEN
  1269. CLS
  1270. PRINT "Good bye"
  1271. END
  1272. END IF
  1273. GOTO ENDER
  1274. 'Hope you like it.  I will soon make one with better       
  1275. 'graphics                                                  
  1276. '                          Mark                            
  1277. P1WIN:                                                     
  1278. SCREEN 12: CLS : IF R <> 3 THEN GOTO P1WIN2
  1279. IF RC1 = 7 OR RC1 = 3 THEN L$ = CHAR1$
  1280. IF RC1 = 7 OR RC1 = 3 THEN W$ = CHAR2$ ELSE L$ = CHAR2$: W$ = CHAR1$
  1281. PRINT "        "; L$; " LOSSED THE MATCH"
  1282. PRINT
  1283. PRINT "          "; W$; " WINS"
  1284. SLEEP 1: SLEEP 1: SLEEP 1
  1285. IF LSTE = 50 THEN
  1286. FOR TT = 1 TO 50
  1287. COLOR 4: LOCATE 6, 1: PRINT "PERFECT!       1000": FOR XX = 1 TO 10
  1288. PUT (600, INT(XX * 2)), EP: NEXT
  1289. COLOR 14: LOCATE 6, 1: PRINT "PERFECT!       1000": FOR XX = 1 TO 500: NEXT
  1290. NEXT
  1291. END IF
  1292. SCORE1 = SCORE1 + 1000
  1293. GOTO ENDER
  1294. P1WIN2:                                                    
  1295. PRINT CHAR1$; " WINS!"
  1296. SLEEP 3
  1297. PRINT "Power          "; LSTE
  1298. PRINT "Time           "; TIMESII
  1299. SCORE1 = SCORE1 + INT(LSTE) + TIMESII
  1300. PRINT "Current Score  "; INT(SCORE1)
  1301. IF LSTE = 50 THEN
  1302. FOR TT = 1 TO 50
  1303. COLOR 4: LOCATE 6, 1: PRINT "PERFECT!       1000": FOR XX = 1 TO 10
  1304. PUT (600, INT(XX * 2)), EP: NEXT
  1305. COLOR 14: LOCATE 6, 1: PRINT "PERFECT!       1000": FOR XX = 1 TO 500: NEXT
  1306. NEXT
  1307. END IF
  1308. SCORE1 = SCORE1 + 1000
  1309. RC1 = RC1 + 1
  1310. IF R = 3 THEN GOTO 800
  1311. R = R + 1: CLS
  1312. TIMESI = 99
  1313. GOTO 5
  1314. P2WIN:                                                     
  1315. SCREEN 12: CLS : IF R <> 3 THEN GOTO P2WIN2
  1316. IF RC1 = 15 OR RC1 = 11 THEN L$ = CHAR2$: W$ = CHAR1$ ELSE
  1317. W$ = CHAR2$: L$ = CHAR1$
  1318. PRINT "       "; L$; " LOSSED THE MATCH"
  1319. PRINT
  1320. PRINT "         "; W$; " WINS"
  1321. IF LSTE = 50 THEN
  1322. FOR TT = 1 TO 50
  1323. COLOR 4: LOCATE 6, 1: PRINT "PERFECT!       1000": FOR XX = 1 TO 10
  1324. PUT (600, INT(XX * 2)), EP: NEXT
  1325. COLOR 14: LOCATE 6, 1: PRINT "PERFECT!       1000": FOR XX = 1 TO 500: NEXT
  1326. SCORE2 = SCORE2 + 1000
  1327. NEXT
  1328. END IF
  1329. SLEEP 1: SLEEP 1: SLEEP 1
  1330. GOTO ENDER
  1331. P2WIN2:                                                    
  1332. PRINT CHAR2$; " WINS!"
  1333. SLEEP 3
  1334. PRINT "Power          "; WSTE * 10
  1335. PRINT "Time           "; TIMESII
  1336. SCORE2 = SCORE2 + INT(WSTE * 10) + TIMESII
  1337. IF LSTE = 50 THEN
  1338. FOR TT = 1 TO 50
  1339. COLOR 4: LOCATE 6, 1: PRINT "PERFECT!       1000": FOR XX = 1 TO 10
  1340. PUT (600, INT(XX * 2)), EP: NEXT
  1341. COLOR 14: LOCATE 6, 1: PRINT "PERFECT!       1000": FOR XX = 1 TO 500: NEXT
  1342. NEXT
  1343. SCORE2 = SCORE2 + 1000
  1344. END IF
  1345. PRINT "Current Score  "; SCORE2
  1346. RC1 = RC1 + 5
  1347. CLS : R = R + 1
  1348. TIMESI = 99
  1349. GOTO 5
  1350.  
  1351.