easy screenmelt

#include "fbgfx.bi"

screenres 1280, 1024, 32

for y as integer = 0 to 1023

    for x as integer = 0 to 1279

        pset(x,y), ((x xor y) and 255) shl 16

    next

next

dim as integer bufW = 100

dim as fb.image ptr temp = imagecreate(bufW, 1024, 0)


do


    if multikey(FB.SC_SPACE) then

        dim as integer rx = int(rnd*(1280-bufW+1))

        dim as integer scrolldown = 1+int(rnd*50)

        screenlock

        get (rx,0)-(rx+bufW-1,1023), temp
        line(rx,0)-(rx+bufW-1, scrollDown-1),0,bf
        put(rx,scrolldown), temp, pset

        screensync

        screenunlock

    end if


    sleep 1,1

loop until multikey(FB.SC_ESCAPE)






sleep