home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / PRGB1.PRG < prev    next >
Encoding:
Text File  |  1990-06-28  |  612 b   |  33 lines
  1. ****** ─│╥╗│╠╨≥▒╕╖▌ C:ONE==>A:  PRGB1.PRG ******
  2. ****** DO PRGB1                           ******
  3. @ 1,0 CLEAR
  4. PN=''
  5. DO SELEP
  6. IF LEN(PN)=0
  7. RETU
  8. ENDIF
  9. @ 1,0 CLEAR
  10. @ 3,20 SAY '╟δ╘┌╟²╢»╞≈ú┴: ╓╨▓σ╚δ│╠╨≥▒╕╖▌┼╠!!!'
  11. @ 4,25 SAY '╫╝▒╕║├║≤░┤╚╬╥Γ╝ⁿ . . .'
  12. A=INKEY(0)
  13. @ 5,20 SAY '╧╡═│╒²╘┌╘╦╨╨úí╟δ╔╘║≥ . . .'
  14. SET SAFE OFF
  15. SET CONS OFF
  16. SELE 1
  17. USE PRG INDE PRG
  18. SEEK PN
  19. REPL PB_DATE WITH P_DATE
  20. SET CONS ON
  21. ? PN+'.PRG'
  22. ROW=ROW()
  23. COL=COL()+1
  24. ! COPY &PN..PRG A:&PN..PRG >NUL
  25. @ ROW,COL SAY '  has been copied !!!'
  26. ?? CHR(7)+CHR(7)
  27. A=INKEY(2)
  28. SET CONS OFF
  29. USE
  30. SET CONS ON
  31. RETU
  32. ** END OF PRGB1.PRG **
  33.