下記の様に、RESTOREステートメントの引数を@ラベル文字列で指定すれば可能です。 RESTORE "@DATA"+STR$(RND(3)) READ A : PRINT A : END @DATA0 : DATA 1 @DATA1 : DATA 2 @DATA2 : DATA 3