WHILE-WENDとSHIFT()を使う方式もあるよね DEF BUNKAI(SAVE$) 　VAR NAME$,S$ 　WHILE SAVE$[0]!="," 　　INC NAME$,SHIFT(SAVE$) 　WEND 　IF LEN(SAVE$) THEN S$=SHIFT(SAVE$) END S$の役目は,を捨てるために1文字捨てること この場合、BUNKAI()を呼ぶたび1項目を返し、その分SAVE$が削られてやがて0文字になる