!234567 ジブリ編（ほぼラピュタ）
      implicit none
      integer i

!---------------------------------------------------------------
      write(*,*) "ドーラは40秒しか待ってくれない．ムスカは？"
      write(*,*) "１．「1分間待ってやる」"
      write(*,*) "２．「3分間待ってやる」"
      write(*,*) "３．「5分間待ってやる」"
      read(*,*) i

      if(i.eq.1)then
       write(*,*) "ムスカ「そこまで無慈悲だと思うのかね？」"
      elseif(i.eq.2)then
       write(*,*) "ムスカ「すばらしい！！」"
      else
       write(*,*) "ムスカ「まだか，早くしろ！！」"
      endif
       write(*,*) ""
       read(*,*)
!---------------------------------------------------------------
      write(*,*) "若い方から順に並べよ"
      write(*,*) "A．ハウル　B．ムスカ　C．クシャナ殿下"
      write(*,*) ""
      write(*,*) "１：C→A→B"
      write(*,*) "２：A→B→C"
      write(*,*) "３：B→C→A"
      read(*,*) i

      if(i.eq.1)then
       write(*,*) "ムスカ「てこずらせたな,正解だ」"
      elseif(i.eq.2)then
       write(*,*) "クシャナ「我が夫となるものはさらにおぞましい・・（略」"
      else
       write(*,*) "キムタク「ちょ，待てよ」"
      endif
       write(*,*) ""
       read(*,*)
!---------------------------------------------------------------
      write(*,*) "つぎのセリフを時系列で古い方から並べよ"
      write(*,*) "A．はやりの服はお嫌いですか"
      write(*,*) "B．我が夫となる者はさらにおぞましき者を見ることになるだろう"
      write(*,*) "C．夢なのに夢じゃなかった！"
      write(*,*) ""
      write(*,*) "１：A→B→C"
      write(*,*) "２：B→A→C"
      write(*,*) "３：B→C→A"
      write(*,*) "ムスカ「時間だ，答えを聞こう！」"
      read(*,*) i

      if(i.eq.1)then
       write(*,*) "ムスカ「君の一族はそんなことも忘れてしまったのかね？」"
      elseif(i.eq.2)then
       write(*,*) "ムスカ「最終問題が正解とは，上出来じゃないか！」"
      elseif(i.eq.3)then
       write(*,*) "ムスカ「事を急ぐと元も子もなくしますよ」"
      endif
       write(*,*) ""
!---------------------------------------------------------------
      end
