A=DATAの数 DIM BOX[A] FOR L=0 TO A-1 READ BOX[L] NEXT