返り値セットしとけばRETURNだけでもエラーにならないので、最初のコードならこんな感じで書くのがナウいのでは！なお今後のバージョンで動かなくなる可能性があります:p VAR A[10]:FILL A,2 ?SUM(A) DEF SUM D OUT S S=0 GOSUB @SUB RETURN @SUB VAR I,L=LEN(D)-1 FOR I=0 TO L:S=S+D[I]:NEXT RETURN END