QBASIC SERIES : 2,4,6....19TH TERM

CLS
 A = 2
 FOR I = 1 TO 19
 PRINT A,
 A = A+ 2
 NEXT I
 END

USING SUB

DECLARE SUB SERIES()
 CLS
 CALL SERIES
 END
 
 SUB SERIES
 A = 2
 FOR I = 1 TO 19
 PRINT A,
 A = A+ 2
 NEXT I
 END SUB