NewList l.s() ; Создаем лист, где будем хранить каждую строчку исходного кода 

Dim TEMP.s(20) ; Создаем массив для хранения временных записей (он нужен для вызова функций из DLL) 

OpenFile(0,"файл.txt") ; Открываем исходник и считываем текст построчно 
Repeat 
  AddElement(l.s()) 
  l.s()=ReadString(0) 
Until Eof(0) 
CloseFile(0) 

CreateFile(2,"файл.pb")

For t=0 To CountList(l())-1 ; первый проход 
  SelectElement(l(),t) ; проверяем каждую строчку на факт наличия директив перво проходной обработки 
  Select LCase(Left(Trim(l()),3)) 
    Case "cmd" ; тут предоставлена только одна директива - константная замена (следует помнить, что в интерпретируемых языках данные и исходный код есть одно и то-же) 
      b.s=Trim(ReplaceString(l(),"cmd","")) ; отделяем часть кода содержащую параметры директивы 
      a.s=StringField(b.s,0," ") ; подхватываем первый параметр - имя константы 
      b.s=Trim(ReplaceString(b.s,a.s,"")) ; обрезаем оставшийся код для получения значения подстановки 
      For m=0 To CountList(l())-1 ; производим замену константы во всём коде на её значение 
        SelectElement(l(),m) 
        l()=ReplaceString(l(),a.s,b.s) 
      Next m 
      SelectElement(l(),t) 
      DeleteElement(l()) ; удаляем строчку содержащею константу, ибо она нам больше не нужна 
  EndSelect ; домашнее задание: сделать поддержку меток для переходов (Подсказка: метка - это та-же константа, но ее значение автоматический устанавливается парсером и равно номеру текущей строчки) 
Next t 


For t=0 To CountList(l())-1 ; второй проход 
  SelectElement(l(),t) 
  Select LCase(StringField(Trim(l()),0," ")) ; определяем комманду 
    Case "call" ; функция вызова dll процедуры 
      a.s=Trim(ReplaceString(l(),"call","",1)) ; отщепляем параметры функции 
      a.s=ReplaceString(a.s,Chr(13),"") ; отщепляем нежелательные системные символы 
      a.s=ReplaceString(a.s,Chr(10),"")  
        WriteStringN(2,"OpenLibrary(0, "+Chr(34)+StringField(a.s,1,",")+Chr(34)+")")
        Command.s=""
        m=3
        cmd.s=Trim(StringField(a.s,2,",")) ; запоминаем имя процедуры
        Repeat ; время считать все параметры вызываемой процедуры 
          b.s=Trim(StringField(a.s,m,",")) 
          If b.s<>"" 
              Command+", "+b
          EndIf 
          m=m+1 
        Until b="" ; если параметров нет - выйти из цикла 
        If Command
          WriteStringN(2," CallFunction(0, "+Chr(34)+cmd+Chr(34)+Command+")")
        EndIf
        WriteStringN(2,"CloseLibrary(0)")
    Case "jmp" ; Вторая команда - прыжок через Х строк или безусловный относительный переход 
      a.s=Trim(ReplaceString(l(),"jmp","",1)) ; отделили единственный параметр 
      t=t+Val(Trim(a)) ; применили смещение 
  EndSelect ; ДОМАШНЕЕ ЗАДАНИЕ: сделать аналогичную функцию для условного перехода 
Next t 

CloseFile(2)