home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / DEMOS.ARC / -EXPLOSION (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  639b  |  16 lines
  1. 5 POKE53280,0:PRINT"[147][142]":POKE53281,0:FORA=0TO1000:NEXT
  2. 10 PRINTCHR$(5)"":FORI=1TO3:PRINTCHR$(17):NEXT:PRINT"AWAY WE GO"
  3. 20 FORI=1TO16:PRINT"[145][148] [157]":POKE53270,200:WAIT53265,128
  4. 30 POKE53270,PEEK(53270)AND248:WAIT53265,128
  5. 40 FORJ=1TO7:POKE53270,(PEEK(53270)AND248)+J:FORK=0TO10:NEXT:NEXTJ,I
  6. 50 PRINT"[145][145][145]":POKE53270,200
  7. 60 FORI=1TO14:PRINTTAB(15)"           "
  8. 63 POKE53265,PEEK(53265)AND248:WAIT53265,128
  9. 65 PRINTTAB(15)"I'M FALLING[145]"
  10. 70 FORJ=1TO7:POKE53265,24+J:IFJAND1THENPOKE53265,24:WAIT53265,128
  11. 80 FORK=1TO30:NEXTK,J,I
  12. 90 POKE53281,2:FORI=1TO20:NEXT:PRINT"[147]":POKE53281,0:POKE53265,27
  13. 95 R(0)=2:R(1)=8:R(2)=10:R(3)=8:R(4)=7
  14. 100 FORU=3TO20:FORV=1TOU*3:E=1845-U+INT(RND(1)*(U*2))-INT(RND(1)*U)*40
  15. 110 POKE54272+E,R(INT(RND(1)*5)):POKEE,160:NEXTV,U:PRINT"";
  16.