Sub Application_OnStart
Application("CurrentDiscount") = .9
Application("MinShipHand") = 12
Application("MinQuantity") = 2
Application("ShipHandPercent") = .07
End Sub
