home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / WBTJD.PRG < prev    next >
Encoding:
Text File  |  1990-03-17  |  1.3 KB  |  60 lines
  1. STOR M1*Q TO D
  2. STOR 0.5*M*(Q+Z2) TO A
  3. IF JD<10
  4. STOR "J"+CHR(48+JD) TO BGCH
  5. ELSE
  6. STOR JD-10 TO NUM
  7. STOR "J"+CHR(49)+CHR(48+NUM) TO BGCH
  8. ENDI
  9. USE \HOUSEM\DBF\WBDP
  10. LOCA FOR M>MMIN.AND.M<=MMAX
  11. STOR &BGCH TO DP
  12. USE \HOUSEM\DBF\WBDPE
  13. LOCA FOR M>MMIN.AND.M<=MMAX
  14. STOR &BGCH TO DPE
  15. USE \HOUSEM\DBF\WBDJ
  16. LOCA FOR M>MMIN.AND.M<=MMAX
  17. STOR &BGCH TO DJ
  18. USE \HOUSEM\DBF\WBDEY
  19. LOCA FOR D>DMIN.AND.D<=DMAX
  20. STOR &BGCH TO DEY
  21. IF CHX='DC'.OR.CHX='dc'
  22. USE \HOUSEM\DBF\WBMSA
  23. LOCA FOR M>MMIN.AND.M<=MMAX.AND.A>AMIN.AND.A<=AMAX
  24. STOR &BGCH TO MSA
  25. USE \HOUSEM\DBF\WBDSA
  26. LOCA FOR D>DMIN.AND.D<=DMAX
  27. STOR &BGCH TO DSA
  28. USE \HOUSEM\DBF\WBEDA
  29. LOCA FOR D>DMIN.AND.D<=DMAX
  30. STOR &BGCH TO EDA
  31. STOR 'H7' TO DDA
  32. ELSE
  33. USE \HOUSEM\DBF\WBMSA1
  34. LOCA FOR M>MMIN.AND.M<=MMAX.AND.A>AMIN.AND.A<=AMAX
  35. STOR &BGCH TO MSA
  36. USE \HOUSEM\DBF\WBDSA1
  37. LOCA FOR D>DMIN.AND.D<=DMAX
  38. STOR &BGCH TO DSA
  39. USE \HOUSEM\DBF\WBEDA1
  40. LOCA FOR D>DMIN.AND.D<=DMAX
  41. STOR &BGCH TO EDA
  42. IF JD=7
  43. STOR 'H7' TO DDA
  44. ELSE
  45. STOR 'H8' TO DDA
  46. ENDI
  47. ENDI
  48. STOR DP/1000 TO DP
  49. STOR DPE/1000 TO DPE
  50. STOR DJ/1000 TO DJ
  51. STOR DEY/1000 TO DEY
  52. STOR MSA/1000 TO MSA
  53. STOR DSA/1000 TO DSA
  54. STOR EDA/1000 TO EDA
  55. USE \HOUSEM\DBF\WBJDZ
  56. APPE BLANK
  57. REPL DP1 WITH DP,DPE1 WITH DPE,DJ1 WITH DJ,DEY1 WITH DEY
  58. REPL MSA1 WITH MSA,DSA1 WITH DSA,EDA1 WITH EDA,DDA1 WITH DDA
  59. RETURN
  60.