User input/Text is part of Short Circuit's Console Program Basics selection.
Task
 
Input a string and the integer   75000   from the text console.

See also: User input/Graphical

rebol [
	Title: "Textual User Input"
	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 "'."]