下载《仙剑》金曲
源程序名：ＰＡＬ－ＭＩＤＩＣ
编译环境：ＴＵＲＢＯ Ｃ或ＢＯＲＬＡＮＤ Ｃ＋＋；有波表卡，效果将更好。
＃ｉｎｃｌｕｄｅ ＜ｓｔｄｉｏｈ＞
＃ｉｎｃｌｕｄｅ ＜ｓｔｄｌｉｂｈ＞
＃ｉｎｃｌｕｄｅ ＜ｃｏｎｉｏｈ＞
ｃｈａｒ ＴａｒｇｅｔＦｉｌｅＮａｍｅ［３２］＝＂ＭＵＳＩＣ－００ＭＩＤ＂；／＊目标文件名＊／
ｖｏｉｄ ｍａｉｎ（ｖｏｉｄ）
｛
ＦＩＬＥ ＊ＳｏｕｒｃｅＦｉｌｅ，＊ＴａｒｇｅｔＦｉｌｅ；／＊文件指针＊／
ｌｏｎｇ Ｓｔａｒｔ，Ｅｎｄ，Ｌｅｎ；
ｉｎｔ ｉ，ｊ，ｋ，ｆｉｌｅ；
ｆｉｌｅ＝０；
ｃｌｒｓｃｒ（）；
ｇｏｔｏｘｙ（１８，１０）；
ｐｒｉｎｔｆ（＂《仙剑奇侠传》音乐文件生成器 作者：樊一鹏＂）；
／＊打开源文件＊／
ｉｆ（（ＳｏｕｒｃｅＦｉｌｅ＝ｆｏｐｅｎ（＂ＭＩＤＩ．ＭＫＦ＂，＂ｒｂ＂））＝＝ＮＵＬＬ）
／＊打开源文件失败＊／
ｇｏｔｏｘｙ（２１，１３）；
ｐｒｉｎｔｆ（＂错误：当前目录下找不到ＭＩＤＩＭＫＦ文件！＼ｎ＂）；
ｅｘｉｔ（１）；
｝
／＊主循环＊／
ｆｏｒ（ｉ＝１；ｉ＜＝８７；ｉ＋＋）
／＊读指针定位＊／
ｆｓｅｅｋ（ＳｏｕｒｃｅＦｉｌｅ，ｉ＊４，ＳＥＥＫ－ＳＥＴ）；
ｆｒｅａｄ（＆Ｓｔａｒｔ，１，４，ＳｏｕｒｃｅＦｉｌｅ）；
ｆｒｅａｄ（＆Ｅｎｄ，１，４，ＳｏｕｒｃｅＦｉｌｅ）；
ｆｓｅｅｋ（ＳｏｕｒｃｅＦｉｌｅ，Ｓｔａｒｔ，ＳＥＥＫ－ＳＥＴ）；
／＊计算音乐文件长度＊／
Ｌｅｎ＝Ｅｎｄ－Ｓｔａｒｔ；
／＊音乐文件是否存在＊／
ｉｆ（Ｌｅｎ＞０）
｛
／＊音乐文件存在，开始处理＊／
＋＋ｆｉｌｅ；
ＴａｒｇｅｔＦｉｌｅＮａｍｅ［６］＝（ｆｉｌｅ／１０）＋＇０＇；
ＴａｒｇｅｔＦｉｌｅＮａｍｅ［７］＝（ｆｉｌｅ％１０）＋＇０＇；
／＊打开目标文件＊／
ＴａｒｇｅｔＦｉｌｅ＝ｆｏｐｅｎ（ＴａｒｇｅｔＦｉｌｅＮａｍｅ，＂ｗｂ＂）；
／＊生成目标文件＊／
ｇｏｔｏｘｙ（２３，１３）；
ｐｒｉｎｔｆ（＂正在生成第［％ｄ］首音乐：％ｓ＂，ｆｉｌｅ，ＴａｒｇｅｔＦｉｌｅＮａｍｅ）；
ｆｏｒ（ｊ＝０；ｊ＜Ｌｅｎ；ｊ＋＋）
｛
ｋ＝ｆｇｅｔｃ（ＳｏｕｒｃｅＦｉｌｅ）；
ｆｐｕｔｃ（ｋ，ＴａｒｇｅｔＦｉｌｅ）；
｝
／＊关闭目标文件＊／
ｆｃｌｏｓｅ（ＴａｒｇｅｔＦｉｌｅ）；
｝
｝
／＊关闭源文件＊／
ｆｃｌｏｓｅ（ＳｏｕｒｃｅＦｉｌｅ）；
ｇｏｔｏｘｙ（２９，１５）；
ｐｒｉｎｔｆ（＂音乐文件全部生成完毕！＼ｎ＂）；
｝
以上程序可在ＴＵＲＢＯ Ｃ或ＢＯＲＬＡＮＤ Ｃ＋＋集成环境下输入、编译（ｃｏｍｐｉｌｅ）、链接（ｌｉｎｋ）形成可执行文件ＰＡＬ－ＭＩＤＩ．ＥＸＥ，把它拷入《仙剑》所在子目录下运行，就会用ＭＩＤＩ格式生成八十六个音乐文件，从ＭＵＳＩＣ－０１．ＭＩＤ到ＭＵＳＩＣ－８６．ＭＩＤ。如果用户的机器上没有Ｃ语言或不懂得编译过程，可寄１０元钱到本报编辑部拷贝源代码和执行文件。