DIM hFile AS Stream
DIM sUneLigneNonUTF8 AS String
DIM sLigneUTF8 as String

' Imprime un fichier texte WINDOWS-1253 sur la sortie standard
hFile = OPEN "/home/ilias/destextesengrecsWINDOWS-1253.txt" FOR INPUT

WHILE NOT Eof(hFile)
  LINE INPUT #hFile, sUneLigneNonUTF8
  sLigneUTF8 = Conv$(sUneLigneNonUTF8, "WINDOWS-1253", "UTF-8")
  PRINT sLigneUTF8
  'alternative
  'LINE INPUT #hFile, sUneLigneNonUTF8
  'PRINT Conv$(sUneLigneNonUTF8, "WINDOWS-1253", "UTF-8")
WEND
FINALLY ' Toujours exécutée, même si une erreur est levée
  CLOSE #hFile
CATCH ' exécutée seulement si erreur
  PRINT "Ne peux pas imprimer ou lire ou convertir les lignes du fichier "; "/home/ilias/destextesengrecsWINDOWS-1253.txt"