RosettaCodeData/Task/User-input-Text/FutureBasic/user-input-text.basic

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