OPTION EXPLICIT

DIM i AS INTEGER

CLS
FOR i = 1 TO 10
 PRINT STR$(i);
 IF (i MOD 5) THEN PRINT ",";  ELSE PRINT
NEXT i
END