new file:   pascal.c