home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / LOCMAIL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-03  |  1.3 KB  |  47 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 340
  7. 70  CLS
  8. 80  PRINT " "
  9. 90  PRINT "          SEARCH MAILING LIST"
  10. 100  PRINT " "
  11. 110  PRINT " "
  12. 120  INPUT "   SEARCH FOR ==>";SEARCH$
  13. 130  RECNUM = RECNUM + 1
  14. 140  IF RECNUM < 5 THEN RECNUM = 5
  15. 150  GET #1, RECNUM
  16. 151  ZIP# = CVD(ZIPCODE$)
  17. 160  X=INSTR(NAM$,SEARCH$)
  18. 170  IF X = 0 THEN 180 ELSE 290
  19. 180  X=INSTR(ADD1$,SEARCH$)
  20. 190  IF X = 0 THEN 200 ELSE 290
  21. 200  X=INSTR(ADD2$,SEARCH$)
  22. 210  IF X = 0 THEN 220 ELSE 290
  23. 220  X=INSTR(CITYST$,SEARCH$)
  24. 230  IF X = 0 THEN 240 ELSE 290
  25. 240  X=INSTR(STR$(ZIP#),SEARCH$)
  26. 260  IF ZIP# = 1E+09 THEN 130
  27. 270  IF ZIP# = 0 THEN 340
  28. 280  IF X = 0 THEN 130
  29. 290  PRINT " "
  30. 291  PRINT "     "; NAM$
  31. 300  IF ADD1$ <> "                              " THEN PRINT "     "; ADD1$
  32. 310  IF ADD2$ <> "                              " THEN PRINT "     "; ADD2$
  33. 320  PRINT "     "; CITYST$
  34. 330  PRINT "     "; ZIP#
  35. 340  PRINT " "
  36. 350  PRINT "         SPACE BAR TO CONTINUE"
  37. 360  PRINT "       Esc KEY TO RETURN TO MENU"
  38. 370  PRINT "         T KEY TO START OVER"
  39. 380  K$ = INKEY$: IF K$ = "" THEN 380
  40. 390  IF K$ = " " THEN 130
  41. 400  IF K$ = CHR$(27) THEN 450
  42. 420  IF K$ = "T" THEN RECNUM = 4: GOTO 70
  43. 430  IF K$ = "t" THEN RECNUM = 4: GOTO 70
  44. 440  GOTO 380
  45. 450  CLOSE #1
  46. 460  CHAIN "B:dispmail"
  47.