home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / RENUMEMB.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-31  |  2.0 KB  |  81 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 "         Renew  Membership"
  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  IF CVS(EXPDATE$)=0 THEN PRINT "    Member DELETED -- Add as new member":GOTO 390
  25. 305  PRINT " "
  26. 310  PRINT "      ";NAM$
  27. 320  IF ADD1$ <> SPACE$(30) THEN PRINT "      ";ADD1$
  28. 330  IF ADD2$ <> SPACE$(30) THEN PRINT "      ";ADD2$
  29. 340  PRINT "      ";CITYST$
  30. 350  PRINT "           ";CVD(ZIPCODE$)
  31. 360  PRINT " "
  32. 370  PRINT "      Subscription expires --";CVS(EXPDATE$)
  33. 380  PRINT " "
  34. 390  PRINT " "
  35. 400  GOTO 1350
  36. 1000  RECNUM = 4
  37. 1060  CLS
  38. 1120  RECNUM = RECNUM + 1
  39. 1130  IF RECNUM < 5 THEN RECNUM = 5
  40. 1140  GET #2, RECNUM
  41. 1150  ZIP# = CVD(ZIPCODE$)
  42. 1160  X=INSTR(NAM$,SEARCH$)
  43. 1170  IF X = 0 THEN 1180 ELSE 1280
  44. 1180  X=INSTR(ADD1$,SEARCH$)
  45. 1190  IF X = 0 THEN 1200 ELSE 1280
  46. 1200  X=INSTR(ADD2$,SEARCH$)
  47. 1210  IF X = 0 THEN 1220 ELSE 1280
  48. 1220  X=INSTR(CITYST$,SEARCH$)
  49. 1230  IF X = 0 THEN 1240 ELSE 1280
  50. 1240  X=INSTR(STR$(ZIP#),SEARCH$)
  51. 1250  IF ZIP# = 1E+09 THEN 1120
  52. 1260  IF ZIP# = 0 THEN NON=1:GOTO 1340
  53. 1270  IF X = 0 THEN 1120
  54. 1280  PRINT " "
  55. 1340  PRINT " "
  56. 1345  RETURN
  57. 1348  PRINT " "
  58. 1350  PRINT "         SPACE BAR TO CONTINUE"
  59. 1360  PRINT "       Esc KEY TO RETURN TO MENU"
  60. 1370  PRINT "         T KEY TO START OVER"
  61. 1371  PRINT "         R KEY TO RENEW MEMBERSHIP"
  62. 1380  K$ = INKEY$: IF K$ = "" THEN 1380
  63. 1390  IF K$ = " " THEN 100
  64. 1400  IF K$ = CHR$(27) THEN 1440
  65. 1410  IF K$ = "T" THEN RECNUM = 4: GOTO 40
  66. 1420  IF K$ = "t" THEN RECNUM = 4: GOTO 40
  67. 1421  IF K$="R" OR K$="r" THEN GOTO 1500
  68. 1430  GOTO 1380
  69. 1440  CLOSE #1
  70. 1445  CLOSE #2
  71. 1450  CHAIN DRIVEID$+"members"
  72. 1500  IF CVS(EXPDATE$)=0 THEN 1380
  73. 1501  PRINT " "
  74. 1510  PRINT "      New Expiration Date (YYMMDD)"
  75. 1520  INPUT "                      ==>";DTE
  76. 1530  LSET EXPDATE$=MKS$(DTE)
  77. 1540  PUT #1,RECNUM3
  78. 1545  PRINT " "
  79. 1550  PRINT "      Subscription Renewed"
  80. 1560  GOTO 1348
  81.