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