home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STOS_FC / STOSFC01.MSA / STOS.ASC_CIRCDEMO.ASC < prev    next >
Text File  |  1987-04-21  |  285b  |  12 lines
  1. 2 rem Demo of a circle
  2. 10 mode 0 : hide : cls back : cls logic
  3. 15 YMAX=200
  4. 20 R#=60 : C=1
  5. 24 repeat 25 X=140+100*cos(WINK#)
  6. 30 Y=YMAX/2-YMAX/4*sin(WINK#)
  7. 35 ink C : arc X,Y,R#,0,3600
  8. 40 WINK#=WINK#+0.03
  9. 45 R#=R#-0.25
  10. 50 if R#<32 then C=10
  11. 51 if R#<20 then C=6
  12. 55 until R#<=0