home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / ADDMEMB.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-30  |  512 b   |  20 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. 40  GET #1,1
  5. 50  RECNUM2=CVS(EXPDATE$)+1
  6. 60  GET #1,RECNUM2
  7. 70  CLS
  8. 80  PRINT " "
  9. 90  PRINT "       Add Member"
  10. 100  PRINT " "
  11. 110  PRINT " "
  12. 120  PRINT "  Date Subscription Expires (YYMMDD)"
  13. 130  INPUT "                         ==>";DATEE
  14. 140  LSET EXPDATE$=MKS$(DATEE)
  15. 150  PUT #1,RECNUM2
  16. 160  PRINT " "
  17. 170  PRINT "  Number Assigned        ==>";RECNUM2
  18. 175  CLOSE #1
  19. 180  CHAIN DRIVEID$+"mailmemb"
  20.