/* REXX ------------------------------------------------------------- */
/* Name:       NOT                                                    */
/* Short:      Negates the argument                                   */
/*             Same as: ^ arg                                         */
/* Type:       REXX-Function                                          */
/* Author:     Norbert Haas                                           */
/* Input:      1/0                                                    */
/* Output:     0/1                                                    */
/* Advantage:  No special characters are needed.                      */
/*                                                                    */
/* Version Author        Date       Why                               */
/* ------- ------------- ---------- --------------------------------- */
/* V01.00  N.Haas        06.06.2003 Creationng                        */
/* ------------------------------------------------------------------ */
PARSE ARG parm                                                          
                                                                        
IF parm = 1 THEN EXIT 0                                                 
ELSE                                                                    
   IF parm = 0 THEN EXIT 1                                              
   ELSE DO                                                              
      SAY 'Wrong parameter, not 1 or 0, but' parm                       
      EXIT 0                                                            
   END