给程序自动加上行号的小程序

刘友生
1997-01-01

　　现在的程序大多采用结构化设计方法，一般不须写上行号，但在程序分析和说明时没有行号又不方便，这就需要给程序加上行号，下面的这个简单的ＢＡＳＩＣ语言程序可以帮助你自动实现这一过程。
　　ＤＩＭ　ａ＄（９９９）
　　ｉ＝１
　　ＩＮＰＵＴ　＂ｉｎｐｕｔ　ＳＯＵＲＣＥ　ｆｉｌｅｎａｍｅ：＂；ｓｏｕｒｃｅ＄
　　ＩＮＰＵＴ　＂ｉｎｐｕｔ　ＴＡＲＧＥＴ　ｆｉｌｅｎａｍｅ：＂；ｔａｒｇｅｔ＄
　　ＯＰＥＮ　ｓｏｕｒｃｅ＄　ＦＯＲ　ＩＮＰＵＴ　ＡＳ　＃１
　　ＯＰＥＮ　ｔａｒｇｅｔ＄　ＦＯＲ　ＡＰＰＥＮＤ　ＡＳ　＃２
　　ＤＯ　ＷＨＩＬＥ　ＮＯＴ　ＥＯＦ（１）
　　ＬＩＮＥ　ＩＮＰＵＴ　＃１，ａ＄（ｉ）
　　ｂ＄＝ＳＴＲ＄（ｉ）＋ＳＰＡＣＥ＄（２）＋ａ＄（ｉ）
　　ＰＲＩＮＴ　＃２，ｂ＄
　　ｉ＝ｉ＋１
　　ＬＯＯＰ
　　ＣＬＯＳＥ　　　　　　　　　　

 