home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 May / 1991-05.d64 / prog.page2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  18 lines
  1. 100 rem flap attack
  2. 110 cr$="":cd$=""
  3. 120 poke 53280,0:poke 53281,0:bd$(0)="[213][201]":bd$(1)="[202][203]":
  4. 130 sys 49152,"[147]score:"sc:sys 49152,left$(cd$,16)"   [176]^[174][158]"
  5. 140 print "     press the space bar to fire[158]";
  6. 150 fr=0:y=(rnd(.)*8)+5:for x=0 to 32
  7. 160 if peek(197)=60 and not fr then fr=-1:g=18+x
  8. 170 sys 49152,""left$(cd$,y)left$(cr$,x)bd$(xand1)
  9. 180 if not fr then for p=0 to 30:next:goto240
  10. 190 if g-x=<4 then fr=0
  11. 200 print ""tab(17)left$(cd$,g-x)"<>[157][157]  ":if g-x<>int(y)+2 then240
  12. 210 if x<13 or x>15 then240
  13. 220 for i=7 to 23:poke 646,i:sys 49152,""left$(cd$,y)left$(cr$,x)"**":next
  14. 230 x=32:sc=sc+10
  15. 240 next:at=at+1:if sc<>100 then130
  16. 250 print "[147]after"at"attacks..."
  17. 260 sys49152," you have":sys49152,"   won"
  18.