home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
mysoft
/
softcnt.prg
< prev
next >
Wrap
Text File
|
1985-12-25
|
2KB
|
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