1	SUB STRING_LENGTH(Check_String$,String_Length%)
2	!
	! This subroutine is used to enable fortran to figure out what
	! the length of a litteral string is without having to go
	! through the hassel of recounting it each time it changes.
	! Since fortran automatically appends trailing spaces to fill
	! up its fixed length strings, all trailing spaces and tabs will
	! be removed prior to counting.

10	Tmp$=EDIT$(Check_String$,128%)
	String_Length%=LEN(Tmp$)
20	END SUB
