00050 BEGIN 00100 STRING ARRAY S[1:10]; 00200 EXTERNAL INTEGER ARRAY A[0:511]; 00300 INTEGER ARRAY B[0:511]; 00400 ARRINFO (S,1); 00500 ARRBLT (A,B,511); 00600 END