home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / mail / maildb / menu.prg < prev    next >
Encoding:
Text File  |  1988-04-04  |  2.3 KB  |  65 lines
  1. *******4/3/88***************NAMES.PRG 
  2. *****************Mailing List Management System: dBase III Plus 
  3. *-----Set up initial parameters. 
  4. SET TALK OFF 
  5. SET STATUS OFF  
  6. *-------Open the database and index files 
  7. USE MAILDATA INDEX LNAME,ZIP            
  8. *------Begin loop for Main Menu. 
  9. CHOICE = 0 
  10. DO WHILE CHOICE <>6 
  11. set color to GR       
  12. CLEAR
  13. TEXT 
  14.  
  15.                                                                  
  16.            ██████████████████████████████████████████████████████
  17.          ▓▓██▓▓▓▓▓▓▓▓▓▓▓┌───────────────────────────┐▓▓▓▓▓▓▓▓▓▓██
  18.        ▒▒▓▓██▒▒▒▒▒▒▒▒▒▒▒│        MAILING LIST       │▒▒▒▒▒▒▒▒▓▓██
  19.        ▒▒▓▓██           └───────────────────────────┘      ▒▒▓▓██
  20.        ▒▒▓▓██                                              ▒▒▓▓██
  21.        ▒▒▓▓██          1. Add new Names and Addresses      ▒▒▓▓██
  22.        ▒▒▓▓██                                              ▒▒▓▓██
  23.        ▒▒▓▓██          2. Print Directory or Labels        ▒▒▓▓██
  24.        ▒▒▓▓██                                              ▒▒▓▓██
  25.        ▒▒▓▓██          3. Look up by Last Name             ▒▒▓▓██
  26.        ▒▒▓▓██                                              ▒▒▓▓██
  27.        ▒▒▓▓██          4. Delete a Specific Name           ▒▒▓▓██
  28.        ▒▒▓▓██                                              ▒▒▓▓██
  29.        ▒▒▓▓██          5. Check for Duplicate Entries      ▒▒▓▓██
  30.        ▒▒▓▓██                                              ▒▒▓▓██
  31.        ▒▒▓▓██          6. Exit the Mailing System          ▒▒▓▓██
  32.        ▒▒▓▓██   --->TYPE "QUIT" AT THE COMMAND LINE <---   ▒▒▓▓██
  33.        ▒▒▓▓██████████████████████████████████████████████████████
  34.        ▒▒▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  35.        ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  36. ENDTEXT 
  37. *-------Get user's choice 
  38. @ 23,12 SAY "Enter choice" GET CHOICE; 
  39.   PICTURE "9" RANGE 1,6 
  40. READ 
  41. *------Branch to appropriate task or program. 
  42. DO CASE 
  43.  
  44.     CASE CHOICE = 1 
  45.     SET FORMAT TO MAILSCRN 
  46.     APPEND 
  47.     CLOSE FORMAT 
  48.  
  49. CASE CHOICE = 2 
  50.     DO MAILREPS 
  51. CASE CHOICE = 3 
  52.     DO MAILEDIT 
  53. CASE CHOICE = 4 
  54.     DO MAILDEL 
  55. CASE CHOICE = 5 
  56.     DO MAILDUPE 
  57.  
  58. ENDCASE 
  59. ENDDO (while choice <>6) 
  60. set color to g,/w
  61. *-------Done with program. Return to dot prompt. 
  62. SET TALK ON 
  63. SET STATUS ON 
  64. RETURN 
  65.