home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / MSCRE.PRG < prev    next >
Encoding:
Text File  |  1990-03-14  |  2.4 KB  |  111 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. SET TALK ON
  45. CLEAR
  46. ? '*************************************************************'
  47. ? '* 1) ─┌┬▌╬╞                                                 *'
  48. ? '* 2) ═Γ┬▌╬╞                                                 *'
  49. ? '*************************************************************'
  50. INPUT '╟δ╩Σ╚δ┬▌╬╞╡─└α▒≡: ' TO LWLB
  51. DO CASE
  52. CASE LWLB=1
  53. CLEAR
  54. ? '*************************************************************'
  55. ? '* 1) 5G  2) 6G  3) 7G  4) 4H  5) 5H  6) 6H  7) 7H           *'
  56. ? '*************************************************************'
  57. CASE LWLB=2
  58. CLEAR
  59. ? '*************************************************************'
  60. ? '* 8) 6e  9) 6f  10) 5g  11) 6g  12) 7g  13) 8g  14) 3h      *'
  61. ? '*15) 4h  16) 5h  17) 6h  18)7h  19) 8h                      *'
  62. ? '*************************************************************'
  63. ENDC
  64. INPUT '╟δ╩Σ╚δ┬▌╬╞╡─╛½╢╚: ' TO LWJD
  65. SET TALK OFF
  66. DO CASE
  67. CASE LWJD=1
  68. STOR '5G' TO DGCH
  69. CASE LWJD=2
  70. STOR '6G' TO DGCH
  71. CASE LWJD=3
  72. STOR '7G' TO DGCH
  73. CASE LWJD=4
  74. STOR '4H' TO DGCH
  75. CASE LWJD=5
  76. STOR '5H' TO DGCH
  77. CASE LWJD=6
  78. STOR '6H' TO DGCH
  79. CASE LWJD=7
  80. STOR '7H' TO DGCH
  81. CASE LWJD=8
  82. STOR '6e' TO DGCH
  83. CASE LWJD=9
  84. STOR '6f' TO DGCH
  85. CASE LWJD=10
  86. STOR '5g' TO DGCH
  87. CASE LWJD=11
  88. STOR '6g' TO DGCH
  89. CASE LWJD=12
  90. STOR '7g' TO DGCH
  91. CASE LWJD=13
  92. STOR '8g' TO DGCH
  93. CASE LWJD=14
  94. STOR '3h' TO DGCH
  95. CASE LWJD=15
  96. STOR '4h' TO DGCH
  97. CASE LWJD=16
  98. STOR '5h' TO DGCH
  99. CASE LWJD=17
  100. STOR '6h TO DGCH
  101. CASE LWJD=18
  102. STOR '7h' TO DGCH
  103. CASE LWJD=19
  104. STOR '8h' TO DGCH
  105. ENDC
  106. SET TALK OFF
  107. USE \HOUSEM\DBF\OUTLF
  108. GOTO NR
  109. REPL LL1 WITH H,DGCH1 WITH DGCH,DL1 WITH DL,DR1 WITH DL
  110. RETURN
  111.