home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 October / 1985-10.d64 / atomshoot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  82 lines
  1. 10 a=rnd(-ti):poke0,99:poke37154,127
  2. 20 poke36879,8:poke36878,15:dima%(9,9):z=128
  3. 30 r=4:c=4:r1=4:c1=4:g=87:h=6:e=7725:f=38445
  4. 40 fora=1to5
  5. 50 b=int(rnd(1)*8)+1:o=int(rnd(1)*8)+1
  6. 60 ifa%(b,o)then50
  7. 70 a%(b,o)=1:next:print"[147]beams:"v"     low:"peek(0)
  8. 80 print"[213][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][201]
  9. 90 [153]"(NULL)(NULL)(NULL)"[163]18)"(NULL)(NULL)(NULL)
  10. 100 print"[171][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][179]
  11. 110 [129]a[178]1[164]8:[153]"(NULL)(NULL)(NULL)close(NULL)close(NULL)close(NULL)close(NULL)close(NULL)close(NULL)close(NULL)(NULL)(NULL)
  12. 120 print"[221] [221]"tab(18)"[221][221]":next
  13. 130 print"[145][171][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][179]
  14. 140 [153]"(NULL)(NULL)(NULL)"[163]18)"(NULL)(NULL)(NULL)
  15. 150 print"[202][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][203]
  16. 160 [139]l[167]660
  17. 170 [153]"clr wait hit   wait miss  sys wait refl
  18. 180 p=peek(37152)and128:ifp=0thenc=c+1
  19. 190 p=peek(37151)
  20. 200 if(pand8)=0thenr=r+1
  21. 210 if(pand16)=0thenc=c-1
  22. 220 if(pand4)=0thenr=r-1
  23. 230 ifr<0thenr=0
  24. 240 ifr>9thenr=9
  25. 250 ifc<0thenc=0
  26. 260 ifc>9thenc=9
  27. 270 d=e+44*r+c+c
  28. 280 pokee+44*r1+c1+c1,g:pokef+44*r1+c1+c1,h
  29. 290 r1=r:c1=c:g=peek(d):h=peek(f+44*r+c+c)
  30. 300 pokee+44*r+c+c,43:pokef+44*r+c+c,5
  31. 310 if(pand32)then180
  32. 320 ifg=32then470
  33. 330 ifg=81then780
  34. 340 ifg<>87then180
  35. 350 g=81:h=1:a=240:gosub810
  36. 360 i=i+1:ifa%(r,c)thenl=l+1
  37. 370 poked,81:poked+30720,1
  38. 380 ifi<5then180
  39. 390 ifl<5then660
  40. 400 print"     you got it!     [145]"
  41. 410 fora=1to10
  42. 420 forb=250to240step-1:poke36876,b:next
  43. 430 forb=240to250:poke36876,b:next
  44. 440 next:poke36876,0
  45. 450 ifpeek(0)>vthenpoke0,v
  46. 460 goto750
  47. 470 a=225:gosub810
  48. 480 p=r:q=c:dr=0:dc=0:t=0:ti$="000000":v=v+1:print""v
  49. 490 ifr=0thendr=1
  50. 500 ifr=9thendr=-1
  51. 510 ifc=0thendc=1
  52. 520 ifc=9thendc=-1
  53. 530 goto560
  54. 540 ifp>0andp<9andq>0andq<9then560
  55. 550 z=z+1:g=z:h=2:gosub640:u=44*p+q+q:pokee+u,g:pokef+u,h:goto280
  56. 560 rr=p+dr:cc=q+dc
  57. 570 ifa%(rr,cc)=1theng=160:h=4:gosub640:goto280
  58. 580 ifdrthenn=1:m=0:goto600
  59. 590 m=1:n=0
  60. 600 s=0:ifa%(rr+m,cc+n)=1thendr=-m:dc=-n:s=1
  61. 610 ifa%(rr-m,cc-n)=1thendr=m:dc=n:s=s+1
  62. 620 ifs=2or(sandt=0)theng=160:h=7:gosub640:goto280
  63. 630 p=p+dr:q=q+dc:t=1:goto540
  64. 640 ifti<60then640
  65. 650 return
  66. 660 print"    you missed it    [145]"
  67. 670 fora=1to20
  68. 680 forb=220-ato160-astep-8:poke36876,b:next
  69. 690 forb=160-ato220-astep8:poke36876,b:next
  70. 700 next:poke36876,0
  71. 710 forr=1to8:forc=1to8
  72. 720 g=87:h=6:ifa%(r,c)theng=81:h=1
  73. 730 pokee+44*r+c+c,g:pokef+44*r+c+c,h
  74. 740 next:next
  75. 750 print"   hit fire button[145]"
  76. 760 if(peek(37151)and32)then760
  77. 770 run20
  78. 780 g=87:h=6:a=235:gosub810
  79. 790 i=i-1:ifa%(r,c)thenl=l-1
  80. 800 goto180
  81. 810 poke36876,a:fora=0to99:next:poke36876,0:return
  82.