home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / ADDMAIL.BAS (.txt) next >
Encoding:
GW-BASIC  |  1982-03-25  |  1.0 KB  |  49 lines
  1. 5  KEY OFF
  2. 10  SCREEN 0,1
  3. 15  OPEN "b:maillist.ree" 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. 250  LSET ZIPCODE$ = MKD$(RECNUM#)
  28. 260  PUT #1,1
  29. 300  GET #1,RECNUM#
  30. 320  LSET NAM$ = A$
  31. 330  LSET ADD1$=B$
  32. 340  LSET ADD2$=C$
  33. 350  LSET CITYST$=D$
  34. 360  LSET ZIPCODE$=MKD$(E#)
  35. 380  PUT #1,RECNUM#
  36. 390  PRINT " "
  37. 395  PRINT " "
  38. 400  PRINT "           LABEL ADDED"
  39. 410  PRINT "    DO YOU WANT TO ADD MORE? Y OR N"
  40. 430  K$ = INKEY$: IF K$ = "" THEN 430
  41. 440  IF K$ = "Y" THEN 25
  42. 450  IF K$ = "N" THEN 500
  43. 455  IF K$ = "y" THEN 25
  44. 456  IF K$ = "n" THEN 500
  45. 460  GOTO 410
  46. 500  CLOSE #1
  47. 505  CLS
  48. 510  CHAIN "b:mailmenu
  49.