get $word,$target in $loc;
if $word eq 'in' then editit else chknext;
##chknext:
get $target in $loc;
if $target > 0 then editit else fail;
##editit:
var $caption to 'message';
var $fld to 'info';
say 'edit',"[$actor] starts to write in [$target]";
mode textbox;
##fail:
var $click_cmd to 'write';
var $desc_intro to 'Click on an object to write in:
';
look $loc,list;
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";

##end;