program TestFossil;
uses DOS, Crt, Fossil;
var
  k, c        : char;
  fkey        : boolean;
  Rdy         : boolean;
  Done        : boolean;

begin
  InitFossil(Com_2);
  if not FossilInstalled
    then
      begin
        writeln('FOSSIL not Found - critical Error');
        exit;
      end;
  LowerDTR(Com_2);
  SetBaud(Com_2,1200);
  Done:= false;
  RaiseDTR(Com_2);

  repeat
    { Check Port and receive if ready }
    Rdy:= PortDataRdy(Com_2);
    if Rdy
      then
        begin
          c:= char(RcvPort(Com_2));
          write(c);
        end;
    { Check Keyboard }
    if KeyPressed
      then
        begin
          fkey:= false;
          k:= ReadKey;
          if ((k = #0) and KeyPressed)
            then
              begin
                fkey:= true;
                k:= ReadKey;
              end;
          if fkey
            then
              begin
                case k of
                #68:  Done:= true;
                end;
              end
            else
              begin
                case k of
                #13:  begin
                        writeln;
                        XmitPort(byte(k), Com_2);
                      end;
                else
                  begin
                    write(k);
                    XmitPort(byte(k), Com_2);
                  end;
                end;
              end;
        end;
  until Done;

  LowerDTR(Com_2);
  UnInitFossil(Com_2);
  writeln; writeln('FOSSIL DeActivated');