1: CLS
2: SCREEN 12
3: FOR i% = 1 TO 200 STEP .5000001
4: WINDOW (-160 / i%, -100 / i%)-(160 / i%, 100 / i%)
5: CIRCLE (0, 0), 1.5
6: NEXT i%
7:
5748447 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 21:00:39