RosettaCodeData/Task/Guess-the-number/PureBasic/guess-the-number.basic

14 lines
286 B
Plaintext

If OpenConsole()
Define TheNumber=Random(9)+1
PrintN("I've picked a number from 1 to 10." + #CRLF$)
Repeat
Print("Guess the number: ")
Until TheNumber=Val(Input())
PrintN("Well guessed!")
Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()
CloseConsole()
EndIf