BYTE CHAR CALL ATTUNI(IDS) DO 100 IX=1,100 DO 101 IY=1,100 CALL UNIV(IX,IY,CHAR) WRITE (5,1) CHAR 1 FORMAT (' CHAR = ',A1) 101 CONTINUE 100 CONTINUE STOP END