%begin
%externalintegerfnspec testsymbol
%integer c
%cycle
%cycle; c=testsymbol; %repeatuntil c>=0
write(c,3); newline
%stop %if c = '*'
%repeat
%endofprogram