Игра "Королевство Эйфория" для УКНЦ, восстановление исходника

[Alex_K]

По поводу переменной VAR224 - она типа INTEGER.
Функция L57170 получается что-то типа местного рандомайзера.

FUNCTION L57170(A:INTEGER; VAR B:INTEGER):REAL;
LABEL 1;
BEGIN
 IF A<>0 THEN B:=A;
 B:=B*5;
1:
 IF B>=16384 THEN B:=B-16384;
 IF B>=8192  THEN B:=B-8192;
 IF B>=4096  THEN B:=B-4096;
 IF B>4096   THEN GOTO 1; 
 L57170:=B/4096;
END;

Хотя можно было сделать проще: B:=B*5 AND 4095;