Click above to get retro games delivered to your door ever month!

TEXT


Syntax:     TEXT [TO PRINT] [TO FILE <file>/(<expC>)]
            <text>...
            ENDTEXT

Purpose:    To display a block of text to the screen optionally echoing
            output to the printer and/or a text file.

Arguments:  <text> is the block of literal characters to display to
            the screen.  Text is displayed exactly as formatted.

Options:    Print: The TO PRINT clause echoes the display to the
            printer.

            File: The TO FILE clause echoes the display to the
            specified <file>.  If no extension is specified, (.txt) is
            added.

Usage:      Macro variables found within TEXT...ENDTEXT are expanded.
            Note, however, TEXT...ENDTEXT has no provision for
            word-wrapping.  Text is displayed exactly as encountered.

Library:    CLIPPER.LIB


----------------------------------- Example --------------------------------

   USE Sales

   DO WHILE .NOT. EOF()
      FormLetter()
      SKIP
   ENDDO

   RETURN


   PROCEDURE FormLetter

   salutation = TRIM(Salesman)
   date = DTOC(DATE())
   TEXT TO PRINT

   &date.

   Dear Mr. &salutation.,

   How are you!

   ENDTEXT
   EJECT

   RETURN