Display comment

--
-- User display comment
--
: ===
  BEGIN
  "===" COUNT 2>R
  CR QUERY     
  1 PARSE 2R COMPARE
  0= UNTIL 2R> 2DROP
  QUIT ;
--
-- Example:
--

===
The word '===' provides the start of a display comment to
be entered from the terminal by the user. Lines entered
are echoed as normal but no action is taken on the data other
than testing for another input of '===' to close the comment.
The display comment is lines of clean text between a top
line of '===' and a bottom line of '==='.
The lines of text are 'clean' in the sense that no prefix
comment operator is needed for each line nor is there a
OK status after each line. Neither is there an OK status
after the closing '===' as the '===' word ends with QUIT .
===
CR CR CR


 OK
===
Note that above display comment was not scripted; that's not
its purpose. It was, however, copied from the clipboard.
This one here is entered from the terminal.
===
CR CR CR


 OK
===
The three CR's play no part in the comment. They are just
there to show that no OK was printed after the closing '==='
===
cr done cr
-fin-
 OK

--
me