home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / REDIT.PRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  2.0 KB  |  100 lines
  1. PUBL SCH,XCH,DL,DGCH
  2. STOR " " TO XG
  3. CLEAR
  4. ACCE "╨▐╕─▓╬╩²╖±(Y/N)?" TO XG
  5. IF UPPER(XG)="Y"
  6. STOR .T. TO YZ
  7. DO WHIL YZ
  8. STOR 'N' TO NY
  9. ACCEPT ' ╨▐ ╕─ ┴π ╝■ ▓─ ┴╧ ╖± ? [N]' TO NY
  10. SET TALK OFF
  11. USE \HOUSEM\DBF\DATA
  12. IF UPPER(NY)='Y'
  13. ?" ╘¡ ┴π ╝■ ▓─ ┴╧ ╬¬ :",MATE1
  14. ACCEPT ' ╨▐ ╕─ ║≤ ┴π ╝■ ▓─ ┴╧ :' TO TGCH
  15. SET TALK OFF
  16. STOR LEN(TRIM(TGCH)) TO M
  17. REPL MATE1 WITH TGCH,M1 WITH M
  18. ENDI
  19. ACCEPT ' ╨▐ ╕─ ┴π ╝■ ═╝ ═╝ ║┼ ╖± ? [N]' TO NY
  20. SET TALK OFF
  21. IF UPPER(NY)='Y'
  22. ?" ╘¡ ┴π ╝■ ═╝ ═╝ ║┼ ╬¬ :",TRIM(DRAFT1),DRAFR1
  23. ACCEPT ' ╨▐ ╕─ ║≤ ┴π ╝■ ═╝ ═╝ ║┼ :' TO BGCH
  24. SET TALK OFF
  25. STOR LEN(TRIM(BGCH)) TO AA
  26. STOR 1 TO K
  27. DO WHIL K<AA
  28. IF SUBSTR(BGCH,K,1)='-'
  29. STOR K TO W
  30. ENDI
  31. STOR K+1 TO K
  32. ENDD
  33. STOR SUBSTR(BGCH,1,W) TO BGCH1
  34. STOR SUBSTR(BGCH,W+1,8) TO BGCH2
  35. STOR LEN(TRIM(BGCH2)) TO V
  36. REPL DRAFT1 WITH BGCH1,DRAFR1 WITH BGCH2
  37. REPL W1 WITH W,V1 WITH V
  38. ENDI
  39. ACCEPT ' ╨▐ ╕─ ┴π ╝■ ═╝ ├√ │╞ ╖± ? [N]' TO NY
  40. SET TALK OFF
  41. IF UPPER(NY)='Y'
  42. USE \HOUSEM\DBF\DATA
  43. ?" 1) ╓ß  2) ╓╨ ╝Σ ╓ß  3) ╗¿ ╝ⁿ ╓ß  4) │▌ ┬╓ ╓ß  5) ┬▌ ╕╦"
  44. ?" 6) ╠╫  7) ╓ß ╠╫  8) ╓ß │╨ ╠╫  9) ┬▌ ─╕ ╠╫ 10) ╗¿ ╝ⁿ ╠╫"
  45. ?" 11) │▌ ┬╓  12) ╦½ ┴¬ │▌ ┬╓  13) ╚² ┴¬ │▌ ┬╓  14) │▌ ┬╓ ╠╫"
  46. INPUT ' ╨▐ ╕─ ║≤ ┴π ╝■ ├√ │╞ ┤· ║┼ :' TO Z1
  47. SET TALK OFF
  48. DO CASE
  49. CASE Z1=1
  50. STOR 'ZHO' TO DGCH
  51. CASE Z1=2
  52. STOR 'ZHZ' TO DGCH
  53. CASE Z1=3
  54. STOR 'HZH' TO DGCH
  55. CASE Z1=4
  56. STOR 'CZH' TO DGCH
  57. CASE Z1=5
  58. STOR 'LUG' TO DGCH
  59. CASE Z1=6
  60. STOR 'TAO' TO DGCH
  61. CASE Z1=7
  62. STOR 'ZHT' TO DGCH
  63. CASE Z1=8
  64. STOR 'ZCT' TO DGCH
  65. CASE Z1=9
  66. STOR 'LMT' TO DGCH
  67. CASE Z1=10
  68. STOR 'HJT' TO DGCH
  69. CASE Z1=11
  70. STOR 'CHL' TO DGCH
  71. CASE Z1=12
  72. STOR 'RCL' TO DGCH
  73. CASE Z1=13
  74. STOR 'SCL' TO DGCH
  75. CASE Z1=14
  76. STOR 'CLT' TO DGCH
  77. ENDC
  78. REPL NAME1 WITH DGCH
  79. ENDI
  80. ACCEPT ' ╨▐ ╕─ ╚╚ ┤ª └φ ╥¬ ╟≤ ╖± ? [N]' TO NY
  81. SET TALK OFF
  82. IF UPPER(NY)='Y'
  83. USE \HOUSEM\DBF\DATA
  84. ? ' ╘¡ ╚╚ ┤ª └φ ╥¬ ╟≤ ╩╟ :',HEAT1
  85. ACCEPT ' ╨▐ ╕─ ║≤ ╚╚ ┤ª └φ ╥¬ ╟≤ :' TO BGCH
  86. SET TALK OFF
  87. REPL HEAT1 WITH BGCH
  88. ENDI
  89. COPY TO DATA.TXT SDF
  90. DO \HOUSEM\PRG\EDITS
  91. ACCE "╝╠╨°╨▐╕─╖±(Y/N)?" TO JX
  92. IF UPPER(JX)="N"
  93. STOR .F. TO JX
  94. QUIT
  95. ENDIF
  96. ENDDO
  97. ELSE
  98. QUIT
  99. ENDIF
  100.