18.39  T2SQEZ 

     CALL T2SQEZ(str,ILEN)

Squeezes  out  multiple  blanks  from str, and returns the location of the
last non blank character in ILEN.