100 FOR I=1 TO 10
110   PRINT STR$(I);
120   IF MOD(I,5)=0 THEN
130     PRINT
140   ELSE
150     PRINT ", ";
160   END IF
170 NEXT