2060 PRINT

2070 PRINT "END PROGRAM 48"

2080 STOP

3000 REM SUBROUTINE TO CHECK NUMBER OF TIMES THROUGH LOOP

PROGRAM FILE 48: LIMIT AND INCREMENT IN THE FOR-STATEMENT

ARE EVALUATED ONCE UPON ENTERING THE LOOP.

ANSI STANDARD 11.2, 11.4

SECTION 48.1: LIMIT AND INCREMENT IN THE FOR-STATEMENT
ARE EVALUATED ONCE UPON ENTERING THE LOOP.

10 PRINT "PROGRAM FILE 49: NESTED FOR-BLOCKS."

20 PRINT " ANSI STANDARD 11.2, 11.4′′

30 PRINT

40 PRINT "SECTION 49.1: NESTED FOR-BLOCKS."

50 PRINT

60 PRINT "THIS SECTION TESTS THAT FOR-BLOCKS MAY BE NESTED IN THE"

70 PRINT "TEXT OF THE PROGRAM, WITH SEPARATE CONTROL MAINTAINED" 80 PRINT "FOR EACH CONTROL-VARIABLE."

90 PRINT

220 PRINT "DETAIL LINES ARE INDENTED TO SHOW DEPTH OF NESTING." 230 PRINT

1120 PRINT TAB(2);2; TAB(12); J2; TAB(22); J1;TAB(32);M$ 1130 RETURN

1140 REM SUBROUTINE TO CHECK THAT K1=K2

1190 PRINT TAB(4); 3; TAB(14);K2; TAB(24);K1; TAB(34);M$ 1200 RETURN

1210 END

PROGRAM FILE 49: NESTED FOR-BLOCKS.

ANSI STANDARD 11.2, 11.4

SECTION 49.1: NESTED FOR-BLOCKS.

THIS SECTION TESTS THAT FOR-BLOCKS MAY BE NESTED IN THE
TEXT OF THE PROGRAM, WITH SEPARATE CONTROL MAINTAINED
FOR EACH CONTROL-VARIABLE.

BEGIN TEST.