易语言控制台进度条

.版本 2

.子程序 时钟
.局部变量 计次, 整数型
.局部变量 进度, 文本型

进度 ＝ “>”
.计次循环首 (10, 计次)
延时 (500)
进度 ＝ “=” ＋ 进度
标准输出 (, 进度 ＋ tab ＋ 到文本 (计次 × 10) ＋ “%” ＋ 回车符)'最近迷上了黑月，越来越懒得画界面，想把之前的代码全部nogui化，非常简单的东西，搜了一下易语言居然没有，那我就写完随时上传一下。
.计次循环尾 ()
标准输出 (, “请输入一个整数” ＋ #换行符)
标准输入 (真)