Перевод неизвестного кода на Python

$MACRO charlie from all trans;
  def_int(a,i,value,used,checked_cnt,match_cnt,links_num,neighbours,buf,buf_size,buf_ofs,handle);
  def_str(s,links_str);
  neighbours:=succ(str_adr('|1|2|3|4|0|6|7|8|9|5|4|0|1|2|3|9|5|6|7|8|7|9|6|8|5|4|2|0|3|1'));
  if_not buf:=allocate_memory(buf_size:=44000) then exit; end;
  links_num:=checked_cnt:=match_cnt:=handle:=0;
build_values:
  links_str:=recode(str(links_num,19,%'0',3),'012','|0|10|20');
  value:=0; i:=19; used:=1;
  repeat
    a:=1 shl double(value:=memb[neighbours+links_str[20-i]+value]);
    if used & double(a) then
      a:=1;
power3:
      --i;
      if i then a*=3; goto power3; end;
      links_num+=a;
      goto next_links;
    end;
    used+=a;
    --i;
  until_not i;
  ++checked_cnt;
  if_not pred(value)\3 then
    ++match_cnt;
    value:=0; i:=19; s:='0';
    repeat
      s+=char(%'0'+(value:=memb[neighbours+links_str[20-i]+value]));
      --i;
    until_not i;
    make_message(tstr(seconds(macro_timer))+str(links_num,11)+' '+str(match_cnt)+' of '+str(checked_cnt)+' match. |0|10'+s);
    if buf_ofs>=buf_size then call flush; end;
    mems[buf+buf_ofs]:=s+'|13|10'; buf_ofs+=22;
  end;
inc_links:
  ++links_num;
next_links:
  if links_num>=1162261467 then
    write('Finished.',71,2,%back,%stat);
    goto close_file;
  end;
  if_not key_pressed then goto build_values; end;
  read_key;
  if_not key=<Esc> then goto build_values; end;
  write('Aborted.',71,2,%back,%stat);
close_file:
  if handle then
    call flush;
    r_bx:=handle; r_ah:=$3E; intr($21);
  end;
  exit;
 
flush:
  if_not handle then
    r_edx:=succ(str_adr('OUTPUT.TXT|0'));
    r_ds:=word1(r_edx);
    r_cx:=0;
    r_ah:=$3C;
    intr($21);
    if r_flags&1 then make_message('Cannot create output file.'); exit; end;
    handle:=r_ax; buf_ofs:=0;
  end;
  r_dx:=buf; r_ds:=word1(buf); r_cx:=buf_ofs;
  r_bx:=handle; r_ah:=$40; intr($21);
  if r_flags&1 or (r_ax < buf_ofs) then
    make_message('Write error.');
    goto close_file;
  end;
  buf_ofs:=0;
  ret;
END_MACRO;