// by iri - http://www.irizone.net
// may 2005

fun cbStart (from, user, action, param, others, tag, p) =
  _DMScreateClientDMI this UtoC user p;
  0 ;;

fun IniDMI(file)=
  let strextr _getpack _checkpack file -> l in 
  let getInfo l "color" -> c in
  _DMSdefineActions this ["start" mkfun7 @cbStart c]::nil;
  0 ;;