home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 March / 64er_Magazin_91-03_1991_Markt__Technik_de_Side_A.d64 / demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.