Q5
Single choice
In the following example how many lines, if any, will be printed?
GRAPH: PROC OPTIONS(MAIN);
DCL I FIXED BIN (31);
DCL POINTS FIXED BIN (31);
CALL INIT_POINTS;
DO I = 1 TO 100;
GET LIST(POINTS);
CALL PLOT_NEXT(POINTS);
END;
INIT_POINTS: PROC;
DCL I FIXED BIN (31);
DCL POINTS(1000) FIXED BIN (31);
DCL BAR CHAR (100) INIT((100)'*') STATIC;
DO I 1 TO 10;
POINTS(I) = I;
PUT SKIP LIST (POINTS(I),SUBSTR(BAR,1,I));
END;
RETURN;
PLOT_NEXT: ENTRY(I);
POINTS(I) = I;
PUT SKIP LIST(POINTS(I),SUBSTR(BAR,1 I));
END;
END GRAPH;