GNU Pascal port

clock function implemented