mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 19:30:56 +11:00
16 lines
269 B
Plaintext
16 lines
269 B
Plaintext
|
: ."
|
||
|
|
34 , ( 34 == litWord )
|
||
|
|
BEGIN
|
||
|
|
C<
|
||
|
|
( 34 is ASCII for " )
|
||
|
|
DUP 34 = IF DROP 0 THEN
|
||
|
|
DUP C,
|
||
|
|
NOT UNTIL
|
||
|
|
COMPILE (print)
|
||
|
|
; IMMEDIATE
|
||
|
|
|
||
|
|
: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE
|
||
|
|
|
||
|
|
: (uflw) ABORT" stack underflow" ;
|
||
|
|
|