Unit PC;



interface

{***************************************************************************}

{***************************************************************************}

Function  PCInput(InChar: char): boolean;

Procedure PCMenu;



implementation

{***************************************************************************}

{***************************************************************************}

Uses

  Globals,

  SubProgs;



Function  PCInput(InChar: char): boolean;

{***************************************************************************}

var

  Temp: boolean;

begin

  Temp := true;

  case InChar of

    '1': write(Beep);

    else

      Temp := false;

  end; {case}

  PCInput := Temp;

end;



Procedure PCMenu;

{***************************************************************************}

begin

end;



{***************************************************************************}

{***************************************************************************}

{***************************************************************************}

begin

end.