.版本 2

.程序集 程序集1
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
    .局部变量 代码, 文本型

    代码 ＝ UTF8到文本 (读入文件 (“code-examples.ve”))
    解释代码入口 (代码)
    
    交互运行 ()
    
    .判断循环首 (真)
        标准输出 (, “> ”)
        解析命令 (标准输入 ())
    .判断循环尾 ()
    
    返回 (0) ' 可以根据您的需要返回任意数值
    

.子程序 解析命令
    .参数 命令, 文本型
    .局部变量 t, 文本型, 数组, "0"
    .局部变量 文件名, 文本型
    .局部变量 代码, 文本型

    ' 支持命令
    ' 「帮助」 「词法分析 some text」 「语法分析 some text」
    t ＝ 分割文本 (命令, “ ”, )
    
    
    .判断开始 (t [1] ＝ “帮助” 或 到半角 (t [1]) ＝ “?”)
        标准输出 (, #命令行帮助)
    .判断 (t [1] ＝ “词法分析”)
        词法分析并输出 (取文本右边 (命令, 取文本长度 (命令) － 取文本长度 (“词法分析”)))
    .判断 (t [1] ＝ “语法分析”)
        语法分析并输出 (取文本右边 (命令, 取文本长度 (命令) － 取文本长度 (“语法分析”)))
    .判断 (t [1] ＝ “运行” 或 t [1] ＝ “run”)
        文件名 ＝ t [2]
        代码 ＝ UTF8到文本 (读入文件 (文件名))
        解释代码入口 (代码)
    .判断 (t [1] ＝ “交互运行”)
        交互运行 ()
    .默认
        标准输出 (, “未知命令” ＋ #换行符)
    .判断结束
    

.子程序 连接字符串, 文本型
    .参数 字符串组, 文本型, 数组
    .参数 连接词, 文本型
    .局部变量 res, 文本型, 数组
    .局部变量 i, 整数型, 数组
    .局部变量 组长度, 整数型

    res ＝ “”
    组长度 ＝ 取数组成员数 (字符串组)
    
    .计次循环首 (组长度, i)
        res ＝ res ＋ 字符串组 [i]
        .如果真 (i ＜ 组长度)
            res ＝ res ＋ 连接词
        .如果真结束
        
    .计次循环尾 ()
    返回 (res)