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
imprimer "Linal aktiv"
mcls 1,maxy,$0000FF
long hPicV=create(«PCSI»,0,"& MEMBMP")
mcls maxx,1,$0000FF
long hPicH=create(«PCSI»,0,"& MEMBMP")
style de fenêtre 80 | 1024 | 512
long h

whileLoop maxx*0.05

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

    si loop*20<maxy

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

    endif

Wend

waitinput
end