あーもしかしてout of rangeかな 空文字対策が甘かったかな DEF BUNKAI(SAVE$) 　VAR NAME$,S$ 　WHILE LEN(SAVE$) 　　S$=SHIFT(SAVE$) 　　IF S$[0]=="," THEN 　　　BREAK 　　ELSE 　　　INC NAME$,S$ 　　ENDIF 　WEND END この方がいいかなぁ