bwBASIC/NBS2/P071.BAS

10 PRINT "PROGRAM FILE 71: EXCEPTION - SUBSCRIPT TOO SMALL FOR"
15 PRINT "        TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 0."
20 PRINT "    ANSI STANDARD 6.5, 15.2, 15.4"
30 PRINT
40 PRINT "SECTION 71.1: EXCEPTION - SUBSCRIPT TOO SMALL FOR"
50 PRINT "        TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 0."
70 PRINT
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 "    1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE"
150 PRINT "       DISPLAYED, AND"
160 PRINT
170 PRINT "    2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL"
180 PRINT "       SUBSCRIPT."
190 PRINT
200 PRINT "                               BEGIN TEST."
210 OPTION BASE 0
220 DIM B(11,3)
230 PRINT
240 FOR I=3 TO -2 STEP -1
250   PRINT "ABOUT TO ASSIGN TO B(";I;",3).";
260   IF I>-1 THEN 290
270   PRINT "*** EXCEPTION SHOULD OCCUR NOW ***"
280   GOTO 300
290   PRINT " ASSIGNMENT SHOULD BE OK."
300   LET B(I,3) = 20 - I
310   PRINT "HAVE ASSIGNED ";20-I;" TO B(";I;",3)."
320   IF I>-1 THEN 340
330   PRINT "ASSIGNMENT TO SUBSCRIPT < 0 - *** TEST FAILS ***"
340   PRINT
350 NEXT I
360 PRINT
370 PRINT "                                END TEST."
380 PRINT
390 PRINT "END PROGRAM 71"
400 END