home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: WPS_PM / WPS_PM.zip / blnk55gr.zip / DISK.ZIP / BLANKER.FNC < prev    next >
Text File  |  1995-11-27  |  734b  |  20 lines
  1. /*********************************************************************/
  2. /* BLANKER.FNC                                                       */
  3. /* (C) Peter Wansch, 1995                                            */
  4. /* PLEASE DO NOT MODIFY THIS FILE                                    */
  5. /*********************************************************************/
  6. Parse Arg Data Create Warp
  7. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  8. Call SysLoadFuncs
  9. If Create = 0 Then
  10.   Do
  11.     If Warp
  12.     Then Call SysOpenObject Data, 0, TRUE;
  13.     Else Call SysSetObjectData Data, 'OPEN=DEFAULT';
  14.     If Result = 1 Then
  15.       Return Result
  16.   End
  17. If Warp 
  18. Then Call SysOpenObject Data, 0, FALSE;
  19. Return (Result = 1);
  20.