! deal 13 cards into array name$ and print it out, using library module cards

The program:

LIBRARY "cards"

DECLARE DEF name$

FOR i= 1 to 13

CALL deal(c)

PRINT name$(c)

NEXT i

END

The output:

ace of spades

nine of clubs

eight of diamonds

ten of spades

seven of clubs

eight of hearts

six of clubs

jack of clubs

five of clubs

eight of spades

eight of clubs

three of spades

two of clubs