uses pgzip;
const
  name = 'save';
var
  cn       : array[0..16] of integer;
  cs       : array[0..16] of string;
  days     : array[0..6] of string;
  s,s2     : string;
  i,j,num  : integer;
  {---}
  rs       : recordStore;
  cmd,nextCmd,loadCmd,openCmd,exitCmd,cgetCmd,backCmd : command;
  choiceId : integer;
  choices  : array[0..16] of integer;
  txtID    : integer;


function win(s : string) : string;
var  {rus_ansi to unicode}
  i,ch : integer;
begin
  for i := 0 to length(s)-1 do
  begin
    ch := ord(getChar(s,i)) and 255;
    if (ch>=192) then  s := setChar(s,chr(ch+848),i);
    if (ch=168)  then  s := setChar(s,chr($0401),i);
    if (ch=184)  then  s := setChar(s,chr($0451),i);
  end;
  win := s;
end;


function utf(s : string) : string;
var
  i,ch : integer;
begin
  for i := 0 to length(s)-1 do
  begin
    ch := ord(getChar(s,i));
    if (ch>255) then  s := setChar(s,chr(ch-848),i);
    if (ch=$0401) then  s := setChar(s,chr(168),i);
    if (ch=$0451) then  s := setChar(s,chr(184),i);
  end;
  utf := s;
end;


procedure getTV(n : integer);
var
  conn : http;
  i,j : integer;
begin
  if openHttp(conn, 'http://tv.sergiusd.ru/mob2/0.2/0000-00-00/'+n+'.htm') then
  begin
    setHttpMethod(conn, GET);
    if sendHttpMessage(conn)=200 then
    begin
      s := gzipstr(getHttpResponse(conn));
      //txtID := formAddString(win(s)); repeat delay(100); until (getKeyPressed=KE_STAR); formRemove(txtID);
      s := win(copy(s,pos(s,'^')+2,length(s))); {pos+2 = skip "^" + "|"}
      for j := 0 to 6 do
      begin
        i := pos(s,'^');
        if (i=-1) then break;
        days[j] := copy(s,0,i);
        s := copy(s,i+2,length(s)); {i+2 = skip "^" + "|"}
      end;
      days[j] := s;
      {- save -}
      deleteRecordStore(''+n);  {  }
      rs := openRecordStore(''+n);
      for i := 0 to 6 do j := addRecordStoreEntry(rs,utf(days[i])); { win,     [0..255]}
      closeRecordStore(rs);
    end;
    closeHttp(conn);
  end;
end;


