Block 4050
( lib.4th — shared serial output primitives )
( Common words reused by doe-campaign.4th and future capsules. )
( Load before any capsule that needs N. COMMA CRLF CSV-COL. )
: N. ( n -- )
  DUP 0 < IF 45 EMIT ABS THEN
  0 SWAP <# #S #> TYPE ;
: COMMA    44 EMIT ;
: CRLF     13 EMIT 10 EMIT ;
: CSV-COL  ( n -- ) N. COMMA ;
: CSV-LAST ( n -- ) N. CRLF ;
: Q.SHOW ( q -- ) Q.PRINT CR ;
CREATE IDENTITY-BANNER 128 ALLOT
VARIABLE IDENTITY-BANNER-LEN  0 IDENTITY-BANNER-LEN !
: STARTUP-BANNER ( -- ) IDENTITY-BANNER-LEN @ 0= IF
  ." (no identity)" CR EXIT THEN
  IDENTITY-BANNER IDENTITY-BANNER-LEN @ TYPE CR ;