C C SUBROUTINE UPRINT(STR) IMPLICIT INTEGER (A-Z) BYTE STR(1) L=LEN(STR,80) WRITE(5,1)(STR(I),I=1,L) 1 FORMAT(1X,80A1) RETURN END