Update tPrime.prg

Revisao em tPrime