home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI03.ARJ / ictari.03 / STOS / CIRCDEMO.ASC < prev    next >
Text File  |  1987-04-22  |  310b  |  15 lines
  1. 1 rem Christiaens E
  2. 2 rem Demo of a circle
  3. 10 mode 0 : hide : cls back : cls logic
  4. 15 YMAX=200
  5. 20 R#=60 : C=1
  6. 24 repeat 
  7. 25 X=140+100*cos(WINK#)
  8. 30 Y=YMAX/2-YMAX/4*sin(WINK#)
  9. 35 ink C : arc X,Y,R#,0,3600
  10. 40 WINK#=WINK#+0.03
  11. 45 R#=R#-0.25
  12. 50 if R#<32 then C=10
  13. 51 if R#<20 then C=6
  14. 55 until R#<=0
  15.