%begin
%owninteger print1=0,print2=0;              !print indicators
%constinteger stop=-5000;                   !loop stop (const)
%endofprogram