mirror of https://github.com/hsoft/collapseos.git
4 lines
103 B
Plaintext
4 lines
103 B
Plaintext
|
: (ok) SPC ." ok" NL ;
|
||
|
|
: (uflw) ABORT" stack underflow" ;
|
||
|
|
: (wnf) (print) SPC ABORT" word not found" ;
|