RosettaCodeData/Task/User-input-Text/NetRexx/user-input-text.netrexx

18 lines
398 B
Plaintext

/* NetRexx */
options replace format comments java crossref symbols nobinary
checkVal = 75000
say 'Input a string then the number' checkVal
parse ask inString
parse ask inNumber .
say 'Input string:' inString
say 'Input number:' inNumber
if inNumber == checkVal then do
say 'Success! Input number is as requested'
end
else do
say 'Failure! Number' inNumber 'is not' checkVal
end
return