00100 BEGIN "DOBUG" 00200 INTEGER I; 00300 DO 00400 BEGIN 00500 OUTSTR(CVS(I←I+1)&'15&'12); 00550 IF I > 15 THEN CONTINUE; 00600 IF I> 10 THEN DONE ELSE CONTINUE; 00700 END UNTIL(I>11); 00800 END