Ты забыл про три старших бита, которые надо откинуть по MOD (которого в спектрумовском бейсике нет).
LET i=IN ...:LET i=i-(32*INT (i/32))