**TI92P*mainFunction file 06/04/05, 01:05Rpgcd°¥ZV(a,b) Func Local r While bž1 mod(a,b)r ba rb EndWhile Return a EndFunc äåÜ