home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / perfless.ark / COMPUTE.PC < prev    next >
Encoding:
Text File  |  1989-09-27  |  896 b   |  52 lines
  1. \wg5
  2. >b1:"JAN
  3. >c1:"FEB
  4. >c1:\dc0
  5. >d1:"MAR
  6. >e1:"APR
  7. >f1:"MAY
  8. >g1:"JUN
  9. >h1:"JUL
  10. >i1:"AUG
  11. >j1:"SEP
  12. >k1:"OCT
  13. >l1:"NOV
  14. >m1:"DEC
  15. >a1:\jlr
  16. >a2:0
  17. >b2:1.000000000000E+00
  18. >c2:2.000000000000E+00
  19. >d2:3.000000000000E+00
  20. >e2:4.000000000000E+00
  21. >f2:5.000000000000E+00
  22. >g2:6.000000000000E+00
  23. >h2:7.000000000000E+00
  24. >i2:8.000000000000E+00
  25. >j2:9.000000000000E+00
  26. >k2:1.000000000000E+01
  27. >l2:1.100000000000E+01
  28. >m2:1.200000000000E+01
  29. >a2:\dl0
  30. >a3:0
  31. >b3:3.100000000000E+01
  32. >c3:5.900000000000E+01
  33. >d3:9.000000000000E+01
  34. >e3:1.200000000000E+02
  35. >f3:1.510000000000E+02
  36. >g3:1.810000000000E+02
  37. >h3:2.120000000000E+02
  38. >i3:2.430000000000E+02
  39. >j3:2.730000000000E+02
  40. >k3:3.040000000000E+02
  41. >l3:3.340000000000E+02
  42. >m3:3.650000000000E+02
  43. >a3:\dl0
  44. >a5:" Month:
  45. >c5:=main[d3]@
  46. >a6:" Day:
  47. >c6:=main[d4]@
  48. >a7:=lookup(c5-1,a2:m2)+c6@
  49. >a7:\dl0
  50. >a1
  51. \aB:MAIN.PC
  52.        Å