Liren Large Software Subsidy 6/06.iso/b/b007/2.ddi/AMISG/PRGDELE.PRG

Text File | 1990-05-09 | 559 b | 34 lines

** ╔╛│²╓╕╢¿│╠╨≥ PRGDELE.PRG **
SET DELE ON
DO WHILE .T.
@ 0,0 SAY '╤í╘±▒╗╔╛│²│╠╨≥ . . .'
PN=''
DO SELEP
IF LEN(PN)=0
RETU
ENDIF
USE PRG INDE PRG
SET EXACT ON
SEEK PN
SET EXACT OFF
@ 3,10,8,70 BOX '+-+|+-+|'
@ 4,12 SAY '╡▒╟░│╠╨≥╬¬:'+P_DES
@ 5,12 SAY '    │╠╨≥├√:'+PN+'.PRG'
YN='N'
@ 7,20 SAY '╔╛│²╕├│╠╨≥┬≡?[Y/N]:' GET YN PICT '!' VALID YN$'YN'
READ
IF YN='Y'
DELE
ERAS &PN..PRG
ENDIF
@ 7,20 SAY '╗╣╥¬╔╛│╠╨≥┬≡?[Y/N]:' GET YN PICT '!' VALID YN$'YN'
READ
IF YN='N'
SET DELE OFF
PACK
USE
RETU
ENDIF
ENDDO
** END OF PRGDELE.PRG **