Add tests to repository

tests/basic/threads.bas

@@ -0,0 +1,30 @@
+SuperStrict
+
+' Threading tutorial 1:
+' A basic loading thread
+
+
+' a threadable function
+' threadable functions must return an Object and take 1 object as input, they don't need to be used
+Function loadResources:Object(in:Object)
+        Print "Starting a child thread..." 
+        For Local counter:Int = 0 Until 20 ' just a loop to make stuff happen
+                Print "Pretending to load resource " + counter
+                Delay(300) ' just to make this take some time like loading a real resource would
+        Next
+        Print "Child thread complete."
+End Function
+
+
+
+'####### Main code starts here
+
+' Create a thread with loadResources() and Null as it's input object value
+Local loadingThread:TThread = CreateThread(loadResources, Null)
+
+Print "Starting the main loop..."
+While(ThreadRunning(loadingThread)) ' as long as that child thread is still running...
+        Print "Waiting on our resources..."
+        Delay(100) ' we could do whatever we want here...
+Wend
+Print "Main loop complete."