Page images
PDF
EPUB
[merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][ocr errors][merged small][merged small][merged small][merged small]

2060 PRINT

2070 PRINT "END PROGRAM 48"

2080 STOP

3000 REM SUBROUTINE TO CHECK NUMBER OF TIMES THROUGH LOOP

[blocks in formation]

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.

[blocks in formation]
[merged small][subsumed][subsumed][subsumed][subsumed][subsumed][subsumed][ocr errors][subsumed][subsumed][subsumed][subsumed][subsumed][merged small][merged small][subsumed][subsumed][subsumed][subsumed][subsumed][subsumed][subsumed][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small]

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

[blocks in formation]

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

[blocks in formation]

170 PRINT "

180 PRINT "

190 PRINT "

1) DEPTH OF NESTING"

2) CORRECT VALUE FOR CONTROL VARIABLE" 3) ACTUAL VALUE OF CONTROL VARIABLE" 200 PRINT " 4) RESULT (OK OR FAILED)"

210 PRINT

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

240 LET T1=0

250 LET 12=12

260 PRINT E$;" 1"

270 FOR I1=12 TO O STEP -1

[blocks in formation]
[blocks in formation]

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

1140 REM SUBROUTINE TO CHECK THAT K1=K2

[blocks in formation]

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.

« PreviousContinue »