home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / BOXING (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  9.8 KB  |  295 lines
  1. 1 RESTORE:MQ=0:QU=0:GOSUB43000
  2. 2 POKE775,200:POKE809,255:POKE818,0:POKE819,0
  3. 5 POKE53269,0:RO=0
  4. 50 H=54272
  5. 60 POKEH+14,240:POKEH+15,33:POKEH+19,255:POKEH+22,196:POKEH+23,244
  6. 65 POKEH+20,79
  7. 100 V=53248:POKEV+23,6:POKEV+37,0:POKEV+38,8:POKEV+28,255:POKEV+27,6
  8. 104 POKEV+29,0:POKEV+40,1:POKEV+41,12:PRINT"[152]"
  9. 110 POKE2041,222:POKE2042,227
  10. 111 POKE2040,234:POKE2043,234:POKE2044,234:POKE2045,234:POKE2046,234
  11. 112 POKE2047,234:POKEV+39,12:POKEV+42,1:POKEV+43,1:POKEV+44,11:POKEV+45,14
  12. 115 IFFW=1THEN 395
  13. 120 FORN=0TO62:READQ:POKE14208+N,Q:NEXTN
  14. 130 FORN=0TO62:READQ:POKE14272+N,Q:NEXTN
  15. 140 FORN=0TO62:READQ:POKE14336+N,Q:NEXTN
  16. 150 FORN=0TO62:READQ:POKE14400+N,Q:NEXTN
  17. 160 FORN=0TO62:READQ:POKE14464+N,Q:NEXTN
  18. 170 FORN=0TO62:READQ:POKE14528+N,Q:NEXTN
  19. 180 FORN=0TO62:READQ:POKE14592+N,Q:NEXTN
  20. 190 FORN=0TO62:READQ:POKE14656+N,Q:NEXTN
  21. 191 FORN=0TO62:READQ:POKE14720+N,Q:NEXTN
  22. 192 FORN=0TO62:READQ:POKE14784+N,Q:NEXTN
  23. 193 FORN=0TO62:READQ:POKE14848+N,Q:NEXTN
  24. 196 FORN=0TO62:READQ:POKE14912+N,Q:NEXTN
  25. 197 FORN=0TO62:READQ:POKE14976+N,Q:NEXTN
  26. 200 REM
  27. 300 DATA0,0,0,10,0,0,10,128,0,2,128,0,2,0,0,2,0,0,10,128,0,42,80,0,42,80,0
  28. 301 DATA37,128,0,37,128,0,42,128,0,21,64,0,63,192,0,63,192,0,48,192,0,32,128,0
  29. 302 DATA 32,128,0,32,128,0,16,64,0,20,80,0
  30. 303 DATA 0,0,0,10,0,0,10,128,0,2,128,0,2,0,0,2,0,0,10,128,5,42,170,165,42,128,5
  31. 304 DATA42,80,0,42,80,0,42,128,0,21,64,0,63,192,0,63,192,0,48,192,0
  32. 305 DATA 32,128,0,160,128,0,96,128,0,64,64,0,64,80,0
  33. 306 DATA 0,0,0,10,0,12,10,128,60,2,128,176,2,2,128,2,10,0,10,168,0,42,160,0
  34. 307 DATA42,128,0,42,80,0,42,80,0,42,128,0,21,64,0,63,192,0,63,192,0,32,128
  35. 308 DATA0,32,32,0,32,8,0,32,8,0,16,4,0,20,5,0
  36. 309 DATA0,0,0,0,0,0,0,0,0,0,0,0,40,0,0,42,60,0,10,44,0,8,32,0,130,32,0,42,160,0
  37. 310 DATA10,168,0,0,170,0,0,42,128,0,5,80,0,3,252,0,0,255,0,0,130,0,2,8,0,8,32
  38. 311 DATA 0,16,64,0,20,80
  39. 312 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  40. 313 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,32,128,1,162,175,169,170,175,0,130,111
  41. 314 DATA 169
  42. 315 DATA  0,0,0,0,0,160,0,2,160
  43. 316 DATA  0,2,128,0,0,128,0,0,128
  44. 317 DATA  0,2,160,0,5,168,0,5,168
  45. 318 DATA  0,2,168,0,2,88,0,2,168
  46. 319 DATA  0,1,84,0,3,252,0,3,252
  47. 320 DATA  0,3,12,0,2,8,0,2,8
  48. 321 DATA  0,2,8,0,1,4,0,5,20
  49. 322 DATA 0,0,0,0,0,160,0,2,160,0,2,128,0,0,128,0,0,128,80,2,160,90,170
  50. 323 DATA 168,80,2,168,0,5,168,0,5,168,0,2,168,0,1,84,0,3,252,0,3,252,0,3,12
  51. 324 DATA 0,2,8,0,2,8,0,2,9,0,1,1,0,5,1
  52. 325 DATA64,0,0,80,0,160,24,2,160,10,2,128,2,128,128,0,160,128
  53. 326 DATA0,42,168,0,2,168,0,5,168,0,5,168,0,2,168,0,1,84,0,3,252,0,3,252,0,2,8
  54. 327 DATA 0,8,8,0,32,8,0,32,8,0,32,8,0,16,4,0,80,20
  55. 329 DATA0,10,0,0,42,0,0,40,0,0,8,1,0,8,9,0,170,36,2,170,160,9,42,128,20
  56. 330 DATA42,128,0,42,128,0,42,128,0,21,64,0,63,192,0,63,192,0,48,192
  57. 331 DATA0,128,128,2,0,128,4,0,128,20,1,0,0,5,0,0,0,0
  58. 332 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,20,40,0,24,160,0,8,160,0,8,32,0,8,130
  59. 333 DATA0,10,168,0,42,160,0,170,0,2,168,0,5,80,0,63,192,0,255,0,0,130
  60. 334 DATA0,0,32,128,0,8,32,0,2,4,0,5,20,0
  61. 335 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  62. 336 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  63. 337 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,106,250,136,0,250,170,106,250,138
  64. 344 DATA0,21,0,0,127,64,128,127,64,128,63,2,160,8,2,40,8,10
  65. 345 DATA10,42,40,2,166,160,0,166,128,0,174,128,0,170,128,0,170,128,0,170
  66. 346 DATA128,255,85,127,255,85,127,255,93,127,253,125,127,193,5,3,193,4,3,193,4
  67. 347 DATA3,197,20,3
  68. 348 DATA0,21,0,0,127,64,0,127,64,0,60,0,0,8,0,0,8,0
  69. 349 DATA0,42,0,2,166,160,8,166,168,8,174,136,8,170,136,8,170,136
  70. 350 DATA8,170,136,255,85,127,255,85,127,255,93,127,253,125,127,193,5,3
  71. 351 DATA193,4,3,193,4,3,197,20,3
  72. 395 POKE53281,15:POKE53280,5
  73. 396 POKEH+4,0
  74. 397 IFZN=5THEN401
  75. 400 GOSUB52000
  76. 401 FORHW=1748TO1988STEP40:POKEHW,160:NEXTHW
  77. 402 FORHW=1775TO1895STEP40:POKEHW,160:NEXTHW
  78. 403 FORHW=1909TO1936:POKEHW,160:NEXTHW
  79. 404 FORHW=1949TO1977:POKEHW,160:NEXTHW
  80. 405 POKE1708,81:POKE1735,81
  81. 406 FORHW=1789TO1814:POKEHW,99:NEXTHW
  82. 407 FORHW=1829TO1854:POKEHW,99:NEXTHW
  83. 408 FORHW=1989TO2018:POKEHW,160:NEXTHW
  84. 410 FORHW=1277TO1300:POKEHW,100:NEXTHW
  85. 411 FORHW=1551TO1575:POKEHW,160:NEXTHW
  86. 412 FORHW=1316TO1511STEP39:POKEHW,78:NEXTHW
  87. 413 FORHW=1340TO1535STEP39:POKEHW,233:NEXTHW
  88. 414 FORHW=1380TO1536STEP39:POKEHW,160:NEXTHW
  89. 415 FORHW=1420TO1576STEP39:POKEHW,105:NEXTHW
  90. 416 POKE1460,117:POKE1538,117
  91. 417 FORHW=1474TO1490STEP4:POKEHW,81:POKEHW+2,87:NEXTHW
  92. 418 FORHW=1435TO1453STEP4:POKEHW,81:POKEHW+2,87:NEXTHW                      
  93. 419 FORHW=1396TO1412STEP4:POKEHW,81:POKEHW+2,87:NEXTHW
  94. 420 FORHW=1357TO1373STEP4:POKEHW,81:POKEHW+2,87:NEXTHW
  95. 421 POKE1384,77:POKE1425,77:POKE1466,77:POKE1507,101:POKE1544,160:POKE1545,160
  96. 422 POKE1546,160:POKE1464,87:POKE1465,87:POKE1505,87:POKE1506,87
  97. 450 POKEH,220:POKEH+1,68:POKEH+5,15:POKEH+6,215:POKEH+7,120
  98. 455 POKEH+8,100:POKEH+12,15:POKEH+13,215
  99. 460 FORHW=55296TO55575:POKEHW,0:NEXTHW
  100. 461 FORHW=55511TO55516:POKEHW,7:NEXTHW
  101. 462 FORHW=55522TO55527:POKEHW,7:NEXTHW
  102. 463 FORHW=1024TO1303:POKEHW,160:NEXTHW
  103. 464 FORHW=1239TO1244:POKEHW,102:NEXTHW
  104. 465 FORHW=1250TO1255:POKEHW,102:NEXTHW
  105. 466 POKE1280,250:POKE1281,204:POKE1282,250:POKE1283,204:POKE1291,250
  106. 467 POKE1292,204:POKE1293,250:POKE1294,204
  107. 468 FORHW=55613TO55813STEP40:POKEHW,0:NEXTHW
  108. 469 FORHW=55614TO55814STEP40:POKEHW,0:NEXTHW
  109. 470 FORHW=55615TO55815STEP40:POKEHW,0:NEXTHW
  110. 471 FORHW=1341TO1541STEP40:POKEHW,160:NEXTHW
  111. 472 FORHW=1342TO1542STEP40:POKEHW,160:NEXTHW
  112. 473 FORHW=1343TO1543STEP40:POKEHW,160:NEXTHW
  113. 474 FORHW=55692TO55809STEP39:POKEHW,0:NEXTHW
  114. 475 POKE55732,0:POKE55772,0:POKE55771,0:POKE55812,0:POKE55811,O:POKE55810,0
  115. 476 FORHW=1420TO1537STEP39:POKEHW,233:NEXTHW
  116. 477 POKE1460,160:POKE1500,160:POKE1499,160:POKE1540,160:POKE1539,160
  117. 478 POKE1538,160
  118. 480 FORHW=55576TO55587:POKEHW,0:NEXTHW
  119. 481 FORHW=55616TO55626:POKEHW,0:NEXTHW
  120. 482 FORHW=55657TO55665:POKEHW,0:NEXTHW
  121. 483 FORHW=55698TO55704:POKEHW,0:NEXTHW
  122. 484 FORHW=55739TO55743:POKEHW,0:NEXTHW
  123. 485 FORHW=55780TO55782:POKEHW,0:NEXTHW
  124. 486 FORHW=1304TO1315:POKEHW,160:NEXTHW
  125. 487 FORHW=1344TO1354:POKEHW,160:NEXTHW
  126. 488 FORHW=1385TO1393:POKEHW,160:NEXTHW
  127. 489 FORHW=1426TO1432:POKEHW,160:NEXTHW
  128. 490 FORHW=1467TO1471:POKEHW,160:NEXTHW
  129. 491 FORHW=1508TO1510:POKEHW,160:NEXTHW
  130. 492 FORHW=55656 TO 55779STEP41:POKEHW,0:NEXTHW
  131. 493 FORHW=55588 TO 55783STEP39:POKEHW,0:NEXTHW
  132. 494 FORHW=1384TO1507STEP41:POKEHW,95:NEXTHW
  133. 495 FORHW=1316 TO 1511STEP39:POKEHW,105:NEXTHW
  134. 496 FORHW=1544TO1583:POKEHW,160:NEXTHW
  135. 497 POKE1538,229:POKE1539,229:POKE1540,229:POKE1499,229:POKE1500,229
  136. 498 POKE1460,229
  137. 500 PRINT"[144]"
  138. 620 POKEV+3,185:POKEV+5,185
  139. 625 G=135:F=175:POKEV+2,G:POKEV+4,F
  140. 626 BR=164:POKEV+1,BR:POKEV+7,BR:POKEV+9,BR:POKEV+11,BR:POKEV+13,BR:POKEV+15,BR
  141. 627 POKEV,35:POKEV+6,60:POKEV+8,85:POKEV+10,205:POKEV+12,230:POKEV+14,255
  142. 630 POKEV+21,255:RO=1
  143. 635 POKEH+24,79
  144. 640 A=0:Z=0:C=350:D=350
  145. 650 TI$="000000":G=135:F=175:POKEV+2,G:POKEV+4,F
  146. 700 IFRO=1THEN MF=15:GOTO800
  147. 701 IFRO=2THEN MF=22:GOTO800
  148. 702 IFRO=3THEN MF=28:GOTO800
  149. 703 IFRO=4THEN MF=38:GOTO800
  150. 704 IFRO=5THEN MF=45:GOTO800
  151. 800 X=PEEK(56320)AND31:Y=PEEK(56321)AND31:IFQU=5THEN30000
  152. 900 IFZ>=530THEN30000
  153. 1000 IFX<>14THEN1100
  154. 1010 IFG>220THEN2000
  155. 1020 G=G+3:POKEV+2,G:POKE2041,224:FORZE=1 TO MF:NEXTZE
  156. 1025 M=PEEK(53278)AND2:G=G-3:POKE2041,222:POKEV+2,G
  157. 1030 IFM=2THENA=A+8:MQ=MQ+1:GOSUB2999:GOTO1040
  158. 1035 IFM=0THENA=A-3:MQ=0
  159. 1040 POKE53278,PEEK(53278)AND253:GOTO2000
  160. 1100 IFX<>15THEN1200
  161. 1110 IFG>220THEN2000
  162. 1120 G=G+3:POKEV+2,G:POKE2041,223:FORZE=1TOMF:NEXTZE
  163. 1125 M=PEEK(53278)AND2:G=G-3:POKE2041,222:POKEV+2,G
  164. 1130 IFM=2THENA=A+3:GOSUB2999:GOTO1140
  165. 1135 IFM=0THENA=A-3
  166. 1140 POKE53278,PEEK(53278)AND253:GOTO2000
  167. 1200 IFX<>23THEN1300
  168. 1205 IFG>220THEN2000
  169. 1210 G=G+3:POKEV+2,G:POKEH+18,128:GOTO2000
  170. 1300 IFX<>27 THEN2000
  171. 1310 IFG<92THEN2000
  172. 1320 G=G-3:POKEV+2,G:POKEH+18,128
  173. 1600 IFTI>=3600 THEN9500
  174. 2000 IFMQ=5THEN 20000
  175. 2001 IFA>=530 THEN20000
  176. 2003 IFTI>3600 THEN10000
  177. 2004 IFY<>14 THEN2100
  178. 2005 IFF>225 OR F<95 THEN800
  179. 2020 F=F-4:POKEV+4,F:POKE2042,229:FORZE=1 TO MF:NEXTZE
  180. 2024 L=PEEK(53278)AND2:F=F+4:POKE2042,227:POKEV+4,F
  181. 2030 IFL=2THENZ=Z+8:QU=QU+1:GOSUB2998GOTO30000:GOTO2040
  182. 2035 IFL=0THENZ=Z-3:QU=0
  183. 2040 POKE53278,PEEK(53278)AND253:GOTO800
  184. 2100 IFY<>15THEN2200
  185. 2105 IFF>225 OR F<95 THEN800
  186. 2120 F=F-3:POKEV+4,F:POKE2042,228:FORZE=1TOMF:NEXTZE
  187. 2124 L=PEEK(53278)AND2:F=F+3:POKE2042,227:POKEV+4,F
  188. 2130 IFL=2THENZ=Z+3:GOSUB2999:GOTO2140
  189. 2135 IFL=0THENZ=Z-3
  190. 2140 POKE53278,PEEK(53278)AND253:GOTO800
  191. 2200 IFY<>23THEN2300
  192. 2205 IFF>215THEN800
  193. 2210 F=F+3:POKEV+4,F:GOTO800
  194. 2300 IF Y<>27 THEN800
  195. 2315 IFF<95 THEN800
  196. 2320 F=F-3:POKEV+4,F:GOTO800
  197. 2998 POKEH+4,129:FORZE=1TO5:NEXTZE:POKEH+4,128:POKEH+18,129:RETURN
  198. 2999 POKEH+11,129:FORZE=1TO5:NEXTZE:POKEH+11,128:POKEH+18,129:RETURN
  199. 9500 REM
  200. 10000 GOSUB52030:PRINT" THATS THE END"
  201. 10010 RO=RO+1:IFRO=6THENGOSUB50000
  202. 10015 IFRO<6THENHS=0
  203. 10020 PRINT"                OF ROUND";"";RO-1
  204. 10030 IFA<0THENA=0
  205. 10035 IFZ<0THENZ=0
  206. 10050 PRINT"PLAYER 1                 PLAYER 2"
  207. 10060 PRINT"";A;"                    ";Z
  208. 10080 IFHS=1THENGOTO30500
  209. 11000 FORZE=1TO2550:NEXTZE:PRINT""
  210. 12000 FORHW=1024TO1223:POKEHW,160:NEXTHW
  211. 12010 PRINT" START OF ROUND";RO;"  LETS MIX IT UP"
  212. 12011 FORZE=1TO250:NEXTZE
  213. 12012 FORZE=1024TO1223:POKEZE,160:NEXTZE
  214. 12020 MQ=0:QU=0:GOTO650
  215. 19000 POKEV+4,F+3
  216. 20000 POKE2042,230:FORZE=1TO85:NEXTZE
  217. 20001 POKEV+4,F+6:POKE2042,231:FORZE=1TO85:NEXTZE:VD=2
  218. 20011 POKEV+4,F+8:POKE2042,232:FORZE=1TO25:NEXTZE:POKEV+29,PEEK(V+29)OR4
  219. 20040 PRINT"         WHAT A KNOCKOUT!!!":PRINT
  220. 20050 PRINT"  PLAYER";VD;" KNOCKED OUT"
  221. 20055 VS=TI:VF=INT(VS/60)
  222. 20056 PRINT" AT ";VF;"SECONDS OF ROUND ";RO
  223. 20060 FORTG=1TO30
  224. 20070 POKE2040,233:POKE2043,233:POKE2044,233:POKE2045,233:POKE2046,233
  225. 20080 POKE2047,233:FORTP=1TO40:NEXTTP
  226. 20090 POKE2040,234:POKE2043,234:POKE2044,234:POKE2045,234:POKE2046,234
  227. 20091 POKE2047,234:NEXTTG:POKEH+18,128
  228. 20500 FORZE=1 TO 5500:NEXTZE:POKEV+21,0:RESTORE:PRINT"[147]"
  229. 20501 PRINT""
  230. 20502 POKE54296,0
  231. 20505 PRINT"PLAY AGAIN?"
  232. 20507 PRINT"[152]"
  233. 20510 GETA$:IFA$=""THEN20510
  234. 20520 IF A$<>"Y"ANDA$<>"N"THEN20510
  235. 20530 IFA$="N"THENPRINT"[147]":END
  236. 20540 IFA$="Y"THENRESTORE:PRINT"[147]":GOTO21000
  237. 20600 END
  238. 21000 FW=1:POKEV+29,0:MQ=0:QU=0:A=0:Z=0:GOTO110
  239. 30000 POKEV+2,G-10:POKE2041,225:FORZE=1TO135:NEXTZE:VD=1
  240. 30030 POKEV+2,G-12:POKE2041,226:POKEV+29,PEEK(V+29)OR2
  241. 30040 GD=5:GOTO20040
  242. 30500 FORZE=1 TO 2500:NEXTZE:POKEV+21,0:RESTORE:PRINT"[147]":PRINT"PLAY AGAIN?"
  243. 30510 GETA$:IFA$=""THEN20510
  244. 30520 IF A$<>"Y"ANDA$<>"N"THEN20510
  245. 30530 IFA$="N"THENEND
  246. 30540 IFA$="Y"THEN21000
  247. 30600 END
  248. 43000 PRINT"[147]":POKE53281,15:POKE53280,2
  249. 43100 PRINT"[152]":PRINT" JOYSTICK CONNECTED TO PORT 2 CONTROLS "
  250. 43110 PRINT"LEFT PLAYER  (PLAYER 1)"
  251. 43112 PRINT" JOYSTICK CONNECTED TO PORT 1 CONTROLS "
  252. 43115 PRINT"RIGHT PLAYER (PLAYER 2)"
  253. 43120 PRINT
  254. 43140 PRINT" YOU CAN MOVE LEFT OR RIGHT BY MOVING"
  255. 43144 PRINT"THE JOYSTICK IN THE APROPRIATE DIRECTION"
  256. 43155 PRINT" TO PUNCH TO THE BELLY, HIT THE FIRE"
  257. 43159 PRINT"BUTTON.  TO PUNCH TO THE HEAD, PRESS"
  258. 43160 PRINT"JOYSTICK UP WHILE HITTING FIRE "
  259. 43170 PRINT" BUTTON.  YOU SCORE POINTS FOR"
  260. 43172 PRINT"LANDING A PUNCH, BUT POINTS WILL BE     TAKEN AWAY FOR MISSING."
  261. 43180 PRINT"YOU CAN WIN BY POINTS OR BY A           KNOCKOUT.  A KNOCKOUT"
  262. 43185 PRINT"CAN BE  ACCOMPLISHED BY 3 STRAIGHT"
  263. 43190 PRINT"BLOWS TO THE HEAD WITHOUT A MISS."
  264. 43195 PRINT"IT CAN ALSO BE ACCOMPLISHED ON ANY PUNCHIF THE BOXER HAS BEEN"
  265. 43196 PRINT"[145]HIT ENOUGH TIMES"
  266. 43200 PRINT:PRINT"HIT ANY KEY TO START"
  267. 43210 GETA$:IFA$=""THEN43210
  268. 43220 RETURN
  269. 50000 PRINT"              FINAL SCORE":HS=1:RO=0
  270. 50005 GOTO10050
  271. 51000 DATA14,24,50,16,195,50,18,209,190,18,209,30,21,31,20,14,24,250
  272. 51001 REM
  273. 51010 DATA12,143,15,11,48,20,12,143,55,11,48,50,12,143,30,14,24,150,14,239,30
  274. 51015 DATA14,24,20,14,24,30,12,143,30,12,143,30,11,48,100
  275. 51020 DATA14,239,40,14,24,200,14,24,250
  276. 51022 DATA14,239,40,14,24,250,14,24,250
  277. 51023 DATA14,24,35,28,49,600,-1,-1,-1
  278. 52000 POKE54296,15:POKEH+5,17:POKEH+6,96
  279. 52005 READP:READPO:READPU
  280. 52010 IFP<0THEN52026
  281. 52020 POKEH+1,P:POKEH,PO:POKEH+4,33:FORZE=1TOPU:NEXTZE
  282. 52025 POKEH+4,32:FORZE=1TO30:NEXTZE:GOTO52005
  283. 52026 ZN=5:PRINT"[147]":RETURN
  284. 52030 FORZE=0TO24:POKEH+ZE,0:NEXTZE
  285. 52031 POKEH+1,189:POKEH+5,9:POKEH+15,30:POKEH+24,15
  286. 52032 FORZW=1TO3:POKEH+4,21
  287. 52033 FORZE=1TO200:NEXT:POKEH+4,20
  288. 52034 FORZE=1TO200:NEXT:NEXTZW
  289. 53235 FORZE=0TO24:POKEH+ZE,0:NEXTZE
  290. 53240 POKEH+24,79:POKEH,220:POKEH+1,68:POKEH+5,15:POKEH+6,215:POKEH+7,120
  291. 53241 POKEH+8,100:POKEH+12,15:POKEH+13,215:POKE54295,4
  292. 53242 POKEH+14,240:POKEH+15,33:POKEH+19,255:POKEH+22,196:POKEH+23,244
  293. 53243 POKEH+20,255
  294. 53245 RETURN
  295.