13 lines
205 B
Text
13 lines
205 B
Text
|
# User input/text, in LIL
|
||
|
|
write "Enter a string: "
|
||
|
|
set text [readline]
|
||
|
|
|
||
|
|
set num 0
|
||
|
|
while {[canread] && $num != 75000} {
|
||
|
|
write "Enter the number 75000: "
|
||
|
|
set num [readline]
|
||
|
|
}
|
||
|
|
|
||
|
|
print $text
|
||
|
|
print $num
|