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

cls
 
#include once "big_int/big_int_full.bi"
 
#ifndef NULL
#define NULL 0
#endif
 
sub print_num (byval tpl as string, byval num as big_int ptr)
    dim as big_int_str ptr s
 
    s = big_int_str_create( 1 )
    if( s = NULL ) then
        print "error when creating [s]"
        exit sub
    end if
    
    if( big_int_to_str( num, 10, s ) <> 0 ) then
        print "error when converting number [num] to string [s]"
        exit sub
    end if
    
    print tpl; *s->str
    
    big_int_str_destroy( s )
    
end sub
 
    dim as big_int ptr a, b, c
 
    '' initialize of [a], [b] & [c]
    a = big_int_create(1)
    b = big_int_create(1)
    c = big_int_create(1)
    if (a = NULL or b = NULL or c = NULL) then
        print "error when creating [a], [b] or [c]"
        end 1
    end if
    
    
    
    '' calculating 2^8
    print "Start of calculating 2^8... ";
    if( big_int_from_int( 3, a ) ) then
        print "error in big_int_from_int"
        end 3
    end if
    
    if( big_int_pow(a, 8, a) ) then
        print "error during calculating 17^3000"
        end 4
    end if
    
    print_num( "2^8 = ", a )
    print

    if( big_int_from_int(32670510020758816978083085130, b) ) then
        print "error in big_int_from_int"
        end 3
    end if

#Include Once "big_int/big_int_full.bi"
 
#Ifndef NULL
#define NULL 0
#EndIf
 ' Функция печати в консоль
Sub print_num (ByVal tpl As String, ByVal num As big_int Ptr)
    ' Определяем тип переменной, как указатель на тип big_int
    Dim As big_int_str Ptr s
    ' Инициализируем переменную
    s = big_int_str_create( 1 )
    If( s = NULL ) Then
        Print "error when creating [s]"
        Exit Sub ' если неудача, то выводим сообщение и  выходим из подпрограммы
    End If
    ' Если не удалось конвертировать переменную в строку, то выводим сообщение об ошибке
    If( big_int_to_str( num, 10, s ) <> 0 ) Then
        Print "error when converting number [num] to string [s]"
        Exit Sub ' если неудача, то выводим сообщение и  выходим из подпрограммы
    End If
    ' печатаем переменную
    Print tpl; *s->Str
    ' уничтожаем переменную
    big_int_str_destroy( s )
    
End Sub
    ' Определяем тип переменных, как указатели на тип big_int
    Dim As big_int Ptr a, b, c
    
    ' Инициализируем переменные [a], [b] & [c]
    a = big_int_create(1)
    b = big_int_create(1)
    c = big_int_create(1)
    
    Dim As String aa1 = "55066263022277343669578718895168534326250603453777594175500187360389116729240"
    Dim As String aa2 = "32670510020758816978083085130507043184471273380659243275938904335757337482424"
     
     'Тест на малых числах
     'Dim As String aa1 = "10"
     'Dim As String aa2 = "20"
     
    ' Если не удалось инициализировать, то выдаём код ошибки 1
    If (a = NULL Or b = NULL Or c = NULL) Then
        Print "error when creating [a], [b] or [c]"
        End 1
    End If
    
    
    
    ' вычисления 
    Print "Start of calculating ... "
    ' конвертируем строку в big_int и записываем в переменную по указателю a
    ' big_int_from_str (указатель на строку или адрес строки, основание, указатель на переменную типа big_int)
    If( big_int_from_str( @aa1,10, a ) ) Then
        Print "error in big_int_from_int" ' если неудача, то выводим сообщение и код ошибки 3
        End 3 
    End If
    ' конвертируем строку в big_int и записываем в переменную по указателю b
    ' big_int_from_str (указатель на строку или адрес строки, основание, указатель на переменную типа big_int)
    If( big_int_from_str( @aa2,10, b ) ) Then
        Print "error in big_int_from_int" ' если неудача, то выводим сообщение и код ошибки 3
        End 3
    End If
    
    ' Умножаем a и b, результат записываем в c
    If( big_int_mul(a, b, c) ) Then
        Print "error mul" ' если неудача, то выводим сообщение и код ошибки 4
        End 4
    End If
    ' Печатаем результат в консоли
    print_num( "Result = ", c )
    Print
    
    Sleep ' Пауза
    End

 #include "big_integer.bi"
 Dim as Bigint a,b,c,d,e,f
 a = "55066263022277343669578718895168534326250603453777594175500187360389116729240"
 b = "32670510020758816978083085130507043184471273380659243275938904335757337482424"
 d = 2
 c=a*b
 f=d^256
 print c
 print f
 sleep

 #include "big_integer.bi"
 Dim as Bigint a = 2
 print a^65535
 sleep

a = "55066263022277343669578718895168534326250603453777594175500187360389116729240"
 b = "32670510020758816978083085130507043184471273380659243275938904335757337482424"