anchor.diff:      end.
   
   tty_listner(SerialPort)  ->
  -    Char = io:get_line(''),
  +    Char = io:get_line('Terminal> '),
       NewChar = replace(Char,10,13),
       SerialPort ! {send, NewChar},
       tty_listner(SerialPort).
  
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: -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,?DEVICE}]),
      spawn_link(terminal,tty_listner,[SerialPort]),
      serial_listner().
  
  