collapseos/blk/443

17 lines
265 B
Plaintext
Raw Normal View History

2020-04-26 08:47:29 -04:00
: ,"
2020-04-25 21:54:07 -04:00
BEGIN
C<
( 34 is ASCII for " )
2020-04-26 08:47:29 -04:00
DUP 34 = IF DROP EXIT THEN C,
AGAIN ;
: ."
34 , ( 34 == litWord ) ," 0 C,
2020-04-25 21:54:07 -04:00
COMPILE (print)
; IMMEDIATE
: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE
: (uflw) ABORT" stack underflow" ;