      character line*80,token*30,scratch*30,fileID*30,chr1*1
         call gettkn(line,token,lth)
         call touppr(token,lth)
         if (lth.eq.0 .or. token.eq.'C' .or. token.eq.'/*') go to 25
         if (token.eq.'ASSIGN') then
         else if (token.eq.'AXIAL') then
         else if (token.eq.'BASIS') then
         else if (token.eq.'CARTESIAN' .or. token.eq.'CART') then
         else if (token.eq.'CONFIDENCE' .or. token .eq. 'CONF') then
         else if (token.eq.'CORRELATION' .or. token .eq. 'CORR') then
         else if (token.eq.'DATA') then
         else if (token.eq.'DELETE' .or. token.eq.'DEL' ) then
         else if (token.eq.'ECHO') then
            call gettkn(line,token,lth)
               scratch=token
               call ungett(token,lth,line)
         else if (token.eq.'FIT') then
         else if (token.eq.'FIX' .or. token.eq.'REMOVE') then
         else if (token.eq.'HELP') then
         else if (token.eq.'LET') then
         else if (token.eq.'LOG') then
         else if (token.eq.'PARMS') then
         else if (token.eq.'QUIT'.or.token.eq.'EXIT') then
         else if (token.eq.'READ' .or. token.eq.'CALL') then
         else if (token.eq.'RESET') then
         else if (token.eq.'SCALE') then
         else if (token.eq.'SEARCH') then
         else if (token.eq.'SERIES') then
         else if (token.eq.'SHIFT') then
         else if (token.eq.'SITES') then
         else if (token.eq.'SPHERICAL' .or. token.eq.'SPHER') then
         else if (token.eq.'STATUS') then
         else if (token.eq.'VARY') then
         else if (token.eq.'WRITE') then
            write(luttyo,1040) token(:lth)
