22 lines
479 B
Plaintext
22 lines
479 B
Plaintext
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
|