subroutine squash(com_line,line_length) c c NU PRIME TIME FACILITY V 2.0 c Northeastern University Academic Computer Services c 360 Huntington Avenue c Boston, Mass 02115 c c David Bernardo, Author c c This routine removes all blanks from a command line. c character com_line*80 integer*2 i byte line_length,j j=0 do 5 i=1,line_length if(com_line(i:i).ne.' ')then j=j+1 com_line(j:j)=com_line(i:i) endif 5 continue line_length=j return end