home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / YHC.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  785 b   |  56 lines
  1. sele 2
  2. loca for yh12<p150
  3. do while .not. eof()
  4. a=yh1
  5. sele 4
  6. coun to x for sb4=a
  7. sele 2
  8. do case
  9. case yh5<>'          ' .and. yh6<>'          '
  10. x=x*cc*yh13/yh12
  11. y=x*(365-cc)*yh13/yh12
  12. a1=yh5
  13. a2=yh6
  14. sele 3
  15. loca for y1=a1
  16. if .not. eof()
  17. repl y2 with y2+y
  18. else
  19. appe blank
  20. repl y1 with a1,y2 with y
  21. endif
  22. loca for y1=a2
  23. if .not. eof()
  24. repl y2 with y2+x
  25. else
  26. appe blank
  27. repl y1 with a2,y2 with x
  28. endif
  29. case yh5='          '
  30. x=x*365*yh13/yh12
  31. a1=yh6
  32. sele 3
  33. loca for y1=a1
  34. if .not. eof()
  35. repl y2 with y2+x
  36. else
  37. appe blank
  38. repl y1 with a1,y2 with x
  39. endif
  40. case yh6='          '
  41. x=x*365*yh13/yh12
  42. a2=yh5
  43. sele 3
  44. loca for y1=a2
  45. if .not. eof()
  46. repl y2 with y2+x
  47. else
  48. appe blank
  49. repl y1 with a2,y2 with y2+x
  50. endif
  51. endcase
  52. sele 2
  53. cont
  54. enddo
  55. retu
  56.