1: SCREEN 13 2: CLS 3: c1 = 16 4: c2 = 4 5: ln = 40 6: dl = 2 7: maxx = POINT(0) * 2 8: maxy = POINT(1) * 2 9: FOR y = 0 TO maxy - 1 10: FOR x = 0 TO maxx - 1 11: 'SWAP c1, c2 12: FOR q = 1 TO ln 13: IF c1 < 236 THEN c1 = c1 + 1 ELSE c1 = 16 14: PSET (x + q, y + q * dl), c1 15: IF POINT(x, y) = -1 THEN END 16: NEXT q 17: c1 = 16 18: NEXT x 19: NEXT y 20: |