QBasic Programming

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES

FOR I = 1 TO 5
FOR J = 1 TO I
PRINT J MOD 2;
NEXT J
PRINT
NEXT I
END SUB