anchor.diff:    NewBoard = update_board(Board, W, H, APos, NewAPos),
   
   %%   io:format("new ant dir ~p~n",[NewADir]),
  -%%   io:format("Step ~p:~n",[T+1]),
  +
   %%   io:format("new ant pos ~p~n",[NewAPos]),
  -%%   display({NewAPos, NewADir}, NewBoard, W, H),
  +   if
  +     T > 30000 ->
  +      io:format("Step ~p:~n",[T+1]),
  +      display({NewAPos, NewADir}, NewBoard, W, H),
  +      timer:sleep(80)
  +     ;
  +     true -> ok
  +   end
  +  ,
   
     step(NewBoard, W, H, {NewAPos, NewADir}, T+1, MaxT).
   
  
positive.code: 
  -spec start() -> ok.
  start() ->
    start(65,45,10000).
  
  -spec start(dimension(), dimension(), pos_integer()) -> ok.
  start(Width, Height, Steps) ->
  
negative.code: %% API
  -export([start/3, start/0]).
  
  %% -define(debug, ok).
  
  -type dimension() :: pos_integer().
  -type onedir() :: -1 | 0 | 1.
  