home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 November / 64er_Magazin_90-11_1990_Markt__Technik_de_Side_A.d64 / explosion (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  305b  |  11 lines
  1. 10 sd=54272:for i=0to24:pokesd+i,0:next
  2. 20 wf=128:at=0:de=12:su=0:re=12:fm=1
  3. 30 ff=100:fr=15:ls=15:th=3000
  4. 40 hi=int(th/256):pokesd,th-hi*256
  5. 50 pokesd+1,hi:pokesd+5,16*at+de
  6. 60 pokesd+6,16*su+re:pokesd+24,16*fm+ls
  7. 70 pokesd+23,16*fr+7:hi=int(ff/8)
  8. 80 pokesd+21,ff-hi*8:pokesd+22,hi
  9. 90 getg$:ifg$="" then90
  10. 100 pokesd+4,wf:pokesd+4,wf+1:goto90
  11.