Anonymous user
Playing cards: Difference between revisions
m
→{{header|Fortran}}: langtag
(→{{header|Perl}}: ++ smalltalk) |
m (→{{header|Fortran}}: langtag) |
||
Line 463:
=={{header|Fortran}}==
{{works with|Fortran|90 and later}}
IMPLICIT NONE
Line 528:
END SUBROUTINE Print_deck
END MODULE Cards</lang>
Example use:
USE Cards
Line 540:
CALL Print_deck
END PROGRAM</lang>
This creates a new deck, shuffles it, deals five cards to hand, prints the cards in hand and then prints the cards remaining in the deck.
| |||