home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
mysoft2.zip
/
SOFTMOD.PRG
< prev
Wrap
Text File
|
1985-12-24
|
2KB
|
47 lines
* SOFTMOD.PRG
* PART OF "MYSOFT" SOFTWARE LIST MAINTENANCE BY LES PENNER
* MODIFIES ENTRIES IN THE SOFTWARE LIST
************************************************************
SET FUNCTION 3 'SOFTMOD'
SET TALK OFF
SET ECHO OFF
SET EXACT OFF
DO WHILE .T.
CLEAR
SET COLOR TO &TITLES
?
? ' ******** MODIFY AN ENTRY ********'
SET COLOR TO ®ULAR
@ 10,10 SAY ''
ACCEPT ' ENTER ANY UNIQUE PART OF PROGRAM NAME: ' TO PROGNAME
CLEAR
LOCATE FOR UPPER(PROGNAME)$UPPER(PROGRAM)
SET COLOR TO &TITLES
?
? ' ******** MODIFY AN ENTRY ********'
SET COLOR TO ®ULAR
@ 4,10 SAY '<ESC> TO ABORT'
@ 5,10 SAY '<ENTER> ON LAST LINE TO COMPLETE'
@ 6,10 SAY 'USE ARROW KEYS TO MOVE AROUND'
@ 8,10 SAY 'PROGRAM NAME'+'..........................'GET PROGRAM
@ 9,10 SAY 'VERSION'+'...............................'GET VERS
@ 10,10 SAY 'TYPE (GAME/DB/WP/ADVEN/SPREAD/UTIL/'
@ 11,10 SAY ' COMM/GRAPHICS/LEARN/PROG/FIN/MISC)'+'...'GET CATEGORY
@ 12,10 SAY 'NUMBER OF DISKS'+'.......................'GET DISKS
@ 13,10 SAY 'IS PROGRAM PROTECTED (Y/N) ?'+'..........'GET PROT
@ 14,10 SAY 'DOCUMENTATION (YES/NO/HELP-SC/DISK)'+'...'GET DOCS
@ 15,10 SAY 'INPUT DEVICE (KBD/JOY/MOUSE)'+'..........'GET ì
DEVICE
@ 16,10 SAY 'GRAPHICS BOARD REQUIRED (Y/N)?'+'........'GET ì
GRAPHICS
@ 17,10 SAY 'DESCRIPTION'+'...........................'GET ì
DESCR
READ
ACCEPT ' DO YOU WANT TO MODIFY ANOTHER (Y/N)? ' TO ANSWER
IF UPPER (ANSWER)='N'
RETURN
ENDIF
ENDDO
SET EXACT ON
RETURN