|
- PROGRAM FILE 95: GENERAL USE OF THE READ, DATA,
- AND RESTORE STATEMENTS.
- ANSI STANDARD 14.2, 14.4
-
- SECTION 95.1: GENERAL SYNTAX AND SEMANTICS OF READ AND DATA
-
- THIS SECTION EXERCISES SOME OF THE GENERAL CAPABILITIES
- AND PROPERTIES OF THE READ AND DATA STATEMENTS, AS LISTED:
- 1) READ AND DATA CAN MIX STRING AND NUMERIC DATA
- 2) CONTROL FALLS THROUGH DATA STATEMENTS WITHOUT EFFECT
- 3) DATA STATEMENTS MAY BE SCATTERED THROUGHOUT SOURCE
- 4) READ AND DATA LISTS CAN OVERLAP
- 5) READ CAN ACCESS DATA ANYWHERE IN SOURCE
-
- BEGIN TEST
-
-
- SHOULD BE: 1 A 2 B
- ACTUAL: 1 A 2 B
- READ OK
-
- SHOULD BE: 3 4 5 C
- ACTUAL: 3 4 5 C
- READ OK
-
- SHOULD BE: D E F 6 7
- 8
- ACTUAL: D E F 6 7
- 8
- READ OK
-
- SHOULD BE: 9
- ACTUAL: 9
- READ OK
-
- SHOULD BE: 10 11
- ACTUAL: 10 11
- READ OK
-
- *** TEST PASSED ***
-
- END TEST
-
- SECTION 95.2: RESTORE STATEMENT
-
- THIS SECTION TESTS THE CAPABILITY OF THE RESTORE STATEMENT
- TO ENABLE READING FROM THE BEGINNING OF THE DATA SEQUENCE.
- FURTHERMORE, DATA VALUES WHICH WERE ORIGINALLY READ AS
- NUMERIC MAY BE SUBSEQUENTLY READ AS STRINGS, AND
- VICE-VERSA, AS LONG AS DATA-TYPE IS COMPATIBLE WITH
- VARIABLE-TYPE.
-
- BEGIN TEST
-
- EXECUTE FIRST RESTORE
-
- SHOULD BE: 1 A 2 B 3
- 4 5
- ACTUAL: 1 A 2 B 3
- 4 5
- READ OK
-
- SHOULD BE: C D E F 6
- 7 8
- ACTUAL: C D E F 6
- 7 8
- READ OK
-
- EXECUTE SECOND RESTORE
-
-
- SHOULD BE: 1 A 2 B 3
- ACTUAL: 1 A 2 B 3
- READ OK
-
-
- *** TEST PASSED ***
-
- END TEST
-
- END PROGRAM 95
|
Ye Ol' π Shack