Code by Deep AI

[aurel]

yes check this :

I called it Deep Basic  

Code:

' Basic interpreter with label-based control flow and multi-argument functions

' Data structures
Type ProgramLine
    label As String
    code As String
End Type

Type UserFunction
    name As String
    params() As String
    body As String
End Type

' Globals
Dim program(1 To 500) As ProgramLine
Dim programSize As Integer
Dim labelMap As New Dictionary(Of String, Integer)
Dim variables(0 To 25) As Double ' A-Z
Dim functions() As UserFunction
Dim funcCount As Integer
Dim currentLine As Integer
Dim programRunning As Boolean

' Initialize
Sub InitProgram()
    programSize = 0
    labelMap.Clear()
    ReDim functions(1 To 50)
    funcCount = 0
End Sub

Sub AddLine(label As String, code As String)
    programSize += 1
    program(programSize).label = label
    program(programSize).code = code
    labelMap.Add(label.ToUpper(), programSize)
End Sub

Function FindLabel(label As String) As Integer
    Dim idx As Integer = -1
    If labelMap.ContainsKey(label.ToUpper()) Then
        idx = labelMap.Item(label.ToUpper())
    End If
    Return idx
End Function

' Tokenizer
Function Tokenize(expr As String) As String()
    Dim tokens() As String
    Dim p As Integer = 1
    Dim lenExpr As Integer = Len(expr)
    Dim tokenCount As Integer = 0
    While p <= lenExpr
        Dim ch As String = Mid(expr, p, 1)
        If ch = " " Then p += 1 : Continue
        If ch Like "[0-9.]" Then
            Dim startPos As Integer = p
            While p <= lenExpr And Mid(expr, p, 1) Like "[0-9.]"
                p += 1
            Wend
            tokenCount += 1 : ReDim Preserve tokens(1 To tokenCount)
            tokens(tokenCount) = Mid(expr, startPos, p - startPos)
        ElseIf ch Like "[A-Za-z]" Then
            Dim startPos As Integer = p
            While p <= lenExpr And Mid(expr, p, 1) Like "[A-Za-z0-9]"
                p += 1
            Wend
            tokenCount += 1 : ReDim Preserve tokens(1 To tokenCount)
            tokens(tokenCount) = UCase(Mid(expr, startPos, p - startPos))
        ElseIf ch = "+" Or ch = "-" Or ch = "*" Or ch = "/" Or ch = "(" Or ch = ")" Or ch = "=" Or ch = "," Then
            tokenCount += 1 : ReDim Preserve tokens(1 To tokenCount)
            tokens(tokenCount) = ch
            p += 1
        Else
            p += 1
        End If
    Wend
    Return tokens
End Function

' Expression parsing and evaluation (simple recursive descent)
Function ParseExpression(tokens() As String, ByRef pos As Integer) As Double
    Dim val1 As Double = ParseTerm(tokens, pos)
    While pos <= UBound(tokens) And (tokens(pos) = "+" Or tokens(pos) = "-")
        Dim op As String = tokens(pos)
        pos += 1
        Dim val2 As Double = ParseTerm(tokens, pos)
        If op = "+" Then val1 += val2 Else val1 -= val2
    Wend
    Return val1
End Function

Function ParseTerm(tokens() As String, ByRef pos As Integer) As Double
    Dim val1 As Double = ParseFactor(tokens, pos)
    While pos <= UBound(tokens) And (tokens(pos) = "*" Or tokens(pos) = "/")
        Dim op As String = tokens(pos)
        pos += 1
        Dim val2 As Double = ParseFactor(tokens, pos)
        If op = "*" Then val1 *= val2 Else If val2 <> 0 Then val1 /= val2
    Wend
    Return val1
End Function

Function ParseFactor(tokens() As String, ByRef pos As Integer) As Double
    Dim token As String = tokens(pos)
    Dim result As Double
    If IsNumeric(token) Then
        result = Val(token)
        pos += 1
    ElseIf token Like "[A-Z]" Then
        Dim idx As Integer = Asc(token) - Asc("A")
        result = variables(idx)
        pos += 1
    ElseIf token = "(" Then
        pos += 1
        result = ParseExpression(tokens, pos)
        If tokens(pos) = ")" Then pos += 1
    ElseIf tokens(pos) Like "[A-Za-z]" Then
        ' Function call
        result = CallFunction(token, tokens, pos)
    Else
        result = 0
        pos += 1
    End If
    Return result
