skip-web/6hour/hospital_kensaku4.rb at f3a68f6083ab6679f21a3819127cf52b71203d80

Fork: 0
SKIP / skip-web
Find file
Newer
Older
skip-web / 6hour / hospital_kensaku4.rb
MIYAHARA Emiri on 14 Feb 2013 794 KB New files added
Raw Blame History
#!/usr/bin/env ruby
# coding: euc-jp

require 'cgi'                   # CGI を使いますという宣言
c = CGI.new(:accept_charset => "EUC-JP")          # CGI変数は HTML に使用する
print "Content-type: text/html; charset=EUC-JP\n\n"   # 日本語コードの定義


# CGIスクリプトから受け取った変数の対を、rbで使う変数に代入
chiiki = c["area"]
jiyuu = c["word"]
jiyuu2 = c["word2"]

ka = Array.new

ka[0] = c["naika"]
ka[1] = c["sinryou"]
ka[2] = c["seisin"]
ka[3] = c["sinkei"]
ka[4] = c["sinkeinaika"]
ka[5] = c["kokyu"]
ka[6] = c["syouka"]
ka[7] = c["ityou"]
ka[8] = c["junkan"]
ka[9] = c["areru"]
ka[10] = c["riumati"]
ka[11] = c["syouni"]
ka[12] = c["geka"]
ka[13] = c["seikeigeka"]
ka[14] = c["keisei"]
ka[15] = c["biyou"]
ka[16] = c["nousinkei"]
ka[17] = c["kokyugeka"]
ka[18] = c["sinzou"]
ka[19] = c["syonigeka"]
ka[20] = c["hihu"]
ka[21] = c["hinyou"]
ka[22] = c["seibyou"]
ka[23] = c["koumon"]
ka[24] = c["sanhujin"]
ka[25] = c["sanka"]
ka[26] = c["hujinka"]
ka[27] = c["ganka"]
ka[28] = c["jibiinkou"]
ka[29] = c["kikansyoku"]
ka[30] = c["rihabiri"]
ka[31] = c["housya"]
ka[32] = c["housyasindan"]
ka[33] = c["housyatiryou"]
ka[34] = c["masui"]
ka[35] = c["sika"]
ka[36] = c["kyousei"]
ka[37] = c["syounisika"]
ka[38] = c["sikakouku"]



#p chiiki

print("<html>\n")      # HTMLの規定
print("<head>\n")      # HTMLの設定
print("<link rel=\"stylesheet\" type=\"text/css\" href=\"hospitalkensaku.css\">\n")
                       # cssの設定
printf("<title>%sの検索結果</title>\n",chiiki)   # <title>の表示
print("<link rel=\"shortcut icon\" href=\"smile.png\">")   # アイコン
print("</head>\n")     # HTMLの設定(閉)
print("<body>\n")      # HTMLの表示部分



print("<form method=\"POST\" action =\"hospitalkeka.rb\">\n")

print("<h2>検索結果<img class=\"head\" src=\"chara2.png\" width=\"100\" height=\"120\" alt=\"FUCHO\"></img></h2>\n")                     # <h1>の表示

print("<div class=\"center\">")
printf("<h3>市町村:%s<br>\n",chiiki)            # <p>の表示
printf("地域:%s<br>\n",jiyuu)            # <p>の表
printf("病院名:%s</h3>\n",jiyuu2)            # <p>の表

print("<p>選択した科:\n")
for apply in ka
  printf("%s\n",apply)              # <p>の表示
end

print("<br><br>情報を見たい病院をチェックして検索ボタンを押して下さい。")
print("</p>")


if chiiki == "鶴岡市"

  for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                i += 1
                end
              end
            end
          end
        end
        if i == 0
          print("<dt>見つかりません。</dt>\n")
        end
      end
      print("</dl>")
    end

    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
        if i == 0
        print("<dt>見つかりません。</dt>\n")
        end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
        if i == 0
        print("<dt>見つかりません。</dt>\n")
        end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
        if i == 0
        print("<dt>見つかりません。</dt>\n")
        end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
        if i == 0
        print("<dt>見つかりません。</dt>\n")
        end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
        if i == 0
        print("<dt>見つかりません。</dt>\n")
        end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
        if i == 0
        print("<dt>見つかりません。</dt>\n")
        end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
        if i == 0
        print("<dt>見つかりません。</dt>\n")
        end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("turuoka.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

  end  
    

elsif chiiki == "酒田市"

for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("sakata.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "庄内町"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("syounai.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "三川町"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("mikawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end


elsif chiiki == "遊佐町"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("yuza.dat","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end


elsif chiiki == "山形市"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("yamagatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "寒河江市"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("sagae.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "上山市"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("kaminoyama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "村山市"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "天童市"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("tendo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "東根市"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("higasine.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "尾花沢市"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("obanazawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "東村山郡"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("h_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "西村山郡"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("n_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "北村山郡"


 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("k_murayama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "新庄市"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("sinjou.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "最上郡"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("mogami.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end


elsif chiiki == "米沢市"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("yonezawa.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "長井市"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("nagai.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "南陽市"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("nanyo.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "東置賜郡"


 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("h_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

elsif chiiki == "西置賜郡"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            # $1 = 病院名
            # $2 = 住所
            # $3 = 電話番号
            # $4 = 診断日(午前)
            # $5 = 診断日(午後)
            # $6 = 休診日
            # $7 = 科
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku)
                printf("<dd>%s</dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
         
    if apply == "呼吸器科"
      print("<h1>呼吸器科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
      if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      i = 0
      open("n_okitama.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku)
                  printf("<dd>%s</dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                  i += 1
                end
              end
            end
          end
        end
       if i == 0
        print("<dt>見つかりません。</dt>\n")
       end
      end
      print("</dl>")
    end
  end

end


print("<p>")
print("<input type =\"submit\" value= \"検索\">\n")
print("</p>\n")
print("</div>")
print("</form>\n")

print("<a href=\"http://skip.koeki-prj.org/6hour/hospital.html\">戻る</a>
<a href=\"http://skip.koeki-prj.org/\">SKIP</a>") 
                                                 # 検索画面へのリンクの表示

print("<p>最長 6 時間</p>\n")                        # <p>の表示




print("</body>\n")     # HTMLの表示部分(閉) 
print("</html>\n")     # HTMLの規定(閉)