home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / PRGDISP.PRG < prev    next >
Encoding:
Text File  |  1990-04-17  |  318 b   |  21 lines
  1. ****** ╧╘╩╛─││╠╨≥ PRGDISP.PRG ******
  2. ****** DO PRGDISP             ******
  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. TYPE &PN..PRG
  13. K='N'
  14. WAIT '▒╛│╠╨≥╧╘╩╛═Ω▒╧,╗╣╧╘╩╛▒≡╡─│╠╨≥┬≡?(Y/N):' TO K
  15. IF UPPER(K)#'Y'
  16. CLOSE DATA
  17. RETU
  18. ENDIF
  19. ENDDO
  20. ** END OF PRGDISP.PRG **
  21.