sub threadProcedure( byval userdata as any ptr )
    Do
        print 1
        sleep 100, 1
        Shell "ls"
    Loop
end sub

print "starting thread..."
dim as any ptr threadid = threadcreate( @threadProcedure, 0 )

Do
    Sleep 100,1
Loop Until Inkey=Chr(27)
print "waiting for thread to finish..."
threadwait( threadid )

print "finished"
sleep