XProfan

Declare cards&, x&, y&, text$, 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)
Randomize
Cls GetSysColor(15)
cdtInit(Addr(x&),Addr(y&))
a&=8

Whileloop 4

    Whileloop 8

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

    EndWhile

    a&=a&+y&+8

EndWhile

While 1

    WaitInput
    Case %key=2:Break

Endwhile

cdtTerm()
FreeDll cards&
End

Declare cards&, x&, y&, text$, 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)
Randomize
Cls GetSysColor(15)
cdtInit(Addr(x&),Addr(y&))
a&=8

Whileloop 4

    Whileloop 24

        If Rnd(5)

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

        Else

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

        EndIf

    EndWhile

    a&=a&+y&+8

EndWhile

While 1

    WaitInput
    Case %key=2:Break

Endwhile

cdtTerm()
FreeDll cards&
End