home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / EASYMAIL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-02-15  |  1.4 KB  |  64 lines
  1. 10  SCREEN 0,1
  2. 20  KEY OFF
  3. 30  COLOR 15,9,4
  4. 40  CLS
  5. 50  PRINT " "
  6. 55  PRINT " "
  7. 60  PRINT "      EASY-MAIL AVAILABLE FUNCTIONS"
  8. 70  PRINT "  "
  9. 80  PRINT "  "
  10. 90  PRINT "        A - DISPLAY MAILING LIST"
  11. 100  PRINT "        B - ADD TO LIST"
  12. 110  PRINT "        C - DELETE FROM LIST"
  13. 120  PRINT "        D - CHANGE LIST"
  14. 130  PRINT "        E - PRINT LABELS"
  15. 140  PRINT "        F - PRINT LIST"
  16. 150  PRINT "        G - REORG FILE"
  17. 160  PRINT "        H - ERASE/BUILD FILE
  18. 170  PRINT "        I - STATUS REPORT"
  19. 180  PRINT "      Esc - EXIT"
  20. 190  PRINT "   "
  21. 200  PRINT " "
  22. 210  PRINT "      SELECT FUNCTION BY LETTER"
  23. 220  K$ = INKEY$: IF K$ = "" THEN 220
  24. 230  IF K$ = "A" THEN 440
  25. 240  IF K$ = "a" THEN 440
  26. 250  IF K$ = "B" THEN 450
  27. 260  IF K$ = "b" THEN 450
  28. 270  IF K$ = "C" THEN 460
  29. 280  IF K$ = "c" THEN 460
  30. 290  IF K$ = "D" THEN 470
  31. 300  IF K$ = "d" THEN 470
  32. 310  IF K$ = "E" THEN 480
  33. 320  IF K$ = "e" THEN 480
  34. 330  IF K$ = "F" THEN 490
  35. 340  IF K$ = "f" THEN 490
  36. 350  IF K$ = "G" THEN 500
  37. 360  IF K$ = "g" THEN 500
  38. 370  IF K$ = "H" THEN 510
  39. 380  IF K$ = "h" THEN 510
  40. 390  IF K$ = "I" THEN 520
  41. 400  IF K$ = "i" THEN 520
  42. 410  IF K$ = CHR$(27) THEN 530
  43. 420  IF K$ = "J" THEN 530
  44. 430  GOTO 220
  45. 440  CHAIN "B:DISPMAIL"
  46. 450  CHAIN "B:ADDMAIL"
  47. 460  CHAIN "B:DELMAIL"
  48. 470  CHAIN "B:CHGMAIL"
  49. 480  CHAIN "B:LABMAIL"
  50. 490  CHAIN "B:LISTMAIL"
  51. 500  CHAIN "B:REORMAIL"
  52. 510  CHAIN "B:BUILDML"
  53. 520  CHAIN "B:STATMAIL"
  54. 530  CLS
  55. 531  KEY ON
  56. 532  END
  57. 534  REM FOLLOWING CODE NOT NOW USED
  58. 540  PRINT " "
  59. 550  PRINT "   PLACE DOS DISKETTE IN DRIVE A"
  60. 551  PRINT "   PRESS ANY KEY TO PROCEED
  61. 552  K$ = INKEY$: IF K$ = "" THEN 552
  62. 553  CLS
  63. 554  CHAIN "IBMPMENU"
  64.