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

dfSay()
Displays a string on the screen
------------------------------------------------------------------------------
Syntax:

     dfSay( <nRow>, <nCol>, <cString>,;
            [<cColorString>], [<cColorControl>] ) --> NIL

Parameters:

     <nRow>     Row.
     <nCol>     Column.
     <cString>  String to display.
     <cColorString> Color string. The default is the current SETCOLOR().
     <cColorControl> Background color. The default is the current
     cColorString.

Returns:

     NIL

Description:

     Displays a string on the screen. Characters preceded by '^' are
     displayed in a different color.

Example:

     * ###############################
     PROCEDURE tSay()
     * ###############################
     LOCAL nTime, nLoop
     
     CLS
     
     // test dfsay
     //            Value         Aspected
     dfsay( 0,1, "Matteo" )   // Matteo
     dfsay( 1,1, "M^atteo" )  // Matteo
     dfsay( 2,1, "M^at^teo" ) // Mat^teo
     
     dfsay( 3,1, "Matteo"   , "W+/B" )
     dfsay( 4,1, "M^atteo"  , "W+/B" )
     dfsay( 5,1, "M^at^teo" , "W+/B" )
     
     dfsay( 6,1, "Matteo"   , "W+/B", "R+/B" )
     dfsay( 7,1, "M^atteo"  , "W+/B", "R+/B" )
     dfsay( 8,1, "M^at^teo" , "W+/B", "R+/B" )
     
     dfsay( 9,1, "Matteo"   ,       , "R+/B" )
     dfsay(10,1, "M^atteo"  ,       , "R+/B" )
     dfsay(11,1, "M^at^teo" ,       , "R+/B" )
     
     // Say Benchmark
     @ 12,1 SAY ( nTime := Seconds() )
     FOR nLoop := 1 TO 1000
        @ 12, 15 SAY "Matteo" COLOR "W+/N"
     NEXT
     @ 12,22 SAY Seconds() - nTime
     @ 12,35 SAY [@ 12, 15 SAY "Matteo" COLOR "W+/N"]
     
     @ 13,1 SAY ( nTime := Seconds() )
     FOR nLoop := 1 TO 1000
        dfSay( 13, 15, "Matteo", "W+/N", "R+/B" )
     NEXT
     @ 13,22 SAY Seconds() - nTime
     @ 13,35 SAY [dfSay( 13, 15, "Matteo", "W+/N","R+/B")]
     
     @ 14,1 SAY ( nTime := Seconds() )
     FOR nLoop := 1 TO 1000
        dfSay( 14, 15, "^Matteo", "W+/N", "R+/B" )
     NEXT
     @ 14,22 SAY Seconds() - nTime
     @ 14,35 SAY [dfSay( 13, 15, "^Matteo","W+/N","R+/B")]
     
     @ 15,1 SAY ( nTime := Seconds() )
     FOR nLoop := 1 TO 1000
        dfSay( 15, 15, "^Matteo" )
     NEXT
     @ 15,22 SAY Seconds() - nTime
     @ 15,35 SAY [dfSay( 13, 15, "^Matteo" )]
     
     @ 16,1 SAY ( nTime := Seconds() )
     FOR nLoop := 1 TO 1000
        dfSay( 16, 15, "^Matteo", , "R+/B" )
     NEXT
     @ 16,22 SAY Seconds() - nTime
     @ 16,35 SAY [dfSay( 13, 15, "^Matteo", , "R+/B" )]
     
     RETURN

See also:

     dfCngAtr(), dfFill()