Initial data commit

Task/GUI-component-interaction/Run-BASIC/gui-component-interaction.basic

@@ -0,0 +1,43 @@
+dim dd$(5)                 ' drop down box
+for i = 1 to 5
+ dd$(i) = "Drop ";i
+next i
+value$ = "1234"
+notes$ = "Rosetta Code
+is good"
+
+bf$	= "<SPAN STYLE='font-family:arial; font-weight:700; font-size:12pt'>"
+
+[screen]
+cls
+html bf$;"<center><TABLE BORDER=1 CELLPADDING=0 CELLSPACING=0 bgcolor=wheat>"
+html "<TR align=center BGCOLOR=tan><TD colspan=2>Rosetta Code</TD></TR><TR>"
+html "<TD align=right bgcolor=tan>Value:</TD><TD>"
+     textbox #val,value$,5
+html "</TD></TR><TR><TD bgcolor=tan align=right>Radio</TD><TD>"
+     radiogroup #rdo,"1,2,3,4,5",rdo$
+                #rdo horizontal(1)
+html "</TD></TR><TR><TD bgcolor=tan align=right>Drop Down</TD><TD>"
+     listbox #dd,dd$(),1
+
+html "</TD></TR><TR><TD bgcolor=tan align=right>Notes</TD><TD>"
+     textarea 	#notes,notes$,25,3
+html "</TD></TR><TR bgcolor=tan><TD colspan=2 ALIGN=CENTER>"
+     button #inc, "Increment", [incr]
+     button #rnd, "Random", [rand]
+     button #ex, "Exit", [exit]
+html "</TD></TR></TABLE>"
+wait
+
+[incr]
+value	= val(#val contents$())
+value$  = str$(value + 1)
+goto [screen]
+
+[rand]
+value$ = str$(int(rnd(1) * 10000))
+goto [screen]
+
+[exit]
+print "Bye"
+end