home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / WWTJD.PRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  736 b   |  33 lines
  1. STOR M*Z1 TO D
  2. IF JD<10
  3. STOR "J"+CHR(48+JD) TO BGCH
  4. ELSE
  5. STOR JD-10 TO NUM
  6. STOR "J"+CHR(49)+CHR(48+NUM) TO BGCH
  7. ENDI
  8. USE \HOUSEM\DBF\WWDGP
  9. LOCA FOR M>MMIN.AND.M<=MMAX.AND.D>DMIN.AND.D<=DMAX
  10. STOR &BGCH TO DGP
  11. STOR "DEJ1" TO DEJ1
  12. STOR "DA01" TO DA01
  13. USE \HOUSEM\DBF\WWEAG
  14. LOCA FOR D>DMIN.AND.D<=DMAX
  15. STOR &DEJ1 TO DEJ
  16. STOR &DA01 TO DA0
  17. STOR DA0 TO DG0
  18. USE \HOUSEM\DBF\WWDDA
  19. LOCA FOR D>DMIN.AND.D<=DMAX
  20. STOR &BGCH TO DDA
  21. USE \HOUSEM\DBF\WWEDA
  22. LOCA FOR D>DMIN.AND.D<=DMAX
  23. STOR &BGCH TO EDA
  24. USE \HOUSEM\DBF\WWET
  25. LOCA FOR B>BMIN.AND.B<=BMAX
  26. STOR &BGCH TO ET
  27. ENDI
  28. USE \HOUSEM\DBF\WWJDZ
  29. APPE BLANK
  30. REPL DGP1 WITH DGP,DEJ1 WITH DEJ,DA01 WITH DA0,DG01 WITH DG0
  31. REPL DDA1 WITH DDA,EDA1 WITH EDA,ET1 WITH ET
  32. RETURN
  33.