/ ZXDev/Lib/NewSupercode: + procedure SIATKA.