|
12345678910111213141516 |
- : ,"
- BEGIN
- C<
- ( 34 is ASCII for " )
- DUP 34 = IF DROP EXIT THEN C,
- AGAIN ;
-
- : ."
- 34 , ( 34 == litWord ) ," 0 C,
- COMPILE (print)
- ; IMMEDIATE
-
- : ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE
-
- : (uflw) ABORT" stack underflow" ;
-
|