2020-05-12 21:08:18 -04:00
|
|
|
: ,"
|
2020-05-08 20:55:50 -04:00
|
|
|
BEGIN
|
2020-05-12 21:08:18 -04:00
|
|
|
C<
|
|
|
|
|
( 34 is ASCII for " )
|
|
|
|
|
DUP 34 = IF DROP EXIT THEN C,
|
2020-05-08 20:55:50 -04:00
|
|
|
AGAIN ;
|
2020-05-12 21:08:18 -04:00
|
|
|
|
|
|
|
|
: ."
|
|
|
|
|
34 , ( 34 == litWord ) ," 0 C,
|
|
|
|
|
COMPILE (print)
|
|
|
|
|
; IMMEDIATE
|
|
|
|
|
: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE
|
2020-05-13 08:50:07 -04:00
|
|
|
: BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ;
|
|
|
|
|
: CRLF CR LF ; : SPC 32 EMIT ;
|
|
|
|
|
: NL 0x0a RAM+ @ ( NLPTR ) DUP IF EXECUTE ELSE DROP CRLF THEN ;
|
