PROGRAM FILE 108: INPUT TO SUBSCRIPTED VARIABLES.
    ANSI STANDARD 13.2, 13.4

SECTION 108.1: SIMPLE INPUT TO FILL ARRAY.

              BEGIN TEST.

PLEASE ENTER: 0 
? 0
PLEASE ENTER: 1 
? 1
PLEASE ENTER: 2 
? 2
PLEASE ENTER: 3 
? 3
PLEASE ENTER: 4 
? 4
PLEASE ENTER: 5 
? 5
PLEASE ENTER: 6 
? 6
PLEASE ENTER: 7 
? 7
PLEASE ENTER: 8 
? 8
PLEASE ENTER: 9 
? 9
PLEASE ENTER: 10 
? 10

                 CONTENTS OF ARRAY
SUBSCRIPT      SHOULD BE      ACTUAL
 0              7              7 
 1              3              3 
 2              2              2 
 3              1              1 
 4              9              9 
 5              4              4 
 6              8              8 
 7              0              0 
 8              10             10 
 9              5              5 
 10             6              6 

***  TEST PASSED  ***

              END TEST.


SECTION 108.2: INPUT OF SUBSCRIPT FOLLOWED BY SUBSCRIPTED
        VARIABLE.

             BEGIN TEST.

FOR THIS REPLY, STATEMENT IS: INPUT A(I),I,A(I),I,A(I)
PLEASE ENTER 500,6,600,2,200
? 500,6,600,2,200

                 CONTENTS OF ARRAY
SUBSCRIPT      SHOULD BE      ACTUAL
 0              10             10 
 1              11             11 
 2              200            200 
 3              13             13 
 4              14             14 
 5              500            500 
 6              600            600 
 7              17             17 
 8              18             18 
 9              19             19 
 10             20             20 

***  TEST PASSED  ***

               END TEST.


SECTION 108.3: NO ASSIGNMENT BEFORE VALIDATION OF INPUT.

                BEGIN TEST

THIS SECTION TESTS THAT NO ASSIGNMENT IS DONE BEFORE
THE ENTIRE REPLY IS VALIDATED.

PLEASE ENTER LINE NO. 1 FIRST. IT SHOULD BE REJECTED
BECAUSE OF INSUFFICIENT DATA AND YOU SHOULD BE ALLOWED
TO RE-SUPPLY INPUT. THEN ENTER LINE NO. 2 (NOTE THE SECOND
CHARACTER IS A COMMA RATHER THAN A PERIOD).

*** IF NOT ALLOWED TO RE-SUPPLY INPUT, TEST FAILS ***

THE ASSOCIATED INPUT STATEMENT IS: INPUT H,I,J,A(I),K,L
THEREFORE, AN 8 SHOULD BE PUT INTO A(1), AND NO OTHER
CHANGE MADE TO THE ARRAY.

LINE NO. 1:    3.1,6,8,9,11
LINE NO. 2:    3,1,6,8,9,11
? 3.1,6,8,9,11
*** Count Mismatch ***
*** Retry INPUT ***
? 3,1,6,8,9,11

                 CONTENTS OF ARRAY
SUBSCRIPT      SHOULD BE      ACTUAL
 0              0              0 
 1              8              8 
 2              200            200 
 3              300            300 
 4              400            400 
 5              500            500 
 6              600            600 
 7              700            700 
 8              800            800 
 9              900            900 
 10             1000           1000 

***  TEST PASSED  ***

                END TEST

SECTION 108.4: INPUT TO TWO-DIMENSIONAL ARRAY.

                 BEGIN TEST

STATEMENT FOR THIS REPLY: INPUT I,J,X(I,J)
PLEASE ENTER 2,3,999
? 2,3,999

X(I,J)         J=1            J=2            J=3
I= 1            1001           1002           1003 
I= 2            2001           2002           999 
I= 3            3001           3002           3003 
I= 4            4001           4002           4003 
I= 5            5001           5002           5003 

***  TEST PASSED  ***

                  END TEST

END PROGRAM 108

Program interrupted at line 1090
