Data commit

Task/Simple-windowed-application/BBC-BASIC/simple-windowed-application.basic

@@ -0,0 +1,18 @@
+      INSTALL @lib$+"WINLIB2"
+      INSTALL @lib$+"WINLIB5"
+
+      window% = FN_newdialog("Rosetta Code", 100, 100, 120, 52, 8, 1000)
+      PROC_static(window%, "There have been no clicks yet", 100, 10, 10, 100, 14, 0)
+      PROC_pushbutton(window%, "Click me", FN_setproc(PROCclick), 40, 30, 40, 16, 0)
+      PROC_showdialog(window%)
+
+      REPEAT
+        WAIT 1
+      UNTIL !window% = 0
+      QUIT
+
+      DEF PROCclick
+      PRIVATE clicks%
+      clicks% += 1
+      SYS "SetDlgItemText", !window%, 100, "Number of clicks = " + STR$(clicks%)
+      ENDPROC