home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / REVUMEMB.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-31  |  1.4 KB  |  54 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. 40  OPEN DRIVEID2$+FILEID2$ AS #2 LEN=128
  5. 50  FIELD #2, 9 AS ZIPCODE$, 30 AS NAM$, 30 AS ADD1$, 30 AS ADD2$, 29 AS CITYST$
  6. 60  CLS
  7. 70  PRINT " "
  8. 80  PRINT "         Review  Membership  File"
  9. 110  PRINT " "
  10. 120  PRINT " "
  11. 130  INPUT "    Expiration Date   ==>";EDTE
  12. 140  PRINT " "
  13. 150  PRINT "    Are records to be deleted "
  14. 160  INPUT "                      ==>";ANS$
  15. 170  ANSE$=LEFT$(ANS$,1)
  16. 180  IF ANSE$ = "Y" OR ANSE$ = "y" THEN DEL$="Y":GOTO 210
  17. 190  IF ANSE$ = "N" OR ANSE$ = "n" THEN DEL$="N":GOTO 210
  18. 200  GOTO 150
  19. 210  GET #1,1
  20. 211  LPRINT "  List of Membership Expirations  as of ";EDTE
  21. 212  LPRINT "  (DELETE =";DEL$;")"
  22. 213  LPRINT "----------------------------------------------------"
  23. 220  MAXREC=CVS(EXPDATE$)
  24. 230  RECNUM3=4
  25. 240  WHILE RECNUM3<MAXREC
  26. 250  RECNUM3 = RECNUM3+1
  27. 260  GET #1,RECNUM3
  28. 270  EDAT = CVS(EXPDATE$)
  29. 280  IF EDAT = 0 THEN 300
  30. 290  IF EDAT < EDTE THEN GOSUB 390
  31. 300  WEND
  32. 310  GOTO 510
  33. 320  LPRINT "  Member # -";RECNUM3
  34. 330  LPRINT "      ";NAM$
  35. 340  IF ADD1$ <> SPACE$(30) THEN LPRINT "      ";ADD1$
  36. 350  IF ADD2$ <> SPACE$(30) THEN LPRINT "      ";ADD2$
  37. 360  LPRINT "      ";CITYST$
  38. 370  LPRINT "           ";CVD(ZIPCODE$)
  39. 380  RETURN
  40. 390  RECNUM2 = RECNUM3
  41. 400  GET #2,RECNUM2
  42. 410  GOSUB 320
  43. 420  IF DEL$ = "N" THEN 480
  44. 430  LSET ZIPCODE$ = MKD$(1E+09)
  45. 440  PUT #2,RECNUM2
  46. 450  LSET EXPDATE$ = MKS$(0)
  47. 460  PUT #1,RECNUM3
  48. 470  LPRINT "  Record deleted"
  49. 480  LPRINT "------------------------------"
  50. 490  RETURN
  51. 510  CLOSE #1
  52. 520  CLOSE #2
  53. 530  CHAIN DRIVEID$+"members"
  54.