XProfan

windowTitle "Lineal"
window 200,100
cls 0
color 15,0
print "Linal aktiv"
mcls 1,%maxY,$0000FF
var hPicV&=create("hPic",0,"&MEMBMP")
mcls %maxX,1,$0000FF
var hPicH&=create("hPic",0,"&MEMBMP")
windowstyle 80 | 1024 | 512
var h&=0

whileloop %maxX*0.05

    h&=create("window",0,"",0,0,0,0)
    setWindowPos h&=&loop*20,0 - 1,%maxY;-1
    create("bitmap",h&,hPicV&,0,0)

    if &loop*20<%maxY

        h&=create("window",0,"",0,0,0,0)
        setWindowPos h&=0,&loop*20 - %maxX,1;-1
        create("bitmap",h&,hPicH&,0,0)

    endif

wend

waitinput
end

 {$cleq}
windowTitle "Lineal"
window 200,100
cls 0
color 15,0
imprimir "Linal aktiv"
mcls 1,maxy,$0000FF
long hPicV=create("HPIC",0,"& MEMBMP")
mcls maxx,1,$0000FF
long hPicH=create("HPIC",0,"& MEMBMP")
windowstyle 80 | 1024 | 512
long h

whileLoop maxx*0.05

    h=create("window",,"",,,,)
    setWindowPos h=bucle*20,0 - 1,maxy;-1
    create("bitmap",h,hPicV,0,0)

    if bucle*20<maxy

        h=create("window",,"",,,,)
        setWindowPos h=0,bucle*20 - maxx,1;-1
        create("bitmap",h,hPicH,0,0)

    endif

wend

waitinput
end