MODULE TestCallback;

   TYPE
      Callback* = PROCEDURE (n: INTEGER);

   VAR
      callback: Callback;
      n: INTEGER;

   PROCEDURE Setup* (c: Callback);
   BEGIN callback := c
   END Setup;

   PROCEDURE Do*;
   BEGIN callback(n); INC(n)
   END Do;

END TestCallback.

DevLinker.LinkDll TestCallback.dll := TestCallback# ~

namespace Callback
{
   class Program
   {
      public delegate void Callback (int n);

      [System.Runtime.InteropServices.DllImport("TestCallback.dll")]
      public static extern void Setup (Callback c);

      [System.Runtime.InteropServices.DllImport("TestCallback.dll")]
      public static extern void Do ();

      static void Main (string[] args)
      {
         Callback callback = new Callback(MyCallback);
         Setup(callback);
         Do(); Do(); Do(); Do();
         System.Console.ReadLine();
      }

      private static void MyCallback (int n)
      {
         System.Console.WriteLine("Callback: " + n);
      }
   }
}

MODULE ModuleA;
   IMPORT StdLog, WinApi;
      
   VAR   a*, b*: INTEGER;
      c*, d*: ARRAY 20 OF CHAR;
      e*, f*: ARRAY 20 OF SHORTCHAR;
                        
   PROCEDURE StringToString* (in: ARRAY OF CHAR; OUT out: ARRAY OF CHAR);
      VAR i, max: INTEGER;
   BEGIN i := 0; max := LEN(out)-1;
      WHILE (in[i] # 0X) & (i < max) DO
         IF ORD(in[i]) < 256 THEN out[i] := in[i] END;
         INC(i)
      END;
      out[i] := 0X
   END StringToString;
            
   PROCEDURE Messagebox*():INTEGER;
      VAR
         hWnd: WinApi.HWND;
         g, h: ARRAY 20 OF CHAR;
         lpText, lpCaption: WinApi.PtrSTR;
         uType: SET;
   BEGIN
      hWnd := a;
      StringToString(c, g);
      f := SHORT(g);
      StringToString(d, h);
      e := SHORT(h);
      lpText := f;
      lpCaption := e;
      uType := {b};
      RETURN WinApi.MessageBox(hWnd, lpText, lpCaption, uType);
   END Messagebox;
   
   PROCEDURE Start*;
      VAR n: INTEGER;
   BEGIN
      n := Messagebox();
      StdLog.Int(n); StdLog.Ln
   END Start;
   
END ModuleA.