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