home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / OLS / WIN32 / BAS95101 / BAS95101.LZH / GRAPH03.BAS < prev    next >
BASIC Source File  |  1996-10-13  |  280b  |  11 lines
  1. 100 CLS 3
  2. 110 X0=320:Y0=200
  3. 120 FOR I=0 TO 9.5 STEP 0.02
  4. 130   X1=INT(COS(I*3.14)*I*16)+X0:Y1=INT(SIN(I*3.14)*I*10)+Y0
  5. 140   X2=INT(SIN(I*3.14)*I*10)+X0:Y2=INT(COS(I*3.14)*I*16)+Y0
  6. 150   R=INT(I*5)+1
  7. 160   CIRCLE (X1,Y1),R,2
  8. 170   CIRCLE (X2,Y2),R,7
  9. 180 NEXT I
  10. 190 END
  11.