%endoflist
%constinteger BS=8, TAB=9, LF=10, FF=12, RT=13, ESC=27
%constinteger DEL=127
%constinteger SINGLE=1<<2, NOECHO=1<<0, NOTERMECHO=1<<1,
              NOPAGE=1<<3,
              SPECIALPAD=1<<13
![**SINGLE until lower level more controllable**]
%constinteger SCREENMODE=single+notermecho+nopage
! Video FUNction/MODE flag values:-
%constinteger INTENSE=1, REVERSE=2, UNDERLINE=4, BLINK=8,
              GRAPHICAL=16, SHADE=31
%constinteger FULLSCROLL=64, ANYSCROLL=128;  !FUN only
%constinteger NOSCROLL=64, FREEZE=128;       !MODE only
%recordformat WININFO(%byteinteger top,rows,left,cols,
               row,col,fun,mode)
%externalrecord(wininfo)%spec VDU;  !full-screen frame
%externalrecord(wininfo)%spec WIN;  !current frame
@16_10CC%integerfn NEXTCH
@16_10C8%integerfn READCH
@16_10C0%routine PRINTCH(%integer k)
@16_10C8%routine SKIPCH
%external%routine%spec CLEAR LINE
%external%routine%spec CLEAR FRAME
%external%routine%spec SCROLL(%integer t,b,n)
%external%routine%spec SELECT INPUT(%integer n)
%external%routine%spec SELECT OUTPUT(%integer n)
%external%routine%spec PRINT SYMBOL(%integer sym)
%external%routine%spec AT(%integer row,col)
%external%routine%spec GOTOXY(%integer x,y)
%external%routine%spec SET MODE(%integer m)
%external%routine%spec SET SHADE(%integer s)
%external%routine%spec SET FRAME(%integer t,r,l,c)
%external%routine%spec PUSH WINDOW
%external%routine%spec POP WINDOW
%external%routine%spec SWOP WINDOW
%external%routine%spec SET VIDEO MODE(%integer mode)
%external%routine%spec READ SYMBOL(%integername k)
%external%integerfn%spec NEXT SYMBOL
%external%routine%spec SKIP SYMBOL
%external%routine%spec PRINT STRING(%string(255) s)
%external%routine%spec NEWLINE
%external%routine%spec NEWLINES(%integer i)
%external%routine%spec SPACE
%external%routine%spec SPACES(%integer i)
%external%routine%spec WRITE(%integer v,p)
%external%routine%spec READ %alias "vtread"(%integername v)
%list