1: DECLARE SUB Barr (n!) 2: INPUT "Screen "; scr: IF scr = 0 OR scr < 9 THEN scr = 9 3: SCREEN scr 4: x% = POINT(0): y% = POINT(1) 5: FOR sz = 256 TO 0 STEP -1 6: cc = sz / ((y% * 2) / 16) 7: CIRCLE (x%, y%), sz, cc 8: PAINT (x%, y%), cc, cc 9: NEXT sz 10: Barr 2 11: FOR qw = 1 TO 48 12: FOR az = 15 TO 0 STEP -1: PALETTE az, az + qw: NEXT az: NEXT qw 13: SLEEP 14: PALETTE 15: 16: SUB Barr (n) 17: FOR q = 1 TO 256 * n STEP n 18: FOR m = 0 TO n - 1 19: LINE (q + m, 0)-(q + m, INT((n + m + q) / 2)), q / n 20: NEXT m 21: NEXT q 22: END SUB 23: |