взяти визначення мавка;
простір мавка {
внутрішня дія дія_перебору_задіяних_виводу(М: *Машина, задіяні: Задіяні, розмір_позиційних: п32, позиція: п32, значення: Значення, аргумент: адреса) {
змінна розмір_відступів = (аргумент як *природне)::вміст;
вивести_значення(М, значення, розмір_відступів, 0);
якщо (позиція != (розмір_позиційних - 1)) {
вивести_кд(М, " ");
}
}
внутрішня дія рідна_дія_друк(
М: *Машина,
діяльність: *Діяльність
) -> ЗначенняАбоСтанПадіння {
змінна задіяні = діяльність.задіяні;
змінна розмір_відступів: природне = 2;
якщо задіяні.розмір > 0 {
перебрати_позиційні_задіяні(
М,
задіяні,
дія_перебору_задіяних_виводу,
розмір_відступів::адреса
);
}
вивести_кд(М, "\р");
вернути НЕДІЙСНЕ;
}
дія створити_і_призначити_дію_друк(М: *Машина) {
змінна дія_друк = створити_рідну_дію(
М,
створити_текст(М, "друк"),
М.пуста_послідовність,
пусто,
рідна_дія_друк,
пусто
);
записати_в_середовище(
М,
М.глобальне_середовище,
створити_текст(М, "друк"),
ПРЕДМЕТ(дія_друк)
);
}
}