Out.StringLn("Begin testing TestingProcedure");
TestingProcedure(_param_);
Out.StringLn("End testing TestingProcedure");
 

 
IF bDebug THEN
Out.StringLn("Begin test");
...
Out.StringLn("End test")
END;
 

 
 PROCEDURE УзнайИмяПроцедуры*(з:PROCEDURE):POINTER TO ARRAY OF CHAR;
  (* По мотивам StdDebug.ShowStack *)
 VAR ref, end, a: INTEGER; mod: Kernel.Module; 
 modName, name: Kernel.Name;
 res: INTEGER; nn: Kernel.Utf8Name;
 Результат : POINTER TO ARRAY OF CHAR;
 длинаРезультата : INTEGER;
 BEGIN 
  длинаРезультата := 1 (* символ конца строки *);
  a := SYSTEM.VAL(INTEGER,з); 
  mod := Kernel.modList;
  WHILE (mod # NIL) & ((a < mod.code) OR (a >= mod.code + mod.csize)) DO mod := mod.next END;
   IF mod # NIL THEN
    DEC(a, mod.code);
    IF mod.refcnt >= 0 THEN
    Kernel.GetModName(mod, modName); 
    INC(длинаРезультата,LEN(modName$));
    ref := mod.refs;
    REPEAT Kernel.GetRefProc(ref, end, nn) UNTIL (end = 0) OR (a < end);
    IF a < end THEN
     Strings.Utf8ToString(nn, name, res);   
     INC(длинаРезультата, 1 (* точка *) + LEN(name$));
     NEW(Результат, длинаРезультата);
     Результат^ := modName + "." + name;
     RETURN Результат END END END; 
   NEW(Результат, длинаРезультата);
   Результат^ := "";
   RETURN Результат END УзнайИмяПроцедуры;