QBASIC SERIES : 100,99,98....2

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

USING SUB

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