.版本 2

.程序集 程序集1
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
    语法分析并输出 (“1 -( sin(2222, 4444, tan(5555) + arctan(6666)) - cos(3333) )* 4”)
    语法分析并输出 (“2*3-1*4+5/6-7*time()”)
    语法分析并输出 (“1 + sin(degree(30))”)
    语法分析并输出 (“3 * log(10, 100)”)
    语法分析并输出 (“4 / ((2-3) / (4/2))”)
    
    
    .判断循环首 (真)
        标准输出 (, “> ”)
        解析命令 (标准输入 ())
    .判断循环尾 ()
    
    返回 (0) ' 可以根据您的需要返回任意数值

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

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

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

    res ＝ “”
    .计次循环首 (取文本长度 (字符串组), i)
        res ＝ res ＋ 字符串组 [i]
    .计次循环尾 ()

