RosettaCodeData/Task/Guess-the-number/ProDOS/guess-the-number.dos
2023-07-01 13:44:08 -04: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