WHILE R%<0 R% = R% + 32 WEND でR%を０からの整数に変換。 後はR% MOD 32え超えちゃった分を削れば大丈夫です。