DECLARE SUB Barr (n!)
INPUT "Screen "; scr: IF scr = 0 OR scr < 9 THEN scr = 9
SCREEN scr
x% = POINT(0): y% = POINT(1)
FOR sz = 256 TO 0 STEP -1
cc = sz / ((y% * 2) / 16)
CIRCLE (x%, y%), sz, cc
PAINT (x%, y%), cc, cc
NEXT sz
Barr 2
FOR qw = 1 TO 48
FOR az = 15 TO 0 STEP -1: PALETTE az, az + qw: NEXT az: NEXT qw
SLEEP
PALETTE

SUB Barr (n)
FOR q = 1 TO 256 * n STEP n
FOR m = 0 TO n - 1
LINE (q + m, 0)-(q + m, INT((n + m + q) / 2)), q / n
NEXT m
NEXT q
END SUB