DEF BUNKAI(SAVE$) 　VAR NAME$,S$ 　WHILE LEN(SAVE$) 　　S$=SHIFT(SAVE$) 　　IF S$=="," THEN 　　　BREAK 　　ELSE 　　　INC NAME$,S$ 　　ENDIF 　WEND 　RETURN NAME$ END （値の返し忘れ修正）