aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-11-04 20:28:54 -08:00
parent 52a6ef48dd
commit 157b70a810
604 changed files with 14253 additions and 2100 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/User-input-Text/FutureBasic/user-input-text.basic Normal file
View file

@ -0,0 +1,14 @@
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