home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / MAILMEMB.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-30  |  1.0 KB  |  42 lines
  1. 5  COMMON DRIVEID$,FILEID$,RECNUM2,DRIVEID2$,A$,B$,C$,D$,E#
  2. 10  SCREEN 0,1
  3. 15  OPEN DRIVEID2$+FILEID2$ AS #1 LEN=128
  4. 16  FIELD #1, 9 AS ZIPCODE$, 30 AS NAM$, 30 AS ADD1$, 30 AS ADD2$, 29 AS CITYST$
  5. 20  COLOR 15,9,4
  6. 25  CLS
  7. 30  PRINT " "
  8. 40  PRINT " "
  9. 50  PRINT "         ADD TO MAILING LIST"
  10. 60  PRINT " "
  11. 70  PRINT " "
  12. 80  INPUT "    NAME          ==>";A$
  13. 90  PRINT " "
  14. 100  INPUT "    ADDRESS LINE 1==>";B$
  15. 110  PRINT " "
  16. 120  INPUT "    ADDRESS LINE 2==>";C$
  17. 130  PRINT " "
  18. 140  INPUT "    CITY/STATE    ==>";D$
  19. 150  PRINT " "
  20. 160  INPUT "    ZIP CODE      ==>";E#
  21. 170  IF E# = 0 THEN 160
  22. 210  GET #1,1
  23. 220  NEXTAVAIL$ = ZIPCODE$
  24. 230  IF NEXTAVAIL$ = "         " THEN NEXTAVAIL$ = "000000004"
  25. 240  RECNUM# = CVD(ZIPCODE$)
  26. 245  RECNUM# = RECNUM# + 1
  27. 246  IF RECNUM# <> RECNUM2 THEN PRINT "   ERROR in file -- recnum=";RECNUM#;" recnum2=";RECNUM2:STOP
  28. 250  LSET ZIPCODE$ = MKD$(RECNUM#)
  29. 260  PUT #1,1
  30. 300  GET #1,RECNUM#
  31. 320  LSET NAM$ = A$
  32. 330  LSET ADD1$=B$
  33. 340  LSET ADD2$=C$
  34. 350  LSET CITYST$=D$
  35. 360  LSET ZIPCODE$=MKD$(E#)
  36. 380  PUT #1,RECNUM#
  37. 390  PRINT " "
  38. 395  PRINT " "
  39. 400  PRINT "         ADDRESS ADDED"
  40. 500  CLOSE #1
  41. 510  CHAIN DRIVEID$+"updmemb"
  42.