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 pack(cards)
for t = 0 to cards
pack(cards)=0
next t

dim deck(cards)
for t=0 to cards
 repeat
 card=rnd(cards)
 if pack(card)=0
  deck(t)=card
  pack(card)=1
  else fail=1
 endif
 until fail=0
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