$DEFINE UNICODE

AUTODEFINE "OFF"

$DEFINE MAX_UNICHARS 1000  ' MAXIMUN NUMBER OF UNICODE CHARACTER ALLOWED/WANTED

DEF i:INT
DEF name:STRING
DEF ifile:FILE
DEF linein[100]:IWSTRING

OPENCONSOLE

name = "C:\\Users\\Bill\\Documents\\CSB\\Magento\\Magento-Regions\\Cities.txt"
IF (OPENFILE(ifile,name,"R") = 0)
	FOR i = 1 TO 20
		READ(ifile,linein)
		PRINT linein,LEN(linein),__CODEPAGE__
	NEXT i
ENDIF
CLOSEFILE ifile

DO : UNTIL INKEY$<>""
CLOSECONSOLE
END