QBASIC SERIES: 2,4,6,8 ..... 100

CLS
 FOR I = 2 TO 100 STEP 2
 PRINT I,
 NEXT I
 END

USING SUB

 DECCLARE SUB SER()
 CLS
 CALL SER
 END
 
 SUB SER
 FOR I = 2 TO 100 STEP 2
 PRINT I,
 NEXT I
 END SUB