XProfan

Window Title "Klaviatur"
declare x1&,y1&,x2&,y2&,sc&,breite&,spalt&,wlaenge&,slaenge&,yy&
Cls rgb(0,0,90)
sc&=30
breite&=sc&
wlaenge&=sc&*4
slaenge&=sc&*3
spalt&=sc&/4

WHILELOOP 0,2:yy&=&Loop*sc&*4.5

    WhileLoop 0,20

        USEP 1,5,rgb(100,100,100):UseBrush 1,rgb(100,100,100)
        Roundrect &Loop*breite&+1, (10+wlaenge&+yy&) - ((&Loop+1)*breite&-spalt&-1), 14+wlaenge&+yy&;sc&/6;sc&/6
        USEP 1,5,rgb(255,255,255):UseBrush 1,rgb(255,255,255)
        Roundrect &Loop*breite&,10+yy& - ((&Loop+1)*breite&-spalt&),10+wlaenge&+yy&;sc&/6;sc&/6

    EndWhile

    WhileLoop 0,20

        select &Loop

            caseof 0,1,3,4,5,7,8,10,11,12,14,15,17,18,19

            USEP 1,5,rgb(0,0,0):UseBrush 1,rgb(40,40,100)
            Roundrect &Loop*breite&+breite&/2+spalt&/2,5+yy& - ((&Loop+1)*breite&+breite&/7),5+slaenge&+yy&;sc&/6;sc&/6
            USEP 1,3,rgb(0,0,0+4*&Loop):UseBrush 1,rgb(50,50,50)
            Roundrect &Loop*breite&+breite&/2+spalt&/2 , 5+slaenge&*32/40+yy& - ((&Loop+1)*breite&+breite&/7),5+slaenge&+yy&;sc&/6;sc&/6
            USEP 0,2,rgb(220,220,200)
            Line &Loop*breite&+breite&/2+spalt&/2, 5+yy& - (&Loop*breite&+breite&/2+spalt&/2),(5+slaenge&*4/5+yy&)

        endselect

    EndWhile

ENDWHILE

WaitInput
End