home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / STATMEMB.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-31  |  384 b   |  16 lines
  1. 10  COMMON DRIVEID$, FILEID$, RECNUM2, DRIVEID2$, FILEID2$
  2. 20  OPEN DRIVEID$+FILEID$ AS #1 LEN=4
  3. 30  FIELD #1, 4 AS EXPDATE$
  4. 60  CLS
  5. 70  PRINT " "
  6. 80  PRINT "         Total  Membership  Status"
  7. 110  PRINT " "
  8. 120  PRINT " "
  9. 210  GET #1,1
  10. 220  MAXREC=CVS(EXPDATE$)
  11. 230  PRINT "      Total membership ==>";MAXREC-4
  12. 240  FOR I = 1 TO 1000
  13. 250  NEXT
  14. 510  CLOSE #1
  15. 530  CHAIN DRIVEID$+"members"
  16.