5748252 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n cool2.bas
   1: INPUT "Screen "; scr: IF scr = 0 OR scr < 9 THEN scr = 9
   2: SCREEN scr
   3: x% = POINT(0): y% = POINT(1)
   4: FOR sz = 400 TO 0 STEP -1
   5: CIRCLE (x%, y%), sz, sz / (400 / 16)
   6: NEXT sz
   7: FOR qw = 1 TO 48
   8: FOR az = 0 TO 15: PALETTE az, az + qw: NEXT az: NEXT qw
   9: SLEEP
  10: CLS
  11: PALETTE
  12:
5748253 [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:01:12