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