home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a056 / 4.ddi / MAIN / YQMIS008.PRG < prev    next >
Encoding:
Text File  |  1993-11-02  |  1.1 KB  |  42 lines
  1. *******************************************************
  2. * ╬─╝■├√│╞: YQMIS008
  3. * │╠╨≥╔Φ╝╞: └ε▒■╥╗                
  4. * ▒α│╠╚╒╞┌: 93.11.02   16:40:03
  5. *******************************************************
  6. set safe off
  7. set date ansi
  8. close data
  9. set color to w/1,,
  10. clear
  11. do smggp with '╟δ  ╔╘  ║≥ !',10,34
  12. set color to w/1,,
  13. sele A
  14. *set excl on
  15. use GZZK alia A
  16. sele B
  17. *set excl on
  18. use CQQK alia B
  19. index on ╨╒├√ to CQQK
  20. sele C
  21. *set excl on
  22. use GZJB alia C
  23. index on ╣ñ╫╩╝╢▒≡ to GZJB
  24. sele D
  25. *set excl on
  26. use ZWJT alia D
  27. index on ╓░╬± to ZWJT
  28. sele A
  29. set rela to ╨╒├√ into B addi
  30. sele A
  31. set rela to ╣ñ╫╩╝╢▒≡ into C addi
  32. sele A
  33. set rela to ╓░╬± into D addi
  34. sele A
  35. repl ╗∙▒╛╣ñ╫╩ with C->╗∙▒╛╣ñ╫╩ all
  36. repl ╓░╬±╜≥╠∙ with D->╓░╬±╜≥╠∙ all
  37. repl ╜▒╜≡ with B->╝╙░α╠∞╩²*C->╚╒╣ñ╫╩-B->╚▒╟┌╠∞╩²*C->╚╒╣ñ╫╩ all
  38. repl ╙ª╖ó║╧╝╞ with ╗∙▒╛╣ñ╫╩+╓░╬±╜≥╠∙+╢└╫╙▓╣╠∙+╜╗═¿▓╣╠∙+╜▒╜≡ all
  39. repl ╩╡╖ó╜≡╢ε with ╙ª╖ó║╧╝╞-╚▒╟┌┐█┐ε-╖┐╫Γ-╦«╖╤-╡τ╖╤ all
  40. *******************************************************
  41. * ▒α│╠╚╒╞┌: 93.11.02   16:40:04
  42. *******************************************************