home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
mysoft
/
softdis3.prg
< prev
next >
Wrap
Text File
|
1985-12-24
|
2KB
|
47 lines
* SOFTDIS3.PRG, PART OF "MYSOFT"
* DBASE III SOFTWARE LIST MAINTENANCE PROGRAM BY LES PENNER ì
* 11/27/85
* DISPLAYS ENTRIES ACCORDING TO USER SUPPLIED FILTER
******************************************************************
SET FUNCTION 3 TO 'SOFTDIS3'
SET EXACT OFF
STORE SPACE(20) TO TPROG
STORE SPACE(8) TO TCAT
STORE SPACE(1) TO TPROT
STORE SPACE(5) TO TDEV
STORE SPACE(1) TO TGRAF
STORE SPACE(20) TO TDESC
DO WHILE .T.
CLEAR
SET COLOR TO &TITLES
?
? ' ****** SELECTIVE DISPLAY ******'
SET COLOR TO ®ULAR
?
? ' ENTER CONDITIONS FOR SELECTIVE DISPLAY'
?
? ' PRESS <ENTER> IN LAST ITEM TO COMPLETE'
@ 9,10 SAY 'PROGRAM NAME '+'..........................'GET TPROG
@ 10,10 SAY 'TYPE (WP/GRAPHICS/GAME/ADVEN/FIN/UTIL/'
@ 11,10 SAY ' DB/SPREAD/COMM/LEARN/PROG/MISC)'+'..'GET TCAT
@ 12,10 SAY 'PROTECTED (Y/N)?'+'.......................'GET TPROT
@ 13,10 SAY 'DEVICE (KBD/JOY/MOUSE)?'+'................'GET TDEV
@ 14,10 SAY 'GRAPHICS REQD (Y/N)?'+'...................'GET TGRAF
READ
CLEAR
? ' ================= MATCHING ENTRIES ==================='
?
DISPLAY OFF PROGRAM,CATEGORY,PROT,DEVICE,GRAPHICS,DESCR FOR ì
PROGRAM=UPPER(TRIM(TPROG)).AND.CATEGORY=UPPER(TRIM(TCAT)).AND.PROT=UPPER ì
(TRIM(TPROT)).AND.DEVICE=UPPER(TRIM(TDEV)).AND.GRAPHICS=UPPER(TRIM ì
(TGRAF))
?
?
ACCEPT ' DISPLAY AGAIN (Y/N)? ' TO ANSWER
IF UPPER(ANSWER)='Y'
LOOP
ENDIF
SET EXACT ON
RETURN
ENDDO