program SomeTest;
{$MODE OBJFPC}{$H+}
uses Crt;
var
  Ch: Char;
begin
  TextColor(7);
  TextBackground(0);
  ClrScr;
  TextBackground(4);
  TextColor(14);
  Write(' I am this controller program, version something');
  ClrEol;
  TextColor(15);
  TextBackground(0);
  GotoXY(8, 4);
  Write('Select one option:');
  GotoXY(10, 6); TextColor(4); Write('P. ');
                 TextColor(7); Write('Toggle 12V SS Power ON/OFF');
  GotoXY(10, 7); TextColor(4); Write('W. ');
                 TextColor(7); Write('Toggle WiFi Power feed ON/OFF');
  GotoXY(10, 8); TextColor(4); Write('L. ');
                 TextColor(7); Write('Toggle Alarm Lamp ON/OFF');
  GotoXY(10, 9); TextColor(4); Write('S. ');
                 TextColor(7); Write('Start SS by sending 1s pulse');
  GotoXY(10, 10);TextColor(4); Write('Q. ');
                 TextColor(7); Write('Quit the program');
  GotoXY(8, 12); TextColor(15);Write('Your choice: ');
  repeat
    Ch:=UpCase(ReadKey);
    case Ch of
      'P': begin end;
      'W': begin end;
      'L': begin end;
      'S': begin end;
      'Q': break;
    end;
  until False;
  TextColor(7);
  TextBackground(0);
  ClrScr;
  Writeln('Bye');
end.