home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBSPTONE.PRG < prev    next >
Encoding:
Text File  |  1990-04-18  |  411 b   |  22 lines
  1. ****** ┤≥╙í─│╩²╛▌┐Γ╜ß╣╣ DBSPTONE.PRG ******
  2. ******  DO DBSPTONE                  ******
  3. CLEAR
  4. FN=''
  5. DO SELEF
  6. IF LEN(FN)=0
  7. RETU
  8. ENDIF
  9. USE FILE INDE FILE
  10. SEEK FN
  11. FNO=F_NO
  12. CFN=TRIM(C_FNAME)
  13. EXP="F_NO='&FNO.'"
  14. BT=FN+'.DBF '+CFN+'╜ß╣╣▒φ'
  15. LM='1,2,3,4,5,6,7,8,9,10'
  16. @ 5,20 SAY '╟δ╫╝▒╕║├┤≥╙í╓╜ ! ░┤╚╬╥╗╝ⁿ╘≥╝╠╨°......'
  17. WAIT ''
  18. DO DBPRINT WITH 'DBD',EXP,1,BT,LM,40,1
  19. RETU
  20. ** END OF DBSPTONE.PRG **
  21.  
  22.