anchor.diff:  		X ->
   		    case Keysym of
   			'Return' ->
  -			    Serial ! {send, [13]}
  +			    Serial ! {send, [13]};
  +			OtherKeysym ->
  +			    io:format("OtherKeysym:~w~n", [OtherKeysym])
   		    end
   	    end;
   	{gs,speed,click,Data,[NewSpeed,Nr]} ->
  
positive.code: 	{gs,connect,click,Data,Opts} ->
  	    Serial ! {connect};
  	{gs,open,click,Data,Opts} ->
  	    Serial ! {open,"/dev/ttya"};
  	{gs,Exit,click,Data,Args} ->
  	    Serial ! stop,
  	    exit(normal);
  
negative.code:     end.
  
  tty_listner(SerialPort)  ->
      Char = io:get_line('Terminal> '),
      NewChar = replace(Char,10,13),
      SerialPort ! {send, NewChar},
      tty_listner(SerialPort).
  