WAP to find/print series : 10,20,30,40,....100

Qbasic program to find/print series : 10,20,30,40,....100

10,20,30,40...100

CLS
 A = 1
 FOR I = 10 TO 100 STEP 10
 PRINT I,
 NEXT I
 END

USING SUB

DECLARE SUB SERIES()
 CLS
 CALL SERIES
 END
 
 SUB SERIES
 A = 1
 FOR I = 10 TO 100 STEP 10
 PRINT I,
 NEXT I
 END SUB