%BEGIN !*********************************************************************** !* TESTS ASSIGNING TO STRING ARRAYS WHEN PASSED BY NAME * !*********************************************************************** %STRING(11)%ARRAY A(0:15,0:15) %ROUTINE FRED(%STRINGARRAYNAME WA) %STRING(15)W %INTEGER WP WP=1 W=WA(WP,WP) %IF W="?" %THEN WA(WP,WP)="ABCD" %END A(1,1)="?" FRED(A) PRINTSTRING(A(1,1)) %ENDOFPROGRAM