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

 DISPOUT()
 Write a value to the display
------------------------------------------------------------------------------
 Syntax

     DISPOUT(<exp>, [<cColorString>]) --> NIL

 Arguments

     <exp> is the value to display.

     <cColorString> is an optional argument that defines the display
     color of <exp>.  If unspecified, <exp> is displayed as the standard
     color of the current system color as defined by SETCOLOR().
     <cColorString> is a character expression containing the standard color
     setting.  You can specify a literal color setting, if you enclose it in
     quote marks.

 Returns


     DISPOUT() always returns NIL.

 Description

     DISPOUT() is a simple output function that writes the value of a single
     expression to the display at the current cursor position.  This function
     ignores the SET DEVICE setting; output always goes to the screen.  You
     can only use this function within a procedure or function.

 Examples

     .  This example performs screen output at a specified location in
        different colors.  Note how the cursor position is saved and restored
        using ROW(), COL(), and SETPOS():

        PROCEDURE Showit
           LOCAL nRow, nCol
           ? nCol := COL()           // save original
           ?? nRow := ROW()          // cursor position

           INKEY(2)

           SETPOS(nRow, nCol)
           DISPOUT("This is a test of DISPOUT()")
           ? COL()                   // display current
           ?? ROW()                  // cursor position

           INKEY(2)

           SETPOS(nRow, nCol)
           DISPOUT(space(26))        // clear original position
           SET DEVICE TO PRINTER     // ignores SET DEVICE
           SETPOS(nRow, nCol)        // display at
           DISPOUT("           all through")
                                     // original position


           RETURN

 Files:  Library is CLIPPER.LIB.