BYTE ACCSCB,B; INTEGER IB(10),I,J,BB; EQUIVALENCE (B,BB) BB=0 DO I=0,90,10; { DO J=0,9; { B=ACCSCB(I+J) IB(J+1)=BB } WRITE(5,10) I,(IB(J),J=1,10); 10 FORMAT(11I6) } STOP END