QBasic Programming

DECLARE SUB SERIES ()
CLS
CALL SERIES : END
SUB SERIES
FOR I = 8 TO 2 STEP -2
FOR J = 1 TO I
PRINT I;
NEXT J
PRINT
NEXT I
END SUB