FOR〜NEXTを使えば、そんなに手間ではないですよ。スプライト用画像の左上から、1キャラ16×16ドットで描いていると過程してズバリ書いちゃうと、 SN=0 FOR Y=0 TO 3:FOR X=0 TO 12 SPDEF SN,X*16,Y*16,16,16,8,8,1 SPSET SN,SN SPOFS SN,X*16+20,Y*16+20 SN=SN+1 NEXT:NEXT てな感じ。ちなみにSPOFSの「+20」は適当な数です。