PROGRAM FILE 17: ELEMENTARY USE OF GOSUB AND RETURN.
    ANSI STANDARD 10.2, 10.4

SECTION 17.1: ELEMENTARY USE OF GOSUB AND RETURN.

THIS PROGRAM TESTS THAT THE SUBROUTINE MECHANISM EXISTS
AND THAT A SUBROUTINE CAN BE INVOKED FROM SEVERAL
PLACES IN THE MAIN LINE OF CONTROL.

                           BEGIN TEST.

IF THE NEXT MESSAGE '***  GOSUB TEST PASSED  ***' IS
SPELLED CORRECTLY, THE TEST PASSED.

***  GOSUB TEST PASSED  ***

                           END TEST.

END PROGRAM 17

Program interrupted at line 230
