а что у вас не работает?

agat 14.03.2003 14:30

$tabl[^table::load[tabl.dat]]
$tabl_new[^table::create{num	text}]
^tabl.menu{
	^tabl_new.append{^tabl.line[]	$message.text}
	^if($table.num eq $form:num){
		^tabl_new.append{^tabl.line[]	$form:text}
	}
}
^tabl_new.save[tabl.dat]