 { This include file contains procedures to enhance C128 video }

  procedure BlinkVideo; { characters blink at half cursor speed }

    begin
      write(^['G2')
    end;

  procedure ReverseVideo; { characters are displayed in background colour