Petitverse

VAR(A$)=B$
みたいに。

もしくは
UIT$=FRU()
みたいに返してもらうとか

ツララさん
確かに代入する変数が1つならそれも一つの方法ですね。今回の場合はそれで良いと思います。
ただ、VAR()を使う必要があんまりないかと言われるとそれは違うんじゃ無いかと思います。VAR()にはVAR()にしか出来ないことがあると思います。
例えばUIT$が文字列配列だった場合は、戻り値にするのは厳しいと思います。
そもそもVAR()は遅いだけで特にデメリットなんて無いと思います。

具体的なコードです。こんな感じで複数の変数に一括でコピーできるのがVAR()の強みです。
DEF FRU A$[]
　VAR I
　DIM B$[3]
　COPY B$,"@DAT"
　FOR I=0 TO LEN(A$)-1
　　COPY VAR(A$[I]),B$[RND(3)]
　NEXT I
　@DAT
　DATA "林檎","葡萄","蜜柑"
END


DIM LIKE$,FAVORITE$,HATE$,UIT$
DIM V$[3]
COPY V$,"@VARIABLE"
FRU V$
@VARIABLE
DATA "LIKE$","FAVORITE$","UIT$"