このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1260532772/159
#  [1] 授業単元: ものつくりの実習中に必要になりました 
#  [2] 問題文(含コード&リンク):  
#  全角の日本語をJISコードに変換したいです。 
#  ”あいうえお終”と入力したときに 
#  2422 
#  2424 
#  2426 
#  2428 
#  242A 
#  3D2A 
#  のように返してくれるとうれしいです。 
#  
% Prolog 

全角の日本語をJISコードに変換 :- 
    get_line(Line), 
    atom_chars(Line,Chars), 
    全角の日本語をJISコードに変換(Chars). 

全角の日本語をJISコードに変換([]). 
全角の日本語をJISコードに変換([A|R]) :- 
    char_code(A,Code), 
    Jis_code is Code # truncate(2^15+2^7), 
    write_formatted('%x\n',[Jis_code]), 
    全角の日本語をJISコードに変換(R).