Rem Project: cards
Rem Created: 18/03/2006 09:58:02

Rem ***** Main Source File *****
#constant clubs 1
#constant diamonds 2
#constant hearts 3
#constant spades 4

randomize timer()

jokers = 2
cards=51+jokers
dim deck(cards)

for t=0 to cards
  deck(t)=t+1
next t

for t=0 to 400
a=rnd(cards)
b=rnd(cards)
tmp=deck(a)
deck(a) = deck(b)
deck(b) = tmp
next t

x=20
y=20

for t = 0 to cards
 if deck(t)>0
  value=deck(t)+1
  suit$=" clubs"
  ink rgb(255,255,255),0
 endif
 if deck(t)>12
  value=deck(t)-11
  suit$=" diamonds"
  ink rgb(255,0,0),0
 endif
 if deck(t)>25
  value=deck(t)-24
  suit$=" hearts"
  ink rgb(255,0,0),0
 endif
 if deck(t)>38
  value=deck(t)-37
  suit$=" spades"
  ink rgb(255,255,255),0
 endif
 if deck(t)>51
  value=deck(t)-50
  suit$="Joker"
  ink rgb(0,255,255),0
 endif
text x,y,str$(value)+suit$
inc y,20
if y=13*20+20 then inc x,100 : y=20
next t

wait key