1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 20:18:06 +11:00
collapseos/blk/403

8 lines
208 B
Plaintext
Raw Normal View History

: (emit)
DUP 0x08 = IF DROP _bs EXIT THEN
DUP 0x0d = IF DROP _lf EXIT THEN
0x20 - DUP 0< IF DROP EXIT THEN
XYPOS @ CELL!
XYPOS @ 1+ DUP [ COLS ROWS * LITN ]
= IF DROP 0 THEN XYPOS ! ;