QBASIC SERIES : 70,61,52,43,34,25,16,7

CLS
 FOR I = 70 TO 7 STEP -9
 PRINT I
 NEXT I
 END

USING SUB

DECLARE SUB SER()
 CLS
 CALL SER
 END
 
 SUB SER
 FOR I = 70 TO 7 STEP -9
 PRINT I
 NEXT I
 END SUB

USING FUNCTION

DECLARE FUNCTION SER(I)
CLS
FOR I = 7O TO 7 STEP -9
PRINT SER(I)
NEXT I
END

FUNCTION SER(I)
SER = I
END FUNCTION