home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / KEY.PRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  700 b   |  40 lines
  1. STOR DL1 TO D
  2. STOR DGCH1 TO GCH
  3. DO \HOUSEM\PRG\ZGCH
  4. USE \HOUSEM\DBF\OUTLF
  5. GOTO NR
  6. REPL SCHD1 WITH SCH,XCHD1 WITH XCH
  7. STOR BGCH1 TO GCH
  8. STOR KTYPE1 TO KTYPE
  9. STOR BGCH1 TO BGCH
  10. STOR DL1 TO D
  11. STOR Z11 TO JK
  12. STOR DIR1 TO DIR
  13. USE \HOUSEM\DBF\KEY
  14. LOCA FOR DMIN<D.AND.DMAX>=D
  15. IF JK>0
  16. USE \HOUSEM\DBF\KEY
  17. LOCAT FOR B=JK
  18. STOR B TO B
  19. ELSE
  20. STOR B TO B
  21. ENDI
  22. IF DIR='H'
  23. STOR T1 TO DI
  24. STOR D+DI TO H
  25. ELSE
  26. STOR T TO DI
  27. STOR D-DI TO H
  28. ENDI
  29. STOR TGCH TO YD1
  30. STOR B TO D
  31. DO \HOUSEM\PRG\ZGCH
  32. USE \HOUSEM\DBF\KEYSIZE
  33. GOTO BOTTOM
  34. APPE BLANK
  35. REPL KTYPE1 WITH KTYPE,B1 WITH B,BGCH1 WITH BGCH,BS1 WITH SCH
  36. REPL H1 WITH H,HS1 WITH YD1,BX1 WITH XCH
  37. USE \HOUSEM\DBF\OUTLF
  38. GOTO NR
  39. RETURN
  40.