home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / PRGMODI.PRG < prev    next >
Encoding:
Text File  |  1990-04-17  |  391 b   |  25 lines
  1. ****** ▒α╝¡╛╔│╠╨≥ PRGMODI.PRG ******
  2. ****** DO PRGMODI             ******
  3. SET TALK OFF
  4. DO WHILE .T.
  5. CLEAR
  6. PN=''
  7. DO SELEP
  8. IF LEN(PN)=0
  9. CLOS DATA
  10. RETURN
  11. ENDIF
  12. SELE 1
  13. USE PRG INDE PRG
  14. SEEK PN
  15. REPL P_DATE WITH DATE()
  16. PN=TRIM(P_NAME)
  17. MODI COMM &PN
  18. WAIT '▒╛│╠╨≥▒α╝⌐═Ω▒╧,╗╣╙╨▒≡╡─│╠╨≥╨Φ▒α╝⌐┬≡?(Y/N):' TO K
  19. IF UPPER(K)#'Y'
  20. CLOS DATA
  21. RETU
  22. ENDIF
  23. ENDDO
  24. ** END OF PRGMODI.PRG **
  25.