Ｄｉｍ Ｔｓｔ(１)
Ｔｓｔ(０) ＝ ”ａ１,””ｂ１１,””””ｂ１２””””,””””ｂ１３””””””,””ｃ１”””
Ｔｓｔ(１) ＝ ”ａ２,””ｂ２１,””””ｂ２２””””,””””ｂ２３””””””,””ｃ２”””

Ｄｉｍ Ｓｒｃ, Ｖａｒ, Ｑｏｔ, Ｖａｌ, Ｃｏｌｓ(), Ｃｏｌ
Ｆｏｒ Ｅａｃｈ Ｓｒｃ Ｉｎ Ｔｓｔ
　Ｑｏｔ ＝ Ｆａｌｓｅ
　ＲｅＤｉｍ Ｃｏｌｓ(０)
　Ｃｏｌ ＝ ０
　Ｆｏｒ Ｅａｃｈ Ｖａｒ Ｉｎ Ｓｐｌｉｔ(Ｓｒｃ, ”,”)
　　Ｉｆ Ｑｏｔ Ｔｈｅｎ Ｖａｌ ＝ Ｖａｌ ＆ ”,” ＆ Ｖａｒ Ｅｌｓｅ Ｖａｌ ＝ Ｖａｒ Ｅｎｄ Ｉｆ
　　Ｉｆ (Ｌｅｎ(Ｖａｒ) − Ｌｅｎ(Ｒｅｐｌａｃｅ(Ｖａｒ, ””””, ””))) Ｍｏｄ ２ Ｔｈｅｎ Ｑｏｔ ＝ Ｎｏｔ Ｑｏｔ
　　Ｉｆ Ｎｏｔ Ｑｏｔ Ｔｈｅｎ
　　　Ｉｆ Ｃｏｌ > ０ Ｔｈｅｎ ＲｅＤｉｍ Ｐｒｅｓｅｒｖｅ Ｃｏｌｓ(Ｃｏｌ)
　　　Ｃｏｌｓ(Ｃｏｌ) ＝ Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｃｈｒ(０) ＆ Ｖａｌ ＆ Ｃｈｒ(０), Ｃｈｒ(０) ＆ ””””, ””), ”””” ＆ Ｃｈｒ(０), ””), Ｃｈｒ(０), ””), ””””””, ””””)
　　　Ｃｏｌ ＝ Ｃｏｌ ＋ １
　　Ｅｎｄ Ｉｆ
　Ｎｅｘｔ
　ＭｓｇＢｏｘ Ｊｏｉｎ(Ｃｏｌｓ, Ｃｈｒ(９))
Ｎｅｘｔ