Как получить ASCII-код символа в Codesys?

[saii]

не нравится тем, что это цикл парсинга строки! И я привел проблемный фрагмент, остальное заменив многоточием

Тогда так:

	FOR xxx := 1 TO LEN(s1) - 1 DO
		s2 := CONCAT(s2, MID(s1, 1, xxx));
	END_FOR