SETENV CUSTOMPATH WHDSaves:custom_$SLAVE
IF EXISTS DH0:custom
   SETENV CUSTOMPATH DH0:custom
ELSE

IF EXISTS $CUSTOMPATH
   C:RequestChoice MkCustom "Current WHDLoad options: `type $CUSTOMPATH`" Cancel Edit Remove >ENV:CustomChoice
ELSE
   C:RequestChoice MkCustom "Custom WHDLoad options not set" Cancel Set Remove >ENV:CustomChoice
ENDIF

IF $CustomChoice EQ 0
   C:Delete $CUSTOMPATH >NIL:
ENDIF

IF $CustomChoice EQ 2
   IF EXISTS $CUSTOMPATH
      C:RequestString MkCustom "Edit options" default="`type $CUSTOMPATH`" >RAM:custom_new
   ELSE
      C:RequestString MkCustom "Set options" >RAM:custom_new
   ENDIF

   IF EXISTS RAM:custom_new
      C:Delete $CUSTOMPATH >NIL:
      C:Copy RAM:custom_new WHDSaves:custom_$SLAVE >NIL:
   ENDIF
ENDIF
