home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 94 / 64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_B.d64 / game-demo2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 1 poke53280,0:poke53281,0:poke53270,216:fort=0to7:readx:poke832+t*3,x:poke12288+t,x:next
  2. 2 v=53248:pokev+21,0:poke2040,13:pokev+37,9:pokev+38,7:data20,113,65,65,85,90,111,44
  3. 3 x=167:y=50:print"[147]"tab(255)" bubble !":printtab(48)"(c) by [158]sven forstmann":fort=0to7
  4. 4 poke12544+t,0:next:printtab(254)"[159]press fire":wait56320,127,127:print"[147][155]"tab(255)tab(255)tab(255)
  5. 5 poke53270,216:poke53272,29:poke53283,14:pokev+39,14:pokev+21,1:poke53282,6:pokev+28,1
  6. 6 pokev+16,0:pokev,0:forg=80to0step-.1:print"@"spc(int(rnd(1)*g+g));:p=p+1:gosub7:nextg:goto16
  7. 7 wait653,1,1:j=peek(56320):if(jand1)=.theny=y-4:ify<50theny=y+4
  8. 8 if(jand2)=.theny=y+4:ify>230theny=y-4
  9. 9 if(jand4)=.thenx=x-4:ifx<0andpeek(v+16)=1thenpokev+16,.:x=255
  10. 10 if(jand8)=.thenx=x+4:ifx>80andpeek(v+16)=1thenx=x-4
  11. 11 ifx>255thenx=.:pokev+16,1
  12. 12 ifx<24andpeek(v+16)=.thenx=x+4
  13. 13 ifpeek(v+31)=1thenpoke53272,21:print"[147]"spc(95)"game over":pokev+31,.:goto15
  14. 14 pokev,x:pokev+1,y:return
  15. 15 fort=0to99:pokev+37,t:next:pokev,0:print""spc(254)"points :";p:fort=0to2000:next:run
  16. 16 fort=8to15:poke12288+t,85:next:fort=1984to2023:poket,1:next:fort=yto255step.1:pokev+1,t:next
  17. 17 print"[147][159]";tab(255)"the [158]end":printtab(253)"points:[156]";p+int(rnd(1)*100):poke53272,21
  18. 18 printtab(246)"[155]press space to play again !":poke198,0:pokev+16,0
  19. 19 pokev,rnd(1)*231+24:fort=0to255step2:pokev+1,t:ifpeek(198)=1thenpokev,0:run
  20. 20 next:goto19
  21.