如何让老式Basic程序“升级”

Author: 周泽雁 Date: 1997-01-01

　　使用Ｂａｓｉｃ编程的用户都知道，以前在第一、二代Ｂａｓｉｃ下编制的源程序，不能直接放在目前的第三代ＱＢａｓｉｃ及第四代Ｖｉｓｕａｌ　Ｂａｓｉｃ下编辑和运行。这主要是因为老式Ｂａｓｉｃ程序语法虽与目前的ＱＢａｓｉｃ兼容，但其存储代码为非文本格式，不能在ＱＢａｓｉｃ下显示，更无法编辑、运行。笔者积有很多老式Ｂａｓｉｃ程序，弃之可惜。经过实践，本人发现可以通过管道命令实现老式Ｂａｓｉｃ程序向文本格式文件的转换。其方法如下：
#2　　一、在高版本ＤＯＳ下启动Ｂａｓｉｃ。
　　由于在高版本ＤＯＳ下运行Ｂａｓｉｃ，会出现“Ｉｎｃｏｒｒｅｃｔ　ＤＯＳ　Ｖｅｒｓｉｏｎ”出错信息，需用ＤＥＢＵＧ对Ｂａｓｉｃ．ｃｏｍ进行修改，使其跳过对ＤＯＳ版本号的判断，这样就可以在高版本ＤＯＳ下顺利运行Ｂａｓｉｃ了。取得ＤＯＳ版本号是通过ＤＯＳ功能调用ＩＮＴ　２１Ｈ的３０Ｈ功能来实现的，即：
　　ＭＯＶ　ＡＨ，３０
　　ＩＮＴ　２１
　　这两行的代码为Ｂ４　３０　ＣＤ　２１，故须作如下操作：
　　Ｃ：＼＞ＤＥＢＵＧ　ＢＡＳＩＣ．ＣＯＭ
　　－Ｓ　０，ＦＦＦＦ，Ｂ４，３０，ＣＤ，２１
　　－２２５６：２０４Ａ　　　；找到关键代码的段地址和偏移量
　　－Ｕ　２０４Ａ　　　；对源代码进行反汇编
　　ＭＯＶ　ＡＨ，３０
　　ＩＮＴ　２１
　　ＣＭＰ　ＡＬ，０３　　
　　ＪＺ　××××
　　……
　　用ＤＥＢＵＧ的Ａ命令将ＪＺ　××××改为ＪＭＰ　××××，再用Ｗ命令存盘，Ｑ命令返回ＤＯＳ下，这样Ｂａｓｉｃ就可以启动了。
#2　　二、假设对老版本Ｂａｓｉｃ程序ａｂｃ．ｂａｓ进行文本格式转换，结果为ｘｙｚ．ｂａｓ，以此为例，则在ＤＯＳ下输入如下命令：
　　Ｃ：＼＞ＢＡＳＩＣ＞ｘｙｚ．ｂａｓ
　　出现Ｂａｓｉｃ提示符“ＯＫ”，
　　ＯＫ
　　ＬＯＡＤ　＂ａｂｃ．ｂａｓ＂
　　ＯＫ
　　ＬＩＳＴ
　　……
　　ＯＫ
　　ＳＹＳＴＥＭ
　　此时，在当前目录下就会发现一个名为ｘｙｚ．ｂａｓ的文本文件，再用文本编辑器ＥＤＩＴ对其编辑，主要是将程序头尾的一些转换过程中产生的原Ｂａｓｉｃ信息行删去即可。这样程序ｘｙｚ．ｂａｓ就可以在ＱＢａｓｉｃ下运行了。