Hi Neil,
I think your idea of using a font different than Terminal is a good one, because the OEM Terminal screen font does not reside in the Windows 95 operating system but is a font that is subject to Windows 95 font substitution and you may get unexpected results down the road. However, I do not know how to print characters above chr(255). Also, you can use afont() to get an array of the available fonts in windows before you install a new font if necessary.
Tracy

>Hi Tracy,
>
>This looks great. I have another question.
>Is there a way to get vfp7 to print those characters, in a given font, whose character map puts them above chr(255) or do I just have to pick the correct font that puts the characters that I want below chr(255).
>
>For example: Arial is far more common a font than Terminal. Both Arial and Terminal have several bracketing characters. However, the Arial bracket characters are very high up in the character map and I can't seem to putput them in vfp7 via a chr(nnn) scheme. I also want to output to a web page and fear that not all of my user's browsers will have font Terminal installed. Most of my users will have font Arial installed.
>
>Any thoughts?
>Neil
>Neil
>
>>Hi Neil, I use the code below to install foxfont on user's computers if it is not there. There may be a better way, but this works for me.
>>
>>

>>	*---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
>>