1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 03:58:05 +11:00
collapseos/blk/442

12 lines
172 B
Plaintext
Raw Normal View History

2020-04-26 11:54:07 +10:00
( EMIT is needed for this unit to compile )
: (print)
BEGIN
C@+ ( a+1 c )
( exit if null )
DUP NOT IF 2DROP EXIT THEN
EMIT ( a )
AGAIN
;