! MNFAX - Master Menu Program for Faxing
!
!	Notice:	The process and all the routines contained herein are
!		the proprietary properties and trade secrets of Mini-
!		Computer Business Applications, Inc. and Alpha Micro-
!		systems.  Except as provided by license agreement,
!		this code shall not be duplicated, used, or disclosed
!		for any purpose or reason, in whole or in part, without
!		the express written consent of Alpha Microsystems.
!
MAP1 PROGRAM'NAME,S,6,"MNFAX"
MAP1 PROGRAM'DESC,S,33,"FAX MAIN MENU"
!
	MAP1 MNU'AOPT,S,6		! application option choosen
	MAP1 MNU'MOPT,F,6		! menu option choosen
	MAP1 MNU'MCNT,F,6		! menu array count
	MAP1 MNU(32)			! 31-report menu, 32-sys management
		MAP2 MNU'NAM,S,10	! menu item program name
		MAP2 MNU'CM1,S,1
		MAP2 MNU'DSC,S,33	! menu item description
		MAP2 MNU'CM2,S,1
		MAP2 MNU'LVL,S,3	! menu item security 0-254, 255 hide
		MAP2 MNU'CM3,S,1
		MAP2 MNU'PSW,S,6	! menu item password
	MAP1 MNU'FACT,S,50		! option log file account
	MAP1 MNU'FNAM,S,50		! option run file
!
!
!!INCLUDE MAP:CMESP.MAP
!****************************************************************************
!*									    *
!*     SYSSTD.BSI  -  Standard AlphaBASIC / ESP development definitions     *
!*                   *** Special version without ***                        *
!*                   *** auto system record load ***                        *
!*									    *
!****************************************************************************
!
!                                 NOTICE
!
! All  rights  reserved.  This software is the property of Alpha Microsystems
! and the material contained herein is the  proprietary  property  and  trade
! secrets  of  Alpha Microsystems, embodying substantial creative efforts and
! confidential information, ideas and expressions, no part of  which  may  be
! reproduced  or  transmitted  in  any  form  or  by  any  means, electronic,
! mechanical,  or  otherwise,  including  photocopying  or  input  into   any
! information  storage  or  retrieval  system  without  the  express  written
! permission of Alpha Microsystems.
!
! CAUTION: Unauthorized distribution or reproduction  of  this  material  may
! subject you to legal action.
!
! Copyright (C) 1984 - Distributed Management Systems, Inc.
! Copyright (C) 1992 - Alpha Microsystems
!
     ! Edit history:
!
![102] 07/15/90 Updated to support 8-bit characters. /RJH
![101] 07/05/88 Add option flag definitions for INITRM and ERRDSP.	/CAE
![100] 02/12/84	Designed and implemented by Brett R. Halle.
!
!
! Standard data definitions.
!
	MAP1	MENUS   , X, 4096	! Menu buffer
	MAP1	SCREEN  , X, 8192	! Screen buffer.
	MAP1	INIT	, F, 6		! INITRM control.
	MAP1	CHAR    , F, 6		! Return character.
	MAP1	FIELD   , F, 6		! Return field number.
	MAP1	FALSE   , F, 6, 0	! Logical False is 0.
	MAP1	TRUE    , F, 6, NOT FALSE  ! Logical True is NOT false.
!
! ESP Special Edit Flags.
!
! These constants are used to set/test flag values in the high order
! byte of the CHAR variable as used in a GTSCR call.
!
!  ESP'POSTEDIT and ESP'PREEDIT are returned by GTSCR to indicate
!	an interrupt condition occured.
!
!  ESP'REPAINT may be passed to GTSCR to update the display of a
!	screen that may have been clobbered by direct IO to the
! 	CRT display (e.g. PRINT TAB(-1,9);)
!
!  ESP'RESETCHANGE may be passed to GTSCR to force a post-edit
!	interrupt on change condition for the current field. This is
!	useful when an error has been detected during a post-edit
!	interrupt on change process and the user is placed back into
!	the field to make a correction.
!
!  ESP'DAF may be passed to GTSCR to force the reevaluation of all
!	field formulas and redisplay of all fields.
!
	MAP1	ESP'POSTEDIT,	F, 6, 32768	! Post edit interrupt flag.
	MAP1	ESP'PREEDIT,	F, 6, 16384	! Pre edit interrupt flag.
	MAP1	ESP'REPAINT,	F, 6,  8192	! Repaint ESP screen flag.
	MAP1	ESP'RESETCHANGE,F, 6,  2048	! Reset field change detect.
	MAP1	ESP'DAF,	F, 6,  1024	! Redisplay all fields.
