SUBROUTINE SWRITS ( IUNIT, CC, STRING ) C***************************************************************************** C C Description : Print STRING to unit IUNIT with control characters CC C This routine is used by the general routine SWRITE C C Arguments : IUNIT = unit number to write to C CC = two character control character string C STRING = string to be written C C Author : R. Beetz C AKZO PHARMA, Oss Holland C dept. SDA C C Version : V1.1 Date : 15-mar-83 C C Module name : SWRITS.FTN C C Package : RSX-LIBRARY C C Compilation/Linking : FOR/F4P/TR:NONE SWRITS C C Updates : name version C R. Beetz V1.1 C speeded up the writing (now in variable length format) C C description : C C***************************************************************************** C BYTE CC(2),STRING(80) C L=LEN(STRING)+1 IF (CC(2) .EQ. '$') 10,11,11 C THEN 10 IF (L .EQ. 1) 20,21,21 C THEN 20 WRITE(IUNIT,150) CC(1) 150 FORMAT(A1,$) GOTO 12 C ELSE 21 WRITE(IUNIT,160) CC(1),(STRING(I),I=1,LEN(STRING)) 160 FORMAT(A1,$) C ENDIF GOTO 12 C ELSE 11 IF (L .EQ. 1) 30,31,31 C THEN 30 WRITE(IUNIT,140) CC(1) 140 FORMAT(A1) GOTO 12 C ELSE 31 WRITE(IUNIT,170) CC(1),(STRING(I),I=1,LEN(STRING)) 170 FORMAT(A1) C ENDIF C ENDIF C 12 RETURN END