42 string2(limit+1:limit+1) = char(0)
60 limit = index(
string2, achar(0) )
subroutine plstrc2f(string1, string2)
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer string1
if write to the Free Software C Franklin Fifth MA USA integer maxlen string2
subroutine plstrf2c(string1, string2, maxlen)