Data commit

Task/Guess-the-number/FutureBasic/guess-the-number.basic

@@ -0,0 +1,29 @@
+void local fn BuildWindow
+  window 1, @"Guess the number (1-10)", (0,0,480,270), NSWindowStyleMaskTitled
+  textfield 1,,, (220,124,40,21)
+  ControlSetAlignment( 1, NSTextAlignmentCenter )
+  WindowMakeFirstResponder( 1, 1 )
+  AppSetProperty( @"Number", @(rnd(10)) )
+end fn
+
+void local fn DoDialog( ev as long, tag as long )
+  select ( ev )
+    case _btnClick
+      select ( tag )
+        case 1
+          if ( fn ControlIntegerValue( 1 ) == fn NumberIntegerValue( fn AppProperty( @"Number" ) ) )
+            alert 1,, @"Well guessed!",, @"Exit"
+            end
+          else
+            textfield 1,, @""
+            alert 1,, @"Wrong number!",, @"Try again"
+          end if
+      end select
+  end select
+end fn
+
+fn BuildWindow
+
+on dialog fn DoDialog
+
+HandleEvents