Power-Programmierung/CD1.mdf/xbase/library/dbase/mysoft/softcnt.prg

Text File | 1985-12-25 | 1.8 KB | 62 lines

* SOFTCNT.PRG
* PART OF "MYSOFT" SOFTWARE LIST MAINTENANCE BY LES PENNER
* COUNTS ENTRIES IN THE SOFTWARE LIST
************************************************************
SET TALK OFF
SET ECHO OFF
SET FUNCTION 3 TO 'SOFTCNT'
    CLEAR
    SET COLOR TO &TITLES
    ? '               ******** COUNT OF ENTRIES *******'
    ?
    ?
    ?
    SET COLOR TO ®ULAR
    ? '            GAMES..................'
    ? '            DATABASES..............'
    ? '            WORD PROCESSORS........'
    ? '            ADVENTURE GAMES........'
    ? '            SPREAD SHEETS..........'
    ? '            UTILITIES..............'
    ? '            GRAPHICS...............'
    ? '            LEARNING...............'
    ? '            PROGRAMMING............'
    ? '            FINANCIAL..............'
    ? '            COMMUNICATIONS.........'
    ? '            MISCELLANEOUS..........'
    ?
    ? '            TOTAL..................'
    ?
    ? '      PLEASE WAIT....'
    SET COLOR TO &TITLES
    COUNT FOR CATEGORY='GAME'TO GAME
    @ 5,35 SAY GAME
    COUNT FOR CATEGORY='DB' TO DB
    @ 6,35 SAY DB
    COUNT FOR CATEGORY='WP'TO WP
    @7,35 SAY WP
    COUNT FOR CATEGORY='ADVEN' TO ADVEN
    @ 8,35 SAY ADVEN
    COUNT FOR CATEGORY='SPREAD' TO SPREAD
    @ 9,35 SAY SPREAD
    COUNT FOR CATEGORY='UTIL' TO UTIL
    @ 10,35 SAY UTIL
    COUNT FOR CATEGORY='GRAPHICS' TO GRAFICS
    @ 11,35 SAY GRAFICS
    COUNT FOR CATEGORY='LEARN' TO LEARN
    @ 12,35 SAY LEARN
    COUNT FOR CATEGORY='PROG' TO PROG
    @ 13,35 SAY PROG
    COUNT FOR CATEGORY='FIN' TO FIN
    @ 14,35 SAY FIN
    COUNT FOR CATEGORY='COMM' TO COMM
    @ 15,35 SAY COMM
    COUNT FOR CATEGORY='MISC' TO MISC
    @ 16,35 SAY MISC
    COUNT TO TOTALS
    @ 18,35 SAY TOTALS
    SET COLOR TO ®ULAR
    ?
WAIT
RETURN