home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / PRGB2.PRG < prev    next >
Encoding:
Text File  |  1990-09-04  |  638 b   |  32 lines
  1. ****** ╦∙╙╨╕ⁿ╨┬│╠╨≥▒╕╖▌ C:ALL==>A:  PRGB2.PRG ******
  2. ****** DO PRGB2   [└√╙├ 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. SELE 1
  11. USE PRG
  12. SET FILT TO P_DATE>PB_DATE
  13. GO TOP
  14. DO WHILE .NOT. EOF()
  15. REPL PB_DATE WITH P_DATE
  16. PN=TRIM(P_NAME)
  17. SET CONS ON
  18. ? PN+'.PRG'
  19. ROW=ROW()
  20. COL=COL()+1
  21. ! RUN COPY &PN..PRG A:&PN..PRG >NUL
  22. @ ROW,COL SAY  '  has been copied !!!'
  23. SET CONS OFF
  24. SKIP
  25. ENDDO
  26. ?? CHR(7)+CHR(7)
  27. A=INKEY(2)
  28. USE
  29. SET CONS ON
  30. RETU
  31. ** END OF PRGB2.PRG **
  32.