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

WAP TO PRINT ALL EVEN NUMBERS FROM 0 TO 100

EVEN NUMBERS UPTO 100

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

USING SUB

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