You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
307 B
Forth
19 lines
307 B
Forth
|
|
integer function lenstr(string)
|
|
character*(*) string
|
|
integer val,min,max
|
|
|
|
min=ichar('!')
|
|
max=ichar('z')
|
|
lenstr = len(string)
|
|
val=ichar(string(lenstr:lenstr))
|
|
do while(((val.lt.min).or.(val.gt.max)).and.(lenstr.gt.0))
|
|
lenstr = lenstr - 1
|
|
val=ichar(string(lenstr:lenstr))
|
|
end do
|
|
return
|
|
end
|
|
|
|
|
|
|