home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBC1.PRG < prev    next >
Encoding:
Text File  |  1990-05-23  |  298 b   |  18 lines
  1. ****** DBC1.PRG ******
  2. ****** DO DBC1  ******
  3. ****** PARA FN  ******
  4. IF TYPE('FN')='U'
  5. STOR '' TO FN,FNO,CFN
  6. DO SELEF
  7. ENDIF
  8. EXP1=''
  9. EXP=''
  10. DO DBFEXP
  11. USE &FN
  12. COUNT TO CT1 FOR &EXP
  13. ? "┬·╫π╠⌡╝■ &EXP1 ╡─╝╟┬╝╩²╬¬:"+STR(CT1,4)
  14. WAIT "╟├╚╬╥Γ╝ⁿ╘≥╝╠╨°ú«ú«ú«"
  15. USE
  16. RETU
  17. ** END OF DBC1.PRG **
  18.