home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / mysoft2.zip / SOFTDIS3.PRG < prev    next >
Text File  |  1985-12-24  |  2KB  |  47 lines
  1. * SOFTDIS3.PRG,  PART OF "MYSOFT"
  2. * DBASE III SOFTWARE LIST MAINTENANCE PROGRAM BY LES PENNER ì
  3. * 11/27/85
  4. * DISPLAYS ENTRIES ACCORDING TO USER SUPPLIED FILTER
  5. ******************************************************************
  6. SET FUNCTION 3 TO 'SOFTDIS3'
  7.     SET EXACT OFF
  8.     STORE SPACE(20) TO TPROG
  9.     STORE SPACE(8) TO TCAT
  10.     STORE SPACE(1) TO TPROT
  11.     STORE SPACE(5) TO TDEV
  12.     STORE SPACE(1) TO TGRAF
  13.     STORE SPACE(20) TO TDESC
  14. DO WHILE .T.
  15.     CLEAR
  16.     SET COLOR TO &TITLES
  17.     ?
  18.     ? '              ****** SELECTIVE DISPLAY ******'
  19.     SET COLOR TO ®ULAR
  20.     ?
  21.     ? '         ENTER CONDITIONS FOR SELECTIVE DISPLAY'
  22.     ?   
  23.     ? '         PRESS <ENTER> IN LAST ITEM TO COMPLETE'
  24.     @ 9,10   SAY 'PROGRAM NAME '+'..........................'GET TPROG
  25.     @ 10,10  SAY 'TYPE (WP/GRAPHICS/GAME/ADVEN/FIN/UTIL/'
  26.     @ 11,10  SAY '      DB/SPREAD/COMM/LEARN/PROG/MISC)'+'..'GET TCAT
  27.     @ 12,10  SAY 'PROTECTED (Y/N)?'+'.......................'GET TPROT
  28.     @ 13,10  SAY 'DEVICE (KBD/JOY/MOUSE)?'+'................'GET TDEV
  29.     @ 14,10  SAY 'GRAPHICS REQD (Y/N)?'+'...................'GET TGRAF
  30.     READ
  31.     CLEAR
  32.     ? '    ================= MATCHING ENTRIES ==================='
  33.     ?
  34.     DISPLAY OFF PROGRAM,CATEGORY,PROT,DEVICE,GRAPHICS,DESCR FOR ì
  35. PROGRAM=UPPER(TRIM(TPROG)).AND.CATEGORY=UPPER(TRIM(TCAT)).AND.PROT=UPPER ì
  36. (TRIM(TPROT)).AND.DEVICE=UPPER(TRIM(TDEV)).AND.GRAPHICS=UPPER(TRIM ì
  37. (TGRAF))
  38.     ?
  39.     ?
  40.     ACCEPT '              DISPLAY AGAIN (Y/N)? ' TO ANSWER
  41.         IF UPPER(ANSWER)='Y'
  42.             LOOP
  43.         ENDIF
  44.     SET EXACT ON
  45.     RETURN
  46. ENDDO
  47.