all tasks

Task/User-input-Text/REBOL/user-input-text.rebol

@@ -0,0 +1,29 @@
+REBOL [
+	Title: "Textual User Input"
+	Author: oofoe
+	Date: 2009-12-07
+	URL: http://rosettacode.org/wiki/User_Input_-_text
+]
+
+s: n: ""
+
+; Because I have several things to check for, I've made a function to
+; handle it. Note the question mark in the function name, this convention
+; is often used in Forth to indicate test of some sort.
+
+valid?: func [s n][
+	error? try [n: to-integer n] ; Ignore error if conversion fails.
+	all [0 < length? s  75000 = n]]
+
+; I don't want to give up until I've gotten something useful, so I
+; loop until the user enters valid data.
+
+while [not valid? s n][
+	print "Please enter a string, and the number 75000:"
+	s: ask "string: "
+	n: ask "number: "
+]
+
+; It always pays to be polite...
+
+print rejoin [ "Thank you. Your string was '" s "'."]