
compiletoflash

: (* ( -- ) \ Long comment

begin
  token  \ Get next token
  dup c@ 0= if drop cr query token then  \ If length of token is zero, end of line is reached. Fetch new line. Fetch new token.
  s" *)" compare  \ Search for *)
until

immediate ;
