模拟DOS控制台

.判断循环首 (dos.GetRunStatus ())
延时 (50)
.如果真 (dos.GetHWnd () ≠ 0)
str ＝ dos.ReadPipe (255)
.如果真 (str ≠ 取空白文本 (0))
comdline ＝ 到小写 (GetCommandLine ())
.如果真 (删全部空 (comdline) ＝ “cls”)
TextBox1.内容 ＝ 取空白文本 (0)
.如果真结束
.如果真 (取文本左边 (comdline, 6) ＝ “title ”)
num ＝ 取文本右边 (comdline, 取文本长度 (comdline) － 倒找文本 (comdline, “title ”, , 假))
num ＝ 取文本右边 (num, 取文本长度 (num) － 5)
标题 ＝ num
.如果真结束
TextBox1.加入文本 (子文本替换 (str, 字符 (12), 取空白文本 (0), , , 假))
.如果真结束

.如果真结束

.判断循环尾 ()