1: DECLARE SUB Circlef (x!, y!, sz!, c!) 2: CLS 3: SCREEN 12 4: LINE (0, 0)-(POINT(0) * 2, POINT(1) * 2), 0, BF 5: Circlef 300, 200, 550, 15 6: Circlef 300, 200, 50, 14 7: CIRCLE (300, 200), 50, 0 8: 9: blk = 1 10: FOR y = 300 - 50 TO 300 + 50 + 50 11: FOR x = 200 - 50 TO 200 + 50 + 50 12: IF POINT(y, x) = 0 AND blk = 1 THEN blk = blk - 1: GOTO nxt 13: IF POINT(y, x) = 0 AND blk = 0 THEN blk = blk + 1: GOTO nxt 14: IF blk <= 0 THEN GOTO nxt 15: RANDOMIZE TIMER 16: d = INT(RND * 3) 17: IF d = 0 THEN PSET (y, x), 4 18: IF d = 1 THEN PSET (y, x), 14 19: IF d = 2 THEN PSET (y, x), 12 20: nxt: 21: NEXT x 22: NEXT y 23: 24: SUB Circlef (x, y, sz, c) 25: CIRCLE (x, y), sz, c 26: PAINT (x, y), c, c 27: END SUB 28: |