SUBROUTINE TRIM( STRING ) C*********************************************************************** C C Description : Deletes trailing spaces and tabs from a string C C Arguments : STRING = BYTE array containing the trimmed string C C Author : T.Pijl C AKZO PHARMA, Oss Holland C dep. SDA C C Version : V1.0 Date : 14-dec-82 C C Module name : TRIM.FTN C C Package : RSX-LIBRARY C C Compilation/ C taskbuilding : FOR/F4P/TR:NONE TRIM C C Updates : name version C C description : C C************************************************************************ BYTE STRING(1) C DO 10 I=LEN(STRING),1,-1 IF( STRING(I) .NE. 9 .AND. STRING(I) .NE. 32 ) GOTO 90 STRING(I)=0 10 CONTINUE 90 RETURN END