*******************************************************************************
*
*	New System Admin - This routine turns inverse video on and off, taking
*		into account the difference between systems with video spacing
*		and the systems without.
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	10/14/98 23801 SAP Change copyrights. 
*   05/13/91 8345  DTM changed print to tprints
*	11/05/90 7393  DPB Routine first created and admin'd.
*******************************************************************************

SUBROUTINE INVERSE.B(toggle)

$INCLUDE UNIVERSE.INCLUDE MTF.INCL.H

BEGIN CASE
    CASE toggle = 0
        IF VIDEO.SPACES < 1 AND iv.end # "]" THEN
            TPRINT " ":
            END
        TPRINT iv.end:
    CASE toggle = 1
        TPRINT iv.begin:
        IF VIDEO.SPACES < 1 AND iv.begin # "[" THEN
            TPRINT " ":
            END
END CASE

RETURN