Что-то типа:

IF kbrd=16 THEN
ind.i:=40;
END_IF;