WAP to generate the series : 100,99.....1

Qbasic program to generate the series : 100,99.....1

Qbasic program to print all numbers from 100 to 1

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

USING SUB

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