Terminal control/Inverse video: Difference between revisions

Content added Content deleted
m (added whitespace.)
m (→‎{{header|REXX}}: added/changed comments.)
Line 420: Line 420:
=={{header|REXX}}==
=={{header|REXX}}==
This version only works with PC/REXX and Personal Rexx.
This version only works with PC/REXX and Personal Rexx.
<lang rexx>/*REXX program to demonstrate reverse video. */
<lang rexx>/*REXX program demonstrates the showing of reverse video to the display terminal. */
@day = 'day'
@day = 'day'
@night = 'night'
@night = 'night'

call scrwrite , 1, @day, , , 7 /*white on black.*/
call scrwrite , 1+length(@day), @night, , , 112 /*black on white.*/
call scrwrite , 1, @day, , , 7 /*display to terminal: white on black.*/
/*stick a fork in it, we're done.*/</lang>
call scrwrite , 1+length(@day), @night, , , 112 /* " " " black " white.*/

exit 0 /*stick a fork in it, we're all done. */</lang><br><br>


=={{header|Ring}}==
=={{header|Ring}}==