home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / mysoft / softmod.prg < prev   
Encoding:
Text File  |  1985-12-24  |  1.6 KB  |  47 lines
  1. * SOFTMOD.PRG
  2. * PART OF "MYSOFT" SOFTWARE LIST MAINTENANCE BY LES PENNER 
  3. * MODIFIES ENTRIES IN THE SOFTWARE LIST
  4. ************************************************************
  5. SET FUNCTION 3 'SOFTMOD'
  6. SET TALK OFF
  7. SET ECHO OFF
  8. SET EXACT OFF
  9. DO WHILE .T.
  10.     CLEAR
  11.     SET COLOR TO &TITLES
  12.     ?
  13.     ? '             ******** MODIFY AN ENTRY ********'
  14.     SET COLOR TO ®ULAR
  15.     @ 10,10 SAY ''   
  16.     ACCEPT '    ENTER ANY UNIQUE PART OF PROGRAM NAME: ' TO PROGNAME
  17.     CLEAR
  18.     LOCATE FOR UPPER(PROGNAME)$UPPER(PROGRAM)
  19.     SET COLOR TO &TITLES
  20.     ?
  21.     ? '             ******** MODIFY AN ENTRY ********'
  22.     SET COLOR TO ®ULAR
  23.     @ 4,10   SAY '<ESC> TO ABORT'
  24.     @ 5,10   SAY '<ENTER> ON LAST LINE TO COMPLETE'
  25.     @ 6,10   SAY 'USE ARROW KEYS TO MOVE AROUND'
  26.     @ 8,10   SAY 'PROGRAM NAME'+'..........................'GET PROGRAM
  27.     @ 9,10   SAY 'VERSION'+'...............................'GET VERS
  28.     @ 10,10  SAY 'TYPE (GAME/DB/WP/ADVEN/SPREAD/UTIL/'
  29.     @ 11,10  SAY ' COMM/GRAPHICS/LEARN/PROG/FIN/MISC)'+'...'GET CATEGORY
  30.     @ 12,10  SAY 'NUMBER OF DISKS'+'.......................'GET DISKS
  31.     @ 13,10  SAY 'IS PROGRAM PROTECTED (Y/N) ?'+'..........'GET PROT
  32.     @ 14,10  SAY 'DOCUMENTATION (YES/NO/HELP-SC/DISK)'+'...'GET DOCS
  33.     @ 15,10  SAY 'INPUT DEVICE (KBD/JOY/MOUSE)'+'..........'GET ì
  34. DEVICE
  35.     @ 16,10 SAY 'GRAPHICS BOARD REQUIRED (Y/N)?'+'........'GET ì
  36. GRAPHICS
  37.     @ 17,10 SAY 'DESCRIPTION'+'...........................'GET ì
  38. DESCR
  39.     READ
  40.     ACCEPT '     DO YOU WANT TO MODIFY ANOTHER (Y/N)? ' TO ANSWER
  41.     IF UPPER (ANSWER)='N'
  42.         RETURN
  43.     ENDIF
  44. ENDDO
  45. SET EXACT ON
  46. RETURN
  47.