ohh, adding old code in c and pascal