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