home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
members.zip
/
MDMAIN.PRG
< prev
next >
Wrap
Text File
|
1986-10-20
|
3KB
|
176 lines
*----------------------------------------------------------------------
* Program : Membership Database Package
* File : MDMAIN
* Function: Master Control Program
* Author : J. North
* Version : (AT contest)
* Date : 10/15/86
*----------------------------------------------------------------------
*
clear all
set talk off
* -- Open global procedures file --
set procedure to mdproc
on error do errchk
* -- Establish environment --
set bell off
set status off
set deleted on
set safety off
set intensity on
set delimiter on
set delimiter to "[]"
set confirm on
set exact off
set escape off
do set_dim
clear
@ 6, 6 TO 12, 72 DOUBLE
@ 7, 21 SAY "Mid Atlantic Solar Energy Association"
@ 8, 21 TO 8, 57
@ 9, 21 SAY "MEMBERS - Membership Database Package"
@ 10, 7 TO 10, 71
@ 11, 8 SAY "Version: (AT contest) Jim North, 1986"
@ 24, 0 say "Initializing program . . ."
* -- Check files --
do mdgen
* -- Get saved memory variables --
restore from mdvars
* -- Declare transient publics --
public lock,yn,mn_key,mk_min,query
* -- Binary modules to turn cursor on and off
load curson
load cursoff
call cursoff
call curson
call cursoff
* -- Set Function Keys --
do mdkeyint
* -- main menu --
mn_draw=.T.
do while .T.
if mn_draw
do put_main
do put_mgrp
mn_draw=.F.
clear typeahead
endif
do while .T.
set console off
mn_key=0
do while mn_key=0
mn_key=inkey()
enddo
set console on
do clr_imp
do case
case mn_key >= mk_min .AND. mn_key <= -1
exit
case mn_key=28 .or. mn_key=23
exit
case mn_key>0
do set_mgrp
endcase
enddo
if mn_key=23
clear
do dialog with 10,'Press "Y" to end program.'
set console off
clear typeahead
wait "" to yn
set console on
if upper(yn) # "Y"
mn_draw=.T.
loop
endif
exit
endif
select 1
do case
case m_grp=2
mn_draw=.T.
do case
case mn_key=-1
do mdmod
case mn_key=-2
do mdrecall
case mn_key=-3
do mdpack
case mn_key=-4
do mdindex
case mn_key=28
do am-2
otherwise
mn_draw=.F.
endcase
case m_grp=4
mn_draw=.T.
do case
case mn_key=-1
do mdreport
case mn_key=-2
do mdlabel
case mn_key=28
do am-4
otherwise
mn_draw=.F.
endcase
case m_grp=3
mn_draw=.T.
do case
case mn_key=-1
do mdmodqry
case mn_key=-2
do mdmodfrm
case mn_key=-3
do mdmodlbl
case mn_key=28
do am-3
otherwise
mn_draw=.F.
endcase
case m_grp=1
mn_draw=.T.
do case
case mn_key=-1
do mdkeyset
case mn_key=-2
do mdfields
case mn_key=28
do am-1
otherwise
mn_draw=.F.
endcase
case m_grp=5
mn_draw=.T.
do case
case mn_key=-1
do mdshodoc with .F.
case mn_key=-2
do mdshodoc with .T.
case mn_key=28
do am-5
otherwise
mn_draw=.F.
endcase
endcase
enddo
close databases
call curson
release module curson
release module cursoff
save all like m_* to mdvars
clear
quit