QBasic Programming

70   65   60   55   50
70   65   60   55
70   65   60
70   65
70

USING SUB PROCEDURE
DECLARE SUB SERIES ()

CLS
CALL SERIES
END

SUB SERIES
A = 50
B = 70
FOR I = A TO B STEP 5
FOR J = B TO I STEP -5
PRINT J;
NEXT J
PRINT
NEXT I

END SUB