Task

Display a word in inverse video   (or reverse video)   followed by a word in normal video.




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