basis c program