s file=##class(%File).%New()
  s file.Name="c:\boot.ini"
  d file.Open("RF:10")
  while 'file.AtEnd {w file.Read( 1 )}

s file=##class(%FileCharacterStream).%New()
s file.LineTerminator="," ;или $C( 9 )
s file.Filename="C:\AddressBook.csv"
s file.TranslateTable="CP1251"
while 'file.AtEnd {
  w file.ReadLine(),!
}

[boot loader]
timeout=5
default=multi(0)disk(0)rdisk(0)partition(1)\WINDOWS
[operating systems]
multi(0)disk(0)rdisk(0)partition(1)\WINDOWS="Microsoft Windows XP Professional RU" /fastdetect /NoExecute=OptOut

  s file=##class(%File).%New()
  s file.Name="c:\boot.ini"
  d file.Open("RF:10")
  while 'file.AtEnd {w "**",file.Read( 1 )}

**[boot load**er]
timeo**ut= 5 
defa**ult=multi(** 0 )disk( 0 )r**disk( 0 )par**tition( 1 )\**WINDOWS
[**operating **systems]
**multi( 0 )di**sk( 0 )rdisk**( 0 )partiti**on( 1 )\WIND**OWS="Micro**soft Windo**ws XP Prof**essional R**U" /fastde**tect /NoEx**ecute=OptO**ut**

  s file=##class(%File).%New()
  s file.Name="c:\boot.ini"
  d file.Open("RF:1")
  while 'file.AtEnd {w "**",file.Read( 10 )}

**[**b**o**o**t** **l**o**a**d**e**r**]**
****t**i**m**e**o**u**t**=** 5 **
  **d**e**f**a**u**l**t**=**m**u**l**t**i**(** 0 **)**d**i**s**k**(** 0 **)**r**d**i**s**k**(** 0 **)**p**a**r**t**i**t**i**o**n**(** 1 **)*****W**I**N**D**O**W**S**
****[**o**p**e**r**a**t**i**n**g** **s**y**s**t**e**m**s**]**
  **m**u**l**t**i**(** 0 **)**d**i**s**k**(** 0 **)**r**d**i**s**k**(** 0 **)**p**a**r**t**i**t**i**o**n**(** 1 **)**\**W**I**N**D**O**W**S**=**"**M**i**c**r**o**s**o**f**t** **W**i**n**d**o**w**s** **X**P** **P**r**o**f**e**s**s**i**o**n**a**l** **R**U**"** **/**f**a**s**t**d**e**t**e**c**t** **/**N**o**E**x**e**c**u**t**e**=**O**p**t**O**u**t**

d file.Open("RK\UTF8\F:10")

set file=##class(%File).%New()
set file.Name="C:\Boot.ini"
;d file.Open("R")
d file.Open("RK\UTF8\F:10")
while 'file.AtEnd {
  set len= 1 
  w "хотим прочитать ",len," символов",! 
  d file.Read(.len)
  w "фактически прочитано ",len," символов",! 
}