あと今更ですが「FOR～NEXTを2重にしてるのを外してる回答が多いですが、外せないように組んでしまえばよかったかな」と考えてます。 例えば FOR I=0 TO 15 FOR J=0 TO 15 X=4:Y=4 COLOR 15 L$=MID$("0123456789ABCDEF",FLOOR((I*16+J)/17),1) LOCATE X+J,Y+I:PRINT L$; NEXT NEXT こんな感じで。これならJを省略出来なくなるかと。