%externalroutine Cstring(%string(*) %name S,%integer bad{byte ad})
  %integer i, sbad, len
  len  = length(S)
  byteinteger(Bad+(i-1)) = byteinteger(Sbad + i) %for i=1,1,len
  byteinteger(Bad+len)=0
%end;! Cstring
%endoffile