begin
  showForm;
  nextCmd := createCommand('next', CM_OK, 1);
  exitCmd := createCommand('exit', CM_EXIT, 1);
  cgetCmd := createCommand('get', CM_SCREEN, 2);
  backCmd := createCommand('back', CM_EXIT, 1);
  openCmd := createCommand('open', CM_SCREEN, 2);
  loadCmd := createCommand('download', CM_SCREEN, 3);
  addCommand(cgetCmd);
  addCommand(nextCmd);
  addCommand(exitCmd);
  cn[0] := 10;  cs[0] := '1 ';
  cn[1] := 11;  cs[1] := '';
  cn[2] := 12;  cs[2] := '';
  cn[3] := 13;  cs[3] := '';
  cn[4] := 14;  cs[4] := '';
  cn[5] := 15;  cs[5] := '';
  cn[6] := 16;  cs[6] := 'REN-TV';
  cn[7] := 17;  cs[7] := '';
  cn[8] := 1;   cs[8] := '-';
  cn[9] := 2;   cs[9] := '';
  cn[10]:= 3;   cs[10]:= '';
  cn[11]:= 4;   cs[11]:= '';
  cn[12]:= 5;   cs[12]:= 'MTV-Russia';
  cn[13]:= 6;   cs[13]:= '-';
  cn[14]:= 7;   cs[14]:= '3';
  cn[15]:= 8;   cs[15]:= '';
  cn[16]:= 9;   cs[16]:= '7';
  days[0]:='   '+chr(10)+
           '---'+chr(10)+
           ':'+chr(10)+
           '[NEXT]- '+chr(10)+
           '[GET] -  '+chr(10)+
           '[BACK]-   '+chr(10)+
           '[OPEN]-  '+chr(10)+
           '[DOWNLOAD]-   '+chr(10)+
           '[EXIT]-  '+chr(10)+
           '---'+chr(10)+
           'programming by arT.'+chr(10)+
           'e-mail: ironWoodcutter@bk.ru'+chr(10);
  num:=0;
  repeat
    s := days[num];
    s2 := '';
    repeat
      i := pos(s,'|');
      if (i=-1) then break;
      s2 := s2+copy(s,0,i)+chr(10)+'---'+chr(10);
      s := copy(s,i+1,length(s));
    until false;
    s2 := s2+s;
    {---}
    txtID := formAddString(''+num+chr(10)+s2);
    repeat
      delay(100);
      cmd := getClickedCommand;
    until (cmd<>emptyCommand);
    formRemove(txtID);
    {---}
    if cmd=nextCmd then begin num := num+1; if(num>6) then  num := 0; end;
    if cmd=cgetCmd then
    begin
      removeCommand(exitCmd);
      removeCommand(nextCmd);
      removeCommand(cgetCmd);
      addCommand(backCmd);
      addCommand(openCmd);
      addCommand(loadCmd);
      choiceId := formAddChoice('', CH_EXCLUSIVE);
      for i := 0 to 16 do  choices[i] := choiceAppendString(choiceId, cs[i]);
      repeat
        cmd := getClickedCommand;
        delay(100);
      until (cmd<>emptyCommand);
      if cmd=loadCmd then
      begin
        for i := 0 to 16 do
          if choiceIsSelected(choiceId, choices[i]) then  getTV(cn[i]);
      end;
      if cmd=openCmd then
      begin
        for i := 0 to 16 do
          if choiceIsSelected(choiceId, choices[i]) then
          begin
            rs  := openRecordStore(''+cn[i]);  {   ( )}
            for j := 0 to 6 do  days[j] := win(readRecordStoreEntry(rs,j)); {  utf}
            closeRecordStore(rs);
          end;
      end;
      formRemove(choiceId);
      removeCommand(loadCmd);
      removeCommand(openCmd);
      removeCommand(backCmd);
      addCommand(cgetCmd);
      addCommand(nextCmd);
      addCommand(exitCmd);
      txtID := formAddString('');
      formRemove(txtID);
    end;
  until (cmd=exitCmd);
end.


