home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / egcg / g43.bas < prev    next >
BASIC Source File  |  1980-01-02  |  538b  |  23 lines
  1. 100 ' G43 T.WAKAMATSU 
  2. 110 CD PLAY 5,11 
  3. 120 FOR D=1 TO 3000:NEXT D
  4. 130 C(1)=7:C(2)=3:C(3)=2:C(4)=6:C(5)=4:C(6)=5:C(7)=1
  5. 140 P=5.8!
  6. 150 Z=0:R=0:L=1:CLS
  7. 160 FOR T=0 TO 1960 STEP P
  8. 170   Z=Z+.5!:R=R+.2!:L=L+.02!:M=INT(L)
  9. 180   X=Z*SIN(T)+320:Y=Z*COS(T)+240
  10. 190   CIRCLE(X,Y),R,C(M)
  11. 200 NEXT T
  12. 210 FOR D=1 TO 8000:NEXT D:GOSUB *ERASE
  13. 220 GOTO 310
  14. 230 *ERASE
  15. 240   Z=0:R=0
  16. 250   FOR T=0 TO 1960 STEP P
  17. 260     Z=Z+.5!:R=R+.2!
  18. 270     X=Z*SIN(T)+320:Y=Z*COS(T)+240
  19. 280     CIRCLE(X,Y),R,0
  20. 290   NEXT T
  21. 300 RETURN
  22. 310 CLS
  23.