RosettaCodeData/Task/Random-number-generator-dev.../Wee-Basic/random-number-generator-dev...

14 lines
353 B
Plaintext

let keycode=0
let number=1
print 1 "Press any key to generate a random number from 1 to 10.
while keycode=0
let number=number+1
let keycode=key()
rem The maximum number is the number in the "if number=" line with 1 taken away. For example, if this number was 11, the maximum number would be 10. *
if number=11
let number=1
endif
wend
print 1 number
end