home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
mysoft
/
softeras.prg
< prev
next >
Wrap
Text File
|
1985-12-25
|
1KB
|
57 lines
**** SOFTERAS.PRG ****
** PART OF "MYSOFT" SOFTWARE LIST MAINTENANCE PROGRAM
***********************************************************
* SET ECHO ON
* SET STEP ON
SET FUNCTION 3 TO 'SOFTERAS'
SET EXACT OFF
ANSWER='N'
DO WHILE .T.
IF UPPER(ANSWER)='C'
CONTINUE
ELSE
CLEAR
SET COLOR TO &TITLES
@ 2,10 SAY ' ********* ERASE AN ENTRY ********'
SET COLOR TO ®ULAR
@ 10,10 SAY ''
ACCEPT ' WHAT ENTRY DO YOU WANT TO ERASE ? ' TO ERASENAME
LOCATE FOR UPPER(ERASENAME)$UPPER(PROGRAM)
ENDIF
IF PROGRAM=' '
CLEAR
@11,10 SAY ' ENTRY NOT FOUND '
?
ACCEPT ' TRY AGAIN (Y/N) ? ' TO ANSWER
IF UPPER(ANSWER)='Y'
LOOP
ELSE
EXIT
ENDIF
ENDIF
@ 13,10 SAY 'PROGRAM NAME: '+'...'
SET COLOR TO &WARNING
?? PROGRAM
SET COLOR TO ®ULAR
@ 14,10 SAY 'DESCRIPTION: '+'....'
SET COLOR TO &WARNING
?? DESCR
?
SET COLOR TO ®ULAR
ACCEPT ' THIS ONE (Y/N) OR CONTINUE (C) ? ' TO ANSWER
IF UPPER(ANSWER)='Y'
DELETE
PACK
ENDIF
IF UPPER(ANSWER)='C'
LOOP
ENDIF
?
ACCEPT ' DO YOU WANT TO ERASE ANOTHER (Y/N)? ' TO X
IF UPPER(X)='Y'
LOOP
ENDIF
RETURN
ENDDO
RETURN