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