SCREEN 13: y = 64 FOR x = 1 TO 63: y = y - 1: PALETTE x, y: NEXT x FOR x = 1 TO 63: CIRCLE (160, 100), x, x: NEXT x FOR x = 1 TO 320: FOR y = 1 TO 200 z = POINT(x, y) IF z = 0 AND z <> 63 THEN PSET (x, y), POINT(x - 1, y) IF z = 63 THEN PSET (x, y), 0 NEXT y: NEXT x DO: LOOP UNTIL INKEY$ <> "": PALETTE