home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / egcg / g25.bas < prev    next >
BASIC Source File  |  1980-01-02  |  519b  |  21 lines
  1. 100 ' G25 T.WAKAMATSU
  2. 110 L=9:C=4:CLS
  3. 120 FOR I=1 TO 3
  4. 130   READ A,B:L=14-L:C=7-C
  5. 140   PI=3.14159!
  6. 150   FOR T=0 TO 2*PI STEP PI/192
  7. 160     C=L-C
  8. 170     X=170*SIN(A*T)+260
  9. 180     Y=170*COS(B*T)+180
  10. 190     LINE (X,Y)-(X+125,Y+125),PSET,C,B
  11. 200   NEXT T
  12. 210   FOR D=1 TO 5000:NEXT D
  13. 220   FOR T=0 TO 2*PI STEP PI/192
  14. 230     X=170*SIN(A*T)+260
  15. 240     Y=170*COS(B*T)+180
  16. 250     LINE (X,Y)-(X+125,Y+125),PSET,0,B
  17. 260   NEXT T
  18. 270   FOR D=1 TO 2000:NEXT D
  19. 280 NEXT I
  20. 290 DATA 65,65,70,35,115,115
  21.