> *---Determine if foxfont file needs to be copied into windows font directory > LOCAL lcFontDir, lcAppDir, lcWinFontDir > > *--Program font directory > lcFontDir = ".\fonts\" > > * Get current App directory from SYS(16). > lcAppDir = SUBSTR(SYS(16), 1, RAT('\',SYS(16),1)-1) > > * Get WinDir environment and find the Fonts directory. > lcWinFontDir = GETENV('windir')+'\Fonts' > > * Check that FoxFon.fon is in App directory and not in Fonts directory. > IF FILE(lcAppDir+'\foxfont.fon') AND !FILE(lcWinFontDir+'\foxfont.fon') > * Copy the file > COPY file (lcAppDir+'\foxfont.fon') ; > TO (lcWinFontDir+'\foxfont.fon') > SET MESSAGE TO && Clears "<nnnnn> bytes copied" from status bar > WAIT "" TIME 2 && Pause to allow font to be loaded > ELSE > *-- Is it in .\fonts\? > IF FILE(lcFontDir+'\foxfont.fon') AND !FILE(lcWinFontDir+'\foxfont.fon') > * Copy the file > COPY file (lcFontDir+'\foxfont.fon') ; > TO (lcWinFontDir+'\foxfont.fon') > SET MESSAGE TO && Clears "<nnnnn> bytes copied" from status bar > WAIT "" TIME 2 && Pause to allow font to be loaded > ENDIF > ENDIF >