alt键小工具

　　alt键+数字转成字符已经不是什么新鲜东西了 我写了个小程序点击下载，方便查询汉字的unicode编码

源码（PASCAL）：

program alt;

var
    s:string;
    i,res:integer;
begin
    writeln('                             Alt键加数字→汉字');
    writeln('                                                               by noanti');
    writeln;
    write('    Input a string:');
    readln(s);
    for i:=1 to length(s) div 2 do
    begin
      write('        ',s[i*2-1],s[i*2],' : ');
      writeln(ord(s[i*2-1]) shl 8+ord(s[i*2]));
    end;
    readln;
end.