请你编程
一般说来，安装应具有以下功能：
一、改变安装路径；
二、在安装过程中给出提示帮助信息；
三、可随时中断退出安装；
四、较强的容错能力，可自动测试目标盘容量是否足够安装，当安装路径已经存在时能够给出提示；
五、可以判断是否多盘安装，确定安装盘序号；
六、可以显示安装进度；
七、能安装成多级子目录。
#2 子程序一：
ｍａｉｎ（ｉｎｔ ａｒｇｃ，ｃｈａｒ ＊ａｒｇｖ［］）
｛ｉｎｔ ｄｏｎｅ，ｌｅｎｔｈ，ｋ，ｃｈ；
ｓｔｒｕｃｔ ｆｆｂｌｋ ｆ；
ｃｈａｒ ｓｔｒ［４］，ｐａｔｈ［１２８］，ｐａｔｈｎａｍｅ［１２８］，ｍｅｓｓａｇｅ［８０］；／＊确定安装盘所在驱动器＊／
ｉｆ （ａｒｇｖ［０］［０］＝＝＇ａ＇ ｜｜ ａｒｇｖ［０］［０］＝＝＇Ａ＇） ｓｅｔｄｉｓｋ（０）；
ｅｌｓｅ ｉｆ （ａｒｇｖ［０］［０］＝＝＇ｂ＇ ｜｜ ａｒｇｖ［０］［０］＝＝＇Ｂ＇） ｓｅｔｄｉｓｋ（１）；
ｅｌｓｅ ｛ｐｒｉｎｔｆ（＂请从安装盘进行安装 ！＂）；ｅｘｉｔ（０）；｝
ｗｉｎ（１，１，８０，２５，ＹＥＬＬＯＷ，ＢＬＵＥ）；
ｇｏｔｏｘｙ（２，３）；ｐｒｉｎｔｆ（＂ ９７０５“请你编程”安装程序＂）；
ｇｏｔｏｘｙ（２，４）；ｐｒｉｎｔｆ（＂＝＝＝＝＝＝＝＝＝＝＂）；
ｗｉｎ（１，２５，８０，２５，０，３）；
ｐｒｉｎｔｆ（＂Ｅｎｔｅｒ确认 Ｅｓｅ退出安装程序＂）；
ｗｉｎｄｏｗ（１，１，８０，２５）；
ｇｏｔｏｘｙ（１０，１０）；ｐｒｉｎｔｆ（＂请输入安装目标路径：＂）；
ｓｔｒｃｐｙ（ｐａｔｈ，ＰＡＴＨ）；
ｄｏ ｛ｉｆ （ｇｅｔｓｔｒ（１０，７０，１２，０，７，ｐａｔｈ）＝＝２８３） ｑｕｉｔ（）；
ｌｅｎｔｈ＝ｓｔｒｌｅｎ（ｐａｔｈ）；
ｉｆ（ｍｋｄｉｒ（ｐａｔｈ））
ｉｆ（！ ｆｉｎｄｆｉｒｓｔ（ｐａｔｈ，＆ｆ，５５））
｛ｉｆ （（ｆ．ｆｆ－ａｔｔｒｉｂ＆０ｘ１０）＝＝１６）
｛ｓｔｒｃｐｙ（ｍｅｓｓａｇｅ，＂子目录已经存在，继续安装吗（Ｙ／Ｎ）？＂）；
ｃｈ＝ｗｉｎｄ（１４，１６，６６，２２，０，７，＂提示信息＂，ｍｅｓｓａｇｅ）；
ｉｆ （ｃｈ！＝５４９７ ＆＆ ｃｈ！＝５４６５） ｑｕｉｔ （０）；
ｅｌｓｅ ｄｏｎｅ＝０；｝
ｅｌｓｅ ｛
ｓｔｒｃｐｙ（ｍｅｓｓａｇｅ，＂存在同名文件，不能建立子目录，按任意键＂）；
ｗｉｎｄ（１０，１６，７０，２２，０，７，＂ 错误信息 ＂，ｍｅｓｓａｇｅ）；
ｄｏｎｅ＝１；｝｝
ｅｌｓｅ ｉｆ （（ｌｅｎｔｈ＝＝３ ＆＆ ｐａｔｈ［２］＝＝＇＼＼＇）｜｜（ｌｅｎｔｈ＝＝２ ＆＆ ｐａｔｈ［１］＝＝＇：＇））
ｄｏｎｅ＝０；／＊输入的路径为根目录＊／
ｅｌｓｅ ｛ ｓｔｒｃｐｙ（ｍｅｓｓａｇｅ，＂路径输入错误，按任意键＂）；
ｗｉｎｄ（２０，１６，６０，２２，０，７，＂错误信息＂）；
ｄｏｎｅ＝１；｝ ｅｌｓｅ ｄｏｎｅ＝０；｝ ｗｈｉｌｅ （ｄｏｎｅ）；
ｗｉｎ（１，２５，８０，２５，０，３）；
ｐｒｉｎｔｆ（＂正在进行安装，按Ｅｓｅ退出安装程序＂）；
ｗｉｎ（１，１０，８０，２４，ＹＥＬＬＯＷ，ＢＬＵＥ）；
ｓｔｒｃｐｙ（ｐａｔｈｎａｍｅ，ｐａｔｈ）；／＊在目标路径的下一级子目录ｌｉｂ中安装文件＊／
ｉｆ（ｐａｔｈｎａｍｅ［ｌｅｎｔｈ－１］！＝"xlh＼＼"xlh） ｓｔｒｃａｔ（ｐａｔｈｎａｍｅ，＂＼＼＂）；
ｓｔｒｃａｔ（ｐａｔｈｎａｍｅ，＂ｌｉｂ＂）；
ｍｋｄｉｒ（ｐａｔｈｎａｍｅ）；
ｉｎｓｔａｌｌ（ｐａｔｈｎａｍｅ，＂ｄｅｍｏ．ｈｌｐ＂）；
ｉｎｓｔａｌｌ（ｐａｔｈｎａｍｅ，＂ｄｅｍｏ．ｄａｔ＂）；
ｓｔｒｃｐｙ（ｐａｔｈｎａｍｅ，ｐａｔｈ）；／＊在目标路径的下一级子目录ｃｐｐ中安装文件＊／
ｉｆ（ｐａｔｈｎａｍｅ［ｌｅｎｔｈ－１］！＝"xlh＼＼"xlh） ｓｔｒｃａｔ（ｐａｔｈｎａｍｅ，＂＼＼＂）；
ｓｔｒｃａｔ（ｐａｔｈｎａｍｅ，＂ｃｐｐ＂）；
ｍｋｄｉｒ（ｐａｔｈｎａｍｅ）；
ｄｏｎｅ＝ｆｉｎｄｆｉｒｓｔ（＂＊．ｃ＂，＆ｆ，５５）；
ｗｈｉｌｅ（！ｄｏｎｅ）
｛ ｉｎｓｔａｌｌ（ｐａｔｈｎａｍｅ，ｆ．ｆｆ－ｎａｍｅ）；
ｄｏｎｅ＝ｆｉｎｄｎｅｘｔ（＆ｆ）；｝
ｉｎｓｔａｌｌ（ｐａｔｈ，＂ｓｅｔｕｐ．ｅｘｅ＂）；／＊在目标路径中安装文件＊／
ｉｎｓｔａｌｌ（ｐａｔｈ，＂ｄｅｍｏ．ｅｘｅ＂）；
ｉｎｓｔａｌｌ（ｐａｔｈ，＂ｒｅａｄｍｅ＂）；
ｉｎｓｔａｌｌ（ｐａｔｈ，＂ｅｇａｖｇａ．ｂｇｉ＂）；
ｗｉｎ（１，５，８０，２５，１，１）；
ｓｔｒｃｐｙ（ｍｅｓｓａｇｅ，＂系统安装完毕，按任意键返回＂）；
ｗｉｎｄ（１４，１０，６６，１６，０，７，＂提示信息＂，ｍｅｓｓａｇｅ）；
ｗｉｎ（１，１，８０，２５，７，０）；
ｒｅｔｕｒｎ ０；｝
#2 子程序二：可以显示程序安装进度，其中ｆｉｌｅｎｕｍ为文件数，ｓｔｅｐ等于３７０．０／ｆｉｌｅｎｕｍ
ｆｏｒ（ｉ＝１；ｉ＜＝ｆｉｌｅｎｕｍ；ｉ＋＋）
｛ ｓｔｒｃｐｙ（＆ｆｆｉｌｅ［２］，ｆｌ．ｆｆ－ｎａｍｅ）；
ｓｔｒｃｐｙ（＆ｄｆｉｌｅ［８］，ｆｌ．ｆｆ－ｎａｍｅ）；
ｉｆ（（ｆｐ１＝ｆｏｐｅｎ（ｆｆｉｌｅ，＂ｒｂ＂））＝＝ＮＵＬＬ） ｒｅｔｕｒｎ ０；
ｉｆ（（ｆｐ２＝ｆｏｐｅｎ（ｄｆｉｌｅ，＂ｗｂ＂））＝＝ＮＵＬＬ） ｒｅｔｕｒｎ ０；
ｓｅｔｆｉｌｌｓｔｙｌｅ（ＳＯＬＩＤ－ＦＩＬＬ，ＬＩＧＨＴＧＲＡＹ）；
ｂａｒ（２２５，３５０，５００，４００）；
ｂｉｏｓｐｕｔｓ（２８，２１，ｆｆｉｌｅ，０ｘ７０）；
ｂｉｏｓｐｕｔｓ（２８，２２，ｄｆｉｌｅ，０ｘ７０）；
ｌｅｎｇｔｈ＝０；
ｗｈｉｌｅ（ｌｅｎｇｔｈ＜ｆｌ．ｆｆ－ｆｓｉｚｅ）
／＊拷贝一个文件＊／
｛ ｌｅｎ＝（ｌｅｎｇｔｈ＋１０２４）＜ｆｌ．ｆｆ－ｆｓｉｚｅ？１０２４：ｆｌ．ｆｆ－ｆｓｉｚｅ－ｌｅｎｇｔｈ；
ｆｒｅａｄ（ｂｕｆ，ｌｅｎ，１，ｆｐ１）；
ｆｗｒｉｔｅ（ｂｕｆ，ｌｅｎ，１，ｆｐ２）；
ｌｅｎｇｔｈ＋＝ｌｅｎ；｝
ｆｃｌｏｓｅ（ｆｐ１）；ｆｃｌｏｓｅ（ｆｐ２）；
ｓｅｔｆｉｌｌｓｔｙｌｅ（ＳＯＬＩＤ－ＦＩＬＬ，ＹＥＬＬＯＷ）；
ｂａｒ（１２８，４１４，１２８＋ｓｔｅｐ＊ｉ，４３１）；／＊用温度计演示拷贝过程＊／
ｉｆ（１２８＋ｓｔｅｐ＊ｉ＜３９＊８） ｔｅｘｔａｔｔｒ（０ｘ７ｆ）；
ｅｌｓｅ ｔｅｘｔａｔｔｒ（０ｘｅ０）；
ｇｏｔｏｘｙ（３９，２４）；ｃｐｒｉｎｔｆ（＂％２ｄ％％＂，（ｉ＊１００）／ｆｉｌｅｎｕｍ）；
ｆｉｎｄｎｅｘｔ（＆ｆｌ）；｝
ｃｈｄｉｒ（ｍｕｌｕ－ｎａｍｅ）；
ｒｅｔｕｒｎ １；｝
#2 子程序三：能比较当前磁盘剩余空间与当前拷贝文件大小，如果磁盘空间不足，显示错误
ｇｅｔｄｆｒｅｅ（ｇｅｔｄｉｓｋ（）＋１，＆ｆｒｅｅ）；
ｉｆ（ｉｎｆｏ．ｆｆ－ｆｓｉｚｅ＞（（ｌｏｎｇ）ｆｒｅｅ．ｄｆ－ａｖａｉｌ＊（ｌｏｎｇ）ｆｒｅｅ．ｄｆ－ｂｓｅｃ＊（ｌｏｎｇ）ｆｒｅｅ．ｄｆ－ｓｃｌｕｓ））
｛ ｗｉｎ（１９，１０，６２，１６，ＲＥＤ，ＹＥＬＬＯＷ，２，ＹＥＬＬＯＷ＋ＢＬＩＮＫ）；
ｇｏｔｏｘｙ（１９，２）；
ｃｐｕｔｓ（＂ＥＲＲＯＲ＂）；
ｇｏｔｏｘｙ（１０，４）；
ｃｐｕｔｓ（＂Ｔｈｅ ｓｐａｃｅ ｏｆ ｔａｒｇｅｔ ｄｉｓｋ ｉｓｎ｀ｔ ｅｎｏｕｇｈ＂）；
ｇｏｔｏｘｙ（１０，５）；
ｃｐｕｔｓ（＂ｐｒｅｓｓ ａｎｙ ｋｅｙ ｔｏ ｑｕｉｔ＂）；
ｉｆ（ｇｅｔｋｅｙ（））／＊按任意键退出＊／
ｅｘｉｔｉｎｓｔａｌｌ（）；｝
#2 子程序四：可以实现多盘安装
ｓｔｒｃａｔ（ｆｉｌｅ，＂＼＼ｄｉｓｋ．ｉｄ＂）；
ｉｆ（（ｆｐ＝ｆｏｐｅｎ（ｆｉｌｅ，＂ｒ＂））！＝＝ＮＵＬＬ）／＊安装盘上有ＤＩＳＫ．ＩＤ文件，为多盘安装；没有，只安装当前盘＊／
｛ｉ＝１；
ｆｓｃａｎｆ（ｆｐ，＂％ｄ％ｄ＂，＆ｎｕｍｂｅｒ，＆ｄｉｓｋ）；／＊读取磁盘标志＊／
ｆｃｌｏｓｅ（ｆｐ）；
ｗｈｉｌｅ（ｉ＜＝ｎｕｍｂｅｒ）
｛ｗｉｎ（２８，２０，５３，２４，ＧＲＥＥＮ，ＷＨＩＴＥ，２，ＷＨＩＴＥ）；／＊提示插入几号磁盘＊／
ｇｏｔｏｘｙ（２，３）；
ｃｐｒｉｎｔｆ（＂ｉｎｓｅｒｔ ％ｄ＃ ｄｉｓｋ＂，ｉ）；
ｉｆ（ｇｅｔｋｅｙ（）＝＝ＥＳＣ） ｅｘｉｔｉｎｓｔａｌｌ（）；
ｗｉｎ（２８，２０，５３，２４，ＢＬＡＣＫ，ＷＨＩＴＥ，０，ＷＨＩＴＥ）；
ｉｆ（ｉ！＝１）
｛ ｉｆ（（ｆｐ＝ｆｏｐｅｎ（ｆｉｌｅ，＂ｒ＂））＝＝ＮＵＬＬ）
ｄｉｓｋ＝－１；
ｅｌｓｅ ｆｓｃａｎｆ（ｆｐ，＂％ｄ％ｄ＂，＆ｎｕｍｂｅｒ，＆ｄｉｓｋ）；｝
ｉｆ（ｉ！＝ｄｉｓｋ）／＊如果当前插入磁盘序列号不等于安装号，提示错误＊／
｛ ｗｉｎ（２７，２１，５４，２５，ＲＥＤ，ＹＥＬＬＯＷ，２，ＹＥＬＬＯＷ＋ＢＬＩＮＫ）；
ｇｏｔｏｘｙ（２，２）；
ｃｐｒｉｎｔｆ（＂Ｔｈｅ ｄｉｓｋ ｉｓｎ｀ｔ ％ｄ＃ ｄｉｓｋ＂，ｉ）；
ｇｏｔｏｘｙ（２，３）；
ｃｐｒｉｎｔｆ（＂ｉｎｓｅｒｔ ％ｄ＃ ｄｉｓｋ＂，ｉ）；
ｇｏｔｏｘｙ（２，４）；
ｃｐｒｉｎｔｆ（＂ｐｒｅｓｓ ａｎｙ ｋｅｙ ｔｏ ｃｏｎｔｉｎｕｅ＂）；
ｉｆ（ｇｅｔｋｅｙ（）＝＝ＥＳＣ） ｅｘｉｔｉｎｓｔａｌｌ（）；
ｗｉｎ（２７，２１，５４，２５，ＢＬＡＣＫ，ＷＨＩＴＥ，０，ＷＨＩＴＥ）；｝
ｅｌｓｅ／＊如果当前插入磁盘序列号等于安装号，安装＊／
｛ ｗｉｎ（１３，１３，６８，１８，ＧＲＥＥＮ，ＷＨＩＴＥ，０，ＷＨＩＴＥ）；
ｐｒｏｃｅｓｓ（ｓｄｒｉｖｅｒ，ｄｉｒｅｃｔｏｒｙ）；
ｉ＋＋；｝ ｆｃｌｏｓｅ（ｆｐ）；｝ ｝
ｅｌｓｅ ／＊单盘安装＊／
｛ ｗｉｎ（１３，１３，６８，１８，ＧＲＥＥＮ，ＷＨＩＴＥ，０，ＷＨＩＴＥ）；
ｐｒｏｃｅｓｓ（ｓｄｒｉｖｅｒ，ｄｉｒｅｃｔｏｒｙ）；｝
ｃｈｄｉｒ（ｓ）；