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