ACLS GOSUB WHILE WEND IF　くらいかな。