プログラムの最初に var gcol%[16] @gcol data 0, #black, #maroon, ..., #white copy @gcol, gcol% と書いてください。 12行目から26行目は gcolor gcol%[c] の 1 行にまとめられます。