ClrHome
Disp "Seed:"
Input A
A->rand
randInt(0,21)->B
If B=0
Pause "The Fool"
If B=1
Pause "The Magician"
If B=2
Pause "High Priestess"
If B=3
Pause "The Empress"
If B=4
Pause "The Emporer
If B=5
Pause "The Hierophant"
If B=6
Pause "The Lovers"
If B=7
Pause "The Chariot"
If B=8
Pause "Strength
If B=9
Pause "The Hermit"
If B=10
Pause "Wheel of Fortune"
If B=11
Pause "Justice
If B=12
Pause "The Hanged Man"
If B=13
Pause "Death"
If B=14
Pause "Temperance"
If B=15
Pause "The Devil"
If B=16
Pause "The Tower"
If B=17
Pause "The Star"
If B=18
Pause "The Moon"
If B=19
Pause "The Sun"
If B=20
Pause "Judgement"
If B=21
Pause "The World"
randInt(1,14)->C
If C=1
Pause "Ace"
If C=2
Pause "Two"
If C=3
Pause "Three"
If C=4
Pause "Four"
If C=5
Pause "Five"
If C=6
Pause "Six"
If C=7
Pause "Seven"
If C=8
Pause "Eight"
If C=9
Pause "Nine"
If C=10
Pause "Ten"
If C=11
Pause "Page"
If C=12
Pause "Knight"
If C=13
Pause "Queen"
If C=14
Pause "King"
randInt(1,4)->D
If D=1
Pause "Wands"
If D=2
Pause "Pentacles"
If D=3
Pause "Cups"
If D=4
Pause "Swords"
Stop
