program oscli(input,output);

const
  len = 10;

type
  subscript = 1..len;  
  string = packed array[subscript] of char;

var
  lin : string;
  ch  : char;
  i   : integer;

begin
  repeat    
    lin := '          ';{len spaces}
    write('Command: ');
    i := 1;
    while not eoln and (i <= len) do
      begin
        read(ch);
        lin[i] := ch;
        i := i + 1
      end;
    readln;
    oscli(lin)
  until lin = '          '{len spaces}
end.
