C*****************************************************************************
C
C	            MultiTerminal Support Function Test Controller
C
C-----------------------------------------------------------------------------
C
C Program	: Test MultiTerminal/ TMTerm.For
C Author	: John Malcolmson
C Date		: July 1986
C Language	: Fortran 77
C Notes		: The program is chained to by the Libtst program.
C
C*****************************************************************************

	Program TMTerm

C--------------------------------- IMPORT -----------------------------------)
C
C	FROM MTerm IMPORT AS
		Integer*4	MtMtatch, MtMtDtch, MtMtGet, MtMtSet 
		Integer*4	MtMtStat
C	END IMPORT
C
C----------------------------------------------------------------------------)

C****************************************************************************)
C									     )
C	The Following routines are included in the User Interactive test:    )
C		        MtIn, MtOut, MtPrint, Mtrcto			     )
C									     )
C****************************************************************************)

		Character*80	st
		Integer*4	AStat(5)
		Character*6     Alabl(5)
		Include 'SRC:Tbegin.for'
		IF (page) Call SetPage('Multiterminal Support Functions\',pnum )

		IF (IIAND(Ispy('372'O),2**13) .eq. 0) THEN
		    Call CenterString('-==============================-\')
		    Call Writeln
		    Call CenterString(' ?MTERM-I-CANNOT Perform The Tests in
     1 The Multiterminal Test Class!\')
		    Call WriteLn
		    Call WriteLn
		    Call CenterString('No MultiTerminal Support Present On 
     1 This Monitor!!\')
		    Call WriteLn
		    Call CenterString('-==============================-\')
		    Call WriteLn
		    Rprt = -1
		    Goto 888
		END IF

		Astat(01) = MtMtAtch()
		ALabl(01) = 'MTATCH'
		Astat(02) = MtMtDtch()
		Alabl(02) = 'MTDTCH'
		Astat(03) = MtMtGet()
		Alabl(03) = 'MTGET'
		Astat(04) = MtMtSet()
		Alabl(04) = 'MTSET'
		Astat(05) = MtMtStat()
		Alabl(05) = 'MTSTAT'

		st = '===== Multiterminal Support Error Report Summary =====\'
		Call CenterString( st )
		Call WriteLn
		Rprt = Report( Astat, Alabl, 05 )
		st = '===== End of Multiterminal Support Report =====\'
		Call CenterString( st )
		Call WriteLn
		Call WriteLn

888		Continue

		Include 'SRC:Tend.for'