mirror of https://github.com/hsoft/collapseos.git
10 lines
147 B
Plaintext
10 lines
147 B
Plaintext
|
: BS 8 EMIT ;
|
||
|
|
: LF 10 EMIT ;
|
||
|
|
: CR 13 EMIT ;
|
||
|
|
: CRLF CR LF ;
|
||
|
|
: SPC 32 EMIT ;
|
||
|
|
|
||
|
|
: (wnf) (print) SPC ABORT" word not found" ;
|
||
|
|
: (ok) SPC ." ok" CRLF ;
|
||
|
|
|