home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / DELMAIL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-03  |  1.4 KB  |  57 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 350
  7. 70  CLS
  8. 80  PRINT " "
  9. 90  PRINT "       DELETE FROM 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. 160  ZIP# = CVD(ZIPCODE$)
  17. 161  IF ZIP# = 1E+09 THEN 130
  18. 162  IF ZIP# = 0 THEN 350
  19. 170  X=INSTR(NAM$,SEARCH$)
  20. 180  IF X = 0 THEN 190 ELSE 290
  21. 190  X=INSTR(ADD1$,SEARCH$)
  22. 200  IF X = 0 THEN 210 ELSE 290
  23. 210  X=INSTR(ADD2$,SEARCH$)
  24. 220  IF X = 0 THEN 230 ELSE 290
  25. 230  X=INSTR(CITYST$,SEARCH$)
  26. 240  IF X = 0 THEN 250 ELSE 290
  27. 250  X=INSTR(STR$(ZIP#),SEARCH$)
  28. 280  IF X = 0 THEN 130
  29. 290  PRINT " "
  30. 300  PRINT "     "; NAM$
  31. 310  IF ADD1$ <> "                              " THEN PRINT "     "; ADD1$
  32. 320  IF ADD2$ <> "                              " THEN PRINT "     "; ADD2$
  33. 330  PRINT "     "; CITYST$
  34. 340  PRINT "     "; ZIP#
  35. 350  PRINT " "
  36. 360  PRINT "         SPACE BAR TO CONTINUE"
  37. 370  PRINT "       Esc KEY TO RETURN TO MENU"
  38. 380  PRINT "         T KEY TO START OVER"
  39. 390  PRINT "         D KEY TO DELETE"
  40. 400  K$ = INKEY$: IF K$ = "" THEN 400
  41. 410  IF K$ = " " THEN 130
  42. 420  IF K$ = CHR$(27) THEN 490
  43. 440  IF K$ = "T" THEN RECNUM = 4: GOTO 70
  44. 450  IF K$ = "t" THEN RECNUM = 4: GOTO 70
  45. 460  IF K$ = "D" THEN 520
  46. 470  IF K$ = "d" THEN 520
  47. 480  GOTO 400
  48. 490  CLOSE #1
  49. 500  CHAIN "B:mailmenu"
  50. 510  ZIP#=1E+09
  51. 520  ZIP#=1E+09
  52. 530  LSET ZIPCODE$=MKD$(ZIP#)
  53. 540  PUT #1,RECNUM
  54. 550  PRINT " "
  55. 560  PRINT "     RECORD DELETED "
  56. 570  GOTO 350
  57.