Unnamed

 if (!$dialog(xim_main)) { 
    set %check $$?="Which account to add to?" 
    if ($exists(xim/ $+ %check $+ buddy.txt)) { .write xim/ $+ %check $+ buddy.txt $1 | echo -a Wrote buddy ' $+ $1 $+ ' to xim/ $+ %check $+ buddy.txt }
  }
  else { var %t $eseacheck(%check) | if (%allow == 1) { .write xim/ $+ %check $+ buddy.txt $1 | echo -a Wrote buddy ' $+ $1 $+ ' to xim/ $+ %check $+ buddy.txt } }
}   
}
if ($read(xim/ $+ %account $+ buddy.txt,s, $1) == $null) { 
.write xim/ $+ %account $+ buddy.txt $1 
set %b $1
echo -a Wrote buddy ' $+ $1 $+ ' to xim/ $+ %account $+ buddy.txt
if ($dialog(xim_main)) {
  did -a xim_main 3 %b
}
unset %b
else { echo -a Buddy already added! }
}