home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 24 / 64er_Magazin_Sonderheft_24_19xx_Markt__Technik_de_Side_A.d64 / demo2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  465b  |  31 lines
  1. 1 poke53280,6
  2. 10 (NULL)1
  3. 15 (NULL)3,0
  4. 17 forg=1to2
  5. 20 (NULL)
  6. 30 fori=1to99step2
  7. 40 (NULL)i,i,319-2*i,199-2*i
  8. 50 next
  9. 60 (NULL)
  10. 70 fori=99to1step-2
  11. 80 (NULL)i,i,319-2*i,199-2*i
  12. 90 next
  13. 95 next
  14. 100 forp=1to300:next:(NULL):(NULL)1,0
  15. 110 fori=1to319step3
  16. 120 (NULL) i,40*cos(i/20)+100,50*sin(i/30)+100,i/1.6
  17. 130 next:poke198,0:wait198,1
  18. 150 (NULL):fori=0to216step2
  19. 160 (NULL)i,sin(i/45)*100+100
  20. 170 (NULL)0,0,i,sin(i/45)*100+100
  21. 171 next
  22. 172 fori=216to319step2
  23. 173 (NULL)i,sin(i/45)*100+100
  24. 174 (NULL)319,0,i,sin(i/45)*100+100
  25. 175 next
  26. 180 fori=1to5:(NULL):next
  27. 190 fori=1to11:(NULL):next
  28. 1000 geta$:ifa$=""then1000
  29. 1010 (NULL)
  30. 1999 end
  31.