home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / MEMBERS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-30  |  896 b   |  32 lines
  1. 1  KEY OFF
  2. 5  DRIVEID2$="B:"
  3. 10  DRIVEID$="A:"
  4. 20  FILEID$="MEMBERS.MC"
  5. 30  FILEID2$="MAILLIST.REE"
  6. 40  COMMON DRIVEID$,FILEID$,DRIVEID2$,FILEID2$
  7. 70  CLS
  8. 80  PRINT " "
  9. 90  PRINT "       Membership System"
  10. 100  PRINT " "
  11. 110  PRINT " "
  12. 120  PRINT "      A - Add a member"
  13. 130  PRINT "      B - Renew membership"
  14. 140  PRINT "      C - Review"
  15. 150  PRINT "      D - Status"
  16. 160  PRINT "      E - Display"
  17. 170  PRINT "    Esc - Exit"
  18. 180  PRINT " "
  19. 190  PRINT " "
  20. 200  PRINT "   Select Desired Function"
  21. 210  K$=INKEY$: IF K$="" THEN 210
  22. 220  IF K$ = "A" OR K$="a" THEN CHAIN DRIVEID$+"addmemb"
  23. 230  IF K$="B" OR K$="b" THEN CHAIN DRIVEID$+"renumemb"
  24. 240  IF K$="C" OR K$="c" THEN CHAIN DRIVEID$+"revumemb"
  25. 250  IF K$="D" OR K$="d" THEN CHAIN DRIVEID$+"statmemb"
  26. 260  IF K$="E" OR K$="e" THEN CHAIN DRIVEID$+"dispmemb"
  27. 270  IF K$=CHR$(27) THEN  440
  28. 280  IF K$="+" THEN CHAIN DRIVEID$+"builmemb"
  29. 440  CLS
  30. 450  KEY ON
  31. 460  END
  32.