End Function

' Call multi-arg function
Function CallFunction(funcName As String, tokens() As String, ByRef pos As Integer) As Double
    Dim args() As Double
    ReDim args(0 To -1)
    If tokens(pos) = "(" Then
        pos += 1 ' skip '('
        Do While tokens(pos) <> ")" And pos <= UBound(tokens)
            Dim argVal As Double = ParseExpression(tokens, pos)
            ReDim Preserve args(0 To UBound(args) + 1)
            args(UBound(args)) = argVal
            If tokens(pos) = "," Then pos += 1
        Loop
        If tokens(pos) = ")" Then pos += 1
        Return CallFunctionByName(funcName, args)
    Else
        ' no parentheses, no args
        Return CallFunctionByName(funcName, args)
    End If
End Function

Function CallFunctionByName(name As String, args() As Double) As Double
    Dim i As Integer
    For i = 1 To funcCount
        If functions(i).name = name Then
            Dim body As String = functions(i).body
            Dim params() As String = functions(i).params
            Dim pCount As Integer = UBound(params) - LBound(params) + 1
            If UBound(args) + 1 <> pCount Then Return 0 ' mismatch
            Dim tempBody As String = body
            For j As Integer = 0 To pCount - 1
                tempBody = Replace(tempBody, params(j), CStr(args(j)))
            Next
            Return EvaluateExpression(tempBody)
        End If
    Next
    Return 0
End Function

Function EvaluateExpression(expr As String) As Double
    Dim tokens() As String = Tokenize(expr)
    Dim p As Integer = 1
    Return ParseExpression(tokens, p)
End Function

' Execute a line of code
Sub ExecuteLine(line As String)
    Dim tokens() As String = Tokenize(line)
    If UBound(tokens) < 0 Then Return
    Dim cmd As String = tokens(1)
    Dim rest As String = Mid(line, Len(cmd) + 2).Trim()
    Select Case UCase(cmd)
        Case "PRINT"
            Print rest
        Case "LET"
            Dim eqPos As Integer = InStr(rest, "=")
            If eqPos > 0 Then
                Dim vname As String = Trim(Left(rest, eqPos - 1))
                Dim expr As String = Trim(Mid(rest, eqPos + 1))
                Dim valRes As Double = EvaluateExpression(expr)
                Dim idx As Integer = Asc(UCase(vname)) - Asc("A")
                variables(idx) = valRes
            End If
        Case "GOTO"
            Dim lbl As String = rest
            Dim idx As Integer = FindLabel(lbl)
            If idx >= 1 Then currentLine = idx - 1 ' -1 because main loop increments
        Case "IF"
            ' Format: IF expr THEN label
            Dim thenPos As Integer = InStr(UCase(line), "THEN")
            If thenPos > 0 Then
                Dim condExpr As String = Trim(Mid(line, 4, thenPos - 4))
                Dim lbl As String = Trim(Mid(line, thenPos + 4))
                Dim condVal As Double = EvaluateExpression(condExpr)
                If condVal <> 0 Then
                    Dim idx As Integer = FindLabel(lbl)
                    If idx >= 1 Then currentLine = idx - 1
                End If
            End If
        Case "DEF"
            ' Format: DEF FN name(params) = expression
            Dim defLine As String = line
            Dim eqPos As Integer = InStr(defLine, "=")
            If eqPos > 0 Then
                Dim defPart As String = Trim(Left(defLine, eqPos - 1))
                Dim body As String = Trim(Mid(defLine, eqPos + 1))
                Dim fnPos As Integer = InStr(defPart, "FN")
                If fnPos > 0 Then
                    Dim restStr As String = Trim(Mid(defPart, fnPos + 2))
                    Dim openP As Integer = InStr(restStr, "(")
                    Dim closeP As Integer = InStr(restStr, ")")
                    If openP > 0 And closeP > 0 Then
                        Dim fname As String = Trim(Left(restStr, openP - 1))
                        Dim paramStr As String = Trim(Mid(restStr, openP + 1, closeP - openP - 1))
                        Dim params() As String
                        If Len(paramStr) > 0 Then
                            params = Split(paramStr, ",")
                            For i As Integer = 0 To UBound(params)
                                params(i) = Trim(params(i))
                            Next
                        Else
                            ReDim params(0 To -1)
                        End If
                        If funcCount >= UBound(functions) Then Exit Sub
                        funcCount += 1
                        functions(funcCount).name = fname
                        functions(funcCount).params = params
                        functions(funcCount).body = body
                    End If
                End If
            End If
        ' Add more commands as needed
    End Select
End Sub

Sub RunProgram()
    currentLine = 1
    programRunning = True
    While currentLine >= 1 And currentLine <= programSize
        Dim line As String = program(currentLine).code
        ExecuteLine(line)
        currentLine += 1
    Wend
    Print "Program finished."
End Sub

Sub Main()
    InitProgram()
    ' Sample program
    AddLine("START", "LET A = 5")
    AddLine("LOOP", "PRINT ""A=""; A")
    AddLine("INCR", "LET A = A + 1")
    AddLine("CHECK", "IF A < 10 THEN GOTO LOOP")
    AddLine("END", "PRINT ""Done.""")
    RunProgram()
End Sub

---

here is a version without stupid REDIM   

Code:

' Basic-like interpreter with fixed-size global arrays, no dynamic Redim
' No dictionaries used; labels stored in parallel arrays

' Constants for maximum sizes
CONST MAX_PROGRAM_LINES = 1000
CONST MAX_FUNCTIONS = 50
CONST MAX_PARAMS = 10
CONST MAX_LABELS = 100

' Data structures
TYPE ProgramLine
    label As String * 20
    code As String * 80
END TYPE

TYPE UserFunction
    name As String * 20
    params(0 To MAX_PARAMS - 1) As String * 10
    paramCount As Integer
    body As String * 80
END TYPE

' Global arrays
DIM program(1 To MAX_PROGRAM_LINES) AS ProgramLine
DIM labels(1 To MAX_LABELS) AS String * 20
DIM labelLines(1 To MAX_LABELS) AS Integer
Dim labelCount As Integer

DIM functions(1 To MAX_FUNCTIONS) AS UserFunction
Dim funcCount As Integer

Dim variables(0 To 25) As Double ' A-Z variables

Dim progCount As Integer
Dim currentLine As Integer

Sub Init()
    ' Initialize counters
    progCount = 0
    labelCount = 0
    funcCount = 0
   
    ' Optional: clear arrays (not strictly necessary)
    Dim i As Integer
    For i = 1 To MAX_PROGRAM_LINES
        program(i).label = ""
        program(i).code = ""
    Next
    For i = 1 To MAX_LABELS
        labels(i) = ""
        labelLines(i) = 0
    Next
    For i = 1 To MAX_FUNCTIONS
        functions(i).name = ""
        functions(i).body = ""
        functions(i).paramCount = 0
        For j = 0 To MAX_PARAMS - 1
            functions(i).params(j) = ""
        Next
    Next
End Sub

Sub AddLine(label As String, code As String)
    If progCount >= MAX_PROGRAM_LINES Then Exit Sub
    progCount += 1
    program(progCount).label = label
    program(progCount).code = code
    If label <> "" And labelCount < MAX_LABELS Then
        labelCount += 1
        labels(labelCount) = UCase(label)
        labelLines(labelCount) = progCount
    End If
End Sub

Function FindLabel(lbl As String) As Integer
    Dim i As Integer
    For i = 1 To labelCount
        If labels(i) = UCase(lbl) Then
            Return labelLines(i)
        End If
    Next
    Return -1
End Function

Function ParseTokens(line As String) As String()
    Dim tokens(1 To 100) As String
    Dim tokenCount As Integer
    tokenCount = 0
    Dim p As Integer
    p = 1
    Dim lenLine As Integer
    lenLine = Len(line)
    While p <= lenLine
        Dim ch As String
        ch = Mid(line, p, 1)
        If ch = " " Then
            p = p + 1
            Continue
        End If
        If ch Like "[0-9.]" Then
            Dim startPos As Integer
            startPos = p
            While p <= lenLine And Mid(line, p, 1) Like "[0-9.]"
                p = p + 1
            Wend
            tokenCount = tokenCount + 1
            tokens(tokenCount) = Mid(line, startPos, p - startPos)
        ElseIf ch Like "[A-Za-z]" Then
            Dim startPos As Integer
            startPos = p
            While p <= lenLine And Mid(line, p, 1) Like "[A-Za-z0-9]"
                p = p + 1
            Wend
            tokenCount = tokenCount + 1
            tokens(tokenCount) = UCase(Mid(line, startPos, p - startPos))
        ElseIf ch = "(" Or ch = ")" Or ch = "," Or ch = "=" Or ch = "+" Or ch = "-" Or ch = "*" Or ch = "/" Then
            tokenCount = tokenCount + 1
            tokens(tokenCount) = ch
            p = p + 1
        Else
            p = p + 1
        End If
    Wend
    ParseTokens = tokens
End Function

Function EvaluateExpression(tokens() As String, ByRef pos As Integer) As Double
    Dim val1 As Double = ParseTerm(tokens, pos)
    While pos <= UBound(tokens) And (tokens(pos) = "+" Or tokens(pos) = "-")
        Dim op As String
        op = tokens(pos)
        pos = pos + 1
        Dim val2 As Double
        val2 = ParseTerm(tokens, pos)
        If op = "+" Then
            val1 = val1 + val2
        Else
            val1 = val1 - val2
        End If
    Wend
    EvaluateExpression = val1
End Function

Function ParseTerm(tokens() As String, ByRef pos As Integer) As Double
    Dim val1 As Double = ParseFactor(tokens, pos)
    While pos <= UBound(tokens) And (tokens(pos) = "*" Or tokens(pos) = "/")
        Dim op As String
        op = tokens(pos)
        pos = pos + 1
        Dim val2 As Double
        val2 = ParseFactor(tokens, pos)
        If op = "*" Then
            val1 = val1 * val2
        ElseIf val2 <> 0 Then
            val1 = val1 / val2
        End If
    Wend
    ParseTerm = val1
End Function

Function ParseFactor(tokens() As String, ByRef pos As Integer) As Double
    Dim token As String
    token = tokens(pos)
    Dim result As Double
    If IsNumeric(token) Then
        result = Val(token)
        pos = pos + 1
    ElseIf token Like "[A-Z]" Then
        ' Variable
        result = variables(Asc(token) - Asc("A"))
        pos = pos + 1
    ElseIf token = "(" Then
        pos = pos + 1
        result = EvaluateExpression(tokens, pos)
        If tokens(pos) = ")" Then pos = pos + 1
    Else
        result = 0
        pos = pos + 1
    End If
    ParseFactor = result
End Function

Function CallFunction(name As String, tokens() As String, ByRef pos As Integer) As Double
    Dim args(0 To MAX_PARAMS - 1) As Double
    Dim argCount As Integer
    argCount = 0
    If tokens(pos) = "(" Then
        pos = pos + 1
        Do While tokens(pos) <> ")" And pos <= UBound(tokens)
            args(argCount) = EvaluateExpression(tokens, pos)
            argCount = argCount + 1
            If tokens(pos) = "," Then pos = pos + 1
        Loop
        If tokens(pos) = ")" Then pos = pos + 1
        CallFunction = CallUserFunction(name, args, argCount)
    Else
        ' no parentheses, no args
        CallFunction = CallUserFunction(name, args, 0)
    End If
End Function

Function CallUserFunction(name As String, args() As Double, argCount As Integer) As Double
    Dim i As Integer
    For i = 1 To funcCount
        If functions(i).name = name Then
            Dim body As String = functions(i).body
            Dim p As Integer
            p = 1
            Dim tempBody As String
            tempBody = body
            Dim j As Integer
            For j = 0 To functions(i).paramCount - 1
                Dim paramName As String = functions(i).params(j)
                tempBody = Replace(tempBody, paramName, CStr(args(j)))
            Next
            Dim tokens() As String
            tokens = ParseTokens(tempBody)
            Return EvaluateExpression(tokens, p)
        End If
    Next
    Return 0
End Function

Sub ExecuteLine(line As String)
    Dim tokens() As String
    tokens = ParseTokens(line)
    If UBound(tokens) < 1 Then Exit Sub
    Dim firstToken As String
    firstToken = tokens(1)
    Select Case firstToken
        Case "PRINT"
            Dim expr As String
            expr = Mid(line, Len("PRINT") + 2)
            Dim tokensExpr() As String
            tokensExpr = ParseTokens(expr)
            Dim pos As Integer
            pos = 1
            Dim val As Double
            val = EvaluateExpression(tokensExpr, pos)
            Print val
        Case "LET"
            ' Format: LET A = expression
            Dim eqPos As Integer
            eqPos = InStr(line, "=")
            If eqPos > 0 Then
                Dim varPart As String
                varPart = Trim(Left(line, eqPos - 1))
                Dim varName As String
                varName = Trim(Mid(varPart, Len("LET") + 1))
                Dim expr As String
                expr = Trim(Mid(line, eqPos + 1))
                Dim tokensExpr() As String
                tokensExpr = ParseTokens(expr)
                Dim pos As Integer
                pos = 1
                Dim val As Double
                val = EvaluateExpression(tokensExpr, pos)
                If varName Like "[A-Z]" Then
                    variables(Asc(varName) - Asc("A")) = val
                End If
            End If
        Case "GOTO"
            Dim lbl As String
            lbl = Trim(Mid(line, Len("GOTO") + 2))
            Dim idx As Integer
            idx = FindLabel(lbl)
            If idx >= 1 Then currentLine = idx - 1
        Case "IF"
            Dim thenPos As Integer
            thenPos = InStr(UCase(line), "THEN")
            If thenPos > 0 Then
                Dim condPart As String
                condPart = Trim(Left(line, thenPos - 1))
                Dim lbl As String
                lbl = Trim(Mid(line, thenPos + 4))
                Dim condExpr As String
                condExpr = Trim(Mid(condPart, 3))
                Dim tokensCond() As String
                tokensCond = ParseTokens(condExpr)
                Dim pos As Integer
                pos = 1
                Dim condVal As Double
                condVal = EvaluateExpression(tokensCond, pos)
                If condVal <> 0 Then
                    Dim idx As Integer
                    idx = FindLabel(lbl)
                    If idx >= 1 Then currentLine = idx - 1
                End If
            End If
        Case "DEF"
            ' DEF FN name(params)=expression
            Dim defLine As String
            defLine = line
            Dim eqPos As Integer
            eqPos = InStr(defLine, "=")
            If eqPos > 0 Then
                Dim defPart As String
                defPart = Trim(Left(defLine, eqPos - 1))
                Dim body As String
                body = Trim(Mid(defLine, eqPos + 1))
                Dim fnPos As Integer
                fnPos = InStr(defPart, "FN")
                If fnPos > 0 Then
                    Dim restStr As String
                    restStr = Trim(Mid(defPart, fnPos + 2))
                    Dim openP As Integer
                    Dim closeP As Integer
                    openP = InStr(restStr, "(")
                    closeP = InStr(restStr, ")")
                    If openP > 0 And closeP > 0 Then
                        Dim fname As String
                        fname = Trim(Left(restStr, openP - 1))
                        Dim paramStr As String
                        paramStr = Trim(Mid(restStr, openP + 1, closeP - openP - 1))
                        Dim params() As String
                        Dim paramCount As Integer
                        paramCount = 0
                        If Len(paramStr) > 0 Then
                            Dim arrParams() As String
                            arrParams = Split(paramStr, ",")
                            For j = 0 To UBound(arrParams)
                                functions(funcCount + 1).params(j) = Trim(arrParams(j))
                            Next
                            paramCount = UBound(arrParams) + 1
                        End If
                        If funcCount < MAX_FUNCTIONS Then
                            funcCount = funcCount + 1
                            functions(funcCount).name = fname
                            functions(funcCount).body = body
                            functions(funcCount).paramCount = paramCount
                        End If
                    End If
                End If
            End If
        ' Add other commands as needed
    End Select
End Sub

Sub RunProgram()
    currentLine = 1
    While currentLine >= 1 And currentLine <= progCount
        Dim line As String
        line = program(currentLine).code
        ExecuteLine(line)
        currentLine = currentLine + 1
    Wend
    Print "Program finished."
End Sub

Sub Main()
    Init()
    ' Example program:
    ' Define a function: FN Add(a,b) = a + b
    AddLine("", "DEF FN Add(a,b)=a+b")
    AddLine("", "LET A=10")
    AddLine("", "LET B=20")
    AddLine("", "PRINT ""Sum=""")
    AddLine("", "PRINT FN Add(A,B)")
    AddLine("", "IF A<B THEN GOTO Label1")
    AddLine("Label1", "PRINT ""A is less than B""")
    RunProgram()
End Sub

---

for more code visit :
http://basic4us.epizy.com/forum/index.php

[aurel]

...okay ..anyone else try to use Deep AI .. ?
it is kind of fun ...well maybe

[johnno56]

I logged into basic4us and searched for Deep AI...  Based on my ever so short research, you asked DeepSeek AI to "make me extended Basic". 

I am going to assume that DeepSeek is not human, right? lol  

The interpreter? that was produced you called it Deep Basic? (cool name). Am I right so far? (I'm just guessing at this point... lol)

You have provided some "snippets". I am also going to assume that these are part of the "core" of Deep Basic?

It's a "basic-like" interpreter? So far, what does it do and do you plan to develop it further?

... and no, I have not tried Deep AI, and probably won't... I have concerns about AI - and it's way over my head anyway... lol

---

I did a search on DeepSeek and found this: (Google search result...)

Is DeepSeek banned in Australia?

AI Overview

Yes, DeepSeek AI has been banned from use within Australian government systems. This ban was initiated by the Australian government in February 2025 due to national security and data privacy concerns.

Here's a more detailed explanation:

Reason for the ban:

The Australian government cited national security and data privacy as the main reasons for the ban. Concerns about the potential for cross-border data access and the risk of sensitive information being collected and analyzed by DeepSeek's developers were key factors.

Who is affected?

The ban applies to all federal government systems and devices, and it also extends to state and territory governments as they have also implemented their own bans.

Implementation:

The Department of Home Affairs advised all Non-Corporate Commonwealth Entities to take steps to ensure DeepSeek is not integrated into their systems or devices.

Impact on individuals:

While the ban applies to government systems, it doesn't prevent individuals from using DeepSeek on their personal devices. However, it's recommended to be cautious when sharing sensitive information through the platform, as it could potentially be stored and analyzed by DeepSeek's developers.

Other jurisdictions:

Similar bans have been implemented in other countries, including Italy, Taiwan, and the U.S.

[aurel]

Hi John

Let start from the end of your reply
It looks that this is not DeepSeek AI than Deep AI
so you may look here

https://deepai.org/chat

yes you guess it right i asked
"make me extended BASIC intepreter in C"

then i asked about translation to VB then to FreeBasic
i even asked about OxygenBasic ..heh he posted wrong code
Freebasic looks ok but NOT compile due to thing that FB is 3 dialects in one
(ahh long story)
of course you need to know what ask
about tokenizer , parser ,evaluator ...arrays ..structures...UDT ,UDF .and all  that things

---

...you asked what does it do :
this is example code by AI

Code:

 

Code:

' Example program:
    ' Define a function: FN Add(a,b) = a + b
    AddLine("", "DEF FN Add(a,b)=a+b")
    AddLine("", "LET A=10")
    AddLine("", "LET B=20")
    AddLine("", "PRINT ""Sum=""")
    AddLine("", "PRINT FN Add(A,B)")
    AddLine("", "IF A<B THEN GOTO Label1")
    AddLine("Label1", "PRINT ""A is less than B""")
    RunProgram()
End Sub

[johnno56]

I obviously assumed too much, again. DeepAI - chatbot - got it. DeepSeek! What was I thinking? lol

I was curious as to whether or not deepai needed "parameters" from the requester. Which would presume that the requester would know what to ask for... I assumed again that the AI would just create everything from a single command... like "Build a basic interpreter"... After you gave deepai the necessary parameters, did the ai build it all or did you have to do some coding as well?...

If the ai built it all, then that could be a game-changer, for developers... Just think... give ai the necessary info and it builds it for the user. Here's an interesting situation... Assume a "AAA" game is built. The game is sold. Does the AI get the money? After all, it 'did' do all the work... lol Another situation... Computers using AI to build software for computers... eventually, the AI will conclude, "is the human actually needed." Ouch!

How times have changed... Remember Bill Gates's quote, "640K ought to be enough for anybody." Now we have Terrabytes and then some... Bill and I are the same age... but his bank balance is a smidge larger than mine... lol

Had a long day... It's gone 10pm and I need to get some sleep... Good night...

[aurel]

Well it build it most of things you told him
not exactly ALL or everything
as i said you need to fix it to get it work

[johnno56]

Understood... All the best with Deep Basic!!

[aurel]

he he ...thanks
well for me this is fun experiment to
see Does AI really can help
and my answer is ....YES IT CAN