Keskustelu: Koodit: QB: joku purkaus

'purkaus black cat
CLS
SCREEN 13

FOR i = 0 TO 255
        OUT &H3C8, i
        OUT &H3C9, i / 255 * 61
        OUT &H3C9, i / 255 * 61
        OUT &H3C9, i / 255 * 61
NEXT i

DO
x = INT(RND * 319)
y = INT(RND * 199)
c = INT(RND * 118) + 127
FOR i = 0 TO 319
        FOR j = 0 TO 199
                xdist = i - x
                ydist = j - y
                IF xdist < 0 THEN xdist = 0 - xdist
                IF ydist < 0 THEN ydist = 0 - ydist
                distance = SQR(xdist ^ 2 + ydist ^ 2) + 1
                vari = (POINT(i, j) * (distance + 12) + c) / distance
                PSET (i, j), vari
        NEXT j
NEXT i
LOOP UNTIL INKEY$ = CHR$(27)