'Dataのつかいかた Dim R[30] Restore "@Ringo" For L=0 To 29 Read R[L] Next @Ringo Data 5,0,8,2,6,1,5,2,3,6,7,8,2,1,4,0,2,3,0,1,9,4,2,5,6,3,0,1,2,0