#source("http://canisius.edu/~yany/data/crsp/crsp3.R")

.utilities<-function(){
"
 *------------------------------------------*
 * Utilities          -- short-cut --       *
 *------------------------------------------*
 * .inClassEx         # .ice                *
 * .getdata           # .gd                 *
 * .termProjects      # .tp      .tt        *
 * .allChapters       # .all                *
 * .calendar          # .cal                *
 * .addPosition2Line  # .ap                 *
 * .fun                                     *
 * .crsp                                    *
 *------------------------------------------*
 * >.ice              # see a list of ice   *
 * >.uu               # back to utilities   *
 * >.fm               # back to main menu   *
 *------------------------------------------*
"
.utilities_()
}

.utilities_<-function(){
cat(
" 
 *------------------------------------------*
 * Utilities          -- short-cut --       *
 *------------------------------------------*
 * .inClassEx         # .ice                *
 * .getdata           # .gd                 *
 * .termProjects      # .tp      .tt        *
 * .allChapters       # .all                *
 * .calendar          # .cal                *
 * .addPosition2Line  # .ap                 *
 * .fun                                     *
 * .crsp                                    *
 *------------------------------------------*
 * >.ice              # see a list of ice   *
 * >.uu               # back to utilities   *
 * >.fm               # back to main menu   *
 *------------------------------------------*
"
)
}

#.ap<-.addPosition2Line