home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / TSCRE.PRG < prev    next >
Encoding:
Text File  |  1990-03-14  |  1.9 KB  |  85 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. SET TALK ON
  42. CLEAR
  43. ? '*************************************************************'
  44. ? '* 1) ─┌┬▌╬╞                                                 *'
  45. ? '* 2) ═Γ┬▌╬╞                                                 *'
  46. ? '*************************************************************'
  47. INPUT '╟δ╩Σ╚δ┬▌╬╞╡─└α▒≡: ' TO LWLB
  48. DO CASE
  49. CASE LWLB=1
  50. CLEAR
  51. ? '*************************************************************'
  52. ? '* 1) 7H  2) 8H  3) 9H                                       *'
  53. ? '*************************************************************'
  54. CASE LWLB=2
  55. CLEAR
  56. ? '*************************************************************'
  57. ? '* 4) 8c  5) 9c  6) 8e  7) 9e  8) 7h                         *'
  58. ? '*************************************************************'
  59. ENDC
  60. INPUT '╟δ╩Σ╚δ┬▌╬╞╡─╛½╢╚╡─╤í╘±: ' TO LWJD
  61. SET TALK OFF
  62. DO CASE
  63. CASE LWJD=1
  64. STOR '7H' TO DGCH
  65. CASE LWJD=2
  66. STOR '8H' TO DGCH
  67. CASE LWJD=3
  68. STOR '9H' TO DGCH
  69. CASE LWJD=4
  70. STOR '8c' TO DGCH
  71. CASE LWJD=5
  72. STOR '9c' TO DGCH
  73. CASE LWJD=6
  74. STOR '8e' TO DGCH
  75. CASE LWJD=7
  76. STOR '9e' TO DGCH
  77. CASE LWJD=8
  78. STOR '7h' TO DGCH
  79. ENDC
  80. SET TALK OFF
  81. USE \HOUSEM\DBF\OUTLF
  82. GOTO NR
  83. REPL DL1 WITH DL,DR1 WITH DL,LL1 WITH H,DGCH1 WITH DGCH
  84. RETURN
  85.