I hope they help. They were coded in my head as I haven't actually done fixed-point in Pascal before (only done it in C). So I hope they work.