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