Here it is, is used Google translator, I only know "good morning" in French 
Program create french text on the screen and also try create french named file and then test it if it exist and write message in french to screen. It works fine in my system (Win10)
Program create french text on the screen and also try create french named file and then test it if it exist and write message in french to screen. It works fine in my system (Win10)
Code: (Select All)
Screen 0
_Font _LoadFont("C:\windows\fonts\cour.ttf", 20, "MONOSPACE")
Restore Microsoft_windows_cp1252:
For ASCIIcode = 128 To 255
Read unicode
_MapUnicode unicode To ASCIIcode
Next
Text$ = "Il s'agit d'un test de texte en français."
Print Text$
file$ = "DÉPOSER"
ff = FreeFile
Open file$ For Binary As ff
Close ff
If _FileExists(file$) Then Print "Fichier avec nom français créé": Kill file$ Else Print "Fichier avec nom français non créé"
End
Microsoft_windows_cp1252:
Data 8364,0,8218,402,8222,8230,8224,8225,710,8240,352,8249,338,0,381,0
Data 0,8216,8217,8220,8221,8226,8211,8212,732,8482,353,8250,339,0,382,376
Data 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
Data 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
Data 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207
Data 208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223
Data 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239
Data 240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255