263～267行目を REPEAT UNTIL LEN(STR$(ID))==4 か REPEAT UNTIL (FLOOR(LOG(ID,10))+1)==4 で囲めば良いと思います。