home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBB1.PRG < prev    next >
Encoding:
Text File  |  1990-06-28  |  449 b   |  23 lines
  1. ****** ▒╕╖▌╥╗╩²╛▌╬─╝■ C:ONE==>A:  DBB1.PRG ******
  2. ****** DO DBB1                             ******
  3. CLEAR
  4. FN=''
  5. CFN=''
  6. DO SELEF
  7. IF LEN(FN)=0
  8. RETU
  9. ENDIF
  10. FN=TRIM(FN)
  11. @ 1,0 CLEAR
  12. @ 5,20 SAY CFN+' '+FN+'.DBF '
  13. @ 6,20 SAY '╟δ╘┌╟²╢»╞≈ú┴: ╓╨▓σ╚δ╩²╛▌▒╕╖▌┼╠!!!'
  14. @ 7,20 SAY '╫╝▒╕║├║≤░┤╚╬╥Γ╝ⁿ . . .'
  15. A=INKEY(0)
  16. SET CONS OFF
  17. ! COPY &FN..DBF A:&FN..DBF >NUL
  18. SET CONS ON
  19. ?? ' ▒╕╖▌═Ω▒╧ !'+CHR(7)+CHR(7)
  20. A=INKEY(2)
  21. RETU
  22. ** END OF DBB1.PRG **
  23.