QBASIC PATTERN :12345678,123456,1234,12

12345678
123456
1234
12

CLS
 FOR I = 8 TO 2 STEP -2
 FOR J = 1 TO I
 PRINT I;
 NEXT J
 PRINT
 NEXT I
 END

USING SUB

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