home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / egcg / g27.bas < prev    next >
BASIC Source File  |  1980-01-02  |  436b  |  19 lines
  1. 100 ' G27 T.WAKAMATSU
  2. 110 CLS:PI=3.14159!
  3. 120 FOR I=1 TO 5
  4. 130   READ E,F,G:N=1
  5. 140   R=40:C(1)=E:C(2)=F:C(3)=G
  6. 150   FOR K=0 TO 90 STEP 3
  7. 160     FOR J=K TO 288+K STEP 72
  8. 170       T=J*PI/180
  9. 180       X=COS(T)*140+320
  10. 190       Y=SIN(T)*140+235
  11. 200       CIRCLE(X,Y),R,C(N)
  12. 210       R=R+.4!
  13. 220     NEXT J
  14. 230     N=N+.08!
  15. 240   NEXT K
  16. 250   FOR D=1 TO 8000:NEXT D
  17. 260 NEXT I
  18. 270 DATA 5,6,4,7,5,1,5,3,2,7,5,4,0,0,0
  19.