8 lines
208 B
Plaintext
8 lines
208 B
Plaintext
|
: (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 ! ;
|