senddata

subroutine senddata

* Return a Web page containing the amount of requested data

include wbp w3Include

amount = 0

call w3GetVal(amount,"AMOUNT")

* verify size and amount

size = 1000

if amount = "medium" then size = 100000

if amount = "large"  then size = 1000000

if amount = "huge"   then size = 2000000

* set up response header

subs  = ""

subs<-1> = "##TITLE##":@VM:"FlashCONNECT data transfer test"

subs<-1> = "##HEADLINE##":@VM:amount:" test, sending ":size "l,#9" :" bytes"

text  = "0123456789"

text  = str(text, 10)

text := text:char(12)

text = str(text, size/100)

call w3HtmlInit("", "")

call w3HtmlHeader("",subs)

call w3Printn("<P>")

call w3Printn(text)

call w3HtmlFooter("","")

return