%PAINT

Return the code for the current paint character

WSupported on Windows

USupported on Unix

VSupported on OpenVMS

code = %PAINT

Return value

code

The decimal character code of the current paint character. (i)

Discussion

The default paint character code is 32 (an ASCII blank). You can change the paint character by calling the PAINT subroutine.

When you enable CRT mode using the FLAGS subroutine (runtime option flag 4), your program can initially display a data entry field as a sequence of paint characters. As the user enters data over the paint characters, they disappear, but if he or she deletes a character using Ctrl+U or Delete, the paint character reappears.

See also

• PAINT subroutine
• FLAGS subroutine

Examples

The following function is called to change the paint character. The new paint character is passed as an argument. If the current paint character is correct, no change is made.

function chk_paint 
    a_paint             ,a 
record 
    cur_paint           ,a1 
    dval                ,d3 
 
proc 
     if (%decml(%paint) .ne. %decml(a_paint)) 
       xcall paint(a_paint) 
       freturn (%true)
endfunction