Applet2

subroutine applet2

include wbp w3Include

call w3AppletInit

price=0

part=''

qty=0

call w3getVal(price,"Price")

if price="" then price=1

call w3getVal(part,"Part")

call w3getVal(qty,"Qty")

if qty="" then qty=1

extended = qty * price

call w3AppletInsert("part", part)

call w3AppletInsert("qty", qty)

call w3AppletInsert("price", price)

call w3AppletInsert("extended", extended)

call w3AppletInput(err, 0, "")

return