HTS最大公因數

意外地發現HTS不能寫遞迴，編譯不給過，所以GCD用do while來寫。

Parameter: Num1(Numeric), Num2(Numeric)

if(Num2>Num1) then
value1 = Num1
Num1 = Num2
Num2 = value1
end if

if Num2 = 0 then
GCD = Num1
else
do while Num1 % Num2 !=0
value2 = Num2
Num2 = Num1 % Num2
Num1 = value2
loop
GCD = Num2
end if