Невозможно прочитать файл размером больше 4085 байт.

Попробуйте использовать этот скрипт:  
global content [/file get [/file find name=test.txt] contents];
:global contentLen [:len $content];

:global lineEnd 0;  
:global line "";  
:global lastEnd 0;  

:do {  
      :set lineEnd [:find $content "\r\n" $lastEnd];
      :set line [:pick $content $lastEnd $lineEnd];
      :set lastEnd ($lineEnd + 2);  

      :local tmpArray [:toarray $line];
      :if ([:pick $tmpArray 0] != "") do={
          :put $tmpArray;  
          /ppp secret add name=[:pick $tmpArray 0] password=[:pick $tmpArray 1] \
              local-address=[:pick $tmpArray 2] remote-address=[:pick $tmpArray 3] \
              profile=[:pick $tmpArray 4] service=[:pick $tmpArray 5];
      }  
} while ($lineEnd < $contentLen)  

Но если файл больше 4085 байт, то ничего не происходит. Кто-нибудь может помочь с этим?