anchor.diff:  			append(P,Bin);
   		{fail,_} ->
   			print(P,"Unrecognized command.");
  -		R when element(1,R) == show ->
  -			cmd_show(P,R);
  +		% R when element(1,R) == show ->
  +		% 	cmd_show(P,R);
   		{actor,Type,SubType} ->
   			cmd_actor(P,{actor,Type,SubType},Bin);
   		% create_table ->
  
positive.code: "h            print this header\n"++
  "commit (c)   execute transaction\n"++
  "rollback (r) abort transaction\n"++
  "print (p)    print transaction\n"++delim()).
  
  delim() ->
  	"*******************************************************************\n".
  
negative.code: 			print(P,"Unrecognized command. ~p",[P#dp.curdb])
  	end.
  
  % cmd_show(#dp{curdb = actordb} = P,_R) ->
  % 	P;
  % cmd_show(P,_R) ->
  % 	P.
  
  append(P,<<>>) ->
  	P;
  