home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
mailable.zip
/
ML2ZIPCT.PRG
< prev
next >
Wrap
Text File
|
1991-01-21
|
768b
|
36 lines
* ML2ZIPCT.CMD
* COUNTS ZIP CODES >= 10
* WIL WAKELY, 4/82
ERASE
? 'PRINTS ZIP CODES >= 10'
? 'BE SURE ML2 HAS BEEN SORTED ON ZIP TO ML2SZIP.NDX'
? 'ACCEPT 'TODAYS DATE ' TO DATE
? 'CONTINUE? ESC TO EXIT'
WAIT TO ANS
USE ML2 INDEX ML2SZIP
GOTO TOP
SET TALK OFF
SET PRINT ON
? ' MAIL LIST ZIP CODE COUNTS >= TEN' + DATE
?
STORE 0 TO OLDZIP
STORE 0 TO CTR
DO WHILE .NOT. EOF
IF VAL(ZIP)=OLDZIP
STORE CTR+1 TO CTR
ELSE
IF CTR >= 10
? STR(OLDZIP,5) + ' ' + STR(CTR,2)
?
ENDIF
STORE 1 TO CTR
STORE VAL(ZIP) TO OLDZIP
ENDIF
SKIP
ENDDO
?
? '*** ALL DONE ***'
SET PRINT OFF
SET TALK ON
RETURN