TRS-80 model III FORTRAN