/*********************************************************************/
/* BLANKER.FNC                                                       */
/* (C) Peter Wansch, 1995                                            */
/* PLEASE DO NOT MODIFY THIS FILE                                    */
/*********************************************************************/
Parse Arg Data Create Warp
Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
Call SysLoadFuncs
If Create = 0 Then
  Do
    If Warp
    Then Call SysOpenObject Data, 0, TRUE;
    Else Call SysSetObjectData Data, 'OPEN=DEFAULT';
    If Result = 1 Then
      Return Result
  End
If Warp 
Then Call SysOpenObject Data, 0, FALSE;
Return (Result = 1);