$0 = 1         # 初期化: i の開始位置
$1 = 1         # 初期化: j の開始位置
while $0 <= H  # 行方向ループ
    while $1 <= W  # 列方向ループ
        if A[$0,$1] != B[$0,$1]
            $2 = $0  # 異なる行を記録
            $3 = $1  # 異なる列を記録
            $1 = W + 1  # 内部ループを終了
        end
        $1 = $1 + 1    # 次の列に進む
    end
    $0 = $0 + 1        # 次の行に進む
    $1 = 1             # 列をリセット
end
return($2,$3)       # 異なる(i,j)を返す