anchor.diff:  -export([start/1, gs_start/1, gs_init/1]).
   -export([tty_listner/1]).
   
  +-define(DEVICE, "/dev/ttyp6").
  +
   start(Speed) ->
  -    SerialPort = serial:start([{speed,Speed}]), % roland
  -%   SerialPort = serial:start([{speed,Speed},{open,"/dev/ttya"}]),
  +%    SerialPort = serial:start([{speed,Speed}]), % roland
  +    SerialPort = serial:start([{speed,Speed},{open,?DEVICE}]),
       spawn_link(terminal,tty_listner,[SerialPort]),
       serial_listner().
   
  
positive.code:     gs:create(menuitem,speed,Spmnu,[{label,{text,"38400"}}]),
      gs:create(menuitem,speed,Spmnu,[{label,{text,"57600"}}]),
      SerialPort = serial:start([{speed,Speed}]), % roland
  %   SerialPort = serial:start([{speed,Speed},{open,"/dev/ttya"}]),
      gs:create(menuitem,break,Smnu,[{label,{text,"Send break"}}]),
      gs:create(menuitem,hangup,Smnu,[{label,{text,"Hang up"}}]),
      gs:create(menuitem,disconnect,Smnu,[{label,{text,"Disconnect"}}]),
      gs:create(menuitem,connect,Smnu,[{label,{text,"Connect"}}]),
      gs:create(menuitem,open,Smnu,[{label,{text,"Open /dev/ttya"}}]),
      gs_loop(SerialPort).
  
  gs_loop(Serial) ->
  
negative.code: 	{gs,connect,click,Data,Opts} ->
  	    Serial ! {connect};
  	{gs,open,click,Data,Opts} ->
  	    Serial ! {open,?DEVICE};
  	{gs,Exit,click,Data,Args} ->
  	    Serial ! stop,
  	    exit(normal);
  