home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 June / 1984-06.d64 / frantic2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  71 lines
  1. 10 cl$="wxy[157][157][157][157][157]z[\\]^[157][157][157][157][157]_!#$"
  2. 20 def fnrn(x)=int(rnd(1)*x)
  3. 30 v=36878:no=v-1:s=v-2:s2=v-3:s3=v-4:co=30720:eg=2000:tt=22:t6=256:z=32:de=29
  4. 40 goto7000
  5. 100 gl=3:sc=.
  6. 105 eg=2000
  7. 110 poke36869,255
  8. 120 print"[147]@[157]a[157][157]cb[157][157][157]fed[157][157][157]ihg[157][157][157][157]jkkkl";
  9. 130 poke646,10:print"[157][157][157][157]kkk":print"[159]]]]]]]]]]]]]]]]]]]]]][157][148]]":pokev,15+16*9
  10. 140 poke36879,238
  11. 150 print""cl$"[145][145][145][145][145][145][145]"cl$""cl$;
  12. 160 print"[158][145][145][145][145][145][145][145][145]%&]][157][157][157][157]'()][157][157][157]*+,[157][157]-."
  13. 170 print"[144]/"sc;:poke646,8:print"";:if gl>1thenfort=1togl-1:print"s";:next
  14. 180 lo=8128:pokelo+co,10:pokelo,18:pokelo-tt,17:pokelo-tt+co,10:pokelo-1,15
  15. 190 pokelo-1+co,.:cl=lo-1:poke8132+co,10:poke8110+co,10:poke8133+co,.
  16. 200 ty=fnrn(2)+1:ontygoto210,300
  17. 210 x=fnrn(2)+1:onxgoto220,230
  18. 220 bc=8142:ec=8149:sp=1:dd=21:goto240
  19. 230 bc=8163:ec=8155:sp=-1:dd=22
  20. 240 fordl=bctoecstepsp:pokedl,dd:pokedl+co,.
  21. 250 gosub1000:pokedl,z:next:ifsd<>196then3000
  22. 260 sd=.:goto200
  23. 300 nu=.:y=59:c=6:x=fnrn(2)+1:onxgoto310,320
  24. 310 b=7776:e=8084:goto330
  25. 320 b=7758:e=8088
  26. 330 fordl=btoesteptt:pokedl+co,c:pokedl,y:gosub1000
  27. 340 pokedl,z:next:ifsp<>t6then3000
  28. 350 sp=.:goto200
  29. 1000 ck=peek(197):ifck=64thenforr=0tode:next:return
  30. 1010 ifck=29andlo=8132then1500
  31. 1020 ifck=37andlo=8128then1750
  32. 1030 ifck=zthenontygoto2000,3500
  33. 1040 return
  34. 1500 pokelo,z:pokelo-tt,z:pokecl,z:lo=8128:cl=lo-1
  35. 1510 pokelo,18:pokelo-tt,17:pokecl,15:forsd=130to150step2:pokes2,sd:next:pokes2,.
  36. 1520 return
  37. 1750 pokelo,z:pokelo-tt,z:pokecl,z:lo=8132:cl=lo+1
  38. 1760 pokelo,20:pokelo-tt,19:pokecl,13
  39. 1770 forsd=150to130step-2:pokes2,sd:next:pokes2,.:return
  40. 2000 pokecl,peek(cl)+1:forsd=250to200step-10:pokeno,sd:next:ifpeek(cl+tt)=ddthen2100
  41. 2010 pokecl,peek(cl)-1:pokeno,.:return
  42. 2100 sc=sc+75:print"[144]/"sc:gosub4000
  43. 2110 pokedl,58:forsd=254to198step-2:pokedl+co,fnrn(8):pokeno,sd:next
  44. 2120 pokeno,.:goto2010
  45. 3000 gl=gl-1:fort=130to254step2:pokes,t:pokeno,t:pokev,15+fnrn(16)*16:next
  46. 3010 pokelo-tt,218:fort=15to0step-.2:pokes,.:pokeno,160:pokev,t+fnrn(16)*16:next
  47. 3020 ifgl=.then7000
  48. 3030 pokeno,.:goto120
  49. 3500 ifnu>2thenreturn
  50. 3510 nu=nu+1:pokelo-44,60:pokelo-44+co,4:forsd=150to180step10:pokes2,sd:next:pokes2,.
  51. 3520 ifpeek(lo-66)=59then3600
  52. 3530 poke(lo-44),z:return
  53. 3600 sc=sc+50:print"[144]/"sc:gosub4000:pokelo-66,61
  54. 3610 forsp=200to254step2:pokes,sp:next:pokes,.
  55. 3620 pokelo-66,z:return
  56. 4000 ifsc>=egthengl=gl+1:de=de-4:eg=eg+2000:poke7700+gl,19:poke7700+co+gl,8:goto4020
  57. 4010 return
  58. 4020 fort=130to230step10:forr=t+10totstep-1:pokes,t:nextr,t:pokes,.:return
  59. 7000 poke36869,240:printchr$(8):ifsc>hsthenhs=sc
  60. 7010 poke36879,8:poke646,10:print"[147]   [176][192][192][174]":print"   [221][176][192][189]"
  61. 7020 print"   [221][173][178][192][178][192][178][192][192][178][192][192][178][178][192][174]      [221][176][179][176][179][172][221][176][174][171][174][176][179][221][176][189]      [221][221][221][221][221][160][221][221][221][221][221][221][221][221][173][174]"
  62. 7030 print"[176][192][192][219][189][171][179][173][177][177][189][173][189][173][189][173][177][192][189]":print"[221][176][192][189] [221][221]"
  63. 7040 print"[221][173][178][178][192][179][173][192][178][192][178][192][178][192][192][178][192][178][192][192][174] [221][176][179][221][192][179][176][174][221][190][221][176][179]  [221][172][221][176][174][221]"
  64. 7050 print"[221][221][221][171][192][221][221][221][221][192][179][221][221][221][221][221] [221][221][221][221] [173][189][173][177][192][177][189][173][177][192][177][189][173][177][177][177][177][177][189][173][189]"
  65. 7060 print"  last score:"sc:print"  high score:"hs
  66. 7070 print"[156]  hit a key to play"
  67. 7080 print"       controls       [146][156]    <-left":print"    >-right"
  68. 7090 print"space[146]-club or umbrella":pokeno,.
  69. 7100 poke36878,(fnrn(14)+2)*16:ifpeek(197)=64then7100
  70. 7110 goto100
  71.