XProfan

Déclarer 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)
Randomiser
Cls GetSysColor(15)
cdtInit(Addr(x&),Addr(y&))
a&=8

Whileloop 4

    Whileloop 8

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

    Endwhile

    a&=a&+y&+8

Endwhile

Tandis que 1

    WaitInput
    Cas %clé=2:Pause

Endwhile

cdtTerm()
FreeDll cards&
Fin

Déclarer 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)
Randomiser
Cls GetSysColor(15)
cdtInit(Addr(x&),Addr(y&))
a&=8

Whileloop 4

    Whileloop 24

        Si Tour(5)

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

        D'autre

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

        EndIf

    Endwhile

    a&=a&+y&+8

Endwhile

Tandis que 1

    WaitInput
    Cas %clé=2:Pause

Endwhile

cdtTerm()
FreeDll cards&
Fin