perm filename DOBUG.SAI[S,AIL] blob sn#055578 filedate 1973-07-30 generic text, type T, neo UTF8
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