33 string2(limit+1:limit+1) = char(0)
44 character*300 stringbuf
47 10
if (ichar(
string1(limit:limit)) .eq. 0) goto 20
48 stringbuf(limit:limit) =
string1(limit:limit)
52 20
if(limit.gt.1)
then
66 do 100 i = len(
string),1,-1
67 if (
string(i:i) .ne.
' ')
then