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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

21
Task/User-input-Graphical/Run-BASIC/user-input-graphical.basic Normal file
View file

@ -0,0 +1,21 @@
html "<TABLE BORDER=1 BGCOLOR=silver>
<TR><TD colspan=2>Please input a string and a number</TD></TR>
<TR><TD align=right>String</TD><TD><input type=text name=str size=18></TD></TR>
<TR><TD align=right>Number</TD><TD><input type=number name=num size=18 value=75000></TD></TR>
<TR><TD colspan=2 align=center>"
button #go, "Accept", [go]
button #ex, "Exit", [ex]
html "</TD></TR></TABLE>"
Wait
[go]
print #request get$("str")
print val(#request get$("num"))
wait
[ex]
end