Pig the dice game: Difference between revisions

Content added Content deleted
No edit summary
Line 2,239: Line 2,239:
End Sub
End Sub
Sub PlayOrQuit()
Sub PlayOrQuit()
Print "R -Roling Q-Quit"
Print "R -Roling Q -Quit"
Repeat {
Repeat {
res$=Ucase$(Key$)
res$=Ucase$(Key$)
Line 2,245: Line 2,245:
End Sub
End Sub
Sub PlayAgain()
Sub PlayAgain()
Print "R -Roling H -Hold Q-Quit"
Print "R -Roling H -Hold Q -Quit"
Repeat {
Repeat {
res$=Ucase$(Key$)
res$=Ucase$(Key$)
Line 2,275: Line 2,275:
GamePig
GamePig
</lang>
</lang>

=={{header|Maple}}==
=={{header|Maple}}==
<lang maple>pig := proc()
<lang maple>pig := proc()