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文字になる
あーもしかして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
この方がいいかなぁ