1: DIM Pal(255)
2: SCREEN 12
3: x% = POINT(0): y% = POINT(1)
4: FOR sz = 255 TO 0 STEP -1
5: q = sz
6: CIRCLE (x%, y%), sz, q
7: NEXT sz
8: PALETTE USING Pal
9: 'RUN "2cool@.bas"
10:
5748168 [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:06:46