home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / BASE1.PRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  1.6 KB  |  80 lines
  1. SET TALK ON
  2. ?'╟δ╩Σ╚δ╧┬┴╨▓╬╩²:'
  3. ACCE ' ┴π ╝■ ▓─ ┴╧ ┤· ║┼ :' TO TGCH
  4. ACCE ' ┴π ╝■ ═╝ ═╝ ║┼ :' TO BGCH
  5. CLEAR
  6. ? ' 1) ╓ß  2) ╓╨ ╝Σ ╓ß  3) ╗¿ ╝ⁿ ╓ß  4) │▌ ┬╓ ╓ß  5) ┬▌ ╕╦'
  7. ? ' 6) ╠╫  7) ╓ß ╠╫  8) ╓ß │╨ ╠╫  9) ┬▌ ─╕ ╠╫ 10) ╗¿ ╝ⁿ ╠╫'
  8. ? ' 11) │▌ ┬╓  12) ╦½ ┴¬ │▌ ┬╓  13) ╢α ┴¬ │▌ ┬╓  14) │▌ ┬╓ ╠╫  15) ╖¿ └╝ ┼╠'
  9. ? ' 16) ╫╢ │▌ ┬╓  17) ╬╧ ┬╓  18) ╬╧ ╕╦  19) ┴┤ ┬╓ 20) ╞ñ ┤° ┬╓'
  10. INPUT ' ┴π ╝■ ├√ │╞ :' TO Z3
  11. SET TALK OFF
  12. DO CASE
  13. CASE Z3=1
  14. STOR 'ZHO' TO DGCH
  15. CASE Z3=2
  16. STOR 'ZHZ' TO DGCH
  17. CASE Z3=3
  18. STOR 'HZH' TO DGCH
  19. CASE Z3=4
  20. STOR 'CZH' TO DGCH
  21. CASE Z3=5
  22. STOR 'LUG' TO DGCH
  23. CASE Z3=6
  24. STOR 'TAO' TO DGCH
  25. CASE Z3=7
  26. STOR 'ZHT' TO DGCH
  27. CASE Z3=8
  28. STOR 'ZCT' TO DGCH
  29. CASE Z3=9
  30. STOR 'LMT' TO DGCH
  31. CASE Z3=10
  32. STOR 'HJT' TO DGCH
  33. CASE Z3=11
  34. STOR 'CHL' TO DGCH
  35. CASE Z3=12
  36. STOR 'RCL' TO DGCH
  37. CASE Z3=13
  38. STOR 'SCL' TO DGCH
  39. CASE Z3=14
  40. STOR 'CLT' TO DGCH
  41. CASE Z3=15
  42. STOR 'PAN' TO DGCH
  43. CASE Z3=16
  44. STOR 'NCG' TO DGCH
  45. CASE Z3=17
  46. STOR 'NWW' TO DGCH
  47. CASE Z3=18
  48. STOR 'NWB' TO DGCH
  49. CASE Z3=19
  50. STOR 'NCW' TO DGCH
  51. CASE Z3=20
  52. STOR 'NBW' TO DGCH
  53. ENDC
  54. SET TALK OFF
  55. USE \HOUSEM\DBF\DATA
  56. APPE BLANK
  57. STOR LEN(TRIM(BGCH)) TO AA
  58. STOR 1 TO K
  59. DO WHIL K<AA
  60. IF SUBSTR(BGCH,K,1)='-'
  61. STOR K TO W
  62. EXIT
  63. ENDI
  64. STOR K+1 TO K
  65. ENDD
  66. STOR SUBSTR(BGCH,1,W) TO BGCH1
  67. STOR SUBSTR(BGCH,W+1,8) TO BGCH2
  68. STOR LEN(TRIM(BGCH2)) TO V
  69. STOR LEN(TRIM(TGCH)) TO M
  70. REPL MATE1 WITH TGCH,DRAFT1 WITH BGCH1,DRAFR1 WITH BGCH2
  71. REPL NAME1 WITH DGCH,W1 WITH W,V1 WITH V,M1 WITH M
  72. ACCE ' ╙╨ ╬▐ ╚╚ ┤ª └φ ╥¬ ╟≤ ? [N]' TO YN
  73. SET TALK OFF
  74. IF UPPER(YN)='Y'
  75. ACCE ' ╩Σ ╚δ ╚╚ ┤ª └φ ╥¬ ╟≤ :' TO TGCH
  76. REPL HEAT1 WITH TGCH
  77. ENDI
  78. COPY TO \HOUSEM\TXT\DATA.TXT SDF
  79. RETURN
  80.