SUBROUTINE APPEND_STRING@(LINE,ADDITION)
CHARACTER (LEN=*) LINE,ADDITION
Description
This routine adds the string ADDITION to the end of string LINE after removing
trailing spaces from LINE. This can be used to build up complex strings without
the need to do many substring calculations.
Example
PROGRAM SONG
CHARACTER (LEN=80)::LINE
CHARACTER (LEN=20)::SAYINT
INTEGER::NO_GREEN_BOTTLES
LINE='THERE ARE'
READ *,NO_GREEN_BOTTLES
IF(NO_GREEN_BOTTLES == 0)THEN
CALL APPEND_STRING@(LINE,' NO')
ELSE
CALL APPEND_STRING@(LINE,' '//SAYINT(NO_GREEN_BOTTLES))
ENDIF
CALL APPEND_STRING@(LINE,' STANDING ON A WALL')
CALL SOU@(LINE)
END PROGRAM SONG
