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
10 mins
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
No Comments