Appendix e turbo pascal by C. Ammeraal