T_PTR
at_c(x,position)
   pdl*    x
   PDL_Long * pos = NO_INIT
   CODE:
    // code that does stuff
    OUTPUT:
     RETVAL