Ich habs gerade probiert. Dein Programm scheint auch unter
TP zu laufen. Im Source hab ich nur die Result's durch den entsprechenden Funktionsnamen ausgetauscht.
Du hast aber wohl mit dem Problem "Division durch Null" zukämpfen.
schau mal
hier nach, da sind ein ganze Reihe von Lösungen.
mfg
ps: ich musste
TP auch erstmal patchen bevor ich dein programm zum laufen bekam