diff --git a/src/nabeatsu.f b/src/nabeatsu.f index 27d8ec5..6ce788c 100644 --- a/src/nabeatsu.f +++ b/src/nabeatsu.f @@ -1,6 +1,8 @@ ! -! ナベアツ 世界のナベアツ 3の倍数と3の付く数字でGYA! -! 参考: http://hydro.iis.u-tokyo.ac.jp/~agata/doc/program_semi/semi7.html +! ナベアツ 世界のナベアツ 3の倍数と3の付く数字でGYA! +! 参考: http://hydro.iis.u-tokyo.ac.jp/~agata/doc/program_semi/semi7.html +! 日本語がWRITEできないな... + PROGRAM main CHARACTER A*8, nabe*15 ! 先にFUNCTIONの型を宣言 WRITE(*,'(A)', advance='no') 'Nabe to N? : '