1	SUB STRING_SIZE(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.

10	String_Length%=LEN(Check_String$)
20	END SUB