DIM KK$[9,9] FOR I=0 TO 8 FOR J=0 TO 8 READ KK$[I,J] NEXT NEXT DATA "いんいちが","いんにが","いんさんが","いんしが","いんごが","いんろくが","いんひちが","いんはちが","いんくが" '以後、九の段の分まで用意 ６行目 PRINT KK$[NO1-1,NO2-1] こんな感じ