- 01
 - 02
 - 03
 - 04
 - 05
 - 06
 - 07
 - 08
 - 09
 - 10
 - 11
 - 12
 - 13
 - 14
 - 15
 - 16
 - 17
 - 18
 - 19
 - 20
 - 21
 - 22
 - 23
 - 24
 - 25
 - 26
 - 27
 - 28
 - 29
 - 30
 - 31
 - 32
 - 33
 - 34
 - 35
 - 36
 - 37
 - 38
 - 39
 - 40
 - 41
 - 42
 - 43
 - 44
 - 45
 - 46
 - 47
 - 48
 - 49
 - 50
 - 51
 - 52
 - 53
 - 54
 - 55
 - 56
 - 57
 - 58
 
                        procedure interpretation;
var
s,f:string;
i,m,v:integer;
begin
s:=#0;
for I:=0 to form9.Memo2.Lines.Count-1 do begin
  s:=form9.Memo2.Lines.Strings[i];//ïðîñìîòð ñòðîê èäåò
  //ñâåðõó âíèç
  if s='hex' then hex;
  if s='acsii' then acsii;
  if (s[1]='a') and (s[2]='d') and (s[3]='d') then begin
  form9.Edit6.Text:=s[5];
  form9.Edit5.Text:=s[7];
  peredsim;
  end;
  if (s[1]='s') and (s[2]='a') and (s[3]='m') then begin
  form9.Edit2.Text:=s[5];
  form9.Edit4.Text:=s[7];
  samsimbyl;
  end;
  if (s[1]='d') and (s[2]='e') and (s[3]='l') then begin
  form9.Edit3.Text:=s[5];
  for v:=1 to length(s) do
  deletesimbyl;
  end;
  if (s[1]='d') and (s[2]='e') and (s[3]='l') and (s[4]='s') then begin
  form9.Edit3.Text:=s[6];
  dels;
  end;
  if (s[1]='i') and (s[2]='n') and (s[3]='f') then begin
  form9.Memo1.Text:=s[5]+form9.Memo1.Text;
  end;
  if (s[1]='f') and (s[2]='n') and (s[3]='i') then begin
  form9.Memo1.Text:=form9.Memo1.Text+s[5];
  end;
  if (s[1]='p') and (s[2]='h') and (s[3]='e') then RapsrRedel;
  if (s[1]='n') and (s[2]='a') and (s[3]='b') then PerstNO;
  if (s[1]='a') and (s[2]='t') and (s[3]='s') then acsiitosim;
  if (s[1]='h') and (s[2]='t') and (s[3]='s') then hextosim;
  if (s[1]='h') and (s[2]='t') and (s[3]='a') then hextoacsii;
  if (s[1]='a') and (s[2]='t') and (s[3]='h') then acsiitohex;
end;
end;
                                     
        
            Нужно было быстро накодить интерпретатор, которым никто пользоваться не будет, кроме собственно автора программы, для создания простеньких скриптов (сами понимаете семантический анализатор писать, в данном случае не улыбалось).   Потому получился такой МегОАдЪовый говнокод!