Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement