FOR I=0 TO 3 　BGSCALE　I,2,2 NEXT でレイヤー全部を2倍表示です。