| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 列 | 整数型 | | |
| 行 | 整数型 | | |
| 页 | | | |
| n1 | 整数型 | | |
| 起始页 | 整数型 | | |
| 起始页画 | 整数型 | | |
| 字节数 | 整数型 | | |
| 行数组 | 文本型 | | 0 |
| 字节数组 | 文本型 | | 0 |
| 位 | 文本型 | | |
| n2 | 整数型 | | |
连续赋值 (“”, _2进制, _16进制, _51代码
)行数组 ＝
分割文本 (编辑框1.内容,
#换行符, )
计次循环首 (取数组成员数 (行数组
), n1
)
_51代码 ＝ _51代码 ＋ 行数组
[n1
]
计次循环尾 ()字节数组 ＝
分割文本 (_51代码,
“,”,
)调试输出 (取数组成员数 (字节数组
))
字节数 ＝
取数组成员数 (字节数组
)计次循环首 (总高 ÷ 8, 页
) 起始页画
＝ (页 － 1
) × 8 × 总宽
计次循环首 (总宽, 列
) n2 ＝ n2 ＋ 1
如果 (n2 ＞ 字节数
)
_2进制 ＝
“00000000”
_16进制 ＝
取文本右边 (字节数组
[n2
], 2
)
_2进制 ＝
取文本右边 (“00000000” ＋
进制转换 (_16进制, 16, 2
), 8
)
计次循环首 (8, 行
) 如果 (选择框_倒序.选中 ＝
真)位 ＝
取文本中间 (_2进制, 9 － 行, 1
)位 ＝
取文本中间 (_2进制, 行, 1
)如果 (位 ＝
“0”)画板1.**颜色 ＝ 点阵灭颜色
画板1.画笔颜色 ＝ 画板1.**颜色
画板1.**颜色 ＝ 点阵亮颜色
画板1.画笔颜色 ＝ 画板1.**颜色
n1 ＝ 起始页画 �
�� (行 － 1
) × 总宽 ＋ 列
画板1.
画矩形 (矩形
[n1
].左上X, 矩形
[n1
].左上Y, 矩形
[n1
].右下X, 矩形
[n1
].右下Y
)计次循环尾 ()计次循环尾 ()计次循环尾 ()