home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / ZGCH2.PRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  673 b   |  43 lines
  1. SET TALK OFF
  2. IF AT('1',GCH)<>0
  3. STOR 1 TO Z1
  4. ENDI
  5. IF AT('2',GCH)<>0
  6. STOR 2 TO Z1
  7. ENDI
  8. IF AT('3',GCH)<>0
  9. STOR 3 TO Z1
  10. ENDI
  11. IF AT('4',GCH)<>0
  12. STOR 4 TO Z1
  13. ENDI
  14. IF AT('5',GCH)<>0
  15. STOR 5 TO Z1
  16. ENDI
  17. IF AT('6',GCH)<>0
  18. STOR 6 TO Z1
  19. ENDI
  20. IF AT('7',GCH)<>0
  21. STOR 7 TO Z1
  22. ENDI
  23. IF AT('8',GCH)<>0
  24. STOR 8 TO Z1
  25. ENDI
  26. IF AT('9',GCH)<>0
  27. STOR 9 TO Z1
  28. ENDI
  29. STOR LEN(GCH) TO SCH
  30. STOR SCH-1 TO SCH
  31. STOR "J"+CHR(48+Z1) TO MATE
  32. USE \HOUSEM\DBF\INDX
  33. D=STR(D,4)
  34. LOCAT FOR DMIN<&D  .AND.   &D<=DMAX
  35. STOR DMC TO ZX
  36. USE \HOUSEM\DBF\ZKGCH1 INDEX \HOUSEM\DBF\INDGCH1
  37. FIND &S &ZX
  38. STOR &MATE/1000.000 TO SCH
  39. SKIP
  40. STOR &MATE/1000.000 TO XCH
  41. STOR ' ' TO GCH
  42. RETURN
  43.