!234567 「結果は同じ」
      implicit none
      integer i
!------------------------------------------------------------------------------------------
      write(*,*) "北朝鮮が声明を発表．次のうちどれ？"
      write(*,*) "１．韓国と仲良くする　２．日米韓全てが標的だ　３．六カ国協議を再開する"
      read(*,*) i
      if(i.eq.1)then
       goto 10
      elseif(i.eq.2)then
       goto 20
      else
       goto 30
      endif
!------------------------------------------------------------------------------------------
10    write(*,*) "国連，日米韓「OK」"
      write(*,*) "中国「勝手なことすんな」"
      write(*,*) "また北朝鮮が声明を発表．次のうちどれ？"
      write(*,*) "１．日韓は米国と手を切れ　２．日米韓は援助しろ　３．無慈悲な鉄槌を下す"
      read(*,*) i
      if(i.eq.1.or.i.eq.3)then
       goto 40
      else
       goto 30
      endif
!------------------------------------------------------------------------------------------
20    write(*,*) "日本「関係各国と連携し，事態を注視する」"
      write(*,*) "米国「ミサイル防衛システム使うわ」"
      write(*,*) "韓国「恫喝には屈しない」"
      write(*,*) "北朝鮮が声明を発表．次のうちどれか選択せよ"
      write(*,*) "１．無慈悲な作戦実行を決定　２．開戦まで1分1秒の状態　３．やっぱ仲良くする"
      read(*,*) i
      if(i.le.2) goto 40
      if(i.eq.3) goto 10
!------------------------------------------------------------------------------------------
30    write(*,*) "日本　「拉致問題を議題にあげる」"
      write(*,*) "北朝鮮「その話は終わった」"
      write(*,*) "米国　「終わってないし，援助期待するなら，核開発やめれ．自国民助けろ」"
      write(*,*) "北朝鮮が声明文を発表．次のうちどれ？"
      write(*,*) "１．協議は時間の無駄　２．一号戦闘勤務態勢に突入　３．外国人に退避命令"
      read(*,*) i
      goto 40
!------------------------------------------------------------------------------------------
40    write(*,*) "日米「誠に遺憾」"
      write(*,*) "朝韓「日本が悪い」"
      write(*,*) "日米「えっ？」"
      write(*,*) "中露「誠に遺憾．もう知らん」"
      write(*,*) "米国「そろそろ本気だすよ」"
      end
