#
# $Id: testdata,v 1.1.1.1 2007/04/18 16:16:05 kohju Exp $
#
# Test Data
#
# cat testdata | ./rpn.<ARCH>.<CPU> | ./rpn2symreq
#
forwarder(foo,foo2,foo3)
Vitasub=Vita*4500
Bathsub=Bath*3800
Lotionsub=Lotion*2800
Milksub=Milk*3200
Maitakesub=Maitake*11400
Kennbisub=Kennbi*17100
Mainotuyusub=Mainotuyu*11400
Fuyumaihimesub=Fuyumaihime*14250
Subtotal=Sum(Vitasub,Bathsub,Lotionsub,Milksub,Maitakesub,Kennbisub,Mainotuyusub,Fuyumaihimesub)
Tax=Trunc(Subtotal*0.05)
Send=If(Subtotal<3000,600,0)
tmpcharge=If(Subtotal<5000,800,0)
charge=If(Pay=="",tmpcharge,0)
Total=Sum(Subtotal,Tax,Send,charge)
NoticeCharged=If(Pay!="","ʶͻؿϽ")
