home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
members.zip
/
MDPACK.PRG
< prev
next >
Wrap
Text File
|
1986-10-16
|
896b
|
33 lines
*----------------------------------------------------------------------
* Program : Membership Database Package
* File : MDPACK
* Function: Pack Membership Database
* Author : J. North
* Version : (AT contest)
* Date : 10/15/86
*----------------------------------------------------------------------
*
clear
do dialog with 10,"WARNING >> Once members are removed, they are gone forever!!! Proceed(Y/N)?"
set console off
clear typeahead
wait "" to yn
set console on
if upper(yn)="Y"
clear
do dialog with 10,"This is your last chance to cancel!!! Proceed(Y/N)?"
set console off
clear typeahead
wait "" to yn
set console on
if upper(yn)="Y"
do clwait
@ 0,0 say "Removing Deleted Members ---"
select 1
use members index name,zip
pack
use
endif
endif
return