とりあえず、挑戦してみました。 WAIT　30ほどかけた場合●が1個づつ表示され、時間がかかる 現状では2つFOR文でループさせている部分が問題なのかなと。 1つのFOR文で表示させればよいと考えてみました。 FOR J=0 TO 15 　X=4:Y=4 　COLOR 15 　LOCATE X,Y+J:PRINT "●"*16; NEXT