home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
maildb3.zip
/
MENU.PRG
< prev
next >
Wrap
Text File
|
1988-04-04
|
2KB
|
65 lines
*******4/3/88***************NAMES.PRG
*****************Mailing List Management System: dBase III Plus
*-----Set up initial parameters.
SET TALK OFF
SET STATUS OFF
*-------Open the database and index files
USE MAILDATA INDEX LNAME,ZIP
*------Begin loop for Main Menu.
CHOICE = 0
DO WHILE CHOICE <>6
set color to GR
CLEAR
TEXT
██████████████████████████████████████████████████████
▓▓██▓▓▓▓▓▓▓▓▓▓▓┌───────────────────────────┐▓▓▓▓▓▓▓▓▓▓██
▒▒▓▓██▒▒▒▒▒▒▒▒▒▒▒│ MAILING LIST │▒▒▒▒▒▒▒▒▓▓██
▒▒▓▓██ └───────────────────────────┘ ▒▒▓▓██
▒▒▓▓██ ▒▒▓▓██
▒▒▓▓██ 1. Add new Names and Addresses ▒▒▓▓██
▒▒▓▓██ ▒▒▓▓██
▒▒▓▓██ 2. Print Directory or Labels ▒▒▓▓██
▒▒▓▓██ ▒▒▓▓██
▒▒▓▓██ 3. Look up by Last Name ▒▒▓▓██
▒▒▓▓██ ▒▒▓▓██
▒▒▓▓██ 4. Delete a Specific Name ▒▒▓▓██
▒▒▓▓██ ▒▒▓▓██
▒▒▓▓██ 5. Check for Duplicate Entries ▒▒▓▓██
▒▒▓▓██ ▒▒▓▓██
▒▒▓▓██ 6. Exit the Mailing System ▒▒▓▓██
▒▒▓▓██ --->TYPE "QUIT" AT THE COMMAND LINE <--- ▒▒▓▓██
▒▒▓▓██████████████████████████████████████████████████████
▒▒▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
ENDTEXT
*-------Get user's choice
@ 23,12 SAY "Enter choice" GET CHOICE;
PICTURE "9" RANGE 1,6
READ
*------Branch to appropriate task or program.
DO CASE
CASE CHOICE = 1
SET FORMAT TO MAILSCRN
APPEND
CLOSE FORMAT
CASE CHOICE = 2
DO MAILREPS
CASE CHOICE = 3
DO MAILEDIT
CASE CHOICE = 4
DO MAILDEL
CASE CHOICE = 5
DO MAILDUPE
ENDCASE
ENDDO (while choice <>6)
set color to g,/w
*-------Done with program. Return to dot prompt.
SET TALK ON
SET STATUS ON
RETURN