Home

Add

Edit

With Linenumbers

Code in Textfield

Download

Dim Shared g_stdout As Integer



Sub TH_Load(Foo As String)
Print #G_STDOUT, foo
End Sub



Sub TH_Init(Nothing As Any Ptr)
ThreadCall TH_Load("blub")
End Sub


g_stdout = Freefile
Open Cons For Output As #G_STDOUT
Screenres 300, 300, 32
threadcall TH_Init(0)
Do Until Inkey() = Chr(27)
    Sleep 10, 1
Loop
End 0