diff --git a/after1.jpg b/after1.jpg
new file mode 100644
index 0000000..3f1b6e9
--- /dev/null
+++ b/after1.jpg
Binary files differ
diff --git a/after2.jpg b/after2.jpg
new file mode 100644
index 0000000..806fe49
--- /dev/null
+++ b/after2.jpg
Binary files differ
diff --git a/after3.jpg b/after3.jpg
new file mode 100644
index 0000000..e14c511
--- /dev/null
+++ b/after3.jpg
Binary files differ
diff --git a/before.jpg b/before.jpg
new file mode 100644
index 0000000..d9a0a68
--- /dev/null
+++ b/before.jpg
Binary files differ
diff --git a/program.rb b/program.rb
new file mode 100644
index 0000000..1fbc504
--- /dev/null
+++ b/program.rb
@@ -0,0 +1,60 @@
+#!/usr/koeki/bin/ruby
+# -*- coding: utf-8 -*-
+
+#初期設定
+
+require 'curses'
+include Curses
+
+init_screen
+cbreak
+noecho
+
+rt = []
+
+begin
+  sleep(0)
+
+  10.times do
+    system("display -geometry +0+0 before.jpg&")
+    sleep(2)
+    system('pkill magick -U `whoami`')
+    srand
+    i = rand(3)+1
+    if i == 1
+      system("display -geometry +0+0 after1.jpg&")
+    elsif i == 2
+      system("display -geometry +0+0 after2.jpg&")
+    elsif i == 3
+      system("display -geometry +0+0 after3.jpg&")
+    end
+    setpos(0,0)
+    addstr("\n 1:安全 2:危険")
+    refresh
+    start = Time.now
+    answer = getch
+    stop = Time.now
+    rt << [i,answer,stop.to_f - start.to_f]
+    refresh
+
+    system('pkill magick -U `whoami`')
+    setpos(0,0)
+    addstr("\n ")
+    refresh
+    sleep(2)
+  end
+
+  correct = 0
+  total = 0
+  for j in rt
+    total += j[2]
+    if (j[0] == 1 && j[1] == "1") || (j[0] != 1 && j[1] == "2")
+      correct += 1
+    end
+  end
+
+ensure
+  close_screen
+end
+
+printf("正答%d回　　反応時間%5.3f秒\n", correct, total/10)
diff --git a/program_advanced.rb b/program_advanced.rb
new file mode 100644
index 0000000..d740d94
--- /dev/null
+++ b/program_advanced.rb
@@ -0,0 +1,66 @@
+#!/usr/koeki/bin/ruby
+# -*- coding: utf-8 -*-
+
+#初期設定
+
+require 'curses'
+include Curses
+
+init_screen
+cbreak
+noecho
+
+rt = []
+
+begin
+  sleep(0)
+
+  10.times do
+    system("display -geometry +0+0 before.jpg&")
+    sleep(2)
+    system('pkill magick -U `whoami`')
+    srand
+    i = rand(3)+1
+    if i == 1
+      system("display -geometry +400+0 quiz1.jpg&")
+      sleep(0.5)
+      system("display -geometry +0+0 after1.jpg&")
+    elsif i == 2
+      system("display -geometry +400+0 quiz1.jpg")
+      sleep(0.5)
+      system("display -geometry +0+0 after2.jpg&")
+    elsif i == 3
+      system("display -geometry +400+0 quiz1.jpg&")
+      sleep(0.5)
+      system("display -geometry +0+0 after3.jpg&")
+    end
+    setpos(0,0)
+    addstr("\n 1:安全 2:危険")
+    refresh
+    start = Time.now
+    answer = getch
+    stop = Time.now
+    rt << [i,answer,stop.to_f - start.to_f]
+    refresh
+
+    system('pkill magick -U `whoami`')
+    setpos(0,0)
+    addstr("\n ")
+    refresh
+    sleep(2)
+  end
+
+  correct = 0
+  total = 0
+  for j in rt
+    total += j[2]
+    if (j[0] == 1 && j[1] == "1") || (j[0] != 1 && j[1] == "2")
+      correct += 1
+    end
+  end
+
+ensure
+  close_screen
+end
+
+printf("正答%d回　　反応時間%5.3f秒\n", correct, total/10)
diff --git a/quiz1.jpg b/quiz1.jpg
new file mode 100644
index 0000000..23d58ff
--- /dev/null
+++ b/quiz1.jpg
Binary files differ
diff --git a/quiz2.jpg b/quiz2.jpg
new file mode 100644
index 0000000..58fd138
--- /dev/null
+++ b/quiz2.jpg
Binary files differ
diff --git a/quiz3.jpg b/quiz3.jpg
new file mode 100644
index 0000000..f8cbbfb
--- /dev/null
+++ b/quiz3.jpg
Binary files differ