foreach in $loc do saywhat;
##saywhat:
$fcode = $for_id's code;
if $fcode = '' then codeeno else codeeyes;
##codeeno:
$fcodef = 'no';
runsub listem;
##codeeyes:
$fcodef = 'yes';
runsub listem;
##listem:
$fhost = $for_id's host;
$fpose = $for_id's pose;
sayto $actor, "[$for_id] ($for_id) is $fpose here(code:$fcodef).";