.版本 2

.程序集 窗口程序集1
.程序集变量 字符代码, 整数型

.子程序 子程序1, 逻辑型

.如果 (字符代码 ＜ 48 或 字符代码 ＞ 57)
    .如果 (字符代码 ≠ 8)
        返回 (0)
    .否则
        返回 (1)
    .如果结束

.否则

.如果结束



.子程序 _编辑框1_字符输入, 整数型

子程序1 ()