PROGRAM FTN_ZILL_MENU
        IMPLICIT NONE

	!   Main module for example program written in Fortran
	!
	!   Menu sets up the FMS environment and calls the
	!   other subroutines.
	!
	INCLUDE '(LIB$ROUTINES)'
	INCLUDE 'MEGA_TEXT_LIB (FDVDEF_FTN)'

!;;;;;
!	Common areas
!;;;;;
	INTEGER*4   FMSSTATUS, RMSSTATUS, TCA(3), WORKSPACE(3)
	COMMON /FMS_MAP/ FMSSTATUS, RMSSTATUS, TCA, WORKSPACE

!;;;;;
!	Local variables
!;;;;;
	CHARACTER*10 WORK_STR
	CHARACTER*255 COMMAND_STR

	INTEGER*1    B_DONE
	INTEGER*4    TERMINATOR, L_X

!;;;;;;;;;;
!	Main Logic
!;;;;;;;;;;
	L_X= FDV$ATERM( %DESCR(TCA), 12, 2)
	L_X= FDV$AWKSP( %DESCR(WORKSPACE), 2000)
	L_X= FDV$LOPEN( 'MEGA_ZILL', 1)
	L_X= FDV$SPADA( 1)
	L_X= FDV$SSIGQ( 0)
	L_X= FDV$SSRV( FMSSTATUS, RMSSTATUS)
	L_X= FDV$CDISP( 'ZILL_MENU')

	B_DONE = 0

	DO 200, WHILE( B_DONE .EQ. 0)
	    L_X= FDV$GETAL( WORK_STR, TERMINATOR)

	    SELECT CASE( TERMINATOR)

	        CASE (FDV$K_PF_4)
	            B_DONE = 1

	        CASE (FDV$K_KP_1)
	            L_X= FDV$CLEAR( 1, 23)
	            CALL FTN_SQLM_ZILL_IMPORT_SUB

	        CASE (FDV$K_KP_2)
	            L_X= FDV$CLEAR(1,23)
	            CALL FTN_SQLM_ZILL_ENTRY_SUB

	        CASE (FDV$K_KP_3)
	            L_X= FDV$CLEAR(1,23)
	            CALL FTN_SQLM_CREATE_STATS_SUB

	        CASE (FDV$K_KP_5)
	            L_X= FDV$CLEAR(1,23)
	            CALL FTN_SQLM_ZILL_BROWSE_SUB

	        CASE (FDV$K_KP_7)
	            L_X= FDV$CLEAR(1,23)
	            CALL FTN_SQLM_ZILL_DUE_REPORT_SUB

	        CASE (FDV$K_KP_8)
	            L_X= FDV$CLEAR(1,23)
	            CALL FTN_SQLM_ZILL_MOST_REPORT_SUB

	        CASE (FDV$K_KP_9)
	            L_X= FDV$CLEAR(1,23)
	            CALL FTN_SQLM_DUMP_DRAW_DATA_SUB

	    END SELECT

	    L_X= FDV$SPADA( 1)
	    L_X= FDV$CDISP( 'ZILL_MENU')

200	CONTINUE

	STOP
	END