/*
 *  SCRP_WRITE					(C) Digital Design 1991
 *
 *  Legt den Zugriffspfad f�r das aktuelle Scrap-Directory fest.
 */
#include <gemdefs.h>

int scrp_write( char *sc_wpscrap )
{
  addrin[0] = sc_wpscrap; /* Name des neuen Pfades.	*/

  AES( 81, 0, 1, 1, 0 );

  return intout[0]; /* = sc_wreturn: 0 = Fehler.	*/
}