.版本 2
 
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
 
Write ()
返回 (0)  ' 可以根据您的需要返回任意数值
 
.子程序 Write
.局部变量 i, 整数型
 
.判断循环首 (i ≠ 100)
    i ＝ i ＋ 1
    标准输出 (1, 字符 (13) ＋ 到文本 (i) ＋ “%”)
    延时 (50)
.判断循环尾 ()