PROCEDURE GetObjName* (mod: Module; obj: Object; OUT name: Name);
   VAR p: StrPtr;
BEGIN
   p := S.VAL(StrPtr, S.ADR(mod.names[obj.id DIV 256]));
   WideStr(p$,name)
END GetObjName;

MODULE ЭтоПроба;

   IMPORT Log, Dialog;
   CONST
      α = 0;
      ω = 42;
      
   VAR Куку*: ARRAY ω OF CHAR;
     π*: REAL;
   
   PROCEDURE Раз*;
   BEGIN
      Log.String(Куку);Log.Ln;
      Log.Real(π);Log.Ln;
   END Раз;

   PROCEDURE Два*;
   BEGIN
      Куку := "Ха-Ха!";
      Dialog.UpdateString(Куку);
   END Два;

   PROCEDURE НапэўнаМожнаІТак*;
   BEGIN
      Куку := "Cапраўды!";
      Log.String(Куку);Log.Ln;
   END НапэўнаМожнаІТак;
   
   PROCEDURE УкраїнськуТежРозуміємо*;
   BEGIN
      Log.String("Це так!");Log.Ln;
   END УкраїнськуТежРозуміємо;
   
   PROCEDURE ĈiujLingvojTaŭgas*;
   BEGIN
      Log.String("Ĝoju!");Log.Ln;
   END ĈiujLingvojTaŭgas;

   PROCEDURE ΚατιΕλληνικο*;
   BEGIN
      Log.String("Γεια σας!");Log.Ln;
   END ΚατιΕλληνικο;

BEGIN
   π := 3.14;
   Куку := "Куку!";
END ЭтоПроба.

VAR subsidiär*:INTEGER;
PROCEDURE Manöver*;

VAR subsidiär: INTEGER;
PROCEDURE Manöver;