C*****************************************************************************
C
C	             User Interactive Function Test Controller
C
C-----------------------------------------------------------------------------
C
C Program	: Test User Interactive/ TUserI.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 TUserI

C--------------------------------- IMPORT -----------------------------------)
C
C	FROM USERI IMPORT AS
C
		Integer*4	UiGtlin,  UiIcsi,   UiIttinr,  UiIttour
		Integer*4	UiMtin,   UiMtout,  UiMtprint, UiPrint
		Integer*4	UiMtRctO, UiRctrlo, UiScca,    UiIScca
C	END IMPORT
C
C----------------------------------------------------------------------------)

		Character*80	st
		Integer*4	AStat(13)
		Character*6     Alabl(13)

		Include 'SRC:Tbegin.for'
		Call CloseOutput
		Call OpenOutput( 'TT:', .FALSE. )

		Astat(01) = UiGtlin()
		ALabl(01) = 'GTLIN'
		Astat(02) = UiIcsi()
		Alabl(02) = 'ICSI'
		Astat(03) = UiIttinr()
		Alabl(03) = 'ITTINR'
		Astat(04) = UiIttour()
		Alabl(04) = 'ITTOUR'
		Astat(05) = UiMtin()
		Alabl(05) = 'MTIN'
		Astat(06) = UiMtout()
		Alabl(06) = 'MTOUT'
		Astat(07) = UiMtprint()
		Alabl(07) = 'MTPRNT'
		Astat(08) = UiPrint()
		Alabl(08) = 'Print'
		Astat(09) = UiMtRcto()
		ALabl(09) = 'MTRCTO'
		Astat(10) = UiRctrlo()
		ALabl(10) = 'RCTRLO'
		Astat(11) = UiScca()
		ALabl(11) = 'SCCA'
		Astat(12) = UiIScca()
		ALabl(12) = 'ISCCA'

		Call CloseOutput
		Call OpenOutput( param(-7), appnd )
		IF (page) Call SetPage('User Interactive Functions\',pnum )
		st = '===== User Interactive Function Error Report Summary =====\'
		Call CenterString( st )
		Call WriteLn
		Rprt = Report( Astat, Alabl, 12 )
		st = '===== End of User Interactive Function Report =====\'
		Call CenterString( st )
		Call WriteLn
		Call WriteLn

		Include 'SRC:Tend.for'