Anonymous user
Terminal control/Inverse video: Difference between revisions
Added solution for Action!
(Added solution for Action!) |
|||
Line 40:
.null " normal" ; null terminated string
</lang>
=={{header|Action!}}==
<lang Action!>PROC PrintInv(CHAR ARRAY a)
BYTE i
IF a(0)>0 THEN
FOR i=1 TO a(0)
DO
Put(a(i)%$80)
OD
FI
RETURN
PROC Main()
Position(2,2)
PrintInv("Inverse")
Print(" video")
RETURN</lang>
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Inverse_video.png Screenshot from Atari 8-bit computer]
=={{header|Ada}}==
| |||