home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / LISTMAIL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-27  |  2.1 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. 70  CLS
  7. 80  PRINT " "
  8. 90  PRINT "          PRINT  MAILING LIST"
  9. 95  PRINT " "
  10. 96  PRINT " "
  11. 97  INPUT "   SEARCH FOR ==>";SEARCH$
  12. 100  PRINT " "
  13. 101  GET #1,1
  14. 102  COMP$=NAM$
  15. 103  X=INSTR(COMP$,"  ")
  16. 104  COMPNAM$=LEFT$(COMP$,X-1)
  17. 105  X=LEN(COMPNAM$)
  18. 106  OFFSET$=SPACE$((30-X)/2)
  19. 107  ENDER# = CVD(ZIPCODE$)
  20. 110  ON ERROR GOTO 3000
  21. 111  GOSUB 330
  22. 112  ZIP#=1E+09
  23. 115  WIDTH "LPT1:",132
  24. 120  WHILE ZIP# <> 0
  25. 130  IF LINECT > 55 THEN GOSUB 310
  26. 150  RECNUM = RECNUM + 1
  27. 160  IF RECNUM < 5 THEN RECNUM = 5
  28. 161  K$=INKEY$: IF K$ = "S" OR K$="s" THEN GOSUB 1000
  29. 162  IF K$=CHR$(27) THEN GOTO  2000
  30. 170  GET #1, RECNUM
  31. 180  NM$ = NAM$
  32. 190  A1$ = ADD1$
  33. 200  A2$ = ADD2$
  34. 210  ZIP# = CVD(ZIPCODE$)
  35. 220  IF ZIP# = 1E+09 THEN 150
  36. 230  IF ZIP# = 0 THEN 260
  37. 231  CTST$ = CITYST$
  38. 240  X=INSTR(NAM$,SEARCH$)
  39. 241  IF X=0 THEN 242 ELSE 250
  40. 242  X=INSTR(ADD1$,SEARCH$)
  41. 243  IF X=0 THEN 244 ELSE 250
  42. 244  X=INSTR(ADD2$,SEARCH$)
  43. 245  IF X=0 THEN 246 ELSE 250
  44. 246  X=INSTR(CITYST$,SEARCH$)
  45. 247  IF X=0 THEN 248 ELSE 250
  46. 248  X=INSTR(STR$(ZIP#),SEARCH$)
  47. 249  IF X=0 THEN 260
  48. 250  IF LEN(STR$(ZIP#)) < 7 THEN LPRINT NM$;" ";A1$;" ";A2$;" ";CTST$;" ";ZIP#:LINECT = LINECT+1 ELSE LPRINT NM$;" ";A1$;" ";A2$;" ";CTST$: LPRINT SPACE$(120);ZIP#: LINECT = LINECT+2
  49. 260  WEND
  50. 262  FOR I = LINECT TO 56
  51. 263  LPRINT " "
  52. 264  NEXT
  53. 265  PAGECT = PAGECT + 1
  54. 266  LPRINT CHR$(18);SPACE$(71);"page";PAGECT
  55. 267  LPRINT CHR$(12)
  56. 268  PRINT " "
  57. 269  GOTO 2000
  58. 270  PRINT " "
  59. 280  PRINT "         MAILING LIST IS COMPLETE"
  60. 290  CLOSE #1
  61. 300  CHAIN "B:MAILMENU"
  62. 310  PAGECT = PAGECT + 1
  63. 315  LPRINT " "
  64. 320  LPRINT CHR$(18);SPACE$(71);"PAGE";PAGECT
  65. 330  LPRINT CHR$(12)
  66. 335  LPRINT CHR$(18);" "
  67. 338  LPRINT CHR$(14);OFFSET$;COMPNAM$
  68. 340  LPRINT CHR$(14);"         Mailing  List"
  69. 350  LPRINT CHR$(15);" "
  70. 360  LINECT = 1
  71. 370  RETURN
  72. 1000  PRINT " --------Status  Report--------"
  73. 1010  PRINT "   ";RECNUM-6;" records printed"
  74. 1020  PRINT "   ";ENDER#-RECNUM+1;" records remaining"
  75. 1030  RETURN
  76. 2000  PRINT "       SPACE BAR to continue"
  77. 2010  PRINT "     Esc Key to return to menu"
  78. 2020  PRINT "       T Key to reprint"
  79. 2030  K$=INKEY$: IF K$="" THEN 2030
  80. 2040  IF K$=" " THEN IF ZIP#=0 THEN 270  ELSE 170
  81. 2050  IF K$="T" OR K$="t" THEN GOTO 2080
  82. 2060  IF K$=CHR$(27) THEN RECNUM = 0: GOTO 270
  83. 2070  GOTO 2030
  84. 2080  IF ZIP#<>0 THEN 2090
  85. 2081  PAGECT=0
  86. 2082  RECNUM=0
  87. 2083  ON ERROR GOTO 0
  88. 2084  GOTO 70
  89. 2090  ZIP#=1E+08
  90. 2093  RECNUM = 0
  91. 2095  GOTO 260
  92. 3000  IF ERR = 24 THEN RESUME
  93. 3010  RESUME
  94.