aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Another update from ingydotnet^djgoku

Browse source
This commit is contained in:
Ingy döt Net 2015-11-18 06:14:39 +00:00
parent 91df62d461
commit 948b86eafa
7604 changed files with 108452 additions and 22726 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Task/User-input-Text/REXX/user-input-text.rexx
View file

@ -1,12 +1,10 @@
/*REXX program gets a string and the number 75000 from the console. */
say 'Please enter a text string:' /*show prompt for a text string. */
parse pull userString /*get the user text and store it.*/
do until userNumber=75000 /*repeat until correct.*/
say /*display a blank line.*/
say 'Please enter the number 75000' /*show the nice prompt.*/
parse pull userNumber /*get the user text. */
end /*until*/ /*now, check if it's OK*/
/*REXX pgm prompts and gets a string and also the # 75000 from terminal.*/
say 'Please enter a string:'; parse pull userString
say 'You entered this string:' userString /* show it on the console */
/* [↑] string can be any length.*/
do until userNumber=75000 /*repeat this loop until correct.*/
say /*display blank line to terminal.*/
say 'Please enter the number 75000' /*display a nice prompt message. */
parse pull userNumber /*obtain the user text from term.*/
end /*until ··· */ /*check if the response is legit.*/
/*stick a fork in it, we're done.*/