Что?
Девайс?

А где его взять?

А само устройство?

А где взять печатную плату?

У файла закончился срок хранения. Перезалейте пожалуйста.

А для чего его загружать в редактор? Для изменения кода?
Здесь нужно поступить по другому. Прочитать строки из файла и проверить корректность данных (в строке должно быть ровно 11 символов и они должны иметь значение 0 или 1). Далее, нужно эту строку преобразовать в число. Это сделать не сложно, ведь по сути, данные строки, это числа в двоичной системе счисления и с помощью функции Val() достаточно просто преобразуются в десятичные числа.

String.s="10000000001"
Debug Val("%"+String)

Эти числа сохраняем где-нибудь, скажем, в массиве, типа Word.
После этого у нас уже есть данные, которые можно передать в USB порт помещая их в массив OutBytes() и вызывая процедуру SendDevice().

Ну пусть будет 18. Просто в примере было 11 символов.

Если 18, то понадобится массив типа Long.

Чего именно? Работы с массивами? Прочитать можно тут. http://www.pure-basic.narod.ru/docs/boo … s_List.htm

Ну примерно так (работу не проверял).
После выполнения процедуры, в списке DataFile() будут данные из файла, переведенный в десятичный формат.

Procedure.b TestBin_String(String.s)
  Protected Result.b, Len, i, Char.s
  
  Result = #True 
  Len=Len(String)
  For i=1 To Len
    Char=Mid(String, i, 1)
    If Char<>"0" And Char<>"1"
      Result = #False
      Break
    EndIf
  Next i
  
  ProcedureReturn Result
EndProcedure

Procedure ReadFile_BinString(File.s, List Info.l())
  Protected FileID, Number, String.s, ErrNumber
  
  ClearList(Info())
  Number=0
  ErrNumber=0
  
  FileID=ReadFile(#PB_Any, File)
  If FileID
    While Eof(FileID) = 0
      Number+1 
      String = ReadString(FileID)
      If Len(String)=18
        If TestBin_String(String)=#True ; Нет ошибок в строке
          If AddElement(Info())
            Info()=Val("%"+String)
          EndIf
        Else
          ErrNumber=Number ; В строке есть запрещенный символ.
          Break
        EndIf
      Else
        ErrNumber=Number ; Длина строки не равна 18 символов.
        Break
      EndIf
    Wend
    CloseFile(FileID)
  Else
    ErrNumber=-1 ; Ошибка открытия файла.
  EndIf

  ProcedureReturn ErrNumber
EndProcedure

NewList DataFile.l()

ReadFile_BinString("C:\Test.txt", DataFile())

Нужно вызвать процедуру ReadFile_BinString().
В ответ она вернет число -1, если не удалось открыть файл, 0 если все в порядке и число больше нуля, если есть ошибка в строке. Это число будет номером строки с ошибкой.
Если ошибок нет, то в списке, переданном через второй аргумент процедуры, будут числа, которые нужно передавать в USB.

Эта процедура сама загружает файл.

Загружаются все строки из файла, проверяется корректность данных и если ошибок нет, строка преобразовывается в число и записывается в список. Это происходит со всеми строками файла.

Правильно.
Ведь в последней строке (нижней) одни нули и именно эта строка была обработана последней и записана элемент списка, который является текущим.
Читать данные из списка нужно так:

ForEach DataFile()
  Debug DataFile()
Next

Нет, скорее так, потому что за раз передается один байт, а 18 светодиодов это больше двух байт.

ForEach DataFile()
  Info.l=DataFile()
  For i=0 To 2
    OutBytes(1) = Info  
    SendDevice()
    Info>>8
  Next i
Next

Смотря как будет все это работать.
Если в отдельном потоке, то перед Next нужно поставить Delay() с требуемым значением, а если по таймеру (скорее всего, в код не вникал), то нужно немного изменить конструкцию кода.

Procedure Timer_10()
  Shared DataFile()
  Static ListPos
  Protected ListSize, Info.l, i
  
  ListSize=ListSize(DataFile())
  If ListSize>0
    
    If ListPos > ListSize-1
      ListPos=0
    EndIf
    SelectElement(DataFile(), ListPos)
    
    Info=DataFile()
    For i=0 To 2
      OutBytes(1) = Info  
      SendDevice()
      Info>>8
    Next i
    
    ListPos+1
  EndIf

EndProcedure

Эту процедуру нужно вызывать по таймеру. Чем чаще будет вызываться, тем быстрее будет передаваться.