QBASIC PROGRAM TO PRINT NATURAL NUMBERS UPTO 100

1,2,3,4......100

CLS 
 FOR I = 1 TO 100
 PRINT I,
 NEXT I
 END

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