Перевод полутора десятков строк с Питона на Free Basic

sk = 0x28E14A7B6A307F426A94F8114701E7C8E77AE7F9A47E2C2035DB29A20632172D
    # base point (generator)
G = (0x79BE667EF9DCBBAC55A06295CE870B07029BFCDB2DCE28D959F2815B16F81798,
    0x483ada7726a3c4655da4fbfc0e1108a8fd17b448a68554199c47d08ffb10d4b8)
 
    # field prime
P = 0xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFC2F
 
    # order
N = (1 << 256) - 0x14551231950B75FC4402DA1732FC9BEBF
 
    # операция сложения на эллиптической кривой
    # обратите внимание, что координаты должны быть заданы по модулю P и что деление равно
    # выполняется путем вычисления мультипликативного обратного, что может быть сделано с
    # x ^-1 = x ^ (P-2) mod P с использованием малой теоремы Ферма (степенная функция
    # python может сделать это эффективно даже для очень большого P)
 
def add(p, q):
        px, py = p
        qx, qy = q
        if p == q:
            lam = (3 * px * px) * pow(2 * py, P - 2, P)
        else:
            lam = (qy - py) * pow(qx - px, P - 2, P)
        rx = lam**2 - px - qx
        ry = lam * (px - rx) - py
        return rx % P, ry % P
 
    # вычислить G * sk с повторным сложением
    # используя двоичное представление sk, это можно сделать в 256
    # итерации (удвоение и добавление)
    
ret = None
 
for i in range(256):
        if sk & (1 << i):
            if ret is None:
                ret = G
            else:
                ret = add(ret, G)
        G = add(G, G)
 
print (ret)

for i in range(256):
        if sk & (1 << i):
            if ret is None:
                ret = G
            else:
                ret = add(ret, G)
        G = add(G, G)

lam = (3 * px * px) * pow(2 * py, P - 2, P)