!
! ESP key-press constants.
!
	MAP1	ESP'MENU, F, 6, 128+27		! MENU key (Esc Esc).
	MAP1	ESP'EXECUTE, F, 6, 128+ASC("X")	! EXECUTE key (Esc X).
	MAP1	ESP'UPARROW, F, 6, 11		! UP ARROW key (^K).
	MAP1	ESP'NXTSCREEN, F, 6, 20		! NEXT SCREEN Key (^T).
	MAP1	ESP'PRVSCREEN, F, 6, 18		! PREV SCREEN Key (^R).
	MAP1	ESP'NXTMATCH, F, 6, 24		! NEXT MATCH Key (^X).
	MAP1	ESP'BEGLIN, F, 6, 21		! BEG LINE (^U).
	MAP1	ESP'CR, F, 6, 13		! Carriage return.
	MAP1	ESP'F1, F, 6, 128+1		! F1 - Unshifted/shifted.
	MAP1	ESP'F2, F, 6, 128+2		! F2 - Unshifted/shifted.
	MAP1	ESP'F3, F, 6, 128+3		! F3 - Unshifted/shifted.
	MAP1	ESP'F4, F, 6, 128+4		! F4 - Unshifted/shifted.
	MAP1	ESP'F5, F, 6, 128+5		! F5 - Unshifted/shifted.
	MAP1	ESP'F6, F, 6, 128+6		! F6 - Unshifted/shifted.
	MAP1	ESP'F7, F, 6, 128+7		! F7 - Unshifted/shifted.
	MAP1	ESP'F8, F, 6, 128+8		! F8 - Unshifted/shifted.
	MAP1	ESP'F9, F, 6, 128+9		! F9 - Unshifted/shifted.
	MAP1	ESP'F10, F, 6, 128+10		! F10- Unshifted/shifted.
	MAP1	ESP'F11, F, 6, 128+11		! F11- Unshifted/shifted.
	MAP1	ESP'F12, F, 6, 128+12		! F12- Unshifted/shifted.
!
! Extended characters for 8-bit mode.
! [102]
!
	MAP1	ESP'XMENU, F, 6, 256+27		! MENU key (Esc Esc).
	MAP1	ESP'XEXECUTE, F, 6, 256+ASC("X")! EXECUTE key (Esc X).
	MAP1	ESP'XF1, F, 6, 256+1		! F1 - Unshifted/shifted.
	MAP1	ESP'XF2, F, 6, 256+2		! F2 - Unshifted/shifted.
	MAP1	ESP'XF3, F, 6, 256+3		! F3 - Unshifted/shifted.
	MAP1	ESP'XF4, F, 6, 256+4		! F4 - Unshifted/shifted.
	MAP1	ESP'XF5, F, 6, 256+5		! F5 - Unshifted/shifted.
	MAP1	ESP'XF6, F, 6, 256+6		! F6 - Unshifted/shifted.
	MAP1	ESP'XF7, F, 6, 256+7		! F7 - Unshifted/shifted.
	MAP1	ESP'XF8, F, 6, 256+8		! F8 - Unshifted/shifted.
	MAP1	ESP'XF9, F, 6, 256+9		! F9 - Unshifted/shifted.
	MAP1	ESP'XF10, F, 6, 256+10		! F10- Unshifted/shifted.
	MAP1	ESP'XF11, F, 6, 256+11		! F11- Unshifted/shifted.
	MAP1	ESP'XF12, F, 6, 256+12		! F12- Unshifted/shifted.
!
! PRTSCR control values.
!
	MAP1	ESP'FLRCHR, F, 6, 32		! Filler character (space).
	MAP1	ESP'PRTCTL, F, 6		! PRTSCR control value:
	MAP1	ESP'PRTTTL, F, 6, (256*1)	!  Print titles.
	MAP1	ESP'PRTHDR, F, 6, (256*2)	!  Print detail headers.
	MAP1	ESP'PRTDET, F, 6, (256*4)	!  Print detail level.
	MAP1	ESP'PRTST1, F, 6, (256*8)	!  Print subtotal level 1.
	MAP1	ESP'PRTST2, F, 6, (256*16)	!  Print subtotal level 2.
	MAP1	ESP'PRTST3, F, 6, (256*32)	!  Print subtotal level 3.
	MAP1	ESP'PRTGTL, F, 6, (256*64)	!  Print grand totals.
