home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9011a.d64 / explosion (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.