Two nested loops over suits and values will do the trick:
10DIMC$(51),S$(3):S$(0)="diamonds":S$(1)="hearts":S$(2)="clubs":S$(3)="spades"20FORI=0TO3:FORJ=0TO12:READV$:C$(I*12+J)=V$+" of "+S$(I):NEXT:RESTORE:NEXT30FORI=0TO51:PRINTC$(I),:NEXT100DATA2,3,4,5,6,7,8,9,10,Jack,Queen,King,Ace
c$() now contains all the cards.
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
how do you make a deck of cards so cards wont repeat themselves
Two nested loops over suits and values will do the trick:
c$()now contains all the cards.just my two cents, to properly display all the aces you have to count to 13 in DATA:
READ V$:C$(I*13+J)