home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / CKU.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  522 b   |  30 lines
  1.         ****│╔╝¿┐Γ╡─╜¿┴ó(CKU)****
  2. CLEAR
  3. STORE .T. TO T1
  4. DO WHILE T1
  5. DO XZC
  6. CLEAR
  7. STORE " " TO YES
  8. @ 3,16 SAY "╩╟╤º╝«╩²╛▌┼╠,╚⌠▓╗╩╟╟δ╕ⁿ╗╗.(Y/N)" GET YES
  9. READ
  10. IF UPPER(YES)<>"Y"
  11.    CLEAR
  12.    LOOP
  13. ENDIF
  14. CF="AC8"+"&Z"+".DBF"
  15. COPY FILE B:&CF TO &CF
  16. CLEAR
  17. DO XZC1
  18. USE AC6
  19. CLEAR
  20. @ 5,20 SAY "│╔╝¿┐Γ╘┌╜¿┴ó╓╨,╟δ╔╘╡╚║≥ !"
  21. COPY TO B:AC6&Z STRU
  22. USE AC8&Z
  23. COPY TO B:AC6&Z FIELD BIN,MING
  24. @ 8,20 SAY "│╔╝¿┐Γ│⌡╩╝╗»╜ß╩° !"
  25. CLOSE DATABASE AC8&Z
  26. DELETE FILE &CF  
  27. WAIT "░┤╚╬╥╗╝ⁿ╖╡╗╪ !"
  28. STORE .F. TO T1
  29. ENDDO
  30. RETURN