home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / mysoft / softeras.prg < prev    next >
Encoding:
Text File  |  1985-12-25  |  1.5 KB  |  57 lines
  1. **** SOFTERAS.PRG ****
  2. ** PART OF "MYSOFT" SOFTWARE LIST MAINTENANCE PROGRAM
  3. ***********************************************************
  4. * SET ECHO ON
  5. * SET STEP ON
  6. SET FUNCTION 3 TO 'SOFTERAS'
  7. SET EXACT OFF
  8. ANSWER='N'
  9. DO WHILE .T.
  10.     IF UPPER(ANSWER)='C'
  11.         CONTINUE
  12.     ELSE
  13.         CLEAR
  14.         SET COLOR TO &TITLES
  15.         @ 2,10 SAY '     ********* ERASE AN ENTRY ********'
  16.         SET COLOR TO ®ULAR
  17.         @ 10,10 SAY ''
  18.         ACCEPT '       WHAT ENTRY DO YOU WANT TO ERASE ? ' TO ERASENAME
  19.         LOCATE FOR UPPER(ERASENAME)$UPPER(PROGRAM)
  20.     ENDIF
  21.     IF PROGRAM=' '
  22.         CLEAR
  23.         @11,10  SAY '       ENTRY NOT FOUND '
  24.         ?
  25.         ACCEPT '                 TRY AGAIN (Y/N) ? ' TO ANSWER
  26.             IF UPPER(ANSWER)='Y'
  27.                 LOOP
  28.             ELSE
  29.                 EXIT
  30.             ENDIF
  31.      ENDIF            
  32.     @ 13,10 SAY 'PROGRAM NAME: '+'...'
  33.     SET COLOR TO &WARNING
  34.     ?? PROGRAM 
  35.     SET COLOR TO ®ULAR
  36.     @ 14,10 SAY 'DESCRIPTION: '+'....'
  37.     SET COLOR TO &WARNING
  38.     ?? DESCR
  39.     ?
  40.     SET COLOR TO ®ULAR
  41.     ACCEPT '       THIS ONE (Y/N) OR CONTINUE (C) ? ' TO ANSWER
  42.         IF UPPER(ANSWER)='Y'
  43.             DELETE
  44.             PACK
  45.         ENDIF
  46.         IF UPPER(ANSWER)='C'
  47.             LOOP
  48.         ENDIF
  49.     ?
  50.     ACCEPT '      DO YOU WANT TO ERASE ANOTHER (Y/N)? ' TO X
  51.         IF UPPER(X)='Y'
  52.             LOOP
  53.         ENDIF
  54.     RETURN
  55. ENDDO
  56. RETURN
  57.