|
- .版本 2
- .程序集 程序集1
- .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
- .局部变量 代码页, 整数型
- 代码页 = 取代码页 ()
- .判断开始 (代码页 = 936)
- 控制台输出 (“你好,世界!”)
- .默认
- 控制台输出 (“Hello World!”)
- .判断结束
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 取代码页, 整数型, 公开
- .局部变量 临时文件名, 文本型
- .局部变量 返回文本, 文本型, , "0"
- 临时文件名 = 取临时文件名 ()
- .如果真 (运行 (“cmd /c chcp >” + 临时文件名, 真, 1) = 假)
- 返回 (0)
- .如果真结束
- 返回文本 = 分割文本 (到文本 (读入文件 (临时文件名)), “:”, )
- 删除文件 (临时文件名)
- 返回 (到整数 (返回文本 [2]))
- .子程序 控制台输出
- .参数 文本, 文本型
- 标准输出 (, 文本 + #换行符)
复制代码
|
|