C THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED C OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. C C COPYRIGHT (C) 1978 DIGITAL EQUIPMENT CORPORATION. C SUBROUTINE PUTSTR ( LUN, AREA, CC, ERR ) LOGICAL*1 AREA(1), CC, ERR ERR = .FALSE. !INITIALIZE ERROR FLAG IF (CC) GOTO 1 !BRANCH IF CC NON-0 WRITE (LUN,9,END=2,ERR=3) (AREA(I),I=1,LEN(AREA)) GOTO 4 1 WRITE (LUN,9,END=2,ERR=3) CC,(AREA(I),I=1,LEN(AREA)) GOTO 4 2 ERR = -1 !END-OF-FILE GOTO 4 3 ERR = -2 !HARDWARE ERROR 4 RETURN 9 FORMAT (250(250A1)) END