home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / BROWMAIL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-02-15  |  1.1 KB  |  44 lines
  1. 10  SCREEN 0,1
  2. 20  COLOR 15,9,4
  3. 30  RECNUM = 4
  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 270
  7. 70  CLS
  8. 80  PRINT " "
  9. 90  PRINT "          BROWSE MAILING LIST"
  10. 100  PRINT " "
  11. 110  FOR I = 1 TO 3
  12. 120  PRINT " "
  13. 130  RECNUM = RECNUM + 1
  14. 135  IF RECNUM < 5 THEN RECNUM = 5
  15. 140  GET #1, RECNUM
  16. 150  NM$ = NAM$
  17. 160  A1$ = ADD1$
  18. 170  A2$ = ADD2$
  19. 190  ZIP# = CVD(ZIPCODE$)
  20. 195  IF ZIP# = 1E+09 THEN 130
  21. 200  IF ZIP# = 0 THEN 270
  22. 210  CTST$ = CITYST$
  23. 220  PRINT "     "; NM$
  24. 230  IF A1$ <> "                              " THEN PRINT "     "; A1$
  25. 240  IF A2$ <> "                              " THEN PRINT "     "; A2$
  26. 250  PRINT "     "; CTST$
  27. 260  PRINT "     "; ZIP#
  28. 270  NEXT
  29. 280  PRINT " "
  30. 290  PRINT "         SPACE BAR TO CONTINUE"
  31. 300  PRINT "       Esc KEY TO RETURN TO MENU"
  32. 310  PRINT "         T KEY TO START OVER"
  33. 315  PRINT "         B KEY TO BACK UP"
  34. 320  K$ = INKEY$: IF K$ = "" THEN 320
  35. 330  IF K$ = " " THEN 70
  36. 340  IF K$ = CHR$(27) THEN 390
  37. 360  IF K$ = "T" THEN RECNUM = 4: GOTO 70
  38. 370  IF K$ = "t" THEN RECNUM = 4: GOTO 70
  39. 375  IF K$ = "B" THEN RECNUM = RECNUM - 6: GOTO 70
  40. 376  IF K$ = "b" THEN RECNUM = RECNUM - 6: GOTO 70
  41. 380  GOTO 320
  42. 390  CLOSE #1
  43. 400  CHAIN "B:dispmail"
  44.