home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBSCOPY.PRG < prev    next >
Encoding:
Text File  |  1990-05-09  |  1.2 KB  |  67 lines
  1. ****** ╕┤╓╞╩²╛▌┐Γ╜ß╣╣ DBSCOPY.PRG ******
  2. ****** DO DBSCOPY                 ******
  3. SET TALK OFF
  4. @ 0,0 SAY  '╤í╘±▒╗╕┤╓╞╡─╩²╛▌╬─╝■!'
  5. STOR '' TO FN,FNO,CFN
  6. DO SELEF
  7. IF LEN(FN)=0
  8. RETU
  9. ENDIF
  10. FN1=SPACE(8)
  11. CFN1=CFN+SPACE(20-LEN(CFN))
  12. SELE 1
  13. USE FILE
  14. LOCA FOR RECNO()<>VAL(F_NO)
  15. REC=RECNO()
  16. INSE BEFO BLAN
  17. FNO1=SUBS(STR(1000+REC,4),2)
  18. SET INDE TO FILE
  19. REIN
  20. GO TOP
  21. DO WHILE .T.
  22. CLEAR
  23. @ 2,8 TO 8,70 DOUB
  24. @ 4,8 TO 8,70 DOUB
  25. @ 3,10 SAY ' ▒╗╕┤╓╞╡─╩²╛▌╬─╝■╬¬: &FN..DBF &CFN '
  26. @ 5,10 SAY '       ╬≈╬─╩²╛▌┐Γ├√:' GET FN1 PICT '!!!!!!!!'
  27. @ 6,10 SAY '       ╓╨╬─╩²╛▌┐Γ├√:' GET CFN1
  28. @ 7,10 SAY '       *** ╙╨╥╗╬¬┐╒╘≥╖╡╗╪ ***        '
  29. READ
  30. IF FN1=SPACE(8).OR. CFN1=SPACE(20)
  31. RETU
  32. ENDIF
  33. CFN1=TRIM(CFN1)
  34. SET EXACT ON
  35. SEEK FN1
  36. SET EXACT OFF
  37. IF .NOT. EOF()
  38. ? '╕├╬─╝■├√ &FN ╥╤╩╣╙├ ╓╨╬─╬─╝■├√╬¬ '+C_FNAME
  39. WAIT '╟├╚╬╥Γ╝ⁿ╘≥╝╠╨°ú«ú«ú« PLEASE SELECT AGAIN......'
  40. LOOP
  41. ELSE
  42. EXIT
  43. ENDIF
  44. ENDDO
  45. SET EXACT ON
  46. SEEK FN
  47. SET EXACT OFF
  48. SCAT TO FNR
  49. GO REC
  50. GATH FROM FNR
  51. REPL F_FMT WITH FN1,F_NO WITH FNO1,F_NAME WITH FN1,C_FNAME WITH CFN1,F_DEC WITH CFN1,IDX_NUM WITH 0,SYSFILE WITH '3'
  52. REIN
  53. USE DBD INDE DBD
  54. COPY TO DB FOR F_NO=FNO
  55. SELE 2
  56. USE DB
  57. REPL ALL F_NO WITH FNO1
  58. USE
  59. SELE 1
  60. APPE FROM DB
  61. USE &FN
  62. COPY TO &FN1
  63. USE
  64. RETU
  65. ** END OF DBSCOPY.PRG **
  66.  
  67.