@1 DATA 2 DATA "1" DATA "一" RESTORE @1 READ CNT DIM A[CNT] FOR I=0 TO CNT-1 READ A[I] NEXT こんな風に読み込ませることも出来ます