13 lines
286 B
Text
13 lines
286 B
Text
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
|