このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1284632294/796
#  [1] 授業単元:プログラミング実習  
#  [2] 問題文(含コード&リンク):0x20から0x7Eまでの文字コード表を出力せよ。  
#  以下のようにすること。  
#   
#   | 0 1 2 3 4 5 6 7 8 9 A B C D E F 
#  -+-------------------------------- 
#  2|  ! ~ # $ % & ' ( ) * + , - . / 
#          途中略 
#  7| p q r s t u v w x y z { | } ~ 
#   
#  

'0x20から0x7Eまでの文字コード表を出力する' :-
        write(' | 0 1 2 3 4 5 6 7 8 9 A B C D E F \n-+-------------------------------- \n'),
        for(2,N1,7),
        write_formatted('%t|',[N1]),
        for(0,N2,15),
        N is 16 * N1 + N2,
        char_code(_文字,N),
        write_formatted(' %t',[_文字]),
        write('\n'),
        N2 = 15,
        N1 = 7.