The suit_name$ is declared as a dimmed array.
In this section of code it should be used as suit_name$(array_index)
If card=1 Then name$="Ace":kind$=suit_name$:amount=11 ElseIf card=11 Then name$="Jack":kind$=suit_name$:amount=10 ElseIf card=12 Then name$="Queen":kind$=suit_name$:amount=10 ElseIf card=13 Then name$="King":kind$=suit_name$:amount=10 Else name$=card:kind$=suit_name$:amount=card End If
In this section of code it should be used as suit_name$(array_index)