このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1325685876/200
#  [1] 授業単元: アルゴリズム(ファイルへの書き込み) 
#  [2] 問題文(含コード&リンク):標準入力からgetchar 関数を使って文字を次々と読 
#  み込み,Ctrl-d で入力が終了するまで入力された文字 
#  をファイルに書き込むプログラムを作成せよ.以下の実 
#  行例のように,最初に書き込むファイルの名前をユーザに入力させること. 
#  [実行例] 
#  書込みファイル名: intro.txt 
#  ファイルに書き込む内容を入力(Ctrl-d で終了): 
#  Hello! 
#  I’m Taro KOUK. 
#  I was born in Tokyo in 1992. 
#  <--(Ctrl-d で入力終了) 
#  ファイルに書き込みました。 
#  % cat intro.txt 
#  Hello! 
#  I’m Taro KOUK. 
#  I was born in Tokyo in 1992. 
#   
#  

'標準入力からgetchar 関数を使って文字を次々と読み込み,Ctrl-d で入力が終了するまで入力された文字をファイルに書き込む' :-
        書き込みファイル名の取得(_ファイル),
        open(_ファイル,write,Outstream),
        '標準入力からgetchar 関数を使って文字を次々と読み込み,Ctrl-d で入力が終了するまで入力された文字をファイルに書き込む'(Outstream),
        close(Outstream).
        
'標準入力からgetchar 関数を使って文字を次々と読み込み,Ctrl-d で入力が終了するまで入力された文字をファイルに書き込む'(Outstream) :-
        at_end_of_stream(user_input),!.
'標準入力からgetchar 関数を使って文字を次々と読み込み,Ctrl-d で入力が終了するまで入力された文字をファイルに書き込む'(Outstream) :-
        get_char(user_input,_文字),
        put_char(Outstream,_文字),
        '標準入力からgetchar 関数を使って文字を次々と読み込み,Ctrl-d で入力が終了するまで入力された文字をファイルに書き込む'(Outstream).