* MAILSET.PRG SETS THE DEFAULT DRIVES FOR MAILMEN.PRG COPYRIGHT APRIL 20,
* 1984 BY PHILIP K. PERLMAN
SET TALK OFF
erase
restore from mailset
store t to go
do while go
store ' ' to change
@ 10,5 SAY "The Current Default Drive for the Program Files is " get drv2
@ 12,5 Say "The Current Default Drive for the Database Files is " get drv1
?
?
?
? "Press 'E' If You Wish To Change These Defaults"
?
? "Press Any Other Key To Leave Unchanged"
Set console off
wait to change
set console on
store !(change) to change
if change = 'E'
read
CLEAR GETS
Store drv1-':'-'MAIL' to DBF1
Store drv1-':'-'LAST' to NDX1
Store drv1-':'-'COMP' to NDX2
Store drv1-':'-'PROF1' to NDX3
Store drv1-':'-'PROF2' to NDX4
Store drv1-':'-'PROF3' to NDX5
Store drv2-':'-'BIRTHDAY' to BIRTH
Store drv2-':'-'GETMAIL' to GETMAIL
Store drv2-':'-'MAILED' to MAILED
Store drv2-':'-'MAILINP' to MAILINP
Store drv2-':'-'PRINTCAT' to PRINTCAT
Store drv2-':'-'PRINTIND' to PRINTIND
Store drv2-':'-'PRINTLAB' to PRINTLAB
Store drv2-':'-'PRINTMEN' to PRINTMEN
Store drv2-':'-'PRINTROL' to PRINTROL
Store drv2-':'-'XMASLAB' to XMASLAB
Store drv2-':'-'MAILMEN' to MAILMEN
STORE drv2-':'-'MAILSET' to MAILSET
STORE drv2-':'-'MAILDEL' TO MAILDEL
SAVE TO MAILSET
STORE F TO GO
ELSE
STORE F TO GO
ENDIF
ENDDO
RETURN

ULY
          ENDIF
          IF #>0
             STORE T TO SEARCH
             DO WHILE SEARCH
                IF FIRST = NAME1
                     STORE 1 TO REC
                     STORE F TO SEARCH