SUBROUTINE SYSTEM.SETUP
* PGM THAT INITIALIZES SYSTEM.SETUP FOR THE OPTIONS THAT CUSTOMER
* HAS INSTALLED
*
* M.A.H. - 7.21.86 - MASTER SOFTWARE DESIGN
*------------------------------------------------------------------------*
*
*  STANDARD 'GEN-UTILITY' MENU COMMON STATEMENTS
*
COMMON CUR.MENU,LAST.MENU
COMMON GEN.REC(75),GEN.SCREEN,MODKEY,GENKEY,GEN.DETAIL,GEN.KEYS,GEN.DOC
COMMON RTCOD,SYSTEM.SETUP
*
COMPANY.NAME='CLOCK MASTER'
MAX.PORT=9999
EXP.DATE=9999
*
SYSTEM.SETUP=''
SYSTEM.SETUP<1>='AT' ;* SYSTEM-XT/AT/MINI/MAIN
SYSTEM.SETUP<2>='CH' ;* CH-CHURCH/MN-MINISTRY
SYSTEM.SETUP<3>='Y'  ;* FAMILY YES/NO
SYSTEM.SETUP<4>='Y'  ;* INVENTORY
SYSTEM.SETUP<5>='Y'  ;* SUBSCRIPTIONS
SYSTEM.SETUP<6>='Y'  ;* PLEDGES
SYSTEM.SETUP<7>='Y'  ;* ORDER ENTRY/INVOICING
SYSTEM.SETUP<8>='N'  ;* MISSIONS
SYSTEM.SETUP<9>='N'  ;* CALENDAR
SYSTEM.SETUP<11>='Y' ;* ACCOUNTS PAYABLE
SYSTEM.SETUP<12>='Y' ;* ACCOUNTS RECEIVABLE
SYSTEM.SETUP<13>='Y' ;* GENERAL LEDGER
SYSTEM.SETUP<21>='T' ;* PF1 FOR THIS SYSTEM
SYSTEM.SETUP<22>='P' ;* PF2
SYSTEM.SETUP<23>='/' ;* PF3
OPEN 'MD' TO MD ELSE ABORT 201,'MD'
READ CO1 FROM MD,'CO1' ELSE CO1=''
IF CO1 # COMPANY.NAME THEN GO 9999
*EXECUTE "WHERE" CAPTURING HOLD
EXECUTE "WHO", //OUT. > HOLD
DC=DCOUNT(HOLD,CHAR(254))-1
HOLD<DC>=TRIM(HOLD<DC>)
LAST=FIELD(HOLD<DC>,' ',1)*1
IF LAST > MAX.PORT THEN GO 9999
IF EXP.DATE # 9999 THEN
  IF DATE() > ICONV(EXP.DATE,'D') THEN GO 9999
END
RETURN
*
9999 * ABORT - SECURITY FAILED
BREAK OFF
PRINT CHAR(7)
PRINT @(-1):@(10,10):'SECURITY FAILED - PLEASE CONTACT MASTER SOFTWARE DESIGN'
RQM ; PRINT CHAR(7) ; RQM
CHAIN 'OFF'