home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBH2.PRG < prev    next >
Encoding:
Text File  |  1990-06-28  |  667 b   |  36 lines
  1. ****** ╗╓╕┤╦∙╙╨╩²╛▌╬─╝■ A:ALL==>C:  DBH1.PRG ******
  2. ****** DO DBH2                             ******
  3. CLEAR
  4. @ 5,20 SAY '╟δ╜½╩²╛▌▒╕╖▌┼╠▓σ╚δ A: ╟²╢»╞≈'
  5. @ 6,20 SAY '╫╝▒╕║├║≤░┤╗╪│╡......'
  6. WAIT ''
  7. ! COPY FILE.DBF FFILE.DBF >NUL
  8. SELE 1
  9. USE FFILE
  10. DO WHILE .NOT. EOF()
  11. FN=TRIM(F_NAME)
  12. IF FILE('A:&FN..DBF')
  13. ! COPY A:&FN..DBF &FN..DBF >NUL
  14. SKIP
  15. LOOP
  16. ENDIF
  17. CLEAR
  18. @ 5,20 SAY ' A: ┼╠╓╨╬▐┤╦╩²╛▌╬─╝■ &FN..DBF '+C_FNAME
  19. YN=' '
  20. DO WHILE AT(YN,'HT')=0
  21. @ 6,20 SAY '╗╗╚φ┼╠--H;╗╓╕┤╧┬╥╗╕÷--T:' GET YN
  22. READ
  23. YN=UPPE(YN)
  24. ENDDO
  25. IF YN='T'
  26. SKIP
  27. LOOP
  28. ENDIF
  29. @ 7,20 SAY '╗╗║├╚φ┼╠║≤░┤╗╪│╡......'
  30. WAIT ''
  31. ENDDO
  32. CLOS DATA
  33. ERAS FFILE.DBF
  34. RETU
  35. ** END OF DBH2.PRG **
  36.