home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9103a.d64 / demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  937b  |  24 lines
  1. 10 FORI=49470TO49485:POKEI,0:NEXT
  2. 20 FORI=53248TO53263:POKEI,0:NEXT
  3. 30 GOSUB 1000:POKE 49460,70:POKE49461,60
  4. 40 POKE53280,0:PRINT"[147]      WRITTEN 1990 BY MARC FREESE":A=200:GOSUB 2000
  5. 50 A=5 :POKE49465,1:FORI=60TO41 STEP-1:POKE49461,I:GOSUB 2000:NEXT:PRINT"[147]"
  6. 60 FORI=70TO49 STEP-1:POKE49460,I:GOSUB 2000:NEXT
  7. 70 POKE49465,0:POKE49460,150:POKE49462,59:FORI=0TO255:POKE1544+I,I:NEXT:A=200
  8. 80 GOSUB 2000:PRINT"[129][147]":POKE49466,59:GOSUB 2000:POKE49468,24:GOSUB 2000
  9. 90 GOSUB 1000:POKE49465,0:FORI=0TO255:POKE1024+I,I:POKE1544+I,I:NEXT:
  10. 100 GOSUB 2000:POKE49464,24:GOSUB 2000:POKE49467,216:GOSUB 2000:POKE49465,3
  11. 110 GOSUB 2000
  12. 120 A=1:FORI=150TO255:POKE49460,I:GOSUB 2000:NEXT
  13. 130 POKE49467,200:FORI=41TO251:POKE49461,I:NEXT:PRINT"[147]":POKE53280,3
  14. 140 POKE53269,255:FORI=0TO255:POKE16320+I,255:NEXT:FORI=0TO7:POKE2040+I,255
  15. 150 NEXT:FORI=53287TO53294:POKEI,1:NEXT:A=20
  16. 160 FORI=0TO40:POKE49470+(RND(1)*15),RND(1)*7
  17. 170 POKE49470+(RND(1)*15),254-(RND(1)*7):GOSUB 2000:NEXT
  18. 180 B=B+1:IF B=1 THEN GOSUB 1000:POKE49461,41:POKE49469,2:POKE 49462,19:A=2
  19. 190 IF B=1 THEN FORI=49TO249:POKE49461,I:GOSUB 2000:NEXT:GOTO 160
  20. 200 POKE49469,0:POKE49465,0:END
  21. 1000 FORI=0TO7:READQ:POKE49462+I,Q:NEXT:RESTORE:RETURN
  22. 1010 DATA 27,200,21,4,27,200,21,0
  23. 2000 FORK=0TOA*10:NEXT:RETURN
  24.