home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / CUANDANG.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.5 KB  |  63 lines
  1.         ****▒╧╥╡╫╩┴╧┤µ╡╡(CUNDANG)*****
  2. CLEAR
  3. DO XZC1
  4. STORE "  " TO X
  5. @ 5,20 SAY "╟δ╩Σ╚δ&ZZ╫¿╥╡╨Φ┤µ╡╡╡──Ω╝╢(84,85,86,87...)" GET X
  6. AC2="AC2"+"&Z"+"&X"
  7. AC3="AC3"+"&Z"+"&X"
  8. AC4="AC4"+"&Z"+"&X"
  9. AC5="AC5"+"&Z"+"&X"
  10. AC6="AC6"+"&Z"+"&X"
  11. USE B:AC2&Z
  12. COPY TO AC2 STRU
  13. COPY TO AC2 FOR SUBSTR(BIN,1,2)="&X"
  14. USE B:AC3&Z
  15. COPY TO AC3 STRU
  16. COPY TO AC3 FOR SUBSTR(BIN,1,2)="&X"
  17. USE B:AC4&Z
  18. COPY TO AC4 STRU
  19. COPY TO AC4 FOR SUBSTR(BIN,1,2)="&X"
  20. USE B:AC5&Z 
  21. COPY TO AC5 STRU
  22. COPY TO AC5 FOR SUBSTR(BIN,1,2)="&X"
  23. USE B:AC8&Z
  24. COPY TO AC8 STRU
  25. COPY TO AC8 FOR SUBSTR(BIN,1,2)="&X"
  26. CLEAR
  27. STORE " " TO YES
  28. @ 5,16 SAY "&ZZ╫¿╥╡&X─Ω╝╢╡─╤º╝«╫╩┴╧╥╤┤µ╡╡,╩╟╖±╥¬┤╙╓≈┐Γ╓╨╟σ│² ì
  29. (Y/N)?" GET YES
  30. READ
  31.   IF UPPER(YES)="Y"
  32.      USE B:AC2&Z
  33.      DELETE FOR SUBSTR(BIN,1,2)="&X" .AND. B18<>"╕┤╤º"
  34.      PACK
  35.      USE B:AC3&Z
  36.      DELETE FOR SUBSTR(BIN,1,2)="&X"
  37.      PACK
  38.      USE B:AC4&Z
  39.      DELETE FOR SUBSTR(BIN,1,2)="&X"
  40.      PACK
  41.      USE B:AC5&Z
  42.      DELETE FOR SUBSTR(BIN,1,2)="&X"
  43.      PACK
  44.      USE B:AC8&Z
  45.      DELETE FOR SUBSTR(BIN,1,2)="&X"
  46.      PACK
  47.    ENDIF    
  48. WAIT "╟δ╕ⁿ╗╗B╟²╢»╞≈╡─╩²╛▌┼╠╬¬&ZZ╫¿╥╡╡─│╔╝¿┼╠,╚╗║≤░┤╚╬╥╗╝ⁿ╝╠╨°."
  49. USE B:AC6&Z
  50. COPY TO AC6 STRU
  51. COPY TO AC6 FOR SUBSTR(BIN,1,2)="&X"
  52.   IF UPPER(YES)="Y"
  53.      DELETE FOR SUBSTR(BIN,1,2)="&X"
  54.      PACK
  55.   ENDIF
  56. COPY FILE B:KM6&Z&X.DBF TO KM&Z&X.DBF
  57.   IF UPPER(YES)="Y"
  58.      DELETE FILE B:KM6&Z&X.DBF
  59.   ENDIF
  60. WAIT "┤µ╡╡╣ñ╫≈╥╤╜ß╩°,╟δ░╤┤µ╡╡╩²╛▌┼╠┤╙A╟²╢»╞≈╚í│÷,▓ó╖┼╚δ╓≈│╠╨≥┼╠,░┤╚ ì
  61. ╥╗╝ⁿ╝╠╨°"
  62. RETURN
  63.