( ASCII                           put ascii character on stack )

( used in the form:  )
(    ASCII <char>    )

: ascii                           ( --- n )
  bl word                         ( get next character)
  here 1+                         ( step over the length byte)
  c@                              ( fetch the character)
  [compile] literal               ( compile this character)
;
immediate                         ( execute during compiling)