collapseos/arch/z80/ti84/blk/610

5 lines
125 B
Plaintext

: (emit)
DUP 0xd = IF DROP _lf EXIT THEN
DUP 0x20 0x7e =><= NOT IF DROP EXIT THEN
0x20 - FNTH * ~FNT + _glyph> ;