Return the code for the current paint character

WTSupported in traditional Synergy on Windows


USupported on UNIX
VSupported on OpenVMS
code = %PAINT

Return value


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


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


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 
    cur_paint           ,a1 
    dval                ,d3 
     if (%decml(%paint) .ne. %decml(a_paint)) 
       xcall paint(a_paint) 
       freturn (%true)