PROGRAM UTLMNU,1.0
!
!			   ==========================
!			  //  UTILITY PROGRAM MENU  \\
!		         //==========================\\
!		        <<  BY THE GREAT & MIGHTY OZ  >>
!	//===============\\==========================//=================\\
!       ||       * * * * *   E D I T   H I S T O R Y   * * * * *        ||
!	||							        ||
!	||  8/27/85 program created. /dmm				||
!	||	   							||
!	\\==============<<============================>>================//
!		         \\==========================//
02000 MAP1 FIL'00
02010 	MAP2 ENTRY,S,6
02020 	MAP2 INXCTL,F
02030 	MAP2 PGM,F
02040	MAP2 PROGNM(17),S,18
02050	    	PROGNM(1) = "SNDMSG"
02060	    	PROGNM(2) = "REMIND"
02070	    	PROGNM(3) = "SETFRM"
02080		PROGNM(4) = "USERS"
02090		PROGNM(5) = "PRTSYS"	
02100		PROGNM(6) = "CLRMSG"
02105		PROGNM(7) = "REMINQ"
02110 MAP1 BINDATE,B,4
02120 MAP1 FILLDATE,@BINDATE
02130	MAP2 MONTH,B,1
02140	MAP2 DAY,B,1
02150	MAP2 YEAR,B,1
02160 MAP1 FILNAM,S,15
02170 MAP1 TODAY,S,6
02180 MAP1 CONAME,S,50
02190 MAP1 MESAG,S,70
02200	FILEBASE 1
02210	SIGNIFICANCE 11
02220  	XCALL NOECHO
02230	? TAB(-1,0);"UTILIITY PROGRAM MENU"
02240 	? TAB(4,1); "Please select application";TAB(-1,11);
02250   ? TAB(06,20);" 1. Send messages           ";TAB(-1,33);TAB(6,19);TAB(-1,32)
02260   ? TAB(07,20);" 2. Send reminder notice    "
02270   ? TAB(08,20);" 3. Set printer forms       ";TAB(-1,33);TAB(8,19);TAB(-1,32)
02280   ? TAB(09,20);" 4. Define system users     "
02290   ? TAB(10,20);" 5. Define system printers  ";TAB(-1,33);TAB(10,19);TAB(-1,32)
02300	? TAB(11,20);" 6. Clear reminder messages ";
02305   ? TAB(12,20);" 7. Dump reminder messages  ";TAB(-1,33);TAB(12,19);TAB(-1,32)
02310	? TAB(-1,12);
02320 INPUT:
02330 	XCALL INPUT,4,28,2,1,"#E+",ENTRY,INXCTL,1,DEFLT,EXTCODE,0
02340 	IF INXCTL GOTO FIN
02350 	PGM = ENTRY
02360	IF PGM<1 OR PGM>7 XCALL MESAG,"",3 : GOTO INPUT
02370	RCHAIN=JOBPRG
02380 	CHAIN PROGNM(PGM)
02390 FIN:
02400	? TAB(-1,0);
02410	CHAIN "ALMENU"