perm filename STRBUG.SAI[NEW,AIL] blob sn#408231 filedate 1979-01-08 generic text, type T, neo UTF8
BEGIN
   STRING S;
   INTEGER I;
   FOR I ← 1 STEP 1 UNTIL 10000 DO
     BEGIN
        IF (I MOD 100) = 0 THEN OUTSTR(CVS(I)&" ");
       S ← S&" ";
     END;
END;