ttp://dream.my-sv.net/upload/src/up0088.c
大体できたような気がする