{--------------------------------------------------------------}
{                           IsMono                             }
{                                                              }
{           "Halt" ERRORLEVEL parameter test program           }
{                                                              }
{                             by Jeff Duntemann                }
{                             Turbo Pascal V3.0                }
{                             Last update 2/17/86              }
{                                                              }
{    This program is called from the batch file CRTTEST to     }
{    demonstrate how simple Turbo Pascal utilities can be      }
{    used to extend the power of PC DOS's batch utility.       }
{                                                              }
{    From the book, COMPLETE TURBO PASCAL, by Jeff Duntemann   }
{    Scott, Foresman & Co. (c) 1986,1987  ISBN 0-673-18600-8   }
{--------------------------------------------------------------}

PROGRAM IsMono;

{$I MONOTEST.SRC}   {See Section 17.2}

BEGIN
  IF Monochrome THEN Halt(5)
    ELSE Halt(0)
END.