{demo
  s := getHttpResponse(conn) :=
       chr($1f)+chr($8b)+chr($08)+chr($00)+chr($00)+chr($00)+chr($00)+chr($00)+
       chr($00)+chr($03)+chr($ed)+chr($98)+chr($5f)+chr($53)+chr($db)+chr($38)+
       chr($10)+chr($c0)+chr($bf)+chr($ca)+chr($5e)+chr($5e)+chr($ef)+chr($c8)+
       chr($c9)+chr($f9)+chr($03)+chr($21)+chr($2f)+chr($7c)+chr($93)+chr($7e)+
       chr($12)+chr($e6)+chr($3e)+chr($1b)+chr($a4)+chr($b4)+chr($d7)+chr($a1)+
       chr($a4)+chr($21)+chr($1c)+chr($5c)+chr($5f)+chr($37)+chr($b6)+chr($55)+
       chr($2b)+chr($96)+chr($a5)+chr($c8)+chr($32)+chr($10)+chr($6e)+chr($92)+
       chr($d6)+chr($5d)+chr($d9)+chr($09)+chr($49)+chr($c0)+chr($69)+chr($ef)+
       chr($98)+chr($4e)+chr($67)+chr($6e)+chr($26)+chr($2f)+chr($0c)+chr($d6)+
       chr($ae)+chr($76)+chr($57)+chr($bb)+chr($3f)+chr($ad)+chr($a4)+chr($bc)+
       chr($3a)+chr($6e)+chr($30)+chr($76)+chr($b0)+chr($c7)+chr($3a)+chr($7b)+
       chr($5e)+chr($f3)+chr($d8)+chr($8b)+chr($51)+chr($c1)+chr($1e)+chr($0c)+
       chr($fa)+chr($e0)+chr($35)+chr($01)+chr($fd)+chr($e0)+chr($98)+chr($ed)+
       chr($77)+chr($19)+chr($83)+chr($be)+chr($f6)+chr($75)+chr($6a)+chr($45)+
       chr($dd)+chr($7d)+chr($7a)+chr($0c)+chr($6a)+chr($af)+chr($b9)+chr($12)+
       chr($02)+chr($04)+chr($44)+chr($52)+chr($87)+chr($5c)+chr($d4)+chr($8a)+
       chr($f1)+chr($66)+chr($1b)+chr($6e)+chr($7e)+chr($bf)+chr($85)+chr($da)+
       chr($95)+chr($11)+chr($10)+chr($aa)+chr($1c)+chr($7c)+chr($c5)+chr($21)+
       chr($c2)+chr($58)+chr($2b)+chr($74)+chr($f2)+chr($c3)+chr($4d)+chr($33)+
       chr($87)+chr($5d)+chr($af)+chr($0d)+chr($b5)+chr($33)+chr($3d)+chr($32)+
       chr($9a)+chr($43)+chr($66)+chr($8d)+chr($26)+chr($1d)+chr($8f)+chr($75)+
       chr($db)+chr($64)+chr($fb)+chr($02)+chr($25)+chr($de)+chr($69)+chr($ff)+
       chr($57)+chr($37)+chr($d2)+chr($d8)+chr($98)+chr($45)+chr($9f)+chr($6e)+
       chr($d6)+chr($85)+chr($0e)+chr($d5)+chr($6c)+chr($0c)+chr($13)+chr($23)+
       chr($02)+chr($92)+chr($18)+chr($a7)+chr($d7)+chr($ec)+chr($36)+chr($68)+
       chr($e6)+chr($35)+chr($46)+chr($5c)+chr($85)+chr($ce)+chr($9d)+chr($d7)+
       chr($da)+chr($9c)+chr($d8)+chr($ea)+chr($36)+chr($68)+chr($e2)+chr($b9)+
       chr($56)+chr($e4)+chr($49)+chr($ce)+chr($15)+chr($e6)+chr($2e)+chr($b2)+
       chr($6c)+chr($12)+chr($17)+chr($ba)+chr($ed)+chr($4d)+chr($dd)+chr($76)+
       chr($61)+chr($6b)+chr($a0)+chr($55)+chr($6e)+chr($e7)+chr($75)+chr($18)+
       chr($18)+chr($37)+chr($6c)+chr($e7)+chr($a5)+chr($62)+chr($9b)+chr($ac)+
       chr($bc)+chr($d7)+chr($52)+chr($58)+chr($ac)+chr($c3)+chr($29)+chr($8f)+
       chr($20)+chr($d6)+chr($c9)+chr($44)+chr($f2)+chr($38)+chr($d5)+chr($be)+
       chr($93)+chr($ef)+chr($3b)+chr($f9)+chr($90)+chr($1b)+chr($81)+chr($12)+
       chr($6a)+chr($97)+chr($5c)+chr($ce)+chr($d3)+chr($19)+chr($a4)+chr($53)+
       chr($4c)+chr($ed)+chr($3c)+chr($77)+chr($e2)+chr($ce)+chr($a6)+chr($9f)+
       chr($4e)+chr($b1)+chr($98)+chr($6b)+chr($1e)+chr($72)+chr($83)+chr($14)+
       chr($13)+chr($ad)+chr($28)+chr($cd)+chr($c2)+chr($52)+chr($93)+chr($92)+
       chr($b5)+chr($32)+chr($f4)+chr($d7)+chr($48)+chr($8f)+chr($5d)+chr($c4)+
       chr($a9)+chr($90)+chr($2e)+chr($dc)+chr($06)+chr($2b)+chr($2a)+chr($f0)+
       chr($36)+chr($14)+chr($90)+chr($70)+chr($e5)+chr($d4)+chr($1b)+chr($9e)+
       chr($33)+chr($5c)+chr($eb)+chr($19)+chr($9e)+chr($2c)+chr($3e)+chr($9b)+
       chr($ec)+chr($71)+chr($f6)+chr($90)+chr($c7)+chr($19)+chr($e5)+chr($04)+
       chr($42)+chr($5d)+chr($af)+chr($d7)+chr($9d)+chr($b4)+chr($e1)+chr($0a)+
       chr($b5)+chr($94)+chr($7e)+chr($b8)+chr($d3)+chr($16)+chr($41)+chr($21)+
       chr($60)+chr($7a)+chr($4b)+chr($41)+chr($58)+chr($ee)+chr($34)+chr($9a)+
       chr($dd)+chr($d6)+chr($7a)+chr($a9)+chr($98)+chr($0b)+chr($a6)+chr($22)+
       chr($e9)+chr($cc)+chr($2b)+chr($04)+chr($7d)+chr($9a)+chr($af)+chr($a7)+
       chr($73)+chr($08)+chr($64)+chr($1e)+chr($3a)+chr($f7)+chr($ac)+chr($b1)+
       chr($11)+chr($0d)+chr($7d)+chr($52)+chr($34)+chr($67)+chr($3a)+chr($ae)+
       chr($df)+chr($0a)+chr($39)+chr($4f)+chr($28)+chr($2f)+chr($59)+chr($9a)+
       chr($c6)+chr($82)+chr($83)+chr($0f)+chr($37)+chr($68)+chr($46)+chr($42)+
       chr($39)+chr($97)+chr($ac)+chr($b9)+chr($2d)+chr($e7)+chr($24)+chr($71)+
       chr($4c)+chr($54)+chr($57)+chr($8e)+chr($b5)+chr($5c)+chr($0a)+chr($b7)+
       chr($26)+chr($9c)+chr($6d)+chr($16)+chr($d6)+chr($7d)+chr($52)+chr($bc)+
       chr($83)+chr($8c)+chr($c4)+chr($50)+chr($2c)+chr($22)+chr($b7)+chr($b5)+
       chr($fa)+chr($ab)+chr($15)+chr($fd)+chr($ad)+chr($25)+chr($fd)+chr($bd)+
       chr($2b)+chr($f0)+chr($5a)+chr($5b)+chr($e8)+chr($67)+chr($cf)+chr($b0)+
       chr($dd)+chr($a1)+chr($5d)+chr($81)+chr($76)+chr($11)+chr($f3)+chr($0b)+
       chr($d1)+chr($7e)+chr($52)+chr($a1)+chr($ff)+chr($03)+chr($df)+chr($65)+
       chr($b9)+chr($c7)+chr($4e)+chr($53)+chr($7c)+chr($8f)+chr($e7)+chr($d6)+
       chr($d6)+chr($72)+chr($fd)+chr($60)+chr($9e)+chr($db)+chr($4b)+chr($9e)+
       chr($87)+chr($97)+chr($40)+chr($76)+chr($77)+chr($3c)+chr($ef)+chr($78)+
       chr($fe)+chr($f9)+chr($3c)+chr($b3)+chr($1f)+chr($c7)+chr($f3)+chr($fe)+
       chr($92)+chr($e7)+chr($8f)+chr($d4)+chr($9f)+chr($f7)+chr($77)+chr($3c)+
       chr($3f)+chr($e3)+chr($f9)+chr($5c)+chr($27)+chr($3c)+chr($14)+chr($39)+
       chr($45)+chr($63)+chr($50)+chr($dd)+chr($67)+chr($d1)+chr($8e)+chr($e4)+
       chr($2a)+chr($92)+chr($5d)+chr($1d)+chr($5f)+chr($46)+chr($72)+chr($45)+
       chr($7e)+chr($ff)+chr($2b)+chr($c3)+chr($07)+chr($8f)+chr($37)+chr($6c)+
       chr($62)+chr($f8)+chr($60)+chr($c7)+chr($f0)+chr($cb)+chr($18)+chr($f6)+
       chr($9e)+chr($e7)+chr($b8)+chr($e0)+chr($97)+chr($7d)+chr($83)+chr($5f)+
       chr($56)+chr($44)+chr($25)+chr($39)+chr($4c)+chr($b3)+chr($90)+chr($a7)+
       chr($95)+chr($f0)+chr($d2)+chr($22)+chr($cf)+chr($7b)+chr($fd)+chr($3a)+
       chr($f4)+chr($66)+chr($e9)+chr($03)+chr($cd)+chr($95)+chr($22)+chr($c0)+
       chr($02)+chr($4a)+chr($0a)+chr($eb)+chr($54)+chr($73)+chr($5f)+chr($c4)+
       chr($50)+chr($7b)+chr($13)+chr($70)+chr($33)+chr($af)+chr($64)+chr($cd)+
       chr($65)+chr($68)+chr($18)+chr($13)+chr($ca)+chr($13)+chr($ea)+chr($73)+
       chr($10)+chr($ca)+chr($1c)+chr($4e)+chr($26)+chr($5a)+chr($ca)+chr($c5)+
       chr($f3)+chr($a7)+chr($59)+chr($c8)+chr($b7)+chr($5c)+chr($70)+chr($bf)+
       chr($85)+chr($5d)+chr($63)+chr($1b)+chr($76)+chr($25)+chr($c6)+chr($ab)+
       chr($f5)+chr($ac)+chr($41)+chr($d6)+chr($79)+chr($3c)+chr($f8)+chr($4f)+
       chr($c1)+chr($eb)+chr($fc)+chr($7b)+chr($c8)+chr($0e)+chr($9c)+chr($d1)+
       chr($eb)+chr($f2)+chr($9a)+chr($fe)+chr($61)+chr($e2)+chr($b6)+chr($af)+
       chr($1b)+chr($ed)+chr($14)+chr($58)+chr($fd)+chr($19)+chr($6a)+chr($a3)+
       chr($fd)+chr($39)+chr($2f)+chr($61)+chr($a4)+chr($6d)+chr($5a)+chr($1b)+
       chr($4a)+chr($b2)+chr($06)+chr($13)+chr($ea)+chr($e6)+chr($33)+chr($93)+
       chr($97)+chr($fc)+chr($6d)+chr($94)+chr($a9)+chr($6c)+chr($19)+chr($c3)+
       chr($04)+chr($e3)+chr($15)+chr($9c)+chr($03)+chr($9d)+chr($4a)+chr($1e)+
       chr($2a)+chr($ba)+chr($fe)+chr($37)+chr($5a)+chr($40)+chr($07)+chr($01)+
       chr($c2)+chr($89)+chr($0a)+chr($0d)+chr($cf)+chr($e1)+chr($42)+chr($18)+
       chr($ad)+chr($b4)+chr($8f)+chr($d5)+chr($d4)+chr($3a)+chr($ff)+chr($18)+
       chr($60)+chr($18)+chr($0b)+chr($38)+chr($89)+chr($84)+chr($a8)+chr($53)+
       chr($99)+chr($63)+chr($c3)+chr($ed)+chr($0c)+chr($7a)+chr($5c)+chr($8a)+
       chr($98)+chr($76)+chr($77)+chr($6a)+chr($b9)+chr($9a)+chr($ad)+chr($48)+
       chr($be)+chr($d1)+chr($d3)+chr($0c)+chr($22)+chr($85)+chr($25)+chr($77)+
       chr($05)+chr($cc)+chr($d4)+chr($8e)+chr($12)+chr($85)+chr($e1)+chr($3d)+
       chr($8d)+chr($41)+chr($12)+chr($90)+chr($2b)+chr($7a)+chr($c1)+chr($96)+
       chr($cd)+chr($6f)+chr($34)+chr($23)+chr($ef)+chr($31)+chr($7e)+chr($96)+
       chr($08)+chr($57)+chr($68)+chr($84)+chr($cf)+chr($4d)+chr($28)+chr($78)+
       chr($19)+chr($c9)+chr($7e)+chr($b9)+chr($a3)+chr($b2)+chr($54)+chr($8a)+
       chr($04)+chr($2e)+chr($30)+chr($d0)+chr($09)+chr($72)+chr($9f)+chr($bc)+
       chr($5b)+chr($43)+chr($ab)+chr($16)+chr($30)+chr($d1)+chr($44)+chr($30)+
       chr($55)+chr($ed)+chr($4b)+chr($35)+chr($a4)+chr($6c)+chr($99)+chr($cb)+
       chr($53)+chr($1d)+chr($08)+chr($7a)+chr($10)+chr($4f)+chr($0c)+chr($8e)+
       chr($93)+chr($3d)+chr($4b)+chr($7f)+chr($b0)+chr($1a)+chr($bf)+chr($ef)+
       chr($4c)+chr($68)+chr($ac)+chr($6b)+chr($50)+chr($16)+chr($09)+chr($95)+
       chr($21)+chr($3e)+chr($14)+chr($9c)+chr($b0)+chr($02)+chr($af)+chr($4b)+
       chr($1d)+chr($cd)+chr($02)+chr($33)+chr($7b)+chr($a8)+chr($e6)+chr($93)+
       chr($e6)+chr($66)+chr($76)+chr($a4)+chr($25)+chr($5c)+chr($5e)+chr($d7)+
       chr($29)+chr($1d)+chr($68)+chr($33)+chr($a3)+chr($6a)+chr($04)+chr($c9)+
       chr($df)+chr($c3)+chr($f3)+chr($93)+chr($e5)+chr($dd)+chr($73)+chr($61)+
       chr($dd)+chr($2d)+chr($50)+chr($39)+chr($fb)+chr($22)+chr($b5)+chr($da)+
       chr($10)+chr($7a)+chr($a1)+chr($8e)+chr($e9)+chr($1f)+chr($84)+chr($b3)+
       chr($4f)+chr($3c)+chr($a6)+chr($1d)+chr($45)+chr($2f)+chr($ff)+chr($84)+
       chr($44)+chr($74)+chr($86)+chr($d0)+chr($23)+chr($6e)+chr($ec)+chr($5a)+
       chr($c6)+chr($1a)+chr($7d)+chr($87)+chr($8f)+chr($cf)+chr($a8)+chr($21)+
       chr($78)+chr($87)+chr($db)+chr($7f)+chr($44)+chr($58)+chr($f8)+chr($ea)+
       chr($0b)+chr($32)+chr($0d)+chr($c5)+chr($6f)+chr($05)+chr($f4)+chr($9e)+
       chr($15)+chr($16)+chr($2c)+chr($1f)+chr($e5)+chr($4f)+chr($69)+chr($1c)+
       chr($e8)+chr($18)+chr($61)+chr($c4)+chr($a3)+chr($2c)+chr($49)+chr($ad)+
       chr($9f)+chr($71)+chr($4b)+chr($4f)+chr($df)+chr($a9)+chr($c5)+chr($92)+
       chr($4e)+chr($3a)+chr($54)+chr($4e)+chr($4c)+chr($c2)+chr($c7)+chr($f4)+
       chr($aa)+chr($1c)+chr($43)+chr($42)+chr($98)+chr($44)+chr($42)+chr($95)+
       chr($2d)+chr($92)+chr($12)+chr($f0)+chr($2e)+chr($a0)+chr($1c)+chr($fe)+
       chr($06)+chr($01)+chr($9a)+chr($44)+chr($ab)+chr($39)+chr($c8)+chr($2f)+
       chr($23)+chr($91)+chr($60)+chr($fe)+chr($cb)+chr($56)+chr($5c)+chr($fb)+
       chr($7c)+chr($92)+chr($59)+chr($ee)+chr($cf)+chr($ca)+chr($70)+chr($6c)+
       chr($2c)+chr($4a)+chr($cd)+chr($26)+chr($5b)+chr($c4)+chr($e0)+chr($a7)+
       chr($9c)+chr($92)+chr($51)+chr($d4)+chr($c3)+chr($2b)+chr($1a)+chr($c6)+
       chr($7a)+chr($d7)+chr($ac)+chr($02)+chr($f7)+chr($ad)+chr($f0)+chr($89)+
       chr($cf)+chr($44)+chr($98)+chr($12)+chr($ce)+chr($45)+chr($87)+chr($19)+
       chr($50)+chr($5d)+chr($e6)+chr($dc)+chr($ec)+chr($95)+chr($2d)+chr($86)+
       chr($3a)+chr($a3)+chr($f3)+chr($fd)+chr($86)+chr($8e)+chr($64)+chr($7c)+
       chr($28)+chr($3b)+chr($65)+chr($6b)+chr($ad)+chr($13)+chr($f6)+chr($c8)+
       chr($e7)+chr($88)+chr($36)+chr($b9)+chr($85)+chr($3b)+chr($a2)+chr($ed)+
       chr($41)+chr($ff)+chr($2c)+chr($da)+chr($5c)+chr($87)+chr($79)+chr($2f)+
       chr($a6)+chr($8e)+chr($83)+chr($4f)+chr($22)+chr($a2)+chr($ec)+chr($2d)+
       chr($f6)+chr($2a)+chr($f5)+chr($aa)+chr($29)+chr($d2)+chr($e6)+chr($4f)+
       chr($63)+chr($1d)+chr($e8)+chr($f2)+chr($d8)+chr($a6)+chr($75)+chr($7d)+
       chr($b4)+chr($fa)+chr($08)+chr($5e)+chr($87)+chr($fc)+chr($88)+chr($e4)+
       chr($41)+chr($88)+chr($47)+chr($0e)+chr($ca)+chr($d6)+chr($1a)+chr($af)+
       chr($11)+chr($a4)+chr($5a)+chr($aa)+chr($7b)+chr($2c)+chr($69)+chr($5c)+
       chr($49)+chr($7a)+chr($3a)+chr($f2)+chr($0d)+chr($fe)+chr($c3)+chr($5d)+
       chr($53)+chr($e8)+chr($21)+chr($f5)+chr($6b)+chr($5a)+chr($f2)+chr($a9)+
       chr($36)+chr($56)+chr($d1)+chr($c6)+chr($f6)+chr($17)+chr($4d)+chr($90)+
       chr($4a)+chr($bc)+chr($d1)+chr($80)+chr($ca)+chr($7c)+chr($3d)+chr($29)+
       chr($c8)+chr($1f)+chr($5f)+chr($01)+chr($ed)+chr($37)+chr($12)+chr($14)+
       chr($c9)+chr($12)+chr($00)+chr($00);{}