PRINT "HAVE ASSIGNED ";20-I;" TO B(0,";I;")." 310 320 IF I<13 THEN 340 330 340 PRINT "ASSIGNMENT TO SUBSCRIPT > 12 *** TEST FAILS ***"1 PROGRAM FILE 69: EXCEPTION SUBSCRIPT TOO LARGE FOR SECTION 69.1: EXCEPTION SUBSCRIPT TOO LARGE FOR TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 0. THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR TO PASS THIS TEST: 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL BEGIN TEST. ABOUT TO ASSIGN TO B(0, 9). ASSIGNMENT SHOULD BE OK. ABOUT TO ASSIGN TO B(0, 10 ). ASSIGNMENT SHOULD BE OK. ABOUT TO ASSIGN TO B(0, 11 ). ASSIGNMENT SHOULD BE OK. ABOUT TO ASSIGN TO B(0, 12). ASSIGNMENT SHOULD BE OK. ABOUT TO ASSIGN TO B(0, 13 ).*** EXCEPTION SHOULD OCCUR NOW *** ? DIMENSION ERROR IN LINE 300 10 PRINT "PROGRAM FILE 70: EXCEPTION - SUBSCRIPT TOO SMALL FOR" 15 PRINT " ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 0." 20 PRINT " ANSI STANDARD 6.5, 15.2, 15.4" 30 PRINT 40 PRINT "SECTION 70.1: EXCEPTION SUBSCRIPT TOO SMALL FOR" 50 PRINT " 60 PRINT ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 0." 70 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" 80 PRINT "RECOGNIZES USE OF A NEGATIVE SUBSCRIPT AS A FATAL EXCEPTION" 90 PRINT "WHEN OPTION BASE O HAS BEEN SPECIFIED." 100 PRINT 110 PRINT "TO PASS THIS TEST:" 120 PRINT 130 PRINT " 140 PRINT " 150 PRINT 160 PRINT " 170 PRINT " 180 PRINT 190 PRINT" 200 PRINT 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" 2) THE PROGRAM MUST TERMINATE UPON USE OF THE" 210 OPTION BASE O 220 FOR I=3 TO -2 STEP -1 230 PRINT "ABOUT TO ASSIGN TO A(";I;")."; IF I>-1 THEN 270 BEGIN TEST." PRINT "*** EXCEPTION SHOULD OCCUR NOW ***" PRINT " ASSIGNMENT SHOULD BE OK." PRINT "HAVE ASSIGNED ";20-1;" TO A(";I;")." 240 250 260 270 280 LET A(I) = 20 - I 290 300 IF I>-1 THEN 320 PRINT "ASSIGNMENT TO SUBSCRIPT < 0 *** TEST FAILS ***" END TEST." 360 PRINT 370 PRINT "END PROGRAM 70" 380 END PROGRAM FILE 70: EXCEPTION SUBSCRIPT TOO SMALL FOR ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 0. ANSI STANDARD 6.5, 15.2, 15.4 SECTION 70.1: EXCEPTION SUBSCRIPT TOO SMALL FOR ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 0. THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR TO PASS THIS TEST: 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE 2) THE PROGRAM MUST TERMINATE UPON USE OF THE BEGIN TEST. ABOUT TO ASSIGN TO A( 3 ). ASSIGNMENT SHOULD BE OK. 3). ABOUT TO ASSIGN TO A( 2 ). ASSIGNMENT SHOULD BE OK. ABOUT TO ASSIGN TO A( 1 ). ASSIGNMENT SHOULD BE OK. ABOUT TO ASSIGN TO A( 0 ). ASSIGNMENT SHOULD BE OK. ABOUT TO ASSIGN TO A(−1 ).*** EXCEPTION SHOULD OCCUR NOW *** ? DIMENSION ERROR IN LINE 280 10 PRINT "PROGRAM FILE 71: EXCEPTION 15 PRINT " 20 PRINT " 30 PRINT TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 0." ANSI STANDARD 6.5, 15.2, 15.4" 40 PRINT "SECTION 71.1: EXCEPTION - SUBSCRIPT TOO SMALL FOR" 50 PRINT " 70 PRINT TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 0." 80 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" 90 PRINT "RECOGNIZES A FATAL EXCEPTION WHEN A SUBSCRIPT EXCEEDS" 100 PRINT "THE EXPLICIT LOWER BOUND OF AN ARRAY." 110 PRINT 120 PRINT "TO PASS THIS TEST:" 130 PRINT 140 PRINT " 150 PRINT " 160 PRINT 170 PRINT " 180 PRINT " 190 PRINT 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL" SUBSCRIPT." 330 340 LET B(1,3) = 20 - I PRINT "HAVE ASSIGNED ";20-I;" TO B(";I;",3)." PRINT "ASSIGNMENT TO SUBSCRIPT < 0 *** TEST FAILS 350 NEXT I 360 PRINT 370 PRINT " 380 PRINT 390 PRINT "END PROGRAM 71" 400 END END TEST." PROGRAM FILE 71: EXCEPTION SUBSCRIPT TOO SMALL FOR SECTION 71.1: EXCEPTION SUBSCRIPT TOO SMALL FOR TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 0. THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR RECOGNIZES A FATAL EXCEPTION WHEN A SUBSCRIPT EXCEEDS THE EXPLICIT LOWER BOUND OF AN ARRAY. TO PASS THIS TEST: 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL SUBSCRIPT. BEGIN TEST. ABOUT TO ASSIGN TO B 3,3). ASSIGNMENT SHOULD BE OK. HAVE ASSIGNED 17 TO B( 3,3). ABOUT TO ASSIGN TO B( 2,3). ASSIGNMENT SHOULD BE OK. ABOUT TO ASSIGN TO B 1,3). ASSIGNMENT SHOULD BE OK. ABOUT TO ASSIGN TO B( 0,3). ASSIGNMENT SHOULD BE OK. HAVE ASSIGNED 20 TO B(0.3). ABOUT TO ASSIGN TO B(-1,3).*** EXCEPTION SHOULD OCCUR NOW *** ? DIMENSION ERROR IN LINE 300 黃黃 10 PRINT "PROGRAM FILE 72: EXCEPTION 15 PRINT " TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 1." 20 PRINT " ANSI STANDARD 6.5, 15.2, 15.4" 30 PRINT 40 PRINT "SECTION 72.1: EXCEPTION SUBSCRIPT TOO SMALL FOR" 50 PRINT " 70 PRINT TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 1." 80 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" 90 PRINT "RECOGNIZES USE OF A ZERO SUBSCRIPT AS A FATAL EXCEPTION WHEN" 100 PRINT "OPTION BASE 1 HAS BEEN SPECIFIED ALONG WITH A" 110 PRINT "TWO-DIMENSIONAL ARRAY SET UP WITH A DIM-STATEMENT." 120 PRINT 130 PRINT "TO PASS THIS TEST:" 140 PRINT 150 PRINT " 160 PRINT " 170 PRINT 180 PRINT " 190 PRINT " 200 PRINT 210 PRINT " 220 PRINT 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ZERO" 230 OPTION BASE 1 240 DIM B(12,4) 250 FOR I=4 TO -2 STEP -1 BEGIN TEST." 260 PRINT "ABOUT TO ASSIGN TO B(12,";I;")."; PRINT "*** EXCEPTION SHOULD OCCUR NOW ***" PRINT " ASSIGNMENT SHOULD BE OK." PRINT "HAVE ASSIGNED "; 10-I;" TO B(12,";I;")." 270 IF I>O THEN 300 280 290. GOTO 310 300 310 LET B(12,I)=10-I |