上の改造だけだとバグが発生するので、21行目のACLSをGCLS RGB(0,0,0)に変更する必要がありました。