もし、元のソースをできるだけ崩さずに書くなら CLS DIM A$[5] READ A$[0],A$[1],A$[2],A$[3],A$[4] DATA "A","B","C","D","E" FOR i=0 TO 4 PRINT A$[i] NEXT