home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / kaypro / prftcalc.lbr / ORDER001.PQ / ORDER001.PC
Text File  |  1986-12-21  |  768b  |  36 lines
  1. >a1:"  Order No.
  2. >a1:\wc11
  3. >b1:" 001
  4. >b1:\wc20
  5. >d1:\dc0
  6. >a3:"   Stock
  7. >c3:"   Unit
  8. >a4:"   Number
  9. >b4:"  Item Description
  10. >c4:"   Price
  11. >d4:" Quantity
  12. >e4:"   Amount
  13. >a6:"   000001
  14. >b6:"Transmitter
  15. >c6:1.E+03
  16. >d6:1.E+00
  17. >e6:=c6*d6@#1.E+03
  18. >a8:"   000005
  19. >b8:"Relay
  20. >c8:2.E+01
  21. >d8:2.E+00
  22. >e8:=c8*d8@#4.E+01
  23. >a10:"   000006
  24. >b10:"Cable
  25. >c10:1.E+02
  26. >d10:1.E+00
  27. >e10:=c10*d10@#1.E+02
  28. >a12:"   000007
  29. >b12:"Antenna
  30. >c12:4.E+02
  31. >d12:1.E+00
  32. >e12:=c12*d12@#4.E+02
  33. >c16:"      Total Amount
  34. >e16:=sum(e6:e14)@#1.54E+03
  35. >a1
  36.