home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BJH3XUE.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  522 b   |  29 lines
  1. set talk off
  2. set devi to screen
  3. clear
  4. sele
  5. use xs
  6. sele 2
  7. use bjh
  8. sele 3
  9. use sb index sb1
  10. sele 4
  11. use de
  12. sele 5
  13. use jh index jh1
  14. do while B->bjh2+B->bih6<=a.and.C->sb1=B->bjh1.and.C->sb4=D->de4
  15. x1=B->bih1
  16. x2='1'
  17. x3=month(B->bjh2+B->bjh6)
  18. x4=C->sb13*A->xs1
  19. x5=C->sb14*A->xs2
  20. x6=D->de5*A->xs3
  21. x7=D->de6*A->xs4
  22. x8=D->de7*A->xs5
  23. x9=D->de8*A->xs6
  24. x10=D->de11*A->xs7
  25. x11a=C->sb13*A->xs8+C->sb14*A->xs9+D->de5*A->xs10+D->de6*A->xs11
  26. x11b=D->de7*A->xs12+D->de8*A->xs13+D->de9*A->xs14
  27. x11=x11a+x11b
  28. x12=
  29. >