Anonymous user
User input/Graphical: Difference between revisions
m
→{{header|REXX}}: changed comments and whitespace, simplified the code.
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: XUL is no longer supported by Mozilla) |
m (→{{header|REXX}}: changed comments and whitespace, simplified the code.) |
||
Line 1,430:
it verifies that the correct number has been entered.
<lang rexx>/*REXX pgm prompts (using the OS GUI) for a string & then prompts for a specific number.*/
#= 75000
x=
N=
do while x=' '; say
say 'Please enter a string:
parse pull x
if x='' then say '***error*** No string
▲ end /*while string···*/
do while N\=#; say
say 'Please enter the number:'
parse pull N
if datatype(N, 'N') then N= N / 1
if N\=# then
say
▲ end /*while number···*/
say 'The string entered is:'
say 'The
=={{header|Ring}}==
|