プチコン特有の命令を使わないとしても、 CLS X=4:Y=4 COLOR 15 FOR I=0 TO 15 LOCATE X,Y+I FOR J=0 TO 15 PRINT "●"; NEXT NEXT この方がベスト？　もっとひねくれた回答もあるけど…