home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / MSCRE1.PRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  958 b   |  50 lines
  1. SET TALK ON
  2. ?"╟δ ╩Σ ╚δ ╡┌",NS,"╢╬ ┬▌ ╬╞ ▓╬ ╩²:"
  3. SET TALK OFF
  4. STOR DL1 TO DL
  5. STOR 'Y' TO JD
  6. DO WHIL JD='Y'
  7. USE \HOUSEM\DBF\MS INDEX \HOUSEM\DBF\INDMS
  8. STOR STR(DL,5,1) TO TGCH
  9. FIND &TGCH
  10. DO WHIL D<>DL
  11. SET TALK ON
  12. ?"╩Σ ╚δ ╡─ ╓▒ ╛╢ ╬¬",DL
  13. INPUT " ▓╗ ╩╟ ▒Ω ╫╝ ┬▌ ╬╞ ╓▒ ╛╢ , ╟δ ╓╪ ╨┬ ╩Σ ╚δ" TO DL
  14. SET TALK OFF
  15. STOR STR(DL,5,1) TO TGCH
  16. FIND &TGCH
  17. ENDD
  18. ?'╩Σ ╚δ ╓▒ ╛╢ ╩⌠ ┬▌ ╬╞ ▒Ω ╫╝ ╡┌',SERI,'╧╡ ┴╨'
  19. ?"  ┐╔ ╤í ╘± ╡─ ┬▌ ╛α :"
  20. STOR 'Y' TO YN
  21. DO WHIL YN<>'N'
  22. IF TJ='N'
  23. SET TALK ON
  24. ?S," ( ▓╗ ═╞ ╝÷ ╩╣ ╙├ )"
  25. SET TALK OFF
  26. ELSE
  27. ?S
  28. SET TALK ON
  29. SET TALK OFF
  30. ENDI
  31. SKIP
  32. IF D<>DL
  33. STOR 'N' TO YN
  34. ENDI
  35. ENDD
  36. STOR 'N' TO JD
  37. ?"╩Σ ╚δ ╡─ ╓▒ ╛╢ ╬¬",DL
  38. ACCE ' ╩╟ ╖± ╓╪ ╨┬ ╩Σ ╚δ ┬▌ ╬╞ ╓▒ ╛╢ ? [N]' TO JD
  39. IF UPPER(JD)='Y'
  40. INPUT '╟δ ╩Σ ╚δ ╓▒ ╛╢=' TO DL
  41. ENDI
  42. ENDD
  43. INPUT ' ╟δ ╩Σ ╚δ ┬▌ ╛α =' TO H
  44. ACCEPT ' ╟δ ╩Σ ╚δ ╛½ ╢╚ ╡╚ ╝╢ =' TO DGCH
  45. SET TALK OFF
  46. USE \HOUSEM\DBF\OUTLF
  47. GOTO NR
  48. REPL LL1 WITH H,DGCH1 WITH DGCH,DL1 WITH DL,DR1 WITH DL
  49. RETURN
  50.