home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / PRGB.PRG < prev    next >
Encoding:
Text File  |  1990-09-04  |  1.6 KB  |  65 lines
  1. ****** ╦∙╙╨╕ⁿ╨┬│╠╨≥▒╕╖▌ C:ALL==>A:  PRGB.PRG 
  2. ****** DO PRGB    [└√╙├╙▓┼╠╔╧╡─╚╒╞┌║═PRG.DBF╓╨╡─╚╒╞┌▒╚╜╧]
  3. @ 1,0 CLEAR
  4. @ 3,20 SAY '╟δ╘┌╟²╢»╞≈ú┴: ╓╨▓σ╚δ│╠╨≥▒╕╖▌┼╠!!!'
  5. @ 4,25 SAY '╫╝▒╕║├║≤░┤╚╬╥Γ╝ⁿ . . .'
  6. A=INKEY(0)
  7. @ 5,20 SAY '╧╡═│╒²╘┌╘╦╨╨úí╟δ╔╘║≥ . . .'
  8. SET SAFE OFF
  9. SET CONS OFF
  10. ! DIR *.PRG >PPP.TXT
  11. SELE 2
  12. USE PRG
  13. COPY STRU EXTE TO FNS
  14. USE FNS
  15. ZAP
  16. APPE BLAN
  17. REPL FIELD_NAME WITH "P_NAME",FIELD_TYPE WITH "C",FIELD_LEN WITH  8,FIELD_DEC WITH 0
  18. APPE BLAN
  19. REPL FIELD_NAME WITH "SP",FIELD_TYPE WITH "C",FIELD_LEN WITH  1,FIELD_DEC WITH 0
  20. APPE BLAN
  21. REPL FIELD_NAME WITH "P_EXT",FIELD_TYPE WITH "C",FIELD_LEN WITH  3,FIELD_DEC WITH 0
  22. APPE BLAN
  23. REPL FIELD_NAME WITH "P_BYTE",FIELD_TYPE WITH "N",FIELD_LEN WITH 11,FIELD_DEC WITH 0
  24. APPE BLAN
  25. REPL FIELD_NAME WITH "P_DATE",FIELD_TYPE WITH "C",FIELD_LEN WITH  8,FIELD_DEC WITH 0
  26. APPE BLAN
  27. REPL FIELD_NAME WITH "P_TIME",FIELD_TYPE WITH "C",FIELD_LEN WITH  7,FIELD_DEC WITH 0
  28. APPE BLAN
  29. REPL FIELD_NAME WITH "P_AP",FIELD_TYPE WITH "C",FIELD_LEN WITH  1,FIELD_DEC WITH 0
  30. CREA PPP FROM FNS
  31. USE PPP ALIAS PP
  32. APPE FROM PPP SDF
  33. GO TOP
  34. INDE ON P_NAME TO PPP
  35. ERAS PPP.TXT
  36. SELE 1
  37. USE PRG INDE PRG
  38. SET RELA TO P_NAME INTO PP
  39. DO WHILE .NOT. EOF()
  40. SET DATE AMER
  41. IF P_DATE<CTOD(PP->P_DATE)
  42. REPL P_DATE WITH CTOD(PP->P_DATE),P_BYTE WITH PP->P_BYTE
  43. PN=TRIM(P_NAME)
  44. SET DATE ANSI
  45. SET CONS ON
  46. ? PN+'.PRG'
  47. ROW=ROW()
  48. COL=COL()+1
  49. ! COPY C:&PN..PRG  A:&PN..PRG >NUL
  50. @ ROW,COL SAY  'has been copied!'
  51. SET CONS OFF
  52. ENDIF
  53. SKIP
  54. ENDDO
  55. SET DATE ANSI
  56. ?? CHR(7)+CHR(7)
  57. SELE 2
  58. ZAP
  59. CLOS DATA
  60. ERAS PPP.IDX
  61. A=INKEY(2)
  62. SET CONS ON
  63. RETU
  64. ** END OF PRGB.PRG **
  65.