RosettaCodeData/Task/User-input-Text/Retro/user-input-text.retro

7 lines
196 B
Plaintext

: example ( "- )
remapping off
"Enter a string: " puts 10 accept tib tempString
[ "Enter 75000: " puts getToken toNumber 75000 = cr ] until
"Your string was: '%s'\n" puts
remapping on ;