EXPORT Crejeu()
BEGIN
 LOCAL a,i,j,k,l;
 "♠♥♣♦"▶a;{}▶l;
 FOR i FROM 1 TO 4 DO
  FOR j FROM 1 TO 13 DO
   k:=k+1;
   l[k]:=MID(a,i,1)+STRING(j);
  END;
 END;
 l;
END;

EXPORT Melange(l)
BEGIN
 LOCAL i,d,s;
 FOR i FROM 1 TO 52 DO
  d:=RANDINT(1,52);
  s:=l[i];l[i]:=l[d];l[d]:=s;
 END;
 l;
END;

EXPORT Val(c)
BEGIN
 IFTE(c≠"",EXPR(MID(c,2)),0);
END;

EXPORT Coln(c)
BEGIN
 IFTE(c≠"",INSTRING("♠♥♣♦",LEFT(c,1)),0);
END;

EXPORT Colinv(c1,c2)
BEGIN
 IFTE((odd(c1)  AND even(c2))  OR (odd(c2)  AND even(c1)),1,0);
END;

EXPORT AFCART_P(x,y,c)
BEGIN
LOCAL sv,v,co,cg;
LEFT(c,1)▶co;
IFTE (INSTRING("♠♣",co),C_noir,C_rouge)▶cg;
EXPR(MID(c,2))▶v;
"A23456789XVDR"▶sv;
RECT_P(x,y,x+29,y+47,C_blanc);
RECT_P(x+1,y+1,x+27,y+45,cg,C_blanc);
TEXTOUT_P(MID(sv,v,1),x+3,y+3,2,cg);
TEXTOUT_P(co,x+18-(co=="♥"),y+3,1,cg);
TEXTOUT_P(co,x+3,y+20,7,cg);
END;

EXPORT AFDOS_P(x,y,n,c1,c2)
BEGIN
 LOCAL i,j,k,d;
 d:="✤✥❂❖❊";
 RECT_P(x,y,x+29,y+47,c1,c2);
 FOR i FROM 1 TO 4 DO
  x+i*6-5▶k;
  FOR j FROM 1 TO 7 DO
   TEXTOUT_P(MID(d,n,1),k,y+j*6-5,1,C_noir);
  END;
 END;
END;
EXPORT AFVIDE_P(x,y,c)
BEGIN
 RECT_P(x,y,x+29,y+47,C_noir,c);
END;