Source code taken from here: http://sourceforge.net/projects/fis-gtm/files/GT.M-x86-Linux-src/V5.5-000/