call c_system_tput_cols(s, cl, cstat)

  read(s,*) nCols