XProfan

Declarar cards&, x&, y&, texto$, a&
Def GetSysColor(1) !USER32,GetSysColor
Def cdtInit(2) ! cards,cdtInit
Def cdtDraw(6) ! cards,cdtDraw
Def cdtTerm(0) ! cards,cdtTerm
cards&=UseDll(cards.dll)
Selección aleatoria
Cls GetSysColor(15)
cdtInit(Addr(x&),Addr(y&))
a&=8

Whileloop 4

    Whileloop 8

        cdtDraw(%hdc,((&bucle-1)*(x&+8))+4,a&,Rnd(52),0,0)

    EndWhile

    a&=a&+y&+8

EndWhile

Mientras que 1

    WaitInput
    Case %key=2:Romper

Endwhile

cdtTerm()
FreeDll cards&
End

Declarar cards&, x&, y&, texto$, a&
Def GetSysColor(1) !USER32,GetSysColor
Def cdtInit(2) ! cards,cdtInit
Def cdtDraw(6) ! cards,cdtDraw
Def cdtTerm(0) ! cards,cdtTerm
cards&=UseDll(cards.dll)
Selección aleatoria
Cls GetSysColor(15)
cdtInit(Addr(x&),Addr(y&))
a&=8

Whileloop 4

    Whileloop 24

        If Rnd(5)

            cdtDraw(%hdc,((&bucle-1)*24),a&,Rnd(52),0,0)

        Más

            cdtDraw(%hdc,((&bucle-1)*24),a&,1,3,GetSysColor(15))

        EndIf

    EndWhile

    a&=a&+y&+8

EndWhile

Mientras que 1

    WaitInput
    Case %key=2:Romper

Endwhile

cdtTerm()
FreeDll cards&
End