RosettaCodeData/Task/Guess-the-number/ProDOS/guess-the-number.dos
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

5 lines
242 B
Text

:a
editvar /modify /value=-random-= <10
editvar /newvar /value=-random- /title=a
editvar /newvar /value=b /userinput=1 /title=Guess a number:
if -b- /hasvalue=-a- printline You guessed correctly! else printline Your guess was wrong & goto :a