!
! INITRM control options.
!
	MAP1	INITRM'NCS, F, 6, (2^0)		! Do NOT clear screen.
	MAP1	INITRM'NCA, F, 6, (2^1)		! Do NOT clear accumulators.
	MAP1	INITRM'NSL, F, 6, (2^2)		! Do NOT change sts lines.
	MAP1	INITRM'NPD, F, 6, (2^3)		! Do NOT read printer defs.
	MAP1	INITRM'NEW, F, 6, (2^5)		! Characters are passed in 8-bit mode.	[102]
	MAP1	INITRM'RST, F, 6, (2^31)	! Reset terminal status.
!  (Exit data mode and allow
!   standard BASIC input.)
!
! ERRDSP control options.
!
	MAP1	ERRDSP'NAK, F, 6, (2^0)		! No acknowledgement desired.
	MAP1	ERRDSP'NBL, F, 6, (2^1)		! No blink desired.
	MAP1	ERRDSP'NDG, F, 6, (2^2)		! No ding desired.
	MAP1	ERRDSP'TTY, F, 6, (2^15)	! Output without CRT features.
!
!
!END-SYSSTD.BSI
!
++INCLUDE BAS:TOOLBX.BSI
!
	MAP1 FILNAM,S,25
	MAP1 INXCTL,F,6
	MAP1 RTNCDE,F,6
	MAP1 ENTRY,S,80
	MAP1 CRLF,S,4,CHR(13)+CHR(10)
	MAP1 X,F
	MAP1 Y,F
100	MNU'MCNT=3
110	MNU( 1)="MNFAX.RUN ,Fax Queue                        ,  0,      "
120	MNU( 2)="MNFAX.RUN ,Create/Send Fax                  ,  0,      "
130	MNU( 3)="MNFAX.RUN ,Display Fax Log File             ,  0,      "
!
!
140	FILEBASE 1 : XCALL NOECHO : SIGNIFICANCE 11
!
150	FILNAM="MNMNU.SC2"
160	XCALL FETCH,FILNAM,MENUS,INXCTL
170	IF INXCTL THEN GOTO ESP'ERR
!
180	X=(.LEVEL)*2 : XCALL SETUSR,2,X : XCALL SETUSR,3,X
!
190	INIT=INITRM'NCS+INITRM'NCA+INITRM'NSL+INITRM'NPD
     MENU'INIT:
200	XCALL INITRM,PROGRAM'DESC,"QUORUM",INIT
210	XCALL SETUSR,5,120
220	XCALL OPNSCR,MENUS
230	XCALL HIDFLD,MENUS,TRUE,11,13,15,17,19,21,23,25
240	XCALL HIDFLD,MENUS,TRUE,26,28,30,32,34,36,38,40
     MENU'LOOP:
250	IF MNU'MCNT<9  THEN FIELD=3 : X=1 ELSE FIELD=11 : &
	  IF MNU'MCNT<17 THEN X=2 ELSE X=1
260	FOR Y=1 TO MNU'MCNT
270	  ENTRY=Y USING "##. "+MNU'DSC(Y)
280	  XCALL SETVAL,MENUS,FIELD,ENTRY
290	  XCALL SETFSC,MENUS,FIELD,VAL(MNU'LVL(Y))
300	  XCALL TOOLBX,TBX'HIDFLD,MENUS,FIELD,FALSE
310	  FIELD=FIELD+X : IF X=2 AND Y=8 THEN FIELD=FIELD-1
320	NEXT Y
330	FIELD=1 : CHAR=ESP'BEGLIN+ESP'REPAINT
340	XCALL SETVAL,MENUS,FIELD,""
     MENU'ENTRY:
350	XCALL GTSCR,MENUS,CHAR,FIELD
!
360	IF (CHAR AND 255) = ESP'MENU THEN &
	  MNU'MOPT=(-1) : GOTO CLSEUP
!
370	IF (CHAR AND ESP'POSTEDIT) THEN &
	  ON FIELD GOTO MENU'CHK,MENU'PSW
!
380	GOTO MENU'ENTRY
!
     MENU'CHK:
390	XCALL GETVAL,MENUS,FIELD,MNU'AOPT : MNU'MOPT=0
400	IF MNU'AOPT="" THEN CHAR=ESP'RESETCHANGE    : GOTO MCHK'10
     MCHK'4:
410	MNU'MOPT = VAL(MNU'AOPT)
420	IF (MNU'MOPT<1 OR MNU'MOPT>MNU'MCNT) THEN CHAR=ESP'RESETCHANGE : &
	  XCALL ERRDSP,"Invalid selection" : GOTO MCHK'10
     MCHK'6:
430	IF MNU'MCNT<9 THEN X=MNU'MOPT+2 ELSE X=MNU'MOPT+10 : &
	  IF MNU'MCNT<17 THEN X=9+(MNU'MOPT*2) : IF MNU'MOPT>8 THEN X=X-1
440	XCALL GETFSC,MENUS,X,INXCTL
450	IF INXCTL=0 THEN CHAR=ESP'RESETCHANGE : &
	  XCALL ERRDSP, "Security clearance is not sufficient for the selection" : &
	  GOTO MCHK'10
460	IF MNU'PSW(MNU'MOPT)#"" THEN   ELSE GOTO WINDUP
470	GOTO MENU'ENTRY
     MCHK'10:
