XProfan

Título de la ventana "DAS IMPFDING"
Ventana de Estilo 24
Ventana 0,0 - %maxx,%maxy
Font 2
randomize
var xm&=width(%Hwnd)
var ym&=height(%Hwnd)
Declarar x&[10000],y&[10000]
Declarar top&,bot&,x&,y&
top&=2

Repeat

    x&=x&+3-6*rnd(2)
    caso x&>xm&:x&=1
    caso x&<1:x&=xm&-1
    y&=y&+3-6*rnd(2)
    caso y&>ym&:y&=1
    caso y&<1:y&=ym&-1
    x&[top&]=x&
    y&[top&]=y&
    inc top&
    top&=top& mod 10000 + 1
    bot&=top&-1
    bot&=bot& mod 10000 + 1
    usepen 0,2,8^8-top&*3'rgb(235,235,235)
    rectangle x&[bot&]+2,(y&[bot&]+2) - (x&[bot&]-2),y&[bot&]-2
    usepen 0,2,bot&*5'rgb(0,0,255)
    rectangle x&+3,(y&+3) - (x&-3),y&-3

until 0