Fork: 0
SKIP / skip-web
Transfer to URL with SHA Find file
Newer
Older
skip-web / archive / program / 6hour / hospitalkensaku.rb
@HIROSE Yuuji HIROSE Yuuji on 21 May 2018 513 KB s/syuzai/shuzai/g completely
Raw Blame History 
#!/usr/bin/env ruby

$KCODE = 'e'            # 日本語コードの定義

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


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

ka = Array.new

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



#p chiiki

print("<html>\n")      # HTMLの規定
print("<head>\n")      # HTMLの設定
print("<link rel=\"stylesheet\" type=\"text/css\" href=\"hospitalkensaku.css\">\n")
                       # cssの設定
print("<title>タグ検索結果</title>\n")   # <title>の表示
print("</head>\n")     # HTMLの設定(閉)
print("<body>\n")      # HTMLの表示部分

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

print("<div class=\"center\">")
print("<h1>タグ検索結果</h1>\n")                     # <h1>の表示

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>")
      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><sub>%s</sub></dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

  end  
    

elsif chiiki == "酒田市"

  for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

      if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
      
      if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
      if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
      if apply == "消化器科"
      print("<h1>消化器科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
      if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
      if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
      if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
   if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

   if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

 if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

  end
 

elsif chiiki == "庄内町"

for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      open("syouani.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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "歯"
      print("<h1>歯</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
  end

elsif chiiki == "三川町"

for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
  end

elsif chiiki == "遊佐町"

for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
  end  

elsif chiiki == "山形市"

for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      open("yamgatashi.txt","r:euc-jp")do |yomu|
        while line = yomu.gets
          if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
  end

elsif chiiki == "寒河江市"


elsif chiiki == "上山市"



elsif chiiki == "村山市"



elsif chiiki == "天童市"



elsif chiiki == "東根市"



elsif chiiki == "尾花沢市"


      print("<h3>★麻酔科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "歯科"
      print("<h3>★歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "矯正歯科"
      print("<h3>★矯正歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end


    if apply == "小児歯科"
      print("<h3>★小児歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "歯科口腔外科"
      print("<h3>歯科口腔外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
  end

elsif chiiki == "東村山群"

for apply in ka
    
    if apply == "内科"
      print("<h3>★内科<\h3>")
      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("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "心療内科"
      print("<h3>★心療内科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    
    
    if apply == "精神科"
      print("<h3>★精神科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "神経科"
      print("<h3>★神経科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "神経内科"
      print("<h3>★神経内科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "呼吸器科"
      print("<h3>★呼吸器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "消化器科"
      print("<h3>★消化器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "胃腸科"
      print("<h3>★胃腸科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "循環器科"
      print("<h3>★循環器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2            
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "アレルギー科"
      print("<h3>★アレルギー科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "リウマチ科"
      print("<h3>★リウマチ科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                   printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "小児科"
      print("<h3>★小児科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "外科"
      print("<h3>★外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "整形外科"
      print("<h3>★整形外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "形成外科"
      print("<h3>★形成外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "美容外科"
      print("<h3>★美容外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
               printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "脳神経外科"
      print("<h3>★脳神経外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
               printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "呼吸器外科"
      print("<h3>★呼吸器外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "心臓血管外科"
      print("<h3>★心臓血管外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "小児外科"
      print("<h3>★小児外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "皮膚科"
      print("<h3>★皮膚科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "泌尿器科"
      print("<h3>★泌尿器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end 

    if apply == "性病科"
      print("<h3>★性病科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "肛門科"
      print("<h3>★肛門科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end



    if apply == "産婦人科"
      print("<h3>★産婦人科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "産科"
      print("<h3>★産科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "婦人科"
      print("<h3>★婦人科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "眼科"
      print("<h3>★眼科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if/:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "耳鼻いんこう科"
      print("<h3>★耳鼻いんこう科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "気管食道科"
      print("<h3>★気管食道科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "リハビリテーション科"
      print("<h3>★リハビリテーション科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "放射線科"
      print("<h3>★放射線科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "放射診断科"
      print("<h3>★放射診断科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "放射線治療科"
      print("<h3>★放射線治療科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "麻酔科"
      print("<h3>★麻酔科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "歯科"
      print("<h3>★歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "矯正歯科"
      print("<h3>★矯正歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end


    if apply == "小児歯科"
      print("<h3>★小児歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "歯科口腔外科"
      print("<h3>★歯科口腔外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

  end

elsif chiiki == "西村山群"

  for apply in ka
    
    if apply == "内科"
      print("<h3>★内科<\h3>")
      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("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "心療内科"
      print("<h3>★心療内科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    
    
    if apply == "精神科"
      print("<h3>★精神科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "神経科"
      print("<h3>★神経科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "神経内科"
      print("<h3>★神経内科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
        
    if apply == "呼吸器科"
      print("<h3>★呼吸器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "消化器科"
      print("<h3>★消化器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "胃腸科"
      print("<h3>★胃腸科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "循環器科"
      print("<h3>★循環器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2            
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "アレルギー科"
      print("<h3>★アレルギー科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "リウマチ科"
      print("<h3>★リウマチ科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                   printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "小児科"
      print("<h3>★小児科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "外科"
      print("<h3>★外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "整形外科"
      print("<h3>★整形外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "形成外科"
      print("<h3>★形成外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "美容外科"
      print("<h3>★美容外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
               printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "脳神経外科"
      print("<h3>★脳神経外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
               printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "呼吸器外科"
      print("<h3>★呼吸器外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "心臓血管外科"
      print("<h3>★心臓血管外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "小児外科"
      print("<h3>★小児外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "皮膚科"
      print("<h3>★皮膚科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "泌尿器科"
      print("<h3>★泌尿器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end 

    if apply == "性病科"
      print("<h3>★性病科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "肛門科"
      print("<h3>★肛門科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end



    if apply == "産婦人科"
      print("<h3>★産婦人科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "産科"
      print("<h3>★産科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "婦人科"
      print("<h3>★婦人科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "眼科"
      print("<h3>★眼科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if/:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "耳鼻いんこう科"
      print("<h3>★耳鼻いんこう科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "気管食道科"
      print("<h3>★気管食道科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "リハビリテーション科"
      print("<h3>★リハビリテーション科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "放射線科"
      print("<h3>★放射線科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "放射診断科"
      print("<h3>★放射診断科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "放射線治療科"
      print("<h3>★放射線治療科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "麻酔科"
      print("<h3>★麻酔科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "歯科"
      print("<h3>★歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "矯正歯科"
      print("<h3>★矯正歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end


    if apply == "小児歯科"
      print("<h3>★小児歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "歯科口腔外科"
      print("<h3>★歯科口腔外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

  end 

elsif chiiki == "北村山群"

for apply in ka
    
    if apply == "内科"
      print("<h3>★内科<\h3>")
      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("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "心療内科"
      print("<h3>★心療内科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    
    
    if apply == "精神科"
      print("<h3>★精神科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "神経科"
      print("<h3>★神経科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "神経内科"
      print("<h3>★神経内科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "呼吸器科"
      print("<h3>★呼吸器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    
    if apply == "消化器科"
      print("<h3>★消化器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "胃腸科"
      print("<h3>★胃腸科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "循環器科"
      print("<h3>★循環器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2            
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "アレルギー科"
      print("<h3>★アレルギー科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "リウマチ科"
      print("<h3>★リウマチ科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                   printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "小児科"
      print("<h3>★小児科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "外科"
      print("<h3>★外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "整形外科"
      print("<h3>★整形外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "形成外科"
      print("<h3>★形成外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "美容外科"
      print("<h3>★美容外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
               printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "脳神経外科"
      print("<h3>★脳神経外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
               printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "呼吸器外科"
      print("<h3>★呼吸器外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "心臓血管外科"
      print("<h3>★心臓血管外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "小児外科"
      print("<h3>★小児外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "皮膚科"
      print("<h3>★皮膚科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "泌尿器科"
      print("<h3>★泌尿器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end 

    if apply == "性病科"
      print("<h3>★性病科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "肛門科"
      print("<h3>★肛門科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end



    if apply == "産婦人科"
      print("<h3>★産婦人科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "産科"
      print("<h3>★産科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "婦人科"
      print("<h3>★婦人科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "眼科"
      print("<h3>★眼科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if/:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "耳鼻いんこう科"
      print("<h3>★耳鼻いんこう科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "気管食道科"
      print("<h3>★気管食道科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "リハビリテーション科"
      print("<h3>★リハビリテーション科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "放射線科"
      print("<h3>★放射線科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "放射診断科"
      print("<h3>★放射診断科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "放射線治療科"
      print("<h3>★放射線治療科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "麻酔科"
      print("<h3>★麻酔科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "歯科"
      print("<h3>★歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "矯正歯科"
      print("<h3>★矯正歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end


    if apply == "小児歯科"
      print("<h3>★小児歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "歯科口腔外科"
      print("<h3>★歯科口腔外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

  end  

elsif chiiki == "新庄市"

for apply in ka
    
    if apply == "内科"
      print("<h3>★内科<\h3>")
      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("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "心療内科"
      print("<h3>★心療内科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    
    
    if apply == "精神科"
      print("<h3>★精神科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "神経科"
      print("<h3>★神経科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "神経内科"
      print("<h3>★神経内科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "呼吸器科"
      print("<h3>★呼吸器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "消化器科"
      print("<h3>★消化器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "胃腸科"
      print("<h3>★胃腸科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "循環器科"
      print("<h3>★循環器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2            
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "アレルギー科"
      print("<h3>★アレルギー科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "リウマチ科"
      print("<h3>★リウマチ科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                   printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "小児科"
      print("<h3>★小児科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "外科"
      print("<h3>★外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "整形外科"
      print("<h3>★整形外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "形成外科"
      print("<h3>★形成外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "美容外科"
      print("<h3>★美容外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
               printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "脳神経外科"
      print("<h3>★脳神経外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
               printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "呼吸器外科"
      print("<h3>★呼吸器外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "心臓血管外科"
      print("<h3>★心臓血管外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "小児外科"
      print("<h3>★小児外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "皮膚科"
      print("<h3>★皮膚科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "泌尿器科"
      print("<h3>★泌尿器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end 

    if apply == "性病科"
      print("<h3>★性病科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "肛門科"
      print("<h3>★肛門科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end



    if apply == "産婦人科"
      print("<h3>★産婦人科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "産科"
      print("<h3>★産科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "婦人科"
      print("<h3>★婦人科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "眼科"
      print("<h3>★眼科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if/:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "耳鼻いんこう科"
      print("<h3>★耳鼻いんこう科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "気管食道科"
      print("<h3>★気管食道科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "リハビリテーション科"
      print("<h3>★リハビリテーション科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "放射線科"
      print("<h3>★放射線科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "放射診断科"
      print("<h3>★放射診断科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "放射線治療科"
      print("<h3>★放射線治療科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "麻酔科"
      print("<h3>★麻酔科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "歯科"
      print("<h3>★歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "矯正歯科"
      print("<h3>★矯正歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end


    if apply == "小児歯科"
      print("<h3>★小児歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "歯科口腔外科科"
      print("<h3>★歯科口腔外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
end

elsif chiiki == "最上群"

for apply in ka
    
    if apply == "内科"
      print("<h3>★内科<\h3>")
      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("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "心療内科"
      print("<h3>★心療内科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    
    
    if apply == "精神科"
      print("<h3>★精神科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "神経科"
      print("<h3>★神経科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "神経内科"
      print("<h3>★神経内科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "呼吸器科"
      print("<h3>★呼吸器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "消化器科"
      print("<h3>★消化器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "胃腸科"
      print("<h3>★胃腸科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "循環器科"
      print("<h3>★循環器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2            
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "アレルギー科"
      print("<h3>★アレルギー科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "リウマチ科"
      print("<h3>★リウマチ科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                   printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "小児科"
      print("<h3>★小児科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "外科"
      print("<h3>★外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "整形外科"
      print("<h3>★整形外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "形成外科"
      print("<h3>★形成外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "美容外科"
      print("<h3>★美容外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
               printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "脳神経外科"
      print("<h3>★脳神経外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
               printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "呼吸器外科"
      print("<h3>★呼吸器外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "心臓血管外科"
      print("<h3>★心臓血管外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "小児外科"
      print("<h3>★小児外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "皮膚科"
      print("<h3>★皮膚科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "泌尿器科"
      print("<h3>★泌尿器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end 

    if apply == "性病科"
      print("<h3>★性病科<\h3>")
      open("mogamai.txt","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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "肛門科"
      print("<h3>★肛門科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end



    if apply == "産婦人科"
      print("<h3>★産婦人科<\h3>")
      open("mogamai.txt","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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "産科"
      print("<h3>★産科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "婦人科"
      print("<h3>★婦人科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "眼科"
      print("<h3>★眼科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if/:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "耳鼻いんこう科"
      print("<h3>★耳鼻いんこう科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "気管食道科"
      print("<h3>★気管食道科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "リハビリテーション科"
      print("<h3>★リハビリテーション科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "放射線科"
      print("<h3>★放射線科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "放射診断科"
      print("<h3>★放射診断科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "放射線治療科"
      print("<h3>★放射線治療科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "麻酔科"
      print("<h3>★麻酔科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "歯科"
      print("<h3>★歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "矯正歯科"
      print("<h3>★矯正歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end


    if apply == "小児歯科"
      print("<h3>★小児歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "歯科口腔外科"
      print("<h3>★歯科口腔外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

end  



elsif chiiki == "米沢市"

  for apply in ka
    
    if apply == "内科"
      print("<h3>★内科<\h3>")
      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("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "心療内科"
      print("<h3>★心療内科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    
    
    if apply == "精神科"
      print("<h3>★精神科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "神経科"
      print("<h3>★神経科<\h3>")
      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 = パスワード
          kooumooku = $1
          taaguu = $7
          juusho = $2
          if /:神経科:/e=~taaguu
            if /#{jiyuu}/=~juusho
              if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
              end
            end
          end
        end
      end
      end
    end
    
    if apply == "神経内科"
      print("<h3>★神経内科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "呼吸器科"
      print("<h3>★呼吸器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "消化器科"
      print("<h3>★消化器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "胃腸科"
      print("<h3>★胃腸科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
              end
            end
          end
        end
      end
    end
   end

    if apply == "循環器科"
      print("<h3>★循環器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2            
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "アレルギー科"
      print("<h3>★アレルギー科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                   printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "リウマチ科"
      print("<h3>★リウマチ科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                   printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "小児科"
      print("<h3>★小児科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "外科"
      print("<h3>★外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "整形外科"
      print("<h3>★整形外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "形成外科"
      print("<h3>★形成外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "美容外科"
      print("<h3>★美容外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
               printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "脳神経外科"
      print("<h3>★脳神経外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
               printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "呼吸器外科"
      print("<h3>★呼吸器外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "心臓血管外科"
      print("<h3>★心臓血管外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "小児外科"
      print("<h3>★小児外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "皮膚科"
      print("<h3>★皮膚科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "泌尿器科"
      print("<h3>★泌尿器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end 

    if apply == "性病科"
      print("<h3>★性病科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "肛門科"
      print("<h3>★肛門科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end



    if apply == "産婦人科"
      print("<h3>★産婦人科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "産科"
      print("<h3>★産科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "婦人科"
      print("<h3>★婦人科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "眼科"
      print("<h3>★眼科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if/:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "耳鼻いんこう科"
      print("<h3>★耳鼻いんこう科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "気管食道科"
      print("<h3>★気管食道科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "リハビリテーション科"
      print("<h3>★リハビリテーション科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "放射線科"
      print("<h3>★放射線科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "放射診断科"
      print("<h3>★放射診断科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "放射線治療科"
      print("<h3>★放射線治療科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "病理診断科"
      print("<h3>★病理診断科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:病理診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "救急科"
      print("<h3>★救急科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:救急科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "麻酔科"
      print("<h3>★麻酔科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "歯科"
      print("<h3>★歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "矯正歯科"
      print("<h3>★矯正歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end


    if apply == "小児歯科"
      print("<h3>★小児歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "歯科口腔外科"
      print("<h3>★歯科口腔外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

  end

elsif chiiki == "長井市"

  for apply in ka
    
    if apply == "内科"
      print("<h3>★内科<\h3>")
      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("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "心療内科"
      print("<h3>★心療内科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    
    
    if apply == "精神科"
      print("<h3>★精神科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "神経科"
      print("<h3>★神経科<\h3>")
      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 = パスワード
          kooumooku = $1
          taaguu = $7
          juusho = $2
          if /:神経科:/e=~taaguu
            if /#{jiyuu}/=~juusho
              if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
              end
            end
          end
        end
      end
      end
    end
    
    if apply == "神経内科"
      print("<h3>★神経内科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "呼吸器科"
      print("<h3>★呼吸器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    
    if apply == "消化器科"
      print("<h3>★消化器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "胃腸科"
      print("<h3>★胃腸科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
              end
            end
          end
        end
      end
    end
  end

    if apply == "循環器科"
      print("<h3>★循環器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2            
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "アレルギー科"
      print("<h3>★アレルギー科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                   printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "リウマチ科"
      print("<h3>★リウマチ科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                   printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "小児科"
      print("<h3>★小児科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "外科"
      print("<h3>★外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "整形外科"
      print("<h3>★整形外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "形成外科"
      print("<h3>★形成外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "美容外科"
      print("<h3>★美容外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
               printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "脳神経外科"
      print("<h3>★脳神経外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
               printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "呼吸器外科"
      print("<h3>★呼吸器外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "心臓血管外科"
      print("<h3>★心臓血管外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "小児外科"
      print("<h3>★小児外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "皮膚科"
      print("<h3>★皮膚科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "泌尿器科"
      print("<h3>★泌尿器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end 

    if apply == "性病科"
      print("<h3>★性病科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "肛門科"
      print("<h3>★肛門科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end



    if apply == "産婦人科"
      print("<h3>★産婦人科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "産科"
      print("<h3>★産科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "婦人科"
      print("<h3>★婦人科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "眼科"
      print("<h3>★眼科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if/:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "耳鼻いんこう科"
      print("<h3>★耳鼻いんこう科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "気管食道科"
      print("<h3>★気管食道科<\h3>")
      open("nagai.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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "リハビリテーション科"
      print("<h3>★リハビリテーション科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "放射線科"
      print("<h3>★放射線科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "放射診断科"
      print("<h3>★放射診断科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "放射線治療科"
      print("<h3>★放射線治療科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "麻酔科"
      print("<h3>★麻酔科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "歯科"
      print("<h3>★歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "矯正歯科"
      print("<h3>★矯正歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end


    if apply == "小児歯科"
      print("<h3>★小児歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "歯科口腔外科"
      print("<h3>★歯科口腔外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
  end

elsif chiiki == "南陽市"

  for apply in ka
    
    if apply == "内科"
      print("<h3>★内科<\h3>")
      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("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "心療内科"
      print("<h3>★心療内科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心療内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    
    
    if apply == "精神科"
      print("<h3>★精神科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:精神科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "神経科"
      print("<h3>★神経科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "神経内科"
      print("<h3>★神経内科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:神経内科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
        
    if apply == "呼吸器科"
      print("<h3>★呼吸器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "消化器科"
      print("<h3>★消化器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:消化器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "胃腸科"
      print("<h3>★胃腸科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:胃腸科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "循環器科"
      print("<h3>★循環器科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2            
            if /:循環器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "アレルギー科"
      print("<h3>★アレルギー科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:アレルギー科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "リウマチ科"
      print("<h3>★リウマチ科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:リウマチ科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                   printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "小児科"
      print("<h3>★小児科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2 
            if /:小児科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "外科"
      print("<h3>★外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "整形外科"
      print("<h3>★整形外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:整形外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
    
    if apply == "形成外科"
      print("<h3>★形成外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:形成外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "美容外科"
      print("<h3>★美容外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:美容外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
               printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "脳神経外科"
      print("<h3>★脳神経外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:脳神経外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
               printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "呼吸器外科"
      print("<h3>★呼吸器外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:呼吸器外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "心臓血管外科"
      print("<h3>★心臓血管外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:心臓血管外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "小児外科"
      print("<h3>★小児外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "皮膚科"
      print("<h3>★皮膚科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:皮膚科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "泌尿器科"
      print("<h3>★泌尿器科<\h3>")
      open("nnayo.txt","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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:泌尿器科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end 

    if apply == "性病科"
      print("<h3>★性病科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:性病科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "肛門科"
      print("<h3>★肛門科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:肛門科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end



    if apply == "産婦人科"
      print("<h3>★産婦人科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "産科"
      print("<h3>★産科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:産科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                  printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                  print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "婦人科"
      print("<h3>★婦人科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:婦人科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "眼科"
      print("<h3>★眼科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if/:眼科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "耳鼻いんこう科"
      print("<h3>★耳鼻いんこう科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:耳鼻いんこう科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "気管食道科"
      print("<h3>★気管食道科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:気管食道科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "リハビリテーション科"
      print("<h3>★リハビリテーション科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:リハビリテーション科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "放射線科"
      print("<h3>★放射線科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "放射診断科"
      print("<h3>★放射診断科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射診断科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "放射線治療科"
      print("<h3>★放射線治療科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:放射線治療科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end

    if apply == "麻酔科"
      print("<h3>★麻酔科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:麻酔科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "歯科"
      print("<h3>★歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end

    if apply == "矯正歯科"
      print("<h3>★矯正歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:矯正歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
               if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
               end
              end
            end
          end
        end
      end
    end


    if apply == "小児歯科"
      print("<h3>★小児歯科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:小児歯科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end


    if apply == "歯科口腔外科"
      print("<h3>★歯科口腔外科<\h3>")
      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 = パスワード
            kooumooku = $1
            taaguu = $7
            juusho = $2
            if /:歯科口腔外科:/e=~taaguu
              if /#{jiyuu}/=~juusho
                if /#{jiyuu2}/=~kooumooku
                printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho)
                print("<br>")
                end
              end
            end
          end
        end
      end
    end
  end 


elsif chiiki == "東置賜群"

 for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

  end  

elsif chiiki == "西置賜群"

for apply in ka
    
    if apply == "内科"
      print("<h1>内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                print("-----------------------------------------------")
                print("<br>\n")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "心療内科"
      print("<h1>心療内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "精神科"
      print("<h1>精神科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end    
    
    if apply == "神経科"
      print("<h1>神経科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end    
         
    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "神経内科"
      print("<h1>神経内科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "胃腸科"
      print("<h1>胃腸科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "循環器科"
      print("<h1>循環器科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "アレルギー科"
      print("<h1>アレルギー科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "リウマチ科"
      print("<h1>リウマチ科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "小児科"
      print("<h1>小児科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "外科"
      print("<h1>外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "整形外科"
      print("<h1>整形外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end
    
    if apply == "形成外科"
      print("<h1>形成外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "美容外科"
      print("<h1>美容外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "脳神経外科"
      print("<h1>脳神経外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "呼吸器外科"
      print("<h1>呼吸器外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "心臓血管外科"
      print("<h1>心臓血管外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "小児外科"
      print("<h1>小児外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "皮膚科"
      print("<h1>皮膚科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "泌尿器科"
      print("<h1>泌尿器科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "性病科"
      print("<h1>性病科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "肛門科"
      print("<h1>肛門科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "産婦人科"
      print("<h1>産婦人科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "産科"
      print("<h1>産科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "婦人科"
      print("<h1>婦人科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "眼科"
      print("<h1>眼科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "耳鼻いんこう科"
      print("<h1>耳鼻いんこう科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "気管食道科"
      print("<h1>気管食道科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "リハビリテーション科"
      print("<h1>リハビリテーション科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射線科"
      print("<h1>放射線科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射診断科"
      print("<h1>放射診断科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "放射線治療科"
      print("<h1>放射線治療科</h1>")
      print("<dl>")
      open("n_okitama.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>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "麻酔科"
      print("<h1>麻酔科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "歯科"
      print("<h1>歯科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "矯正歯科"
      print("<h1>矯正歯科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "小児歯科"
      print("<h1>小児歯科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

    if apply == "歯科口腔外科"
      print("<h1>歯科口腔外科</h1>")
      print("<dl>")
      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><sub>%s</sub></dd>\n",juusho)
                  print("-----------------------------------------------")
                  print("<br>")
                end
              end
            end
          end
        end
      end
      print("</dl>")
    end

  end  

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

print("</form>\n")

print("<a href=\"http://roy/~c110127/6hour/hospital.html\">検索画面に戻る</a>\n") 
                                                 # 検索画面へのリンクの表示

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

print("</div>")


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