home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 November / 1984-11.d64 / kaylon_64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  97 lines
  1. 5 poke53281,13:poke53280,13:print"[147]"chr$(142):poke52,48:poke56,48:clr
  2. 10 poke51,0:poke55,0
  3. 15 poke214,12:print:poke211,3:print"[144]loading characters......please wait"
  4. 20 poke56334,peek(56334)and254:poke1,peek(1)and251
  5. 25 fori=0to511:pokei+12288,peek(i+53248):pokei+12800,peek(i+53760)
  6. 30 pokei+13312,peek(i+54272):next
  7. 35 poke1,peek(1)or4:poke56334,peek(56334)or1
  8. 40 ford=12544to12544+63:ready:poked,y:next
  9. 45 poke53281,6:poke53280,12:print"[147]      welcome to the planet kaylon"
  10. 50 sd=54272:forl=sdtosd+24:pokel,0:next:pokesd+9,14
  11. 55 pokesd+6,240:pokesd+24,15:hf=sd+1:fl=sd:goto440
  12. 60 print"[147]":cl=0:sr=1:bs=4:poke53272,(peek(53272)and240)or12
  13. 65 lf=3:c=sd
  14. 70 tb$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  15. 75 m$(1)=" ":m$(2)="$":co=(lv+1)/50
  16. 80 ford=1to3:ma$="":foras=1to40
  17. 85 b=1:ifrnd(ti)>.9-cothenb=2
  18. 90 ma$=ma$+m$(b):next
  19. 95 ondgoto100,105,110
  20. 100 a$=ma$:goto115
  21. 105 b$=ma$:goto115
  22. 110 c$=ma$
  23. 115 next
  24. 118 poke53280,1:poke53281,1
  25. 120 d$="!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
  26. 125 print"score[146]"tab(31)"left[146]":print"high[146]"tab(31)"level[146]"
  27. 130 print"[144][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  28. 135 print""tab(6)sctab(36)lf:print""tab(6)hitab(36)lv+1
  29. 140 print"[144]"a$""b$
  30. 145 print"[156]!!!!!!  !!!!!!! !!!!!!  !!  !!!!! !!!!!!"
  31. 150 print"[144]"c$""a$:e$=""
  32. 155 printe$"[151]!!!!!"spc(30)"!!!!!";
  33. 160 print"[151]!!!!!!!!!!"spc(20)"!!!!!!!!!!";:print"[151]"d$;
  34. 165 poke1915,100:poke1915+c,5:poke1921,100:poke1921+c,5:poke1925,100
  35. 170 poke1925+c,5:poke1930,100:poke1930+c,5
  36. 175 print"[144]":po=1144:x=1:d=0
  37. 180 x=x+1:ifx>38then205
  38. 185 pokepo+c+x,cl:pokepo+x,34:print"[144]"left$(tb$,x)"[146]%[157][157][157] '&":gosub360
  39. 190 d=d+1:p=peek(197):ifp=60then210
  40. 195 ifd>38then180
  41. 200 goto190
  42. 205 print""tab(x-1)"[192][157][157]     ":goto175
  43. 210 po=po+x:po=po+40:pokepo-40,100:pokepo,34:pokepo+c,cl
  44. 215 a$=right$(a$,39)+left$(a$,1):b$=right$(b$,1)+left$(b$,39)
  45. 220 c$=right$(c$,1)+left$(c$,39)
  46. 225 print""a$;:print""b$;:print""c$""a$
  47. 230 pk=peek(po):ifpk=35then240
  48. 235 ifpk<>34andpk<>32then295
  49. 240 m=m+1:ifm>srthenm=.:pokepo,32:po=po+40:ifpeek(po)<>32then295
  50. 245 pokepo,34:pokepo+c,cl:gosub375
  51. 250 p=peek(197)
  52. 255 ifp=60thenm=.:ls=peek(po+40):lc=peek(po+40+c)and15:gosub380:goto215
  53. 260 ifp=64then215
  54. 265 on-(p=18)goto285
  55. 270 on-(p=10)goto275:goto215
  56. 275 ifpeek(po-1)<>32then295
  57. 280 pokepo,32:po=po-1:pokepo,34:pokepo+c,cl:gosub375:goto215
  58. 285 ifpeek(po+1)<>32then295
  59. 290 pokepo,32:po=po+1:pokepo,34:pokepo+c,cl:gosub375:goto215
  60. 295 pk=peek(po):ifpk=100then325
  61. 300 ifpk=33thenpo=po-40
  62. 305 pokepo,91:pokepo+c,0:pokepo,86:pokepo+c,2:gosub365:pokesd+24,15
  63. 310 lf=lf-1:on-(lf=.)goto430:print""tab(36)lf""
  64. 315 pokepo,32
  65. 320 gosub355:goto175
  66. 325 pokepo,34:pokepo+c,.:bs=bs-1:ifbs=0thensc=sc+100:goto340
  67. 330 sc=sc+100:print""tab(6)sc
  68. 335 gosub355:goto175
  69. 340 sc=sc+((lv+1)*100):bs=4:print""tab(6)sc
  70. 345 print"                                        "
  71. 346 print"             bonus level"lv+1:lv=lv+1
  72. 350 ford=.to1500:next:print"[147]":goto75
  73. 355 print"[144]"left$(tb$,x)"[192][157][157][157]    ":return
  74. 360 pokesd+4,17:pokehf,int(rnd(0)*50)+50:pokefl,250:pokesd+4,16:return
  75. 365 pokesd+4,129:formu=15to0step-1:pokehf,100:pokesd+24,mu:forll=1to5:next
  76. 370 next:pokesd+4,128:return
  77. 375 pokesd+4,33:pokehf,100:pokefl,250:pokesd+4,32:return
  78. 380 pokepo+40,35:pokepo+40+c,2:pokepo+40,ls:pokepo+40+c,lc:return
  79. 385 data,,,,,,,
  80. 390 data170,255,255,255,255,255,255,170
  81. 395 data24,60,102,126,126,24,36,195
  82. 400 data24,36,66,66,36,24,24,0
  83. 405 data24,60,126,254,127,60,8,0
  84. 410 data0,0,0,0,0,0,126,255
  85. 415 data170,255,255,255,255,254,252,248
  86. 420 data85,255,255,255,255,127,63,31
  87. 425 data215,225,231,235,231,235
  88. 430 ifsc>hithenhi=sc:print"[144]"tab(6)hi
  89. 435 print"[147]            [144]game over"
  90. 436 print"               [144]score"sc
  91. 437 print"            press b[146] to begin":poke198,0:goto455
  92. 440 print" press (space bar) to release and fire   retro-rockets."
  93. 445 print" press (a)-to move left and (d)-to move  right."
  94. 450 print"press b[146] to begin...":poke198,0
  95. 455 getz$:ifz$<>"b"then455
  96. 460 lv=.:sc=.:m=.:restore:co=.:goto60
  97.