15 lines
297 B
Plaintext
15 lines
297 B
Plaintext
void local fn DoIt
|
|
window 1, @"User/input Text"
|
|
CFStringRef string = input @"Enter a string:"
|
|
print string
|
|
CFStringRef number = @""
|
|
while ( intval(number) != 75000 )
|
|
number = input @"Enter the integer 75000", @"0123456789", YES, 5
|
|
wend
|
|
print number
|
|
end fn
|
|
|
|
fn DoIt
|
|
|
|
HandleEvents
|