SUBROUTINE REMARK (STRING)
      INTEGER STRING
      INTEGER C
      I=1
23000 CONTINUE
      C = BYTE(STRING,I)
      IF(.NOT.(C .EQ. 0))GOTO 23003
      GOTO 23002
23003 CONTINUE
      CALL PUTCH (C, 2)
23001 I=I+1
      GOTO 23000
23002 CONTINUE
      CALL PUTCH (10, 2)
      RETURN
      END