15 lines
351 B
Text
15 lines
351 B
Text
|
declare
|
||
|
|
StdIn = {New class $ from Open.file Open.text end init(name:stdin)}
|
||
|
|
StringInput
|
||
|
|
Num = {NewCell 0}
|
||
|
|
in
|
||
|
|
{System.printInfo "Enter a string: "}
|
||
|
|
StringInput = {StdIn getS($)}
|
||
|
|
|
||
|
|
for until:@Num == 75000 do
|
||
|
|
{System.printInfo "Enter 75000: "}
|
||
|
|
Line = {StdIn getS($)}
|
||
|
|
in
|
||
|
|
Num := try {String.toInt Line} catch _ then 0 end
|
||
|
|
end
|