home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / STATMAIL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-02-15  |  768 b   |  38 lines
  1. 10  SCREEN 0,1
  2. 20  COLOR 15,9,4
  3. 30  RECNUM = 1
  4. 40  OPEN "B:maillist.REE" AS #1 LEN=128
  5. 50  FIELD #1,9 AS ZIPCODE$, 30 AS NAM$,30 AS ADD1$,30 AS ADD2$, 29 AS CITYST$
  6. 60  ON ERROR GOTO 350
  7. 70  CLS
  8. 80  PRINT " "
  9. 90  PRINT "          MAILING LIST STATUS"
  10. 100  PRINT " "
  11. 110  PRINT " "
  12. 120  GET #1, RECNUM
  13. 130  NM$ = NAM$
  14. 140  A1$ = ADD1$
  15. 150  A2$ = ADD2$
  16. 160  ZIP# = CVD(ZIPCODE$)
  17. 170  ZIP# = ZIP# - 4
  18. 180  CTST$ = CITYST$
  19. 190  PRINT " "
  20. 200  PRINT "    CUSTOMER DETAILS"
  21. 210  PRINT " "
  22. 220  PRINT "          " NM$
  23. 230  PRINT "          " A1$
  24. 240  PRINT "          " CTST$ "  "
  25. 250  PRINT "          " A2$
  26. 260  PRINT " "
  27. 270  PRINT " "
  28. 280  PRINT "  NUMBER OF LABELS==>"  ZIP#
  29. 290  PRINT " "
  30. 300  PRINT " "
  31. 310  PRINT " "
  32. 320  PRINT "         SPACE BAR TO RETURN TO MENU"
  33. 330  K$ = INKEY$: IF K$ = "" THEN 330
  34. 340  IF K$ = " " THEN 360
  35. 350  GOTO 330
  36. 360  CLOSE #1
  37. 370  CHAIN "B:MAILMENU"
  38.