Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 additions and 0 deletions
--- a/Task/Keyboard-input-Obtain-a-Y-or-N-response/FutureBasic/keyboard-input-obtain-a-y-or-n-response.futurebasic
+++ b/Task/Keyboard-input-Obtain-a-Y-or-N-response/FutureBasic/keyboard-input-obtain-a-y-or-n-response.futurebasic
@ -0,0 +1,23 @@
+local fn DoDialog
+dim as long ev, id
+
+ev = dialog(0)
+id = dialog(ev)
+
+select case( ev )
+  case _wndClose : end
+  case _evKey
+    select id
+     // Trap upper and lower case Y and N
+     case 78, 110 : cls : print "No "
+     case 89, 121 : cls : print "Yes"
+    end select
+  end select
+end fn
+
+on dialog fn DoDialog
+
+window 1, @"Yes-No", (0,0)-(150,80), _docNoGrow
+text _applFont, 14, _boldBit%
+
+RunApplicationEventLoop()