PROGRAM FILE 93: READ AND DATA STATEMENTS FOR STRING DATA.
    ANSI STANDARD 3.2, 5.2, 14.2, 14.4

SECTION 93.1: READ AND DATA STATEMENTS FOR STRING DATA

THIS SECTION TESTS THE ABILITY TO PICK UP STRING (CHARACTER)
DATA USING THE READ STATEMENT. VARIOUS SYNTACTIC VARIATIONS
ARE TESTED, ESPECIALLY FOR DATA FORMATS.

PLEASE NOTE THAT THIS ROUTINE IS STRONGLY DEPENDENT
ON THE CORRECT OPERATION OF THE STRING COMPARISON
FEATURE. IF THAT FEATURE IS INCORRECT, THIS ROUTINE
WILL LIKELY GIVE INVALID RESULTS.

THE VALUES FROM THE DATA STATEMENT ARE COMPARED TO THOSE
ASSIGNED TO STRING VARIABLES. THE EXPECTED AND ACTUAL
RESULTS ARE DISPLAYED, AND AN ERROR COUNT MAINTAINED.
THE READ STATEMENT IS USED WITH SEVERAL VARIABLES IN
THE VARIABLE LIST.

                BEGIN TEST



SHOULD BE: ***ABCD***
ACTUAL:    ***ABCD***
TEST OK


SHOULD BE: ***EFGHIJKLM***
ACTUAL:    ***EFGHIJKLM***
TEST OK


SHOULD BE: ***ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+.   -***
ACTUAL:    ***ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+.   -***
TEST OK


SHOULD BE: ***EIGHTEEN POSITIONS***
ACTUAL:    ***EIGHTEEN POSITIONS***
TEST OK


SHOULD BE: ***ABCDEFGHI2.1E3***
ACTUAL:    ***ABCDEFGHI2.1E3***
TEST OK


SHOULD BE: ***ABC      DEF      GHI***
ACTUAL:    ***ABC      DEF      GHI***
TEST OK


SHOULD BE: ***A   BC   D***
ACTUAL:    ***A   BC   D***
TEST OK


SHOULD BE: ***A  B  C  D  E  F***
ACTUAL:    ***A  B  C  D  E  F***
TEST OK


SHOULD BE: ***AB,CD***
ACTUAL:    ***AB,CD***
TEST OK


SHOULD BE: ***ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789***
ACTUAL:    ***ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789***
TEST OK


SHOULD BE: ***!#$%&'()*+,-./:;<=>?^_***
ACTUAL:    ***!#$%&'()*+,-./:;<=>?^_***
TEST OK


*** TEST PASSED ***

                  END TEST

END PROGRAM 93
