home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / store.dir / 00131_Add Button.ls < prev    next >
Encoding:
Text File  |  1996-09-26  |  420 b   |  11 lines
  1. on mouseUp
  2.   global title, mcprice, orders, orderline, quantlist, totallist, session
  3.   set session to session + 1
  4.   set quantity to value(the text of field "Quantity")
  5.   append(quantlist, quantity)
  6.   set total to integer(quantity * mcprice)
  7.   append(totallist, total)
  8.   set orderline to the text of field "Quantity" & "  " & the text of field "Title" & "  " & "$" & string(total) & ".00"
  9.   append(orders, orderline)
  10. end
  11.