QBASIC SERIES: 100,95,90,85.....UPTO 10TH TERM

CLS
 A = 100
 FOR I = 1 TO 10
 PRINT A;
 A = A - 5
 NEXT I
 END

USING SUB

DECLARE SUB SER()
 CLS
 CALL SER
 END
 
 SUB SER
 A = 100
 FOR I = 1 TO 10
 PRINT A;
 A = A - 5
 NEXT I
 END