home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / RPTCOPY.PRG < prev    next >
Encoding:
Text File  |  1990-06-04  |  1.1 KB  |  72 lines
  1. SET TALK OFF
  2. @ 0,0 SAY '╤í╘±▒╗╕┤╓╞▒¿▒φ...'
  3. BNO=0
  4. DO SELEB
  5. IF BNO=0
  6.     RETU
  7. ENDIF
  8. SELE 1
  9. USE BTK
  10. LOCA FOR B_NO=BNO
  11. SCAT TO BB
  12. @ 1,0 CLEAR
  13. @ 7,20 SAY '╟δ╨▐╕─▒¿▒φ├√│╞:' GET BB(2)
  14. READ
  15. LOCA FOR RECNO()<>B_NO
  16. BBNO=RECNO()
  17. BB(1)=BBNO
  18. USE BBTK
  19. COPY TO DB FOR B_NO=BNO SDF
  20. COPY STRU EXTE TO FNS
  21. USE FNS
  22. 2
  23. REPL FIELD_NAME WITH '╗∙▒╛╧ε╦π╩╜'
  24. 3
  25. REPL FIELD_NAME WITH '└α╨═'
  26. 4
  27. REPL FIELD_NAME WITH '┐φ╢╚'
  28. 5
  29. REPL FIELD_NAME WITH '╨í╩²'
  30. 6
  31. REPL FIELD_NAME WITH '└█╝╞'
  32. CREA ▒φ╗∙▒╛╧ε┐Γ FROM FNS
  33. APPE FROM DB SDF
  34. ERAS DB.TXT
  35. GO TOP
  36. SET MENU ON
  37. BROW FIELDS ╗∙▒╛╧ε╦π╩╜,└α╨═,┐φ╢╚,╨í╩²,└█╝╞ NOAP WIDT 60
  38. SET MENU OFF
  39. REPL ALL B_NO WITH BBNO
  40. COPY TO DB SDF
  41. USE BBTK
  42. APPE FROM DB SDF
  43. ERAS DB.TXT
  44. USE BTK
  45. IF BBNO<=RECNO()
  46. GO BBNO
  47. INSE BLAN BEFO
  48. ELSE
  49. APPE BLAN
  50. ENDIF
  51. GATH FROM BB
  52. USE FFBT
  53. COPY TO DB FOR B_NO=BNO
  54. USE DB
  55. REPL ALL B_NO WITH BBNO
  56. USE FFBT
  57. APPE FROM DB
  58. USE BMZK
  59. COPY TO DB FOR B_NO=BNO
  60. USE DB
  61. REPL ALL B_NO WITH BBNO
  62. USE BMZK
  63. APPE FROM DB
  64. USE BWZK
  65. COPY TO DB FOR B_NO=BNO
  66. USE DB
  67. REPL ALL B_NO WITH BBNO
  68. USE BWZK
  69. APPE FROM DB
  70. USE
  71. RETUì
  72.