Cool

_TITLE "Test Program"
screenOne& = _NEWIMAGE(800, 600, 32)
SCREEN screenOne&
imageOne& = _LOADIMAGE("effect.png")
stp = 0
blockSize = 0
blurRange = 10
WHILE 1
    stp = stp + 1
    CLS
    IF _KEYDOWN(19712) THEN
        blockSize = blockSize + 2
        stp = 0
    END IF
    IF _KEYDOWN(19200) THEN
        blockSize = blockSize - 2
        stp = 0
    END IF
    FOR x = 0 TO 799
        FOR y = 0 TO 599
            x1 = blurRange * SIN(25 * (stp / 2) + y) + x
            y1 = blurRange * SIN(25 * (stp / 2) + x) + y
            _PUTIMAGE (x1, y1), imageOne&, 0, (x, y)-(x + (blockSize - 1), y + (blockSize - 1))
        NEXT
    NEXT
    _DISPLAY
    _LIMIT 60
WEND