{%option '-nolist'}
const BS=8;
      TAB=9;
      LF=10;
      FF=12;
      RT=13;
      ESC=27;
      DEL=127;
      SPECIALPAD=8192;
{ Video FUNction/MODE flag values:- }
      INTENSE=1;
      REVERSE=2;
      UNDERLINE=4;
      BLINK=8;
      GRAPHICAL=16;
      SHADE=31;
      FULLSCROLL=64;
      ANYSCROLL=128;  {FUN only}
      NOSCROLL=64;
      FREEZE=128;     {MODE only}


procedure CLEARFRAME %alias 'vtcframe' ;extern;
procedure AT %alias 'vtsetcursor' (row,col:integer);extern;
procedure SETVIDEOMODE %alias 'vtsetvideo' (mode:integer);extern;
procedure SETMODE %alias 'vtsetmode' (m:integer);extern;
procedure writestring %alias 'vtpstring' (s:string[255]);extern;
procedure writechar %alias 'vtpsym' (ch:char);extern;
procedure vtwrite(v,p:integer);extern;
procedure newline %alias 'vtnl' ;extern;