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"
