Integer*4	Report, Pnum
		Integer*4	Param(-9:18), rprt
		Character*14	dest
		Logical*2	appnd, Page
		Integer*2	Flag, dev, cblk(4), xxxzz
		Dimension       Spec(2)
		Real*8		Vspec
		Equivalence	(Param(-9), Vspec)

		CALL RCHAIN( Flag, param(-7), 52 )

		IF (flag .eq. 0) THEN
			Call OpenOutput( 'TT:', .FALSE. )
			Call Irad50(3,'BIN',dev)
			IF (Idstat(dev,cblk) .eq. 1) THEN
				Call CLS
				Call WriteString('Please Run LibTst.Sav',0,0)
				Call WriteLn
			ELSE
				Call SetCmd( 'Run BIN:libtst' )
			END IF
			Call CloseOutput
			GOTO 9999
		END IF

		IF (param(18) .ne. -1) THEN
			Do 1 xxxzz = 1, 18
				Call Write2Int( xxxzz, 5 )
				Call WriteOct( Iaddr(param(xxxzz)), 15 )
				Call WriteOct( param(xxxzz), 15 )
				Call WriteLn
1			Continue
			Stop '- Fatal Error : Corrputed Chain Data'
		END IF		

		Call ConSts(Param(-3),appnd,Page,Pnum)
		Call OpenOutput( param(-7), appnd )