( cond 22.06.01 )
\ condthens (Wil Baden)

0 constant cond  immediate

: thens
  begin  ?dup while  postpone then
  repeat 
; immediate

\eof

: .Char ( c -- )
  cond
    dup 0 = if ." NULL" else
    dup 1 32 within if [char] A + 1- ." ^" EMIT else
    dup 32 128 within if emit else
    drop ." Non-ASCII char"
  thens
;