このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1308749241/719
#  これをプログラム実行時にキーボードから名前、年齢、電話番号を入力できるように変更したい  
#  

'プログラム実行時にキーボードから名前、年齢、電話番号を入力して電話帳に追加する' :-
        repeat,
        write('1..追加 9..終了\n'),
        readln([_選択]),
        '名前・年齢・電話番号を入力する'(_選択),
        _選択 = 9.        

'名前・年齢・電話番号を入力する'(9) :- !.
'名前・年齢・電話番号を入力する'(1) :-
        findall(_値,(
                    append(_,[_項目名|_],[名前,年齢,電話番号]),
                    writef('%t : ',[_項目名]),
                    get_line(_値)),
                L),
        電話帳に追加(L).

電話帳に追加([_名前,_年齢文字列,_電話番号]) :-
        atom_to_term(_年齢文字列,_年齢,_),
        assertz('電話帳'(_名前,_年齢文字列,_電話番号)),!.