问如何将BASIC语言转换为C语言？有没有类似的网站可以比较BASIC和C语言？

EN

Symbol USB_CHOOSE = PORTD.1

Declare RsOut_Pin PORTD.2
Declare Serial_Baud 38400 
Declare RsOut_Mode True

Dim I As Word
Dim J As Word
Dim IND As Byte
Dim btemp As Byte
Dim SPI_BYTE_OUT As Byte
Dim SPI_BYTE_IN As Byte

 For I = 0 To 99
            CURKEY[I] = 0
            OLDKEY[I] = 0
            APPUI[I] = 0
       Next

        init:       'initialisation first_scan et eco_tap
        FIRST_SCAN_QTA = 0
        FIRST_SCAN_QTB = 0
        COMPTEUR_TAP = 0
        MEM_TAP = 0

        'test init
        'init QTA
        RsOut "*** RESET QTA",13
        Low QTA_RST
        DelayMS 100
        High QTA_RST
        For I = 1 To 25             'attente après reset
            GoSub watch
            DelayMS 100
        Next
        GoSub comm_QTA
        GoSub read_crc_eeprom_QTA
        If INIT_ERROR_COUNTER > 0 Then
            '***
            'DelayMS 200
            GoSub write_setup_QTA     
        EndIf
        GoSub read_setup_eeprom_QTA          
        GoSub cal_all_QTA                    
        GoSub chech_cal_QTA                  


         main:          GoSub watch

           High PORTA.3:DelayUS 30:Low PORTA.3

            Case 6 ' t T
                    GoSub gesture_simple
                    If GESTURE = 1 Then
                        BUFFER[1 + NB_TOUCH] = $17
                    EndIf
                    If GESTURE = 5 Then
                        T_REL = $17
                    EndIf
                    GoSub sendcode