/* Chess Editor - DMS - feb 98 - by Sylvain HUET */
/* TE1:04/08/00  LOC: */

fun save (s,n)=
  ("action"::"start"::"start"::nil)::
  ("action"::"destroy"::"destroy"::nil)::
  ("eventC"::"select"::"select"::nil)::
  ("event"::"entering"::"entering"::nil)::
  ("event"::"out"::nil)::
  ("zoneC"::"Boards"::nil)::
  nil;;

fun IniEditor (s)=
  let startEditor _channel nil nil nil 315 0 WN_NORMAL EDITOR_NORMAL
                  s "dms/games/chess/chess.dmc" nil nil
                  nil @save nil 
                  -> ed in
  if s==nil then nil else openDMI ed;
0;;