Source code in the basic programming language

' Fork
pid = FORK
IF pid = 0 THEN
    PRINT "I am the child, my PID is:", MYPID
    ENDFORK
ELIF pid > 0 THEN
    PRINT "I am the parent, pid of child:", pid
    REPEAT
        PRINT "Waiting for child to exit"
        SLEEP 50
    UNTIL REAP(pid)
ELSE
    PRINT "Error in fork"
ENDIF

Function script(s As String) As String
    Dim As String g = _
    "Set WshShell = WScript.CreateObject(""WScript.Shell"")" + _ 
    Chr(13,10) + "Return = WshShell.Run("""+s+" "",1,0)"
    Return g
End Function

Function guardaArchivo(nombreArchivo As String, p As String) As String
    Dim As Long n = Freefile
    If Open (nombreArchivo For Binary Access Write As #n) = 0 Then
        Put #n,,p
        Close
    Else
        Print "No se puede guardar " + nombreArchivo : Sleep : End
    End If
    Return nombreArchivo
End Function

Sub ejecutaScript(nombreArchivo As String)
    Shell "cscript.exe /Nologo " + nombreArchivo
End Sub

Var g = script("notepad.exe")  '<< ejecuta este .exe (notepad como demo)
guardaArchivo("script.vbs",g)
ejecutaScript("script.vbs")
Dim As String s
Print "Hola"
Input "Teclee algo: ", s
Print s
Kill "script.vbs"
Sleep

run "someProgram.bas",#handle
render #handle     ' this runs the program until it waits
                   ' both the parent and child are running
' --------------------------------------------------------
' You can also call a function in the someProgram.bas program.
' For example if it had a DisplayBanner Funciton.
#handle DisplayBanner("Welcome!")

Module Module1

    Sub Fork()
        Console.WriteLine("Spawned Thread")
    End Sub

    Sub Main()
        Dim t As New System.Threading.Thread(New Threading.ThreadStart(AddressOf Fork))
        t.Start()

        Console.WriteLine("Main Thread")
        t.Join()
    End Sub

End Module