## Код:
```
MODULE TmpSourcePos;

   IMPORT SYSTEM, Log, Kernel;

   CONST
      modName = "TmpSourcePos";

   PROCEDURE P;
   BEGIN
      Log.Int(934); Log.Ln
   END P;

   PROCEDURE Do*;
      VAR pc: INTEGER;
         mod: Kernel.Module;
   BEGIN
      pc := SYSTEM.ADR(Do);

      mod := Kernel.ThisMod(modName);

      Log.Int(Kernel.SourcePos(mod, pc - mod.code)); Log.Ln
   END Do;

END TmpSourcePos.
```
