戻り値が２つ以上ある関数の書き方は
DEF FUNC3 S$ OUT RET1$,RET2$
VAR IDX=INSTR(S$,",")
IF IDX>-1 THEN
RET1$=MID$(S$,0,IDX)
RET2$=MID$(S$,IDX+1,LEN(S$))
ELSE
RET1$=S$
RET2$=""
ENDIF
END
FUNC3 "TEST,PRG" OUT S1$,S2$
PRINT S1$
PRINT S2$
0そうだね プレイ済み