home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / DISPMEMB.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-30  |  1.6 KB  |  68 lines
  1. 10  COMMON DRIVEID$, FILEID$, RECNUM2, DRIVEID2$, FILEID2$
  2. 20  OPEN DRIVEID$+FILEID$ AS #1 LEN=4
  3. 30  FIELD #1, 4 AS EXPDATE$
  4. 35  OPEN DRIVEID2$+FILEID2$ AS #2 LEN=128
  5. 38  FIELD #2, 9 AS ZIPCODE$, 30 AS NAM$, 30 AS ADD1$, 30 AS ADD2$, 29 AS CITYST$
  6. 40  CLS
  7. 50  PRINT " "
  8. 60  PRINT "         Display  Members"
  9. 70  PRINT " "
  10. 80  PRINT " "
  11. 90  INPUT "    Membership number ==>";RECNUM4
  12. 100  IF RECNUM4 = 0 THEN 200
  13. 105  RECNUM3=RECNUM4
  14. 110  GET #1,RECNUM3
  15. 120  RECNUM2=RECNUM3
  16. 130  GET #2,RECNUM2
  17. 140  GOTO 300
  18. 200  PRINT " "
  19. 210  INPUT "    Search for ==>";SEARCH$
  20. 220  GOSUB 1000
  21. 230  IF NON=1 THEN PRINT "           No Match Found":GOTO 400
  22. 240  RECNUM3 = RECNUM
  23. 250  GOTO 110
  24. 300  PRINT " "
  25. 310  PRINT "      ";NAM$
  26. 320  IF ADD1$ <> SPACE$(30) THEN PRINT "      ";ADD1$
  27. 330  IF ADD2$ <> SPACE$(30) THEN PRINT "      ";ADD2$
  28. 340  PRINT "      ";CITYST$
  29. 350  PRINT "           ";CVD(ZIPCODE$)
  30. 360  PRINT " "
  31. 370  PRINT "      Subscription expires --";CVS(EXPDATE$)
  32. 380  PRINT " "
  33. 390  PRINT " "
  34. 400  GOTO 1350
  35. 1000  RECNUM = 4
  36. 1060  CLS
  37. 1120  RECNUM = RECNUM + 1
  38. 1130  IF RECNUM < 5 THEN RECNUM = 5
  39. 1140  GET #2, RECNUM
  40. 1150  ZIP# = CVD(ZIPCODE$)
  41. 1160  X=INSTR(NAM$,SEARCH$)
  42. 1170  IF X = 0 THEN 1180 ELSE 1280
  43. 1180  X=INSTR(ADD1$,SEARCH$)
  44. 1190  IF X = 0 THEN 1200 ELSE 1280
  45. 1200  X=INSTR(ADD2$,SEARCH$)
  46. 1210  IF X = 0 THEN 1220 ELSE 1280
  47. 1220  X=INSTR(CITYST$,SEARCH$)
  48. 1230  IF X = 0 THEN 1240 ELSE 1280
  49. 1240  X=INSTR(STR$(ZIP#),SEARCH$)
  50. 1250  IF ZIP# = 1E+09 THEN 1120
  51. 1260  IF ZIP# = 0 THEN NON=1:GOTO 1340
  52. 1270  IF X = 0 THEN 1120
  53. 1280  PRINT " "
  54. 1340  PRINT " "
  55. 1345  RETURN
  56. 1350  PRINT "         SPACE BAR TO CONTINUE"
  57. 1360  PRINT "       Esc KEY TO RETURN TO MENU"
  58. 1370  PRINT "         T KEY TO START OVER"
  59. 1380  K$ = INKEY$: IF K$ = "" THEN 1380
  60. 1390  IF K$ = " " THEN 100
  61. 1400  IF K$ = CHR$(27) THEN 1440
  62. 1410  IF K$ = "T" THEN RECNUM = 4: GOTO 40
  63. 1420  IF K$ = "t" THEN RECNUM = 4: GOTO 40
  64. 1430  GOTO 1380
  65. 1440  CLOSE #1
  66. 1445  CLOSE #2
  67. 1450  CHAIN DRIVEID$+"members"
  68.