Anonymous user
Playing cards: Difference between revisions
m
→{{header|PureBasic}}
Line 1,220:
EndDataSection
If OpenConsole()
Define deck.deckObject = newDeck()
Define deck2.deckObject = newDeck()
If deck = 0 Or deck2 = 0
PrintN("Unable to create decks")
End
EndIf
deck\shuffle()
PrintN("Dealt: " + deck\deal(#False))
PrintN("Dealt: " + deck\deal(#False))
PrintN("Dealt: " + deck\deal(#False))
PrintN("Dealt: " + deck\deal(#False))
deck\show()
deck2\show()
Print(#CRLF$ + #CRLF$ + "Press ENTER to exit")
Input()
CloseConsole()
EndIf</lang>
Sample output:
<pre>Dealt: Queen of Hearts
|