480	XCALL SETVAL,MENUS,1,""
490	GOTO MENU'ENTRY
     MENU'PSW:
500	XCALL GETVAL,MENUS,FIELD,ENTRY
510	XCALL SETVAL,MENUS,FIELD,""
520	IF ENTRY = "" THEN GOTO MCHK'10
530	IF ENTRY <> MNU'PSW(MNU'MOPT) THEN CHAR=ESP'RESETCHANGE : &
	  XCALL ERRDSP,"Invalid Password" : GOTO MENU'ENTRY
     WINDUP:
540	XCALL STRIP,MNU'NAM(MNU'MOPT)
550	MNU'FACT=":R"+CRLF+"RUN "
560	MNU'FNAM=MNU'NAM(MNU'MOPT)
570	IF INSTR(1,MNU'NAM(MNU'MOPT),PROGRAM'NAME)=0 THEN GOTO WU'2
580	ON MNU'MOPT GOTO FAXQUE,FAXEDT,FAXSTS
590	XCALL SETVAL,MENUS,2,"" : GOTO MCHK'10
     WU'2:
600	LOOKUP MNU'FNAM,INXCTL : IF INXCTL=0 THEN CHAR=ESP'RESETCHANGE : &
	  XCALL ERRDSP,"Selection is not available or under construction" : &
	  XCALL SETVAL,MENUS,2,"" : GOTO MCHK'10
     CLSEUP:
     EXITUP:
610	IF MNU'MOPT>0 THEN   ELSE GOTO EU'2
620	X=INSTR(1,MNU'FACT,"RUNDOS")
630	IF X=0 THEN XCALL WAIT,3 : CHAIN MNU'FACT+MNU'FNAM
640	XCALL CLSSCR,MENUS
650	INIT=INITRM'NCA+INITRM'NSL+INITRM'NPD+INITRM'RST
660	XCALL INITRM,PROGRAM'DESC,"QUORUM",INIT
670	RUNDOS MNU'FACT[(X+7),50]+MNU'FNAM
680	IF MNU'MOPT#999 THEN &
	  XCALL ERRDSP,"          Press any key to return to menu          "
690	INIT=0 : GOTO MENU'INIT
     EU'2:
700	XCALL CLSSCR,MENUS : XCALL INITRM
710	END
!
     FAXQUE:
720	MNU'FACT="RUNDOS "
730	MNU'FNAM="SYS:FAXQUE.LIT"
740	GOTO WU'2
!
     FAXEDT:
750	FILNAM="MNFAX.SC1"
760	XCALL FETCH,FILNAM,SCREEN,INXCTL
770	IF INXCTL THEN GOTO ESP'ERR
!
780	XCALL OPNSCR,SCREEN
     FAXEDT'INIT:
790	FIELD=1 : CHAR=ESP'BEGLIN+ESP'REPAINT
800	XCALL SETVAL,SCREEN,FIELD,""
     FAXEDT'ENTRY:
810	XCALL GTSCR,SCREEN,CHAR,FIELD
!
820	IF (CHAR AND 255) = ESP'MENU THEN &
	  GOTO FAXEDT'CLSEUP
!
!!!!!	IF (CHAR AND ESP'POSTEDIT) THEN &
!!!!!	  ON FIELD GOTO
!
830	GOTO FAXEDT'ENTRY
     FAXEDT'CLSEUP:
840	XCALL CLSSCR,SCREEN,1
850	CHAR=ESP'RESETCHANGE : GOTO MCHK'10
!!!!!	INIT=0 : GOTO MENU'INIT
!
     FAXSTS:
860	MNU'FACT="RUNDOS "
870	MNU'FNAM="SYS:FAXSTS.LIT"
880	GOTO WU'2
!
     ESP'ERR:
890	PRINT "ESP ERROR = ";INXCTL
900	END
!