%begin
%include "inc:util.imp"
%include "inc:vtlib.imp"
%integer c
%cycle
%cycle
   set video mode(specialpad)
c=testsymbol
%repeatuntil c>=0
write(c,3); newline
%repeat
%endofprogram