home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / CHGMAIL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-27  |  2.3 KB  |  94 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. 55  RECNUM = 4
  7. 60  CLS
  8. 70  PRINT " "
  9. 80  PRINT "          CHANGE MAILING LIST"
  10. 90  PRINT " "
  11. 91  PRINT " "
  12. 95  INPUT "    SEARCH==>";SEARCH$
  13. 100  PRINT " "
  14. 110  RECNUM = RECNUM + 1
  15. 120  IF RECNUM < 5 THEN RECNUM = 5
  16. 130  GET #1, RECNUM
  17. 140  NM$ = NAM$
  18. 150  A1$ = ADD1$
  19. 160  A2$ = ADD2$
  20. 170  ZIP# = CVD(ZIPCODE$)
  21. 180  IF ZIP# = 1E+09 THEN 110
  22. 190  IF ZIP# = 0 THEN 360
  23. 200  CTST$ = CITYST$
  24. 210  X=INSTR(NM$,SEARCH$)
  25. 220  IF X=0 THEN 230 ELSE 310
  26. 230  X=INSTR(A1$,SEARCH$)
  27. 240  IF X=0 THEN 250 ELSE 310
  28. 250  X=INSTR(A2$,SEARCH$)
  29. 260  IF X=0 THEN 270 ELSE 310
  30. 270  X=INSTR(CTST$,SEARCH$)
  31. 280  IF X=0 THEN 290 ELSE 310
  32. 290  X=INSTR(STR$(ZIP#),SEARCH$)
  33. 300  IF X=0 THEN 110 ELSE 310
  34. 310  PRINT "     "; NM$
  35. 320  IF A1$ <> "                              " THEN PRINT "     "; A1$
  36. 330  IF A2$ <> "                              " THEN PRINT "     "; A2$
  37. 340  PRINT "     "; CTST$
  38. 350  PRINT "     "; ZIP#
  39. 360  PRINT " "
  40. 370  PRINT "         SPACE BAR TO CONTINUE"
  41. 380  PRINT "       Esc KEY TO RETURN TO MENU"
  42. 390  PRINT "         T KEY TO START OVER"
  43. 410  PRINT "         C KEY TO CHANGE"
  44. 420  K$ = INKEY$: IF K$ = "" THEN 420
  45. 430  IF K$ = " " THEN 110
  46. 440  IF K$ = CHR$(27) THEN 520
  47. 450  IF K$ = "T" THEN RECNUM = 4: GOTO 60
  48. 460  IF K$ = "t" THEN RECNUM = 4: GOTO 60
  49. 490  IF K$ = "C" THEN 540
  50. 500  IF K$ = "c" THEN 540
  51. 510  GOTO 420
  52. 520  CLOSE #1
  53. 530  CHAIN "B:MAILMENU"
  54. 531  PRINT " "
  55. 532  PRINT " "
  56. 540  PRINT " "
  57. 541  PRINT " "
  58. 542  INPUT "  NEW NAME     ==>";NN$
  59. 544  IF LEN(NN$)=0 THEN NN$=NAM$:DISP$=NN$:GOSUB 800
  60. 545  IF NN$="-" THEN NN$=" ":DISP$=NN$:GOSUB 800
  61. 560  INPUT "  NEW ADDRESS1 ==>";NA1$
  62. 562  IF LEN(NA1$)=0 THEN NA1$=ADD1$:DISP$=NA1$:GOSUB 800
  63. 563  IF NA1$="-" THEN NA1$=" ":DISP$=NA1$:GOSUB 800
  64. 580  INPUT "  NEW ADDRESS2 ==>";NA2$
  65. 582  IF LEN(NA2$)=0 THEN NA2$=ADD2$:DISP$=NA2$:GOSUB 800
  66. 583  IF NA2$="-" THEN NA2$=" ":DISP$=NA2$:GOSUB 800
  67. 600  INPUT "  NEW CITY/ST  ==>";NCT$
  68. 602  IF LEN(NCT$)=0 THEN NCT$=CITYST$:DISP$=NCT$:GOSUB 800
  69. 603  IF NCT$="-" THEN NCT$=" ":DISP$=NCT$:GOSUB 800
  70. 620  INPUT "  NEW ZIP CODE ==>";NZIP#
  71. 625  IF NZIP#=0 THEN NZIP#=ZIP#:DISP$=STR$(NZIP#):GOSUB 800
  72. 630  LSET ZIPCODE$ = MKD$(NZIP#)
  73. 640  LSET NAM$=NN$
  74. 650  LSET ADD1$=NA1$
  75. 660  LSET ADD2$=NA2$
  76. 670  LSET CITYST$=NCT$
  77. 680  PUT #1,RECNUM
  78. 690  PRINT "  "
  79. 691  PRINT " "
  80. 692  PRINT " "
  81. 700  PRINT "      CHANGE COMPLETED"
  82. 701  PRINT " "
  83. 702  PRINT " "
  84. 703  PRINT " "
  85. 704  PRINT " "
  86. 705  PRINT " "
  87. 706  PRINT " "
  88. 707  PRINT " "
  89. 710  GOTO 360
  90. 800  SLIN=CSRLIN - 1
  91. 810  LOCATE SLIN,21
  92. 820  PRINT DISP$
  93. 830  RETURN
  94.