1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

library Parcival;

uses
  SysUtils,
  Windows,
  StrUtils,
  Math,
  Graphics;

var err,itr:^Integer;
  
{$R *.res}

function Parse(fx2:ANSIString;term2:PChar;fehler,iterations:Integer):Integer;stdcall;
var h,g,f,e:Integer;goon,comma:Boolean;fx,z,p,q,es:ANSIString;x,y,ze:Extended;tr:TRoundToRange;
begin
err:=Ptr(fehler);
itr:=Ptr(iterations);
//Code...z.B: itr^:=25; ...
exit;
Result:=0;
end;


exports Parse name 'Parse';

begin
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure foo;
label xy; //deklaration des labels
begin
 if...
  if...
    if...
  end...
   if ....
    while...
//      fehler
      if fehler then goto xy; // zum label springen
     for...
       case...
         if....
 ...
xy; //sprungziel
